Toddy Utomo
WD-Export Table to DBF July 07, 2009 05:32PM |
PROCEDURE SendToDBF(sFullPathFileName) XB is Data Source sFullPathIndexName is string = Replace(sFullPathFileName,".dbf",".ndx",IgnoreCase) HDBDescribeFile ( "SEND2DBF" , "XB" , sFullPathFileName ) HDBDescribeField ( "NUMBER,N,5,0" ) HDBDescribeField ( "ITEMCODE,C,20" ) HDBDescribeField ( "ITEMDESC,C,50" ) HDBDescribeField ( "UNITPRICE,N,10,2" ) HDBDescribeField ( "FIRSTSTOCK,N,15,2" ) HDBDescribeField ( "LASTSTOCK,N,15,2" ) HDBDescribeField ( "QTYSTOCK,N,15,2" ) HDBDescribeField ( "AMOUNT,N,15,2" ) HDBDescribeField ( "TRXDATE,D" ) HDBDescribeIndex ( sFullPathIndexName,"ITEMCODE") HDBCreation() WHILE WIN_SEE_STOCK.TABLE_Table3.Column2 <> "" XB.NUMBER = WIN_SEE_STOCK.TABLE_Table3.Column1 XB.ITEMCODE = WIN_SEE_STOCK.TABLE_Table3.Column2 XB.ITEMDESC = WIN_SEE_STOCK.TABLE_Table3.Column3 XB.UNITPRICE = WIN_SEE_STOCK.TABLE_Table3.Column4 XB.FIRSTSTOCK = WIN_SEE_STOCK.TABLE_Table3.Column5 XB.LASTSTOCK = WIN_SEE_STOCK.TABLE_Table3.Column6 XB.QTYSTOCK = WIN_SEE_STOCK.TABLE_Table3.Column7 XB.AMOUNT = WIN_SEE_STOCK.TABLE_Table3.Column8 XB.TRXDATE = WIN_SEE_STOCK.TABLE_Table3.Column9 HAdd("SEND2DBF") END
Jimbo
Re: WD-Export Table to DBF July 07, 2009 06:07PM |
Moderator |
FOR X = 1 to TableCount(WIN_SEE_STOCK.TABLE_Table3) XB.NUMBER = WIN_SEE_STOCK.TABLE_Table3.Column1[X] XB.ITEMCODE = WIN_SEE_STOCK.TABLE_Table3.Column2[X] XB.ITEMDESC = WIN_SEE_STOCK.TABLE_Table3.Column3[X] XB.UNITPRICE = WIN_SEE_STOCK.TABLE_Table3.Column4[X] XB.FIRSTSTOCK = WIN_SEE_STOCK.TABLE_Table3.Column5[X] XB.LASTSTOCK = WIN_SEE_STOCK.TABLE_Table3.Column6[X] XB.QTYSTOCK = WIN_SEE_STOCK.TABLE_Table3.Column7[X] XB.AMOUNT = WIN_SEE_STOCK.TABLE_Table3.Column8[X] XB.TRXDATE = WIN_SEE_STOCK.TABLE_Table3.Column9[X] HAdd("SEND2DBF") END
Toddy Utomo
Re: WD-Export Table to DBF July 07, 2009 06:39PM |
Marc De Swert
Re: WD-Export Table to DBF July 08, 2009 10:25AM |
Al
Re: WD-Export Table to DBF July 08, 2009 01:57PM |
Moderator |