WMsgAlert() no entiendo porque no me funciona

Acceder Darse de alta He olvidado la contraseña

Etiquetado: WMsgAlert() no se ejecuta

Este debate tiene 0 respuestas, 1 mensaje y ha sido actualizado por última vez el 3 años, 6 meses por Cristian Bravo. This post has been viewed 574 times

Mostrando 0 respuestas a los debates

Autor

Entradas

27-04-2021 a las 21:18 #1794

Cristian Bravo

Participante

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

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

   WITH OBJECT TWebPage():New()
      :lValign := .T.
      :lAlerts := .T.

      WITH OBJECT WBevel():New(:WO)
         :aWidth[xc_L]  := 4

         WITH OBJECT WButton():New(:WO)
            :cId       := 'ID_Aceptar'
            :cText     := 'Aceptar'
            :lSubmit   := .T.
            :lLarge    := .T.
            :lCenter   := .T.
            :cOnClick  := 'Verificar'
            // :cAjaxBevel := 'nflcargo'
            :Create()
         END WITH

         :Create()
      END WITH

      oCgi:SendPage( :Create() )

   END WITH

RETURN

PROCEDURE Verificar()

      WITH OBJECT TWebPage():New()
         //:lAlerts      := .T.

         WITH OBJECT WPanel():New(:WO)
            :cTitle       := "Se llamo a la Página..."
            :cClrPane     := 'blue accent-3'

            IF .F.  // Por .T. el al presionar en wButton regresa al MainPage
               WITH OBJECT WButton():New(:WO)
                  :cId       := "ID_Volver"
                  :cIcon     :=  "send"
                  :cText     := "Volver"
                  :cOnClick  := "MainPage"
                  :lLarge    := .T.
                  :lCenter   := .T.
                  :Create()
               END WITH
            ELSE
               WITH OBJECT WMsgAlert():New( :WO )
                  :lTagScript    := .T.
                  :cText         := "Alerta. No hubo acceso a la <b>Base de Datos</b>"
                  :cType         := "error"
                  :lModal        := .T.
                  // :cOnConfirm   := "MainPage"  // Esta linea hace que no salga el Alert y tampoco vuelve al MainPage
                  :lShowConfirmButton := .T.
                  :Create()
               END WITH
            END IF

            :Create()
         END WITH

         oCgi:SendPage(:Create())
      END WITH
RETURN

#include "Xailer.ch"

#include "Nefele.ch"

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

//Función principal de la app Web

PROCEDURE MainPage()

WITH OBJECT TWebPage():New()

:lValign := .T.

:lAlerts := .T.

WITH OBJECT WBevel():New(:WO)

:aWidth[xc_L] := 4

WITH OBJECT WButton():New(:WO)

:cId := 'ID_Aceptar'

:cText := 'Aceptar'

:lSubmit := .T.

:lLarge := .T.

:lCenter := .T.

:cOnClick := 'Verificar'

// :cAjaxBevel := 'nflcargo'

:Create()

END WITH

:Create()

END WITH

oCgi:SendPage( :Create() )

END WITH

RETURN

PROCEDURE Verificar()

WITH OBJECT TWebPage():New()

//:lAlerts := .T.

WITH OBJECT WPanel():New(:WO)

:cTitle := "Se llamo a la Página..."

:cClrPane := 'blue accent-3'

IF .F. // Por .T. el al presionar en wButton regresa al MainPage

WITH OBJECT WButton():New(:WO)

:cId := "ID_Volver"

:cIcon := "send"

:cText := "Volver"

:cOnClick := "MainPage"

:lLarge := .T.

:lCenter := .T.

:Create()

END WITH

ELSE

WITH OBJECT WMsgAlert():New( :WO )

:lTagScript := .T.

:cText := "Alerta. No hubo acceso a la <b>Base de Datos</b>"

:cType := "error"

:lModal := .T.

// :cOnConfirm := "MainPage" // Esta linea hace que no salga el Alert y tampoco vuelve al MainPage

:lShowConfirmButton := .T.

:Create()

END WITH

END IF

:Create()

END WITH

oCgi:SendPage(:Create())

END WITH

RETURN

Autor

Entradas

Mostrando 0 respuestas a los debates

Debes estar registrado para responder a este debate.