FiveTech Software tech support forums

... UPDATE; VALID ; Eval ( { || IF (CGET1 = 0 , (CGET2:=CGET2), .F. ),; (CGET2,( CGET2:=CGET1*CGET0), oGET2:Refresh(),; (CGET4,( CGET4:=CGET3*CGET0), oGET4:Refresh(),; .T. )) } ) Al pasarlo a 32 el compilador arroja el siguiente error:" Warning W0027 Meaningless use of expression 'Logical' Aquí, ...

... TBTNGET oGet2 VAR nTicket OF oDlg5 ; SIZE 45, 12 RIGHT ; RESOURCE "Prop" ; PICTURE "9999999"; ACTION Cliente1(oLbx,oGet2,oGet3,oGet4); VALID (Cliente2(@nTicket,oGet2,oGet3,oGet4,oDlg5),Libre) FONT fntArial En ACTION Cliente1, abro un LIstbox donde el usuario selecciona un registro, ...

... = "otto.exe?dos:"+; document.getElementById( "oGet3" ).value + ":" + ; document.getElementById( "oGet4" ).value + ":" ATail( oDlg:aControls ):cAction += '+ "' + aParams[ 4 ] + '"'

... function BuscoPersona ( aParams ) *===================== LOCAL xDlg , oGet4:='' , oGet3:='' , lRet:=.T. , xSave:=.F. , Nombre:='' , Profe:='' , oSay , IdBien LOCAL cvar:=space(8) LOCAL cnue:=space(8) LOCAL AGRI , TPAS ...

... = "otto.exe?dos:"+; document.getElementById( "oGet3" ).value + ":" + ; document.getElementById( "oGet4" ).value + ":" ;

... oBmp, oBmpF, oBrush,cBrush:=".\wall.bmp" local oTitGet1, oTitGet2, oTitGet3, oTitGet4, oTitGet5, oSayText local oGet1, oGet2, oGet3, oGet4, oGet5 local uTemp:=aGet DEFAULT lDecim:=.f. if !Empty(cBrush) .and. file(cBrush) DEFINE BRUSH oBrush FILENAME cBrush endif DEFINE DIALOG oDlg ...

... 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),; cAttach ...

... 2") @y,x GET oGet3 VAR valr OF oWdn_Secundario SIZE 40, 10 Font oFnt_Texto oGet3:SetFocus() ???? MsgAlert( "Paso 3") @y,x GET oGet4 VAR valr OF oWdn_Secundario SIZE 40, 10 Font oFnt_Texto oGet4:SetFocus() ???? MsgAlert( "Paso 4") Return .T.

Hola, intenta con: oGet1:oJump := oGet4
Saludos.

... can I still change the keyboard to normal English. oNorway := TFont():New( "ArialNew", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.) REDEFINE GET oGet4 VAR cTEXTFONT2 ID 540 OF oDlg FONT oNorway UPDATE Thank you in advance,

... It takes only a few Minutes. Test with MS-Fontmanager : oNorway := TFont():New( "ArialNew", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.) REDEFINE GET oGet4 VAR cTEXTFONT2 ID 540 OF oDlg FONT oNorway UPDATE http://www.pflegeplus.com/pictures/norway2.jpg Best regards Uwe :lol:

... Function Main() local ofrm ofrm:= TFormPrincipal():new() ofrm:show() return nil class TFormPrincipal DATA oGet1 DATA oGet2 DATA oGet3 DATA oGet4 DATA oGet5 DATA oGet6 DATA oGet7 DATA oGet8 DATA oGet9 DATA oGet10 DATA oDlg DATA oDbfCli DATA cCodClif DATA cNomClif DATA cNomComClif DATA cDirecClif ...

... que es llamada por el GET LA PARTE DE LA RUTINA DE LOS GET, ES LA SIGUIENTE: func PROALBANCO() local oBCO, WOK:= .F., QOK:= 0, oGET1, oGET2, oGET3,oGET4,oGET5,oBTO1, oBTO2, oBTO3, oBTO5 LOCAL QEMPRE,QBANCO,WNBCO15,WNBCO30 STORE 0 TO QEMPRE,QBANCO STORE SPACE(3) TO WBANCO STORE SPACE(4) TO WEMPRE ...

... ACTIVATE WINDOW oChild ; ON INIT BuildDialog( oChild ) SET RESOURCES TO return nil function BuildDialog( oChild ) local oDlg, oGet1, oGet2, oGet3, oGet4, nLoca_desde, nBode_Desde local cLoca_desde, cBode_Desde, aLocaD:={}, aBodeD:={}, oBtn DEFINE DIALOG oDlg RESOURCE "DLG_PRUEBA" OF oChild REDEFINE ...

... PATRES Function her020() local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8 local oSay9, oSay10, oSay11 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL oBmp, oBmp1, oBmp2 local oTbmp local oTbmp1 local oBtnBmp local ...