FiveTech Software tech support forums

Antonio,

Yes, with oGet2:Disable() there is no uggly effect.

How do I fix tget.prg?.

Thanks.

John,

Try with oGet2:Disable() from the ON INIT clause of the dialog

Hola de nuevo Victor:

Creo que el error puede producirse porque estás haciendo referencia a oGet2 y oGet3 que aún no están definidos. Prueba cambiando el orden de creacción de los GET:

REDEFINE GET oGet2...................
REDEFINE GET oGet3...................
REDEFINE GET oGet1...................

Hola Victor, creo que cambiando a Return(.t.) la funcion BuscaProd(oGet1,oGet2) queda solucionado.

STATIC FUNCTION BuscaProd(oGet1,oGet2)
...
...
Return(.T.)

Saludos

Ruben Fernandez

... el correo electronico del cliente * local hBorland //:= LoadLibrary("SgemBW32.DLL") Local oDlg, oFont, oFont2, oFont3 Local oGet1, oGet2, oGet3, oGet4, oGet5 Local oBt1, oBt2, oBt3, oIni Local cnPort := 25 Local cNombre := "" local cBcc := SPACE(600),; cSubject:= SPACE(120),; ...

... you #include "fivewin.ch" #define crlf CHR(13)+CHR(10) FUNCTION main() local oDlg local oGet1 , cGet1 := "Marco Boschi " local oGet2 , cGet2 := "Enrico Maria Giordano " define dialog oDlg @ 1,1 get oGet1 var cGet1 of oDlg @ 2,1 get oGet2 var cGet2 of oDlg ACTIVATE ...

... property how have I to define them? Many thanks marco FUNCTION main() local oDlg local oGet1 , cGet1 := "Marco " local oGet2 , cGet2 := "Enrico Maria Giordano " define dialog oDlg @ 1,1 get oGet1 var cGet1 of oDlg @ 2,1 get oGet2 var cGet2 of oDlg ACTIVATE ...

Hi, If a select the text in oGet1 and press CTRL_C Then I move in the second get oGet2 And Press CTRL_V I find only "Marco " Any hints? marco #include "fivewin.ch"#define crlf CHR(13)+CHR(10)FUNCTION main()   local oDlg  ...

... I'm sorry. The original code of my sample is #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oGet1 , cGet1 := SPACE(100) LOCAL oGet2 , cGet2 := SPACE(100) SET( _SET_INSERT , .T. ) DEFINE DIALOG oDlg FROM 10 , 10 TO 400 , 700 PIXEL @ 10 , 1 GET oGet1 VAR cGet1 OF oDlg SIZE 200 ...

... fast . #include "fivewin.ch" #include "autoget.ch" #include "xbrowse.ch" FUNCTION main() LOCAL oDlg, oGet1, cName1, oGet2, cName2, aNames, lOk := .F. cName := space(20) cCity := space(20) // aCities := {} // aNames := {"RAmeSh", "rAmA rAo", "rAmDev", ...

Rodolfo,

Prueba asi:

oGet2:bValid := { || Resp2 >= Resp1 }

ojo, es bValid no lValid, ya que lValid() es un método que lo que hace es evaluar bValid

Rodolfo...

prueba

oGet2:lValid = ( Resp2>=Resp1 )

... Like a double click of the mouse in a get field. #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oGet1 , cGet1 := SPACE(10) LOCAL oGet2 , cGet2 := SPACE(10) DEFINE DIALOG oDlg @ 1 , 1 GET oGet1 VAR cGet1 VALID myfunction() @ 2 , 1 GET oGet2 VAR cGet2 ACTIVATE DIALOG oDlg RETURN ...

... oFld LOCAL aFld := { } LOCAL oSay1 , cSay1 := "First" LOCAL oGet1 , cGet1 := SPACE( 10 ) LOCAL oSay2 , cSay2 := "Second" LOCAL oGet2 , cGet2 := SPACE( 10 ) DEFINE DIALOG oDlg RESOURCE "DIALOG_1" REDEFINE SAY oSay1 ID 401 OF oDlg REDEFINE GET oGet1 ID 101 OF oDlg REDEFINE ...

Se prodra hacer lo siguiente: Paso el foco a oGet1 luego de ingresar motrar mensaje Paso 1, ingresar oGet2 luego de ingresar motrar mensaje Paso 2, etc. Con que intrucción puedo reemplzar ???? para que se detenga el proceso hasta que se ingrese algon en un oGet. Se agradece. ...