FiveTech Software tech support forums

... ; SELECT Declu->koen FOR Enti1; UPDATE; ON DBLCLICK (Mues_cot1(),oBrw:Refresh(), oBrw:SetFocus()) Redefine Button Id 150 Of oDlgEdit ; Action (lPara:=.F.,oDlgEdit:END()) Activate Dialog oDlgEdit Centered oFont1:End() Return

Antonio:

Muchas Gracias, tenias razon, retornaba un .F.. Hice la correcion y he salvado el error.

Saludos,
Miguel

Antonio Linares wrote:Miguel,

Posiblemente lPara valga .F. y por eso el VALID te bloquea

Comprueba como lo estás calculando

Miguel,

Posiblemente lPara valga .F. y por eso el VALID te bloquea

Comprueba como lo estás calculando

... me entiendes, debe pasar a los demas get, solo si se cumple la condicion. Saludos, Miguel Miguel, Valid (Verirut(cRut,"C","oDbclien",3,.t.),iIf(lPara,( oNom_cli1:Refresh(), .T. ) ,.F.)) Nose porque no hiciste una validacion asi:: Valid Verirut(blablabla) --------> se supone q veritut retorna ...

Miguel, Valid (Verirut(cRut,"C","oDbclien",3,.t.),iIf(lPara,( oNom_cli1:Refresh(), .T. ) ,.F.)) Nose porque no hiciste una validacion asi:: Valid Verirut(blablabla) --------> se supone q veritut retorna con Return .T. o Return .F. si se sale del ...

... Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update Picture "############" Color "w+/b*"; Valid (Verirut(cRut,"C","oDbclien",3,.t.),iIf(lPara,(oNom_cli1:Refresh(),.f.),.t.)) En espera de una respuesta, Te saluda atentamente, Miguel Rivera

Antonio:

Que Get, valida correctamente, pero NO sale del get, no como sacarlo y que pase a los otros gets,

En espera de una respuesta, se despide,

Miguel

Antonio Linares wrote:Miguel,

te faltan un .F. y dos paréntesis:

Valid (Verirut(cRut,"C","oDbclien",3,.t.),iIf(lPara,( oNom_cli1:Refresh(), .F. ) ,.t.))

Antonio: Se ha corregido el erro con tu indicacion, pero cuando se cumplen las dos condiciones, es decir, el Rut=Correcto, lPara=.T. y Existe cliente, este muestra el nombre, pero SIGUE PIDIENDO EL RUT, no me permite salir del Get. Cual es el Error ? En espera, Miguel Miguel, te faltan ...

Miguel,

te faltan un .F. y dos paréntesis:

Valid (Verirut(cRut,"C","oDbclien",3,.t.),iIf(lPara,( oNom_cli1:Refresh(), .F. ) ,.t.))

... Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update Picture "############" Color "w+/b*"; Valid (Verirut(cRut,"C","oDbclien",3,.t.),iIf(lPara,oNom_cli1:Refresh(),.t.)) Redefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture "@!" Color "w+/b*" La Rutina Verirut = Permite validar ...

... Picture "9,99,999,999" Redefine Button Id 180 Of oDlgEdit ; Action (Graba_cot(.t.),oDlgEdit:END()) Redefine Button Id 150 Of oDlgEdit ; Action (lPara:=.F.,oDlgEdit:END()) Activate Dialog oDlgEdit Centered oFont1:End() oFont2:End() ***** ERROR Application =========== Path and name: D:\DESARRO\AITUE\CONSTRUC\INMOBILI.EXE ...

... Fivewin, como todo clippero, me acostado pasar al ambiente windows. Por tu ayuda, muchas gracias. Miguel Rivera. TROZO DEL PRG Function Actuven1(lPara) Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1 Local oDlgEdit If (lPara) stor spac(3) to cod_ven1 stor spac(40) ...

... Fivewin, como todo clippero, me acostado pasar al ambiente windows. Por tu ayuda, muchas gracias. Miguel Rivera. TROZO DEL PRG Function Actuven1(lPara) Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1 Local oDlgEdit If (lPara) stor spac(3) to cod_ven1 stor spac(40) ...

... Fivewin, como todo clippero, me acostado pasar al ambiente windows. Por tu ayuda, muchas gracias. Miguel Rivera. TROZO DEL PRG Function Actuven1(lPara) Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1 Local oDlgEdit If (lPara) stor spac(3) to cod_ven1 stor spac(40) ...