FiveTech Software tech support forums

Antonio: Al poner este comando: Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture "9999.99" Color "w+/b*"; Valid ( Calcu_des( Por_des1, @Des_uf1 ), oDes_uf1:Refresh(), .T. ) El Say , con la Variable Des_uf1, no imprime nada Redefine Say oDes_uf1 ...

Miguel,

Tienes que pasar la variable por referencia (@) para que cambie su valor desde dentro de la función:

Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update
Picture "9999.99" Color "w+/b*";
Valid ( Calcu_des( Por_des1, @Des_uf1 ), oDes_uf1:Refresh(), .T. )

... variable Des_uf1 del Id 49, del calculo no actualiza en su valor en el Say. sigue mostrando valor 0 Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture "9999.99" Color "w+/b*"; Valid (Calcu_des(Por_des1,Des_uf1),.t.) Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Font ...

Miguel,

Haz esto:

Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture "9999.99" Color "w+/b*" ;
Valid ( Calcu_des(Por_des1), .T. )

El error que te ocurre es por no devolver un valor lógico en una validación.

... Return(Nil) *** Funcion que debe devolver el resultado en la Des_uf1, que se muestra con un say: Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Picture "99,999,999.99" Color "w+/b*" El codigo para este get es el siguiente: Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update ...

... mas abajo En espera de una urgente ayuda, Se despide. Miguel Rivera Tengo el siguiente Codigo: Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture "9999.99" Color "w+/b*" ; Valid Calcu_des(Por_des1) Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Picture "99,999,999.99" ...

... 30" lo pondria como GET y no como SAY .. y le agrego un READONLY espero que te ayude Lubin Define Cursor oCurDedo Resource "Dedo" Define Dialog oDlgEdit Resname "Clientes" Redefine GET oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" READONLY Color "w+/b*" Redefine Get oNom_cli1 Var ...

... desde ya te doy las gracias, Ha, soy de Santiago de Chile. Saludos. Miguel Rivera ***** Define Cursor oCurDedo Resource "Dedo" Define Dialog oDlgEdit Resname "Clientes" Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*" Redefine Get oNom_cli1 Var Nom_cli1 ...

... to nom_ven1 stor spac(40) to dir_ven1,email1 stor spac(20) to com_ven1,ciu_ven1,fon_ven1 stor spac(25) to cel_ven1 Luego actualizas el dialogo.. oDlgEdit :update() 2-> Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE. Amigo las dos tienen sus ventajas, ...

... to nom_ven1 stor spac(40) to dir_ven1,email1 stor spac(20) to com_ven1,ciu_ven1,fon_ven1 stor spac(25) to cel_ven1 Luego actualizas el dialogo.. oDlgEdit :update() 2-> Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE. Amigo las dos tienen sus ventajas, ...

... 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) to nom_ven1 stor spac(40) to dir_ven1,email1 stor spac(20) to com_ven1,ciu_ven1,fon_ven1 ...

... 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) to nom_ven1 stor spac(40) to dir_ven1,email1 stor spac(20) to com_ven1,ciu_ven1,fon_ven1 ...

... 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) to nom_ven1 stor spac(40) to dir_ven1,email1 stor spac(20) to com_ven1,ciu_ven1,fon_ven1 ...