FiveTech Software tech support forums

...  :SetRange( dStagioneMin,dStagioneMax )END  as I did before when I used the exclusive way and then when I have to save I can't just use oCust:Save () but I must save all fields with oCust: first := cFirst oCust: Last:= cLast I don't see why you would need to do that if you are using ...

... with :lNoToday but James doesn't want to understand this passage doing in this way I must first transfer the single record in variables: cFirst: = oCust: first cLast: = oCust: Last cAddress: = oCust: address as I did before when I used the exclusive way and then when I have to save I can't just ...

... "&sender=" + SMS_Brnd +CHR(13)+ ; "&mobile=" + SMS_Cell +CHR(13)+ ; "&message=" + SMS_Text ShellExecute( oCust:hWnd, "open", cURL ) Return( Nil ) I have not used curl

... the sending mechanism is transparent. Is there a method to send the SMS without the web page opening..?? I am using the following : ShellExecute( oCust:hWnd, "open", cURL ) Any suggestions, Thnx...

... in my notes, apparently from an old forum message. I don't remember if I ever tried it. To get multiple lines per record: oCol:bStrData := { || oCust:name + CRLF + oCust:street } oBrw:nDataLines := 2 oBrw:nRowHeight := 35 // optional. Automatic, but you may enlarge this if you like xBrowse will ...

... "Checkon.bmp" ) // from Disk :aCols[ 4 ]:addbmpfile( c_path1 + "Checkoff.bmp" ) // from Disk :aCols[ 4 ]:bBmpData := {|| IIF( oCust:Age < 30, 1, 2 ) } http://www.pflegeplus.com/IMAGES/Xbrwcell1.jpg // numeric    :aCols[ 4 ]:nEditType     := EDIT_BUTTON  ...

... or with a mouse click, the gap is visible. The test is using a bClrStd-combination @ 80,20 XBROWSE oBrw SIZE 520, 485 PIXEL OF oDlg2; DATASOURCE oCust ; AUTOSORT FOOTERS FASTEDIT ; COLUMNS "Last", "First", "Age", "Married", "Values1", "Values2" ...

... of the same table +1 without using sysdbf.file and autoincremental class sample: at init IF nMode == 1 .or. nMode == 3 // add new or duplicate oCust: gobottom () CCLI: = StrZero (Val (oCust: NumCli) +1.4) else cCli: = oRec: numcli // modify endif dialog @ 12, 5 SAY "Code:" OF oDlg ...

... of the same table +1 without using sysdbf.file and autoincremental class sample: at init IF nMode == 1 .or. nMode == 3 // add new or duplicate oCust: gobottom () CCLI: = StrZero (Val (oCust: NumCli) +1.4) else cCli: = oRec: numcli // modify endif dialog @ 12, 5 SAY "Code:" OF oDlg ...

... tDatabase Must work better than Tdatabase leaving out if you can or can't make a Tcustomer class (that's not the point) If I can open a dbf with oCust := TDatabase():New( , "C:\FWH\SAMPLES\CUSTOMER", "DBFCDX", .t. ) it must open also with oCust := TData():New( , "C:\FWH\SAMPLES\CUSTOMER", ...

Silvio,

FOUND moving to the old date works like:

ACTION oCal:SetDate( oCust:HireDate, .T. ), ; // old date from xBrowse
oCal:Change() ;

or moving back to today from a old selected date
ACTION ( cRet := oCal:SetDate( Date(), .T. ), oCal:Change() ) ;

regards
Uwe

... needed / included actions and other extras so it looks different like You can see trying to move to the selected date with : ACTION oCal:SetDate( oCust:HireDate, .T. ), ; oCal:Refresh() ; http://www.pflegeplus.com/IMAGES/Datesel1.jpg regards Uwe :?:

... := EDIT_BUTTON :bEditBlock := { | nRow, nCol, oCol, nKey | Retvalue := MyCellDlg( oBrw, nRow, nCol, oCol, nKey ), ; IIF( Retvalue <> NIL, ( oCust:City := Retvalue, oBrw:RefreshCurrent(), oBrw:GoRight() ), NIL ) } END next column :aCols[ 4 ]:nEditType = EDIT_GET regards Uwe :?:

... aspect ratio http://www.pflegeplus.com/IMAGES/XbrwImage2.jpg WITH OBJECT oBrw:aCols[ 5 ] // :bStrImage := { || c_path1 + ALLTRIM(oCust:Image) } // :nDataStrAlign := AL_CENTER + AL_BOTTOM // :nDataBmpAlign := AL_CENTER // My solution :bPaintText := { | oCol, hDC, cData, aRect | ...

Have you tried with

my_filter = "dtos(oCust:Hiredate) >= dtos(" + ctod(dDate1) + ")"
oCust:SetFilter(my_filter)