FiveTech Software tech support forums

... muestre la ciudad que corresponde al cliente ingresado. Muestros el codigo. Ingreso el codigo del cliente: Redefine Get oEnti1 Var Enti1 Id 30 Of oDlgEdit Update Picture "@!" Color "w+/g"; Valid (Existe_ent(Enti1),oRut1:Refresh(),oNokoen1:Refresh(),oDien1:Refresh(),oFoen1:Refresh(),.t.) ** Muestro ...

... Ferrada Muestro el codigo que tengo. *** Define Cursor oCurDedo Resource "Dedo" Define Font oFont1 Name "Arial Black" Size 0,19 Define Dialog oDlgEdit Resname "Clientes" Redefine Get oEnti1 Var Enti1 Id 30 Of oDlgEdit Update Picture "@!" Color "w+/b*"; Valid (Existe_ent(Enti1),oEnti1:Refresh(),.t.) ...

... que deveria declararla publica. Saludos, Miguel } Holas .. una sugerencia , espero que sirva ... Lubin Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ; Picture "############" Color "w+/b*"; Valid newVerirut(cRut,oNom_cli1) Redefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture ...

... que deveria declararla publica. Saludos, Miguel } Holas .. una sugerencia , espero que sirva ... Lubin Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ; Picture "############" Color "w+/b*"; Valid newVerirut(cRut,oNom_cli1) Redefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture ...

... que deveria declararla publica. Saludos, Miguel } Holas .. una sugerencia , espero que sirva ... Lubin Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ; Picture "############" Color "w+/b*"; Valid newVerirut(cRut,oNom_cli1) Redefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture ...

Holas .. una sugerencia , espero que sirva ... Lubin Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ; Picture "############" Color "w+/b*"; Valid newVerirut(cRut,oNom_cli1) Redefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture "@!" Color "w+/b*" ...

... me sigue pidiendo el rut. Necesito que cuando se cumpla la condicion, pase a los otros Gets. El Codigo: 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 ...

... en forma urgente, el caso es el siguiente: Clipper 5.3b, Fivewin 2.4, Blinker 7.0 Codigo Fuente: 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 ...

... Fivewin 2.2 y Blinker 5.1 EL codogo es el siguiente: Llamado desde Bitmap, para buscar Dpto. Redefine BitMap Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) Function Bus_dep() Local oDlg, oBot1, oBot2, oLbx1, oCurDedo Sele oDbdep DbSetorder(2) ...

... Fivewin 2.2 y Blinker 5.1 EL codogo es el siguiente: Llamado desde Bitmap, para buscar Dpto. Redefine BitMap Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) Function Bus_dep() Local oDlg, oBot1, oBot2, oLbx1, oCurDedo Sele oDbdep DbSetorder(2) ...

como dicen una mano lava a la otra y las dos lavan la cara Redefine ComboBox oCod_tip1 Var nTipdep iTems aNomTipdep Id 154 Of oDlgEdit Update Picture "999" Color "w+/b*" ONCHANGE <aca poner la rutina donde hacer los calculos q quieras con la variable del combobox ojo: debes pasar la ...

... Necesito que se puedan actualizar en forma automatica. Este es el codigo: Redefine ComboBox oCod_tip1 Var nTipdep iTems aNomTipdep Id 154 Of oDlgEdit Update Picture "999" Color "w+/b*" Redefine Get oCan_dor1 Var Can_dor1 Id 170 Of oDlgEdit Update Picture "999" Color "w+/b*" Redefine Get oCan_ban1 ...

... 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 ...

... 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 ...

... y mayor a Cero ( 8.520 ), pero en el say siguiente al get, imprime valor cero. Este es el Say: Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Font oFont2 Picture "99,999,999.99" Cual es el error, no lo se. Miguel Rivera Pon un MsgInfo() en esta función y asegurate de que lo calculas ...