FiveTech Software tech support forums

This is the type of csv file that we have to generate from a DBF: customer.csv ID,FIRST,LAST,STREET,CITY,STATE,ZIP,HIREDATE,MARRIED,AGE,SALARY,NOTES 1,Homer,Simpson,32179 Maiden Lane,Springfield,IL,20503-8202,1992-09-18,True,50,5900.0,This is a test for record 1 2,Ceci,Gibbard,9540 ...

... oDlg, oBrw, oFont, nWild := 2 local cList, aFlds, aHdrs local nChoice, uDataSource local cAlias,oWndChild cList := "First,Last,Street,State,HireDate" cAlias = cGetNewAlias( cFileNoExt("CUSTOMER.DBF" ) ) USE CUSTOMER SHARED NEW ALIAS (cAlias) SET ORDER TO TAG FIRST GO TOP DEFINE ...

Silvio, This line should be like this: local cHeaders := "Fist,Last,Street,State,HireDate" Sorry Antonio, I made this morning a mistake I copied a bad test , the test is this ... #include "fivewin.ch"#include "constant.ch"#include "ttitle.ch"  ...

Silvio,

This line should be like this:

local cHeaders := "Fist,Last,Street,State,HireDate"

... 2 aFields := {"FIRST" ,; "LAST" ,; "STREET" ,; "CITY" ,; "STATE" ,; "ZIP" ,; "HIREDATE",; "MARRIED" ,; "AGE" ,; "SALARY" ,; "NOTES" } this Run ok if I wish print a barcode nCampo:= ...

... for each group and the total counter is right If I not use Groups but only easy bfor sample : ACTIVATE REPORT oReport FOR dInicio <= CU->HIREDATE .AND. CU->HIREDATE <= dFinal ; ON END ( oReport:StartLine(), oReport:EndLine(), oReport:StartLine(), ; oReport:Say(1, 'Total customers: ...

... expressions contain variables, they need to be private or public. Example: aData := CUST->( FW_DbfToArray( "RecNo(),First,City,Int((Date()-HireDate)/365)" ) )

... Homer;Simpson;32179 Maiden Lane;Springfield;IL;20503-8202 FIRST;LAST;STREET;CITY;STATE;ZIP;HIREDATE;MARRIED Homer;Simpson;32179 Maiden Lane;Springfield;IL;20503-8202;18.09.92;TRUE a imported CSV-file with missing types and fieldsizes ( needed ...

FIRST-C-20-0;LAST-C-20-0;STREET-C-30-0;CITY-C-30-0;HIREDATE-D-8-0

Now this extra data for the headers is put inside the csv file with a editor ?

... the CSV-file. Another solution just adding the missing infos from inside the editor-preview before building the DBF (nothing extra needed) :?: HIREDATE -D-8-0 ;SALARY -N-9-2 ;LAST -C-20-0 ;FIRST -C-20-0 18.09.92;5900.00;Simpson;Homer 17.10.84;123700.00;Gibbard;Ceci 23.05.89;82900.00;Kaczocha;Reg ...

... levels. @ 50 , 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ; DATASOURCE "CUSTOMER" ; COLUMNS "STATE", "STRZERO(INT(YEAR(HIREDATE)/10)*10,4) AS DECADE", ; "CITY", "FIRST", "AGE", "HIREDATE", "SALARY" ; CELL LINES NOBORDER ...

... completa. Ejemplo: cName := "T" dDate := DTOS( "20000101" ) cFilter := ; DBF_ApplyParams( "UPPER(FIRST) = ? .AND. HIREDATE >= ?", ; { cName, dDate } ) --> "UPPER(FIRST) = "T" .AND. HIREDATE >= 0d20000101" SET FILTER TO &cFilter ...

... full expression. Example: cName := "T" dDate := DTOS( "20000101" ) cFilter := ; DBF_ApplyParams( "UPPER(FIRST) = ? .AND. HIREDATE >= ?", ; { cName, dDate } ) --> "UPPER(FIRST) = "T" .AND. HIREDATE >= 0d20000101" SET FILTER TO &cFilter ...

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

... / 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 :?: