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