FiveTech Software tech support forums

... tget y usar el codigo original en mis sistemas Tras la sugerencia de Antonio, he cambiado el código de la siguiente forma: REDEFINE GET oGet VAR cRamo ID 17 COLOR Color1,Color2 OF oDlg WHEN .F. oGet:lDisColors = .F. REDEFINE GET oGet VAR nnHonorarios ID 14 OF oDlg PICTURE "@E 99,999.99" UPDATE ...

... := SPACE(25) LOCAL cRefe := SPACE(7) LOCAL nRefe := 0 LOCAL cNumPoliza := SPACE(15) LOCAL cNumSini := SPACE(18) LOCAL cClaveCia := SPACE(12) LOCAL cRamo := SPACE(20) LOCAL cCondi := SPACE(15) LOCAL cSuperficie := SPACE(10) LOCAL cAntig := SPACE(4) LOCAL cNombre := SPACE(40) LOCAL cDomicilio := ...

... GET fFeVisita PICTURE "@D" ID 15 OF oDlg REDEFINE GET cNumPoliza ID 16 OF oDlG SELE 2 SET INDEX TO I1Poliza SEEK cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio cPoblacion:=Polizas->Poblacion cTelefono:=Polizas->Telefono ...

... GET fFeVisita PICTURE "@D" ID 15 OF oDlg REDEFINE GET cNumPoliza ID 16 OF oDlG SELE 2 SET INDEX TO I1Poliza SEEK cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio cPoblacion:=Polizas->Poblacion cTelefono:=Polizas->Telefono ...