Por favor si alguien pudiera ayudarme
Este es mi codigo
Como le hago para que en el redefine combobox me actualice la variable cVar dependiendo del item que seleccione en el combo y en consecuencia pueda validar el codigo que esta en el IF ENDIF
Estoy pensando que algo tiene que ver la instruccion ON CHANGE en el combo pero no se como implementarla
De antemano muchas gracias
Saludos
Este es mi codigo
STATIC FUNCTION Filtra()
LOCAL oDlg, oCbx
LOCAL aoObjetos := { nil, nil }
LOCAL aoBtn := { nil, nil }
LOCAL cTitulo := "Filtrado de cotizaciones"
LOCAL cId_Clave, cNomClave, cVar, aItems
aItems := {"Cliente ","Equipo ","Vendedor"}
cId_Clave := SPACE(5)
cNomClave := SPACE(50)
cVar := "Cliente"
DEFINE DIALOG oDlg RESOURCE "Dlg_Filtra" TITLE cTitulo
REDEFINE COMBOBOX oCbx VAR cVar ID 201 OF oDlg UPDATE ;
ITEMS aItems
IF LEFT(cVar,1) == "C"
REDEFINE GET aoObjetos[1] VAR cId_Clave ID 101 OF oDlg UPDATE ;
PICTURE "@!" ;
VALID EVAL ( { || cId_Clave := ValCod( cId_Clave, "cliente" ), ;
cNomClave := cliente->nombre, ;
oDlg:Update(), .T. } ) ;
MESSAGE "Clave de cliente"
aoObjetos[1]:cToolTip := "Introduzca o seleccione la clave del cliente"
ELSEIF LEFT(cVar,1) == "E"
REDEFINE GET aoObjetos[1] VAR cId_Clave ID 101 OF oDlg UPDATE ;
PICTURE "@!" ;
VALID EVAL ( { || cId_Clave := ValCod( cId_Clave, "eqpo" ), ;
cNomClave := eqpo->nombre, ;
oDlg:Update(), .T. } ) ;
MESSAGE "Clave de tipo de equipo"
aoObjetos[1]:cToolTip := "Introduzca o seleccione la clave del equipo"
ELSE
REDEFINE GET aoObjetos[1] VAR cId_Clave ID 101 OF oDlg UPDATE ;
PICTURE "@!" ;
VALID EVAL ( { || cId_Clave := ValCod( cId_Clave, "agente" ), ;
cNomClave := agente->nombre, ;
oDlg:Update(), .T. } ) ;
MESSAGE "Clave del vendedor"
aoObjetos[1]:cToolTip := "Introduzca o seleccione la clave del vendedor"
ENDIF
REDEFINE GET aoObjetos[2] VAR cNomClave ID 102 OF oDlg UPDATE ;
WHEN .F.
REDEFINE BUTTONBMP aoBtn[1] ID 400 OF oDlg ;
PROMPT "&Aceptar " BITMAP "BTN_OK" TEXTRIGHT ;
ACTION oDlg:End()
aoBtn[1]:cToolTip := "Presione para continuar"
REDEFINE BUTTONBMP aoBtn[2] ID 401 OF oDlg ;
PROMPT "&Cancelar " BITMAP "BTN_CAN" TEXTRIGHT ;
ACTION oDlg:End()
aoBtn[2]:cToolTip := "Presione para cancelar"
ACTIVATE DIALOG oDlg CENTERED
RETURN NILComo le hago para que en el redefine combobox me actualice la variable cVar dependiendo del item que seleccione en el combo y en consecuencia pueda validar el codigo que esta en el IF ENDIF
Estoy pensando que algo tiene que ver la instruccion ON CHANGE en el combo pero no se como implementarla
De antemano muchas gracias
Saludos
