FiveTech Software tech support forums

MI estimado...
con MariaDb, oDat:FCount()

uso MsgDate para abrir o calendario ao clicar em button

@ 1, 1 GET oDat_Rece,,,dDat_Rece.. ... BITMAP "" PICTURE "99/99/9999" ACTION MsgDate( Date(),, oDat_Rece)

pergunta... existe algo semelhante para calculadora nativo de fw?

James, thank for your time, im using fwh17.07 with tdatabase from 17.05 and tdata without errors, but my question is : My data is safe? I run the risk of being recording in incorrect database? i should put odat:=nil after odat:close()?

very thanks

james,

Do you mean you open it, then close it, then open it again?

yes. open a dialog with object database, close, open again, error with 17.07, work fine with 17.05.
I use odat:close() in end of dialog.

thanks

... CRLF, "|") aDat[91] := STRTRAN(("PATIENT")->MEDIKAM2, CRLF, "|") Edit REDEFINE GET oDat[90] VAR aDat[90] ID 610 ; OF oFld:aDialogs[ 1 ] FONT oFontsys MULTILINE UPDATE REDEFINE GET oDat[91] VAR aDat[91] ID 620 ; OF oFld:aDialogs[ 1 ...

... mRef_Id =space(3) mNazRef =space(40) mNazJed =space(30) mNazPar =space(30) oRB :refresh() oPoz :refresh() oRef_Id :refresh() oRadJed_Id :refresh() oDat :refresh() oSifCar :refresh() oBroj :refresh() oCIULAZ :refresh() oNazPos1 :refresh() oNazPos2 :refresh() oBtto :refresh() oNeto :refresh() oBrOmo ...

Hola;

Usa el When como dice karinha o usas los metodos para activar y desactivar los objetos con oT:oDat[x]:Disable() o oT:oDat[x]:Enable().

Un saludo
JLL

Prueba asi
oT:oDat[ 4]:bLostFocus := { || oT:oDat[ 4]:lReadOnly:=.T.,oT:oDat[ 4]:Refresh() }

Salu2

Hola FiveWinners.

ES necesario que el campo del GET no sea modificado, una vez que el dato se capturo...
he intentado con: oT:oDat[ 4]:lReadOnly:=.T.; oT:oDat[ 4]:Refresh() pero no funciona, alguien conoce el truco ?

Saludos

... tiene que aparecer el la posicion 4 para que me respete el texto yo utilizo la clase vGet y no me hacia eso investigando el la clases hize esto oDat[13]:SetFocus() oDat[13]:Refresh() oDat[13]:SetPos( Len( Alltrim( oDat[13]:Value() ) )+1 ) con este codigo solucione mi problema lo unico que cambio ...

... tiene que aparecer el la posicion 4 para que me respete el texto yo utilizo la clase vGet y no me hacia eso investigando el la clases hize esto oDat[13]:SetFocus() oDat[13]:Refresh() oDat[13]:SetPos( Len( Alltrim( oDat[13]:Value() ) )+1 ) con este codigo solucione mi problema lo unico que cambio ...

... when I load arrayfor the procedure oT:=CA_210():New() CLASS CA_210   DATA lNew, lAdd, lEnd, lFst, lCap, lApp, lGpo   DATA oDat, oPar, aPar, oBtn, aTot, aDat, cGpo   DATA cPic1, cPic2, cPic3, cPic4   METHOD New() CONSTRUCTORENDCLASSMETHOD New() ...

it compile and link exe file when I open the exe it make error @ 3,0.5 GET oT:oDat[ 1] VAR oT:aDat[ 1] SIZE 40,12 OF oDlc PICTURE "999999" VALID Val_Doc() WHEN oT:lNew @9.5,30.8 GET oT:oDat[32] VAR oT:aDat[32] OF oDlc SIZE 65,11 PICTURE "99,999,999.99" ...

... run ok when i use the dialog make with @x,y no resource it nou run oT:aDat[32] is not nil because when open the dialog I load all the variables oT:oDat[ 1]:Enable() oT:oDat[ 1]:Refresh() oT:lApp:=oT:lEnd:=oT:lFst:=oT:lNew:=.T. (oDCot)->(DbSetOrder(1)) (oDCot)->(DbGoBottom()) oT:aDat[ 1]:=StrZero(Val((oDCot)->NumDoc)+1,5) ...

WHY WHEN i INSERT THE PICTURE MAKE ERROR ? @9.5,30.8 GET oT:oDat[32] VAR oT:aDat[32] OF oDlc SIZE 65,11 PICTURE "99,999,999.99" Error description: Error BASE/1122 Argument error: TRANSFORM Stack Calls =========== Called from: => TRANSFORM(0) ...