WMsgAlert y Ajax - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Etiquetado: Ajax, MsgAlert

Este debate tiene 7 respuestas, 3 mensajes y ha sido actualizado por última vez el 4 años, 3 meses por Alfredo Sanz. This post has been viewed 745 times

Mostrando 6 respuestas a los debates

Autor

Entradas

18-08-2020 a las 03:23 #412

ramonzea

Participante

Estoy intentando poner un mensaje cn WMsgAlert, pero tengo unos detalles.

Hago una lista de items con wBevel y un botón para cada item, para agregarlo a una tabla de control, tipo carrito de compras.

1-Si pongo

:cOnClick := "AgregaCarrito"

marca error por que no puedo recoger el valor WO para insertarlo en la página actual.

2.- Si pongo

:cOnClick := AgregaCarrito(:WO, aProducto)

se ejecuta correcto, pero se ejecutan todos los botones creados.

ya hice muchos tipos de formas incluso con Ajax, pero al parecer no le atino a la forma correcta.

WITH OBJECT oAlert := WMsgAlert():New()
      //:lTagScript         := .T. 
      :cAjaxBevel         := "mensaje01"
      :cText              := cText
      :cType              := "info" //question"
      :lToast             := .T.
      :cBackGroundColor   := "yellow" 
      :cPosition          := xc_BottomRight
      :lShowConfirmButton := .F.
      :nPrimaryDelay      := nDelay
      :Create()
   End With

WITH OBJECT oAlert := WMsgAlert():New()

//:lTagScript := .T.

:cAjaxBevel := "mensaje01"

:cText := cText

:cType := "info" //question"

:lToast := .T.

:cBackGroundColor := "yellow"

:cPosition := xc_BottomRight

:lShowConfirmButton := .F.

:nPrimaryDelay := nDelay

:Create()

End With

Gracias.

Este debate fue modificado 4 años, 3 meses por Alfredo Sanz.
Este debate fue modificado 4 años, 3 meses por Alfredo Sanz.

18-08-2020 a las 09:39 #413

Alfredo Sanz

Superadministrador

El planteamiento que haces no es correcto.

La llamada a Ajax es la que te tiene que devolver el alert para inyectarlo en la página. Por ejemplo

En un browse tenemos un botón de borrar que al hacer click llama por ajax a "borradato"

   WITH object :AddCol( "", xc_Center, xc_Center )
         :nWidth     := 1
         :cToolTip   := "borrar"
         :cId        := "borra"
         :cClrText   := "red"
         :cCursor    := "pointer"
         :cOnClick   := "borradato"
         :cAjaxBevel := "NflCargo"
      END

WITH object :AddCol( "", xc_Center, xc_Center )

:nWidth := 1

:cToolTip := "borrar"

:cId := "borra"

:cClrText := "red"

:cCursor := "pointer"

:cOnClick := "borradato"

:cAjaxBevel := "NflCargo"

END

FUNCTION BorraDato
LOCAL oMsgAlert
LOCAL cRegistro

   cRegistro = GetRowValue( oCGI:GetCGIValue( "borra" )  )

   WITH OBJECT oMsgAlert := WMsgAlert():New()
      :lTagScript := .T.
      :cTitle     := "¿Confirmar borrado?" + ToString(cRegistro:cID)
      :cType      := "info"
      :cAjaxBevel := "nflcargo"

      :cConfirmButton     := 'Sí'
      :cConfirmButtonIcon := 'exit_to_app'
      :cOnConfirm         := "cBorrarRegistro"
      :aParams            := { { "linea", cRegistro:cId} }
      :cCancelButton      := "No"
      :cCancelButtonIcon  := "cancel"

      :Create()
   END

   SendAjax( oMsgAlert:FullHtml() )

RETURN NIL

FUNCTION BorraDato

LOCAL oMsgAlert

LOCAL cRegistro

cRegistro = GetRowValue( oCGI:GetCGIValue( "borra" ) )

WITH OBJECT oMsgAlert := WMsgAlert():New()

:lTagScript := .T.

:cTitle := "¿Confirmar borrado?" + ToString(cRegistro:cID)

:cType := "info"

:cAjaxBevel := "nflcargo"

:cConfirmButton := 'Sí'

:cConfirmButtonIcon := 'exit_to_app'

:cOnConfirm := "cBorrarRegistro"

:aParams := { { "linea", cRegistro:cId} }

:cCancelButton := "No"

:cCancelButtonIcon := "cancel"

:Create()

END

SendAjax( oMsgAlert:FullHtml() )

RETURN NIL

y nos devuelve el código necesario para hacer el alert y la acción a realizar ( cOnConfirm )

FUNCTION cBorrarRegistro( )
LOCAL oAlt
 
   WITH OBJECT oAlt := WMsgAlert():New(  )
      :cText              := "Dato Borrado "
      :cType              := "success"
      :lShowConfirmButton := .t.
      :Create()

   END WITH

   SendAjaxScript( RemoveLine(oCGI:GetCGIValue("linea")) + oAlt:fullhtml())
RETURN NIL

FUNCTION cBorrarRegistro( )

LOCAL oAlt

WITH OBJECT oAlt := WMsgAlert():New( )

:cText := "Dato Borrado "

:cType := "success"

:lShowConfirmButton := .t.

:Create()

END WITH

SendAjaxScript( RemoveLine(oCGI:GetCGIValue("linea")) + oAlt:fullhtml())

RETURN NIL

FUNCTION SendAjax( cDato)
   with object oCgi
      :Send("")
      :Send( cDato )
   end
RETURN NIL

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

Function SendAjaxScript( cText , cModal , cFocus)
   IF !Empty(cModal)
     cText += cOpenModal( cModal)
   ENDIF
   IF !Empty(cFocus)
     cText +=  SetFocus( cFocus )
   ENDIF
   oCGI:send("")
   oCGI:send("<script>"+ crlf + cText + crlf + "</script>")
RETURN NIL

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

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

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

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

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

FUNCTION RemoveLine( cLine )
RETURN 'document.querySelector("#'+cLine+'").remove();'+crlf

FUNCTION SendAjax( cDato)

with object oCgi

:Send("")

:Send( cDato )

end

RETURN NIL

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

Function SendAjaxScript( cText , cModal , cFocus)

IF !Empty(cModal)

cText += cOpenModal( cModal)

ENDIF

IF !Empty(cFocus)

cText += SetFocus( cFocus )

ENDIF

oCGI:send("")

oCGI:send("<script>"+ crlf + cText + crlf + "</script>")

RETURN NIL

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

Function cOpenModal( cName)

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

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

Function SetFocus( cName)

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

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

FUNCTION RemoveLine( cLine )

RETURN 'document.querySelector("#'+cLine+'").remove();'+crlf

Esta respuesta fue modificada 4 años, 3 meses por Alfredo Sanz.

19-08-2020 a las 05:37 #418

ramonzea

Participante

Estoy usando un wButton

            WITH OBJECT WButton():New( :WO )
               :cid := "aProd" + NToC(nId)
               //:lEnabled     := aProducto[4] > 0
               :aWidth[xc_M]    := 2
               :cIcon        := "add_shopping_cart"
               :cOnClick     := "AgregaCarrito" //Si lo llamo directo lo llama por cada producto(:WO, aProducto)
               :cAjaxBevel   := "msgalert"
               :aParams      := { { "codigo",  aProducto[1] },;
                                  { "descrip", aProducto[2] };
                                 }
               :Create()
            End With

WITH OBJECT WButton():New( :WO )

:cid := "aProd" + NToC(nId)

//:lEnabled := aProducto[4] > 0

:aWidth[xc_M] := 2

:cIcon := "add_shopping_cart"

:cOnClick := "AgregaCarrito" //Si lo llamo directo lo llama por cada producto(:WO, aProducto)

:cAjaxBevel := "msgalert"

:aParams := { { "codigo", aProducto[1] },;

{ "descrip", aProducto[2] };

}

:Create()

End With

Ya no marca error pero no logro que se vea el mensaje de resultado.

Function AgregaCarrito()
 Local cMsg
 LOCAL cCodigo := Trim(oCGI:GetCGIValue( "codigo" ))
 LOCAL cDescrip := Trim(oCGI:GetCGIValue( "descrip" ))
 
   IF ( SumaArticuloCarrito( cCodigo ) )  <-- Busco y grabo en una tabla o dbf el producto o le sumo 1
     cMsg := zMsgInfo( AsciiHTML("Añadido " + cDescrip ) )  <---Regresa el oAlert:FullHtml()
   Else
     cMsg := zMsgInfo( AsciiHTML("Error al añadir " + cDescrip ) )  
   End
   oCgi:Send( "" )
   oCgi:Send( cMsg )
Return ( Nil )

Function AgregaCarrito()

Local cMsg

LOCAL cCodigo := Trim(oCGI:GetCGIValue( "codigo" ))

LOCAL cDescrip := Trim(oCGI:GetCGIValue( "descrip" ))

IF ( SumaArticuloCarrito( cCodigo ) ) <-- Busco y grabo en una tabla o dbf el producto o le sumo 1

cMsg := zMsgInfo( AsciiHTML("Añadido " + cDescrip ) ) <---Regresa el oAlert:FullHtml()

Else

cMsg := zMsgInfo( AsciiHTML("Error al añadir " + cDescrip ) )

End

oCgi:Send( "" )

oCgi:Send( cMsg )

Return ( Nil )

Podría ser mi lógica que viene muy apegada el modo escritorio aún.

jejejejej

Saludos.

19-08-2020 a las 10:27 #419

Alfredo Sanz
Superadministrador

Ten en cuenta que el bevel que pongas en :cAjaxBevel (en tu caso msgalert) tiene que existir en el html

Existe un bevel especial llamado nflcargo , lo crea néfele automáticamente y te puede servir para estas cosas.

Prueba a poner :nAjaxBevel := "nflcargo"
19-08-2020 a las 15:30 #420

ramonzea
Participante

Gracias!!! Gracias!!! eso era, si tenía un wBevel y le puse id="msgalert", pero lo eliminé antes de tus sugerencias.

con nflcargo funciona correctamente.

Saludos.
19-08-2020 a las 16:08 #421

Alfredo Sanz
Superadministrador

Perfecto!!

Ramón, me gustaría poder contar con tu asistencia en la reunión sobre Néfele que estamos preparando para mañana
19-08-2020 a las 17:40 #423

Eduardo Trasviña
Participante

Hola Alfredo, Ramon, soy nuevo en este foro, estoy interesado en esta herramienta, si es posible me gustaria asistir a la reunion sobre nefele programada al parecer para este 20 de agosto, soy de Mexico.
- 19-08-2020 a las 18:43 #424
  
  Alfredo Sanz
  Superadministrador
  
  Hola Eduardo. Bienvenido!!
  
  Mándame un email a nefele4harbour@gmail.com y te mando el enlace de skype para la reunión.

Autor

Entradas

Mostrando 6 respuestas a los debates

Debes estar registrado para responder a este debate.