Enviar los valores de un boton creados dinamicamete a una ventana modal..

Acceder Darse de alta He olvidado la contraseña

Este debate tiene 2 respuestas, 2 mensajes y ha sido actualizado por última vez el 1 año, 1 mes por Gabriel Ornelas. This post has been viewed 218 times

Mostrando 2 respuestas a los debates

Autor

Entradas

14-11-2023 a las 22:20 #2121

Gabriel Ornelas

Participante

Hola Team Nefele..

Estoy creando unos botones dinamicamente, uso la propiedad :cargo para asignarle los valores que me serviran al momento de hacer click a cada boton.. Al dar click abre una ventana modal.. Hasta aqui todo bien.. mi duda es como puedo recoger los valores de la propiedad :cargo en la ventana modal

          FOR xElem:= 1 TO nLenArray
              nBotones:= xElem
              With Object WButton():New( oParent )
                  :cID:=  "oBtn"+AllTrim(Str(nBotones))
                  :cClassId:= "btnmesas"
                  :aWidth[xc_L]:= 4
                  :aWidth[xc_M]:= 3
                  :aWidth[xc_S]:= 3

                  :oStyle:cWidth    := "100px"
                  :oStyle:cHeight   := "70px"
                  :oStyle:cBorder_radius:= "5px"
                  :oStyle:cMargin_bottom:= "5px"
                  :oStyle:cPadding:= "5px"
                  :oStyle:cBox_shadow:= "2px 4px 8px rgba(0,0,0,.25)"
                  :oStyle:cFont_size := 22

                  :cText:= AllTrim( aMesas[nBotones,1] )
                  :cTextAlign := xc_Right
                  :lContainer:= .F.
                  :cIcon:= "chrome_reader_mode"
       // Etas 2 ventanas modales se abren bien y a esas ventanas les quiero mandar los valores de la propieda :cargo
                  IF aMesas[nBotones,16]!="ABIERTA"
                     :cOnClick:= "AbrirModalMesas" 
                  ELSE
                     :cOnClick:= "AbrirModalComandas"
                  ENDIF
                  :cAjaxBevel:= "nflcargo"
                  :cClrPane:= "0x788ED1"
                  :Cargo:= { aMesas[nBotones,1], ; // 1 ID_MESA
                             aMesas[nBotones,6], ; // 2 FOLIO_VENTA
                             aMesas[nBotones,4], ; // 3 STA_IMPRESA
                             aMesas[nBotones,9], ; // 4 ID_MESERO
                             aMesas[nBotones,10], ;// 5 ID_UNIQUE
                             aMesas[nBotones,2], ; // 6 NOMBRE_MESERO
                             aMesas[nBotones,8], ; // 7 FECHA_VENTA
                             aMesas[nBotones,3], ; // 8 TOT_VENTA
                             aMesas[nBotones,16], ;// 9 ABIERTA/CERRADA
                           }
                  IF AllTrim(aMesas[nBotones,4]) == "Impresa"
                     IF cMeseroTPV != aMesas[nBotones,9]
                        :cIcon:= "Print"
                        :cClrPane:= "0x75D9FF"
                     ELSE
                        :cIcon:= ""
                        :cClrPane:= "0x88BD64"
                     ENDIF
                  ELSE
                     IF aMesas[nBotones,16] == "ABIERTA"
                        IF cMeseroTPV != aMesas[nBotones,9]
                           :cClrPane:= "0x75D9FF"
                           :lEnabled:= .F.
                        ELSE
                           :cClrPane:= "0x88BD64"
                           :lEnabled:= .T.
                        ENDIF
                     ENDIF
                  ENDIF
                  :Create()
                  cHTML+= :FullHtml()
              END WITH
          NEXT xElem

FOR xElem:= 1 TO nLenArray

nBotones:= xElem

With Object WButton():New( oParent )

:cID:= "oBtn"+AllTrim(Str(nBotones))

:cClassId:= "btnmesas"

:aWidth[xc_L]:= 4

:aWidth[xc_M]:= 3

:aWidth[xc_S]:= 3

:oStyle:cWidth := "100px"

:oStyle:cHeight := "70px"

:oStyle:cBorder_radius:= "5px"

:oStyle:cMargin_bottom:= "5px"

:oStyle:cPadding:= "5px"

:oStyle:cBox_shadow:= "2px 4px 8px rgba(0,0,0,.25)"

:oStyle:cFont_size := 22

:cText:= AllTrim( aMesas[nBotones,1] )

:cTextAlign := xc_Right

:lContainer:= .F.

:cIcon:= "chrome_reader_mode"

// Etas 2 ventanas modales se abren bien y a esas ventanas les quiero mandar los valores de la propieda :cargo

IF aMesas[nBotones,16]!="ABIERTA"

:cOnClick:= "AbrirModalMesas"

ELSE

:cOnClick:= "AbrirModalComandas"

ENDIF

:cAjaxBevel:= "nflcargo"

:cClrPane:= "0x788ED1"

:Cargo:= { aMesas[nBotones,1], ; // 1 ID_MESA

aMesas[nBotones,6], ; // 2 FOLIO_VENTA

aMesas[nBotones,4], ; // 3 STA_IMPRESA

aMesas[nBotones,9], ; // 4 ID_MESERO

aMesas[nBotones,10], ;// 5 ID_UNIQUE

aMesas[nBotones,2], ; // 6 NOMBRE_MESERO

aMesas[nBotones,8], ; // 7 FECHA_VENTA

aMesas[nBotones,3], ; // 8 TOT_VENTA

aMesas[nBotones,16], ;// 9 ABIERTA/CERRADA

}

IF AllTrim(aMesas[nBotones,4]) == "Impresa"

IF cMeseroTPV != aMesas[nBotones,9]

:cIcon:= "Print"

:cClrPane:= "0x75D9FF"

ELSE

:cIcon:= ""

:cClrPane:= "0x88BD64"

ENDIF

ELSE

IF aMesas[nBotones,16] == "ABIERTA"

IF cMeseroTPV != aMesas[nBotones,9]

:cClrPane:= "0x75D9FF"

:lEnabled:= .F.

ELSE

:cClrPane:= "0x88BD64"

:lEnabled:= .T.

ENDIF

:Create()

cHTML+= :FullHtml()

END WITH

NEXT xElem

Saludo!!

15-11-2023 a las 15:22 #2123

Pedro Amaro

Superadministrador

Hola Gabriel;

La propiedad :Cargo vienen por herencia de los objetos Harbour, pero Néfele no la utiliza.

En tu caso lo que deberias utilizar en la propiedad :aParams o el método :AddParam

:AddParam({ "mesa", { aMesas[nBotones,1], ; // 1 ID_MESA
                      aMesas[nBotones,6], ; // 2 FOLIO_VENTA
                      aMesas[nBotones,4], ; // 3 STA_IMPRESA
                      aMesas[nBotones,9], ; // 4 ID_MESERO
                      aMesas[nBotones,10], ;// 5 ID_UNIQUE
                      aMesas[nBotones,2], ; // 6 NOMBRE_MESERO
                      aMesas[nBotones,8], ; // 7 FECHA_VENTA
                      aMesas[nBotones,3], ; // 8 TOT_VENTA
                      aMesas[nBotones,16], ;// 9 ABIERTA/CERRADA
           }})

:AddParam({ "mesa", { aMesas[nBotones,1], ; // 1 ID_MESA

aMesas[nBotones,6], ; // 2 FOLIO_VENTA

aMesas[nBotones,4], ; // 3 STA_IMPRESA

aMesas[nBotones,9], ; // 4 ID_MESERO

aMesas[nBotones,10], ;// 5 ID_UNIQUE

aMesas[nBotones,2], ; // 6 NOMBRE_MESERO

aMesas[nBotones,8], ; // 7 FECHA_VENTA

aMesas[nBotones,3], ; // 8 TOT_VENTA

aMesas[nBotones,16], ;// 9 ABIERTA/CERRADA

}})

Luego en tu código lo recuperas como oCGI:GetCGIArray("mesa") y te devolverá un array con los valores.

Te puedes ahorrar código y meter todo el array

:AddParam({ "mesa", aMesas[nBotones] })

1	:AddParam({ "mesa", aMesas[nBotones] })

Esta respuesta fue modificada 1 año, 1 mes por Pedro Amaro.

16-11-2023 a las 03:04 #2128

Gabriel Ornelas
Participante

Muy agradecido, Pedro..

Funcionando perfecto.. Nefele cada vez me va gustando más! 🙂

Autor

Entradas

Mostrando 2 respuestas a los debates

Debes estar registrado para responder a este debate.