Export problem
Bruce Easton
bruce at stn.com
Tue Jun 12 13:21:23 PDT 2007
Don Coleman wrote Tuesday, June 12, 2007 3:41 PM:
>
> I have the following export table. In this sample I process 3
> records which
> I get, each containing 25 fields. But in between each desired
> record I get
> a records with 25 blank fields (file attached). Anyone see the error?
> As I said only 3 records are selected in this sample, yet I get 6 lines of
> data.
>
>
> Process table attached as well to retain formatting.
>
>
>
> Jun 12, 2007 15:28 File Name: QS1DET
> Page 1
> Processing: SQL_Export
>
> 1 ------- - - - - - - - - - - - - -
> - - -
> If: qu eq "1"
> Then: goto start
> 2 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: qu(1,.0,g)="1"
> 3 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: PUTENV "PFADDWP","OFF"
> 4 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: QA(36,ALLUP,g)="E:\QS1\TODO\SQLImport\SQL_QS1DET.TXT"
> 5 ------- - - - - - - - - - - - - -
> - - -
> start If: AB eq 10
> Then: goto begin
> 6 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: lookup req = labelreq k=10 i=A -nx
> 7 ------- - - - - - - - - - - - - -
> - - -
> If: not req
> Then: AA="";goto begin
> 8 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: AA(30,ALLUP,g)=req(2);AB(4,ALLUP,g)=10
> 9 ------- - - - - - - - - - - - - -
> - - -
> begin If:
> Then: export ascii reads=(QA) r=\n f=~ o=" c=" -x
> 10 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(1)=10;reads(2)=3;reads(3)=1;reads(4)=6
> 11 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: lookup qs1 k=1 i=A -nx
> 12 ------- - - - - - - - - - - - - -
> - - -
> If: not qs1
> Then: end
> 13 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then:
> reads(6)=qs1(11);reads(7)=qs1(12);reads(8)=qs1(13);reads(9)=qs1(14)
>
> 14 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then:
> reads(10)=qs1(15);reads(11)=qs1(24);reads(12)=qs1(22);reads(13)=qs1
> (38)
> 15 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then:
> RA(1,ALLUP)=mid(qs1(40),"7","1");RB(8,MDY/)=mid(qs1(40),"1","6")
> 16 ------- - - - - - - - - - - - - -
> - - -
> If: RB ne qs1(37)
> Then: reads(14)="";goto count
> 17 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: lookup exc = exclude k=RA i=A -nx
> 18 ------- - - - - - - - - - - - - -
> - - -
> If: not exc
> Then: reads(14)="";goto count
>
>
>
>
>
>
>
> Jun 12, 2007 15:28 File Name: QS1DET
> Page 2
> Processing: SQL_Export
>
> 19 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(14)=RA
> 20 ------- - - - - - - - - - - - - -
> - - -
> count If: 10 eq "MTSP" and 4 eq "JBP"
> Then: goto montana
> 21 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: QM(9,*)=1{"5"
> 22 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: lookup det = qs1det k=QM i=A -nx
> 23 ------- - - - - - - - - - - - - -
> - - -
> more If: not det
> Then: goto skdet
> 24 ------- - - - - - - - - - - - - -
> - - -
> If: 1 ne det(1)
> Then: goto skdet
> 25 ------- - - - - - - - - - - - - -
> - - -
> If: det(2) eq "5" and (det(3) eq @TD) and det(8) ne "Y"
> and det(7)
> eq "
> "
> Then: QQ(10,.4)=(QQ+det(6));'Quantity shipped today
> 26 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: getnext det;goto more
> 27 ------- - - - - - - - - - - - - -
> - - -
> skdet If:
> Then: reads(5)=QQ;'Quantity Shipped Today
> 28 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(15)="0"
> 29 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(16)="0"
> 30 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: 'reads(16)=((25-(25-68))-QQ); 'Qty previously
> sent;'changed to
> "0"
> 05/18/2007
> 31 ------- - - - - - - - - - - - - -
> - - -
> If: mid(qs1(50),"1","1") ne "U"
> Then: reads(17)=(qs1(25)-qs1(68));goto notupd; 'Quantity owed for
> non-upd
> ate only's
> 32 ------- - - - - - - - - - - - - -
> - - -
> If: mid(qs1(50),"1","1") eq "U"
> Then: reads(17)="0"; 'Quantity owed for update only's
> 33 ------- - - - - - - - - - - - - -
> - - -
> notupd If:
> Then:
> reads(18)=qs1(37);reads(19)=AA;reads(20)=qs1(27);reads(21)=qs1(43);
> reads(22)=9;reads(23)=""
> 34 ------- - - - - - - - - - - - - -
> - - -
> If: 7 eq "V" or 7 eq "S" or 7 eq "C" or 7 eq "2"
> Then: reads(24)="N";reads(25)=7;11="Y";write;write reads;end
> 35 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(24)="Y";reads(25)=7;11="Y";write;write reads;end
> 36 ------- - - - - - - - - - - - - -
> - - -
> montana If:
> Then:
> reads(5)=qs1(68);reads(15)="0";reads(16)=(qs1(25)-qs1(68));reads(18
> )=qs1(37);reads(19)=AA
>
>
>
>
> Jun 12, 2007 15:28 File Name: QS1DET
> Page 3
> Processing: SQL_Export
>
> 37 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(20)=qs1(27);reads(21)=qs1(43);reads(22)="";reads(23)=""
> 38 ------- - - - - - - - - - - - - -
> - - -
> If: 7 eq "V" or 7 eq "S" or 7 eq "2" or 7 eq "C"
> Then: reads(24)="N";reads(25)=7;11="Y";write;write reads;end
> 39 ------- - - - - - - - - - - - - -
> - - -
> If:
> Then: reads(24)="Y";reads(25)=7;11="Y";write;write reads;end
>
Don - remove the "write reads" where ever it appears - that should be
causing your extra line of output.
Bruce
Bruce Easton
STN, Inc.
More information about the Filepro-list
mailing list