No refresca los combobox dentro del valid en FWH 7.01
Posted: Wed Jan 24, 2007 5:24 pm
Hola amigos del foro, no se si alguno de ustedes les pase lo mismo, pero en caso mio, tengo un pequeño detalle en los combobox, en la version anterior me refrescaba los datos al seleccionar x num de clave en el control del combobox , pero ahora que compile con la nueva version de FWH 7.01, no me refresca los datos, al igual cuando selecciono clave 1 es numerico al teclear clave 2 que igual es numerico y anduve depurando mi codigo porque marcaba error usando MsgInfo(ValType(nCveIva)), y resulta que es tipo caracter, cuando mis variables es numerico, pero eso sucede creo yo, porque no refresca los datos...anexo mi codigo
Static nCveIva
function poliza2()
nCveIva := 0
Define Dialogo oDlg... bla bla bla bla .....
REDEFINE GET oGetDet[06] VAR nIMPORTE ID 110 OF oDlg PICTURE "9,999,999.99" REDEFINE COMBOBOX oCbxD VAR nCVEIVA ITEMS aFile1 ID 111 OF oDlg PICTURE "9" VALID V_TASAIVA(nIMPORTE,nCVEIVA)
REDEFINE GET oGetDet[07] VAR nIVA ID 112 OF oDlg PICTURE "999,999.99"
y aqui la funcion del valid
//------------------------------------------------------------------------------
STATIC FUNCTION V_TASAIVA(IMPORTEf,IVAf)
IF !IMPORTEf > 0
MsgAlert("ERROR: Captura importe sin iva, si elije Tasa Iva")
*RETURN .F.
ENDIF
S08->(DbSeek(STR(IVAf,1)))
nIVA := ROUND(IMPORTEf * S08->TASAIVA / 100,2)
oGetDet[07]:Refresh()
oSayDet[06]:Refresh()
RETURN (.T.)
y es aqui cuando intengo grabar registro y al teclear clave 1 graba bien, y al grabar siguiente clave 2 y sucesivamente , marca error de : Data type error: CVEIVA
Eso sucede cuando no me refresca los datos y en la version anterior FWH 2.7, todo iba bien, alguna sugerencia ? gracias se los agradecere
Static nCveIva
function poliza2()
nCveIva := 0
Define Dialogo oDlg... bla bla bla bla .....
REDEFINE GET oGetDet[06] VAR nIMPORTE ID 110 OF oDlg PICTURE "9,999,999.99" REDEFINE COMBOBOX oCbxD VAR nCVEIVA ITEMS aFile1 ID 111 OF oDlg PICTURE "9" VALID V_TASAIVA(nIMPORTE,nCVEIVA)
REDEFINE GET oGetDet[07] VAR nIVA ID 112 OF oDlg PICTURE "999,999.99"
y aqui la funcion del valid
//------------------------------------------------------------------------------
STATIC FUNCTION V_TASAIVA(IMPORTEf,IVAf)
IF !IMPORTEf > 0
MsgAlert("ERROR: Captura importe sin iva, si elije Tasa Iva")
*RETURN .F.
ENDIF
S08->(DbSeek(STR(IVAf,1)))
nIVA := ROUND(IMPORTEf * S08->TASAIVA / 100,2)
oGetDet[07]:Refresh()
oSayDet[06]:Refresh()
RETURN (.T.)
y es aqui cuando intengo grabar registro y al teclear clave 1 graba bien, y al grabar siguiente clave 2 y sucesivamente , marca error de : Data type error: CVEIVA
Eso sucede cuando no me refresca los datos y en la version anterior FWH 2.7, todo iba bien, alguna sugerencia ? gracias se los agradecere