FiveTech Software tech support forums

change the line

@ 10, 420 GET aGet[11] VAR cCodEmail SIZE 180,nSizeHGet PIXEL OF oDlg;
ON CHANGE ( lPienoEmail:=validaEmail(aGet[11]:ctitle) , if( lPienoEmail , oBtnSel[4]:Enable() , oBtnSel[4]:Disable() ) )

if Valtype(aMatch)='A' //Empty( aMatch )

nageswaragunupudi wrote:

Code: Select all  Expand view

LOCAL dDate := ddatacambio:GetDate()
 

Here is the mistake.
"ddatacambio" is a date value and date value can not have any method.

opps - corrected
STATIC FUNCTION DoSwitch( ddatacambio, oBtnGetExchange,aGet )
LOCAL dDate := aget[1]:GetDate()

... in it, I tried with "@Z 999.99" but it doesn't work, that is, at the beginning I see 0.00 in the get instead of just a zero. @ 60,20 GET aGet[2] VAR nVar SIZE 100,24 PIXEL PICTURE "@Z 999.99" OF oDlg RIGHT it run ok but I see 0.00 on the get but I wish see only a zero at right

perhaps

@ 70, 20 GET aGet[1] VAR nTop OF oDlg SIZE 40, 14 PIXEL FONT oFont ;
PICTURE "@ ###,99" UPDATE RIGHT

... presses the decimal point the procedure must put up to two numbers after the decimal point and then move on to the other get type @ 70, 20 GET aGet[1] VAR nTop OF oDlg SIZE 28, 12 PIXEL FONT oFont ; picture "@Z 99.99" UPDATE RIGHTTOLEFT If I press 1 , 2 3 I must have on get "1,23" ...

Chance to character: local cTop := " " @ 70, 20 GET aGet[1] VAR cTop OF oDlg SIZE 32, 12 PIXEL FONT oFont PICTURE "99.99" I need the tget controls to enter data quickly, in a bread wholesale application where the operator must enter ...

Chance to character:
local cTop := " "
@ 70, 20 GET aGet[1] VAR cTop OF oDlg SIZE 32, 12 PIXEL FONT oFont PICTURE "99.99"

... stopping but finds it difficult and always has to go back to check the get controls because I made them this way but they don't work @ 70, 20 GET aGet[5] VAR nTop OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "@Z 999.99" UPDATE @ 70, 82 GET aGet[6] VAR nLeft OF oDlg SIZE 28, 12 PIXEL ...

... Error description: Error BASE/1004 Metodo non disponibile: LCHANGED Args: [ 1] = U This error means that oGet is NIL Nages, I tried with Aeval( aGet, { | o | if(o != nil .and. o:IsKindOf( "TGET" ) .and. o:lChanged,lAsk := .t.,.f.) } ) //this give me allways .t. #include"fivewin.ch"Function ...

//aGet lAsk:= Aeval( aGet, { | o | o:lChanged } ) or Aeval( aGet, { | o | if(o:lChanged,lAsk := .t.,.f.) } ) give me error Error description: Error BASE/1004 No exported method: LCHANGED Args: [ 1] = U Stack Calls =========== ...

There will be better ways, but i would think of making the aGet 2 dimensional and fill the second part with the original data.
After edit you could simple check the values for differences in the aGet

... user presses "Exit" I wanted to check if the gets have been modified I made #include"fivewin.ch"Function test()local aGet:=array(2)local oDlglocal cGet1:=space(60)local cGet2:=space(60)local lSave:=.f.local bChecklocal oBtn1,oBtn2DEFINE DIALOG ...

... .\source\classes\CONTROL.PRG => TDATEPICK:HANDLEEVENT( 1830 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 ) @ nRow, 70 DTPICKER aGet[1] VAR ddatacambio OF oDlgSub SIZE 198, 25 PIXEL ; FONT oFont UPDATE PICTURE "ddd dd mmm yyyy" ; VALID oBtnGetExchange:refresh() STYLE ...

ddatacambio:=CTOD(' ')

@ nRow, 70 DTPICKER aGet[1] VAR ddatacambio OF oDlgSub SIZE 198, 25 PIXEL ;
FONT oFont UPDATE PICTURE "ddd dd mmm yyyy" ;
ON CHANGE oBtnGetExchange:refresh() STYLE DTS_SHOWNONE

I use a get to select date @ nRow, 70 GET aGet[1] VAR ddatacambio SIZE 100,24 PIXEL OF oDlgSub; BITMAP "date.bmp" ACTION ( Selecdata(@ddatacambio, aGet[1]),aGet[1]:refresh()) the calendar run but when I double click it not run i.e. it ...