CLASS WMsgAlert FROM WControl // Estudiar con https://sweetalert2.github.io/ PROPERTY cClassId INIT "mga" PROPERTY cTitle INIT '' PROPERTY cText INIT '' //Texto a mostrar PROPERTY lTagScript INIT .F. //Tiene que encerrar la salida en tag <script> PROPERTY lCssMaterialize INIT .T. //Usamos estilo materialice PROPERTY cConfirmButton INIT "Aceptar" //Texto del botón PROPERTY lShowConfirmButton INIT .T. //Muestra botón aceptar PROPERTY lToast INIT .F. //emula un toast PROPERTY cConfirmButtonColor INIT '' //ojo que el ver sera el del css PROPERTY cConfirmButtonIcon INIT '' //ojo que el ver sera el del css PROPERTY lModal INIT .f. //Tratamiento modal PROPERTY nOpenSeconds INIT 0 // Temporizador para mostrar el alert pasados nOpenSeconds segundos PROPERTY cBackGroundColor //color de fondo PROPERTY nPrimaryDelay //Ms de espera para que desaparezca solo PROPERTY cType //Icono superior: warning, error, success, info, and question PROPERTY cPosition //xc_Top, xc_Center, xc_Bottom, xc_TopLeft, xc_TopRight, xc_CenterLeft, xc_CenterRight, xc_BottomLeft, xc_BottomRight PROPERTY cImageUrl INIT "" PROPERTY cInputType INIT "" PROPERTY cInputValue INIT "" //PROPERTY aScript INIT {} PROPERTY cCancelButtonColor INIT '' PROPERTY cCancelButtonIcon INIT '' PROPERTY cCancelButton // Texto del botón PROPERTY cOnConfirm INIT "" // Acción al pulsar confirm button PROPERTY cOnCancel INIT "" // Acción al pulsar cancel button PROPERTY oWebPage // Realmente es ::oParent. quitar METHOD CreateConfirm() // Crea el onclick de confirmacion METHOD CreateCancel() // Crea el onclick de cancelacion METHOD OnClickFunction() // Crea las funciones javascript METHOD Icon( cIcon, cPos ) // Añade el icono al texto METHOD Create() METHOD Run( aParams ) // Devuelve el codigo necesario para poder usar la alerta en un boton // aParams será el contenido de los parámetros definidos en ::aNomParams {"clientes", 25} (revisar) PROPERTY cNomParams INIT "" // Nombres de las variables que se asignarán a los Parámetros a incluir "Tabla,Codigo" PROPERTY cBackDrop INIT "" PROPERTY jsConfirmOnClick INIT "" PROPERTY jsCancelOnClick INIT "" ENDCLASS