Duda con la carga de ventanas modal

Acceder Darse de alta He olvidado la contraseña

Etiquetado: Modal Nefele

Este debate tiene 4 respuestas, 2 mensajes y ha sido actualizado por última vez el 9 meses, 2 semanas por juan. This post has been viewed 210 timesnovedades. This post has been viewed 210 times

Mostrando 4 respuestas a los debates

Autor

Entradas

09-02-2024 a las 17:54 #2193

juan.novedades
Participante

Buenos días grupo, hace un tiempo hicimos una serie de opciones que usan las ventanas modal, probadas en su momento y todo bien pero resulta que no se desde que momento (pueden ser meses) marcan error, viendo en el inspector marca un fallo 500 y ya mas a detalle del error menciona: "Política de referenciastrict-origin-when-cross-origin" supongo que se activo algun nuevo nivel de seguridad o algo asi, le paso a alguien ? hay manera de evitar el fallo ? Saludos !

09-02-2024 a las 18:03 #2194

juan.novedades

Participante

Probe con este ejemplo basado en uno de Xevi aparte de mi codigo y lo mismo:

/*
 * Proyecto:      Ejemplo1
 * Fichero:       MainPage.prg
 * Descripción:   Aplicación CGI de Ejemplo1
 * Autor:         usuario1
 * Fecha:         10/10/2023
 */

#include "Xailer.ch"
#include "Nefele.ch"

//------------------------------------------------------------------------------
//Función principal de la app Web
PROCEDURE MainPage()

   // Comenzamos instanciando la Página Web que queremos crear
   WITH OBJECT TWebPage():New()
      :lAlerts := .T.      // Como vamos a usar alerts desde ajax, tenemos que indicarlo a webpage

      CrearModal( :WO )  // Creamos la ventana modal

      WITH OBJECT WBevel():New( :WO )
         :cId := "myBevel"

         WITH object WEdit():New( :WO )
            :cId                := "myEdit1"
            :cTitle             := "Mi Edit1"
            :Create()
         END WITH

         WITH object WButton():New(:WO)
            :cText       := "Prueba abrir ventana Modal"
            :aParams := { { "myEdit1", "#myEdit1"} }
            :cOnClick    := "AbrirModal"
            :cAjaxBevel   := "nflcargo"
            :Create()
         END

         :Create()
      END

      oCgi:SendPage(:Create())
   END WITH

RETURN

//----------------------------------------------

// creamos la ventana modal
FUNCTION CrearModal ( o )
   LOCAL oBevel, oForm

   WITH OBJECT oBevel := WBevel():New( o )
      :cId             := "modal1"
      :nStyle          := xc_Modal
      :lTrueModal      := .f.
      :aWidth[ xc_S ]  := 10
      :aWidth[ xc_M ]  := 8

      WITH OBJECT WPanel():New( :WO )
         :cTitle        := "Edición de datos"
         :aWidth[ xc_S ] := 12

         WITH OBJECT oForm := WForm():New( :WO )
            :cId       := "frmModal1"
            :cFunction := "UpdateModal"

            WITH OBJECT WEdit():New( :WO )
               :cId        := "MyEditModal1"
               :cTitle     := "MyEditModal1"
               :Create()
            END WITH

            WITH OBJECT WButton():New( :WO )
               :cId         := "submit"
               :cText       := "Aceptar"
               :cOnClick    := oBevel:Submit( oForm )
               :Create()
            END WITH

            :Create()
         END WITH //form

         :Create()
      END WITH //Panel

      :Create()
   END WITH //Bevel

RETURN NIL

//----------------------------------------------

FUNCTION AbrirModal()
   Local cHtml := ""
   Local cTextEdit1 := oCGI:GetCGIValue( "myEdit1" )  //Capturamos els valor introducido en el Edit1 de la ventana Inicial

   //En Ajax, los nombres de los Id/Controles, en minúsculas
   cHtml  := "" // SetValueById( "myeditmodal1", cTextEdit1 )
   SendAjaxScript( cHtml, "modal1", "myeditmodal1" )  //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN NIL

//----------------------------------------------

PROCEDURE UpdateModal
   Local cHtml := ""
   Local cTextEdit1 := oCGI:GetCgiValue( "myEditModal1", "" ) //Capturamos els valor introducido en el Edit1 de la ventana Modal

   //En Ajax, los nombres de los Id/Controles, en minúsculas
   cHtml  := "" // SetValueById( "myedit1", cTextEdit1 )
   SendAjaxScript( cHtml, "mybevel", .F. )  //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN

FUNCTION SendAjaxScript( cText, cModal, cFocus )

   IF !Empty( cModal )
      cText += cOpenModal( cModal )
   ENDIF

   IF !Empty( cFocus )
      cText +=  SetFocus( cFocus )
   ENDIF

   oCGI:Send( "" )
   oCGI:send( IF(At("<SCRIPT>",Upper(cText))=0,"<script>","") + crlf + cText + crlf + "</script>" )

RETURN NIL


//----------------------------------------------

FUNCTION cOpenModal( cName )
RETURN '$("#' + cName + '").modal("open");' + crlf

//----------------------------------------------

FUNCTION SetFocus( cName )
RETURN 'document.querySelector("#' + cName + '").focus();' + crlf

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

* Proyecto: Ejemplo1

* Fichero: MainPage.prg

* Descripción: Aplicación CGI de Ejemplo1

* Autor: usuario1

* Fecha: 10/10/2023

#include "Xailer.ch"

#include "Nefele.ch"

//------------------------------------------------------------------------------

//Función principal de la app Web

PROCEDURE MainPage()

// Comenzamos instanciando la Página Web que queremos crear

WITH OBJECT TWebPage():New()

:lAlerts := .T. // Como vamos a usar alerts desde ajax, tenemos que indicarlo a webpage

CrearModal( :WO ) // Creamos la ventana modal

WITH OBJECT WBevel():New( :WO )

:cId := "myBevel"

WITH object WEdit():New( :WO )

:cId := "myEdit1"

:cTitle := "Mi Edit1"

:Create()

END WITH

WITH object WButton():New(:WO)

:cText := "Prueba abrir ventana Modal"

:aParams := { { "myEdit1", "#myEdit1"} }

:cOnClick := "AbrirModal"

:cAjaxBevel := "nflcargo"

:Create()

END

:Create()

END

oCgi:SendPage(:Create())

END WITH

RETURN

//----------------------------------------------

// creamos la ventana modal

FUNCTION CrearModal ( o )

LOCAL oBevel, oForm

WITH OBJECT oBevel := WBevel():New( o )

:cId := "modal1"

:nStyle := xc_Modal

:lTrueModal := .f.

:aWidth[ xc_S ] := 10

:aWidth[ xc_M ] := 8

WITH OBJECT WPanel():New( :WO )

:cTitle := "Edición de datos"

:aWidth[ xc_S ] := 12

WITH OBJECT oForm := WForm():New( :WO )

:cId := "frmModal1"

:cFunction := "UpdateModal"

WITH OBJECT WEdit():New( :WO )

:cId := "MyEditModal1"

:cTitle := "MyEditModal1"

:Create()

END WITH

WITH OBJECT WButton():New( :WO )

:cId := "submit"

:cText := "Aceptar"

:cOnClick := oBevel:Submit( oForm )

:Create()

END WITH

:Create()

END WITH //form

:Create()

END WITH //Panel

:Create()

END WITH //Bevel

RETURN NIL

//----------------------------------------------

FUNCTION AbrirModal()

Local cHtml := ""

Local cTextEdit1 := oCGI:GetCGIValue( "myEdit1" ) //Capturamos els valor introducido en el Edit1 de la ventana Inicial

//En Ajax, los nombres de los Id/Controles, en minúsculas

cHtml := "" // SetValueById( "myeditmodal1", cTextEdit1 )

SendAjaxScript( cHtml, "modal1", "myeditmodal1" ) //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN NIL

//----------------------------------------------

PROCEDURE UpdateModal

Local cHtml := ""

Local cTextEdit1 := oCGI:GetCgiValue( "myEditModal1", "" ) //Capturamos els valor introducido en el Edit1 de la ventana Modal

//En Ajax, los nombres de los Id/Controles, en minúsculas

cHtml := "" // SetValueById( "myedit1", cTextEdit1 )

SendAjaxScript( cHtml, "mybevel", .F. ) //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN

FUNCTION SendAjaxScript( cText, cModal, cFocus )

IF !Empty( cModal )

cText += cOpenModal( cModal )

ENDIF

IF !Empty( cFocus )

cText += SetFocus( cFocus )

ENDIF

oCGI:Send( "" )

oCGI:send( IF(At("<SCRIPT>",Upper(cText))=0,"<script>","") + crlf + cText + crlf + "</script>" )

RETURN NIL

//----------------------------------------------

FUNCTION cOpenModal( cName )

RETURN '$("#' + cName + '").modal("open");' + crlf

//----------------------------------------------

FUNCTION SetFocus( cName )

RETURN 'document.querySelector("#' + cName + '").focus();' + crlf

09-02-2024 a las 18:07 #2195

juan.novedades
Participante

curioso, si en console del inspector pongo : $("#modal_usua").modal("open"); si se muestra la ventana modal !
10-02-2024 a las 14:49 #2196

Pedro Amaro
Superadministrador

Compila en modo Debug a ver exactamente a que error corresponde ese error 500 que te da, creo que no tiene nada que ver con el mensaje que te esta dando la consola.

En la próxima versión del samples tenemos un ejemplo con ventanas modal y no da ese error.

Prueba y nos cuentas
10-02-2024 a las 19:03 #2201

juan.novedades
Participante

Gracias Pedro, seguimos checando. Saludos.

Autor

Entradas

Mostrando 4 respuestas a los debates

Debes estar registrado para responder a este debate.