FiveTech Software tech support forums

ola, usando oBrush DEFINE BRUSH oBrush FILE "file.bmp" @ 022, 013 SAY oNom_s_Clie VAR "R.Social:" PIXEL OF oFld:aDialogs[ 1 ] SIZE 30,10 FONT oFont @ 034, 013 SAY oFan_s_Clie VAR "N.Fantasia:" PIXEL OF oFld:aDialogs[ 1 ] SIZE 30,10 FONT oFont DEFINE DIALOG oDlg FROM 4, 4 TO 34.4, 61 TITLE If( lAppen...

Hola amigos,,
en esta sentencia, como cambio el tipo de Font en ejecucion? ChooseFont() devuelve un array de datos

Salu2

DEFINE FONT oFont1 NAME "Arial" BOLD SIZE 20,38
...
..
.
REDEFINE SAY oNom
VAR cNom
FONT oFont1
COLOR CLR_RED
ID 101 OF oDlg
....
...
..

Saludos amigos, les reitero esta pregunta con este problema que me esta volviendo loco, el tema es el siguiente. 1) trabajo con FW 2.4, blinker 4.0, clipper 5.2. el asunto es que tengo varias bases o tablas con datos, que son: NOMBRE ARCHIVO CAMPOS B_Empresa.dbf --- numero(1N), nombre B_Area.Dbf ---...

Saludos amigos, les reitero esta pregunta con este problema que me esta volviendo loco, el tema es el siguiente. 1) trabajo con FW 2.4, blinker 4.0, clipper 5.2. el asunto es que tengo varias bases o tablas con datos, que son: NOMBRE ARCHIVO CAMPOS B_Empresa.dbf --- numero(1N), nombre B_Area.Dbf ---...

Antonio: Sigo con el problema, extraño, pero asi es: REDEFINE Say oNom_emp1 Prompt DesDe ID 21 OF oDlg Font oFont1 Color "R/BG" Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" Color "R/BG" Esto lo uso con un recurso desde RC, uso FWH 704, Xharbour 00.99.71, Workshop y Verce 5....

Lubin: Creo que yo habia entendido mal, revise la rutina y aplique lo que me indicastes y HA FUNCIONADO A LAS MIL MARAVILLAS. Eternamente agradecido, mil gracias amigo. Saludos, Miguel Rivera Ok Miguel, Para empezar, la rutina de verificacion que supongo que haces para el RUT (a la que yo llame Chec...

Ok Miguel, Para empezar, la rutina de verificacion que supongo que haces para el RUT (a la que yo llame ChechkRut() por que no se como la llamas) es un proceso Independiente que solo te debe retornar .T. o .F. (si esta OK o NO esta OKI el RUT.).. LUEGO ..... La varialbe oNom_cli1 es visible dentro d...

Amigo: Muchas gracias por tu sugerencia, pero al aplicarla sigo teniendo problemas, yaque la rutina de validacion se encuentra en otro programa llamado rutinas, por lo que la hacer "oNom_cli1:refresh()", me arroja el error BASE/1003 Variable no Existe oNom_cli1. Pienso que deveria declararla publica...

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*" function newVerirut(cRut,oNom_c...

Claudio: Como estas, lo que sucede esque la rutina valida el rut, pero ademas permite consultar la existencia del rut, en la base. Mira, lo que esta haciendo, asi, se cumplen las dos, es decir rut correcto y existe en la base, por lo que debe muestra el nombre, pero me sigue pidiendo el rut, si por ...

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 Valid o no,, dentro de Verirut incluyes el refresh ...

Antonio: Aplique lo que me indicastes, se corrigio el error, pero no logro salir del GET, aunque se cumplan las condiciones, es decir Rut correcto, Cliente existe, pero me sigue pidiendo el rut. Necesito que cuando se cumpla la condicion, pase a los otros Gets. El Codigo: Redefine Get oRut_cli1 Var ...

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 un .F. y dos ...

Miguel,

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

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