KFT32 G F ;TRANSFERT ORDERS-UITLEV. ;SELEKTIE ;Quit naar MODULE,MENU - Do naar @("^"_Q_UGL_"(0,US,""UTOU"")") [ 11/05/2001  2:53 PM ]
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
F S US="F" G 1
F2 S US="F" G 2
F4 S US="F" G 3
F5 S US="F" G 30
 ;
1 S UGL="UL",UG1="U1",UG2="U2" G 4
2 S UGL="OD",UG1="O1",UG2="O2" G 4
3 S UGL="OFF",UG1="OFF1",UG2="OFF2" G 4
30 S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGT="OFKLT" I $D(FUR),$D(LUR),$D(Q20) G 23
4 S UOU=@("^"_Q_UGL_"(0,US,""UOU"")")
5 S SW13=1,FP=215+$L(UOU)+$L(QN) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,"TRANSFERT ",UOU," ",QN," ",@F5
7 L @("^"_Q_UGT_"(US)"):2 E  S FP=2403+F60 W @F,@F2,@F4,"MEN IS EEN ",UOU," AAN HET TRANSFERT OP EEN ANDERE TEMINAL ! [] = OK ",@F5,@F0 R K G YZ
9 S LUR=999999,Q20="@(""^""_Q_UGT_""(UR)"")" K @("^HBOU"_$J)
10 S R="FUR\20\3\ALLE KLAAR VOOR TRANSFERT OF BEPAALDE\""[] = alle   B[] = bepaalde ""\1\\""-B""[K\\" D R0 G YZ:K="-",23:K=""
11 K KI1 S R="FUR\20\3\VANAF "_UOU_"NUMMER\""K[] = "_UOU_" bepaalde klant   [] = vanaf het begin""\6\\K?.N!(""-,K""[K)\\" D R0
12 G 9:K="-"!(K=","),212:K="K" I K="" S FP=2018+$L(UOU)+F60 W @F,"BEGIN" G 17
15 I '$D(@("^"_Q_UG1_"(K,US)")) D S1 G 11
 S KC=$P(@("^"_Q_UG1_"(K,US)"),D) G 11:'$P(@("^"_Q_UGL_"(KC,US,K,1)"),D,9)
17 S R="LUR\21\3\  TOT "_UOU_"NUMMER\"".[] = zelfde "_UOU_"nummer   [] = tot het einde""\6\\K?.N!(""-,.""[K)\\" D R0 G 11:K="-",9:K=","
18 S Q20="@(""^""_Q_UG1_""(UR)"")" S:K="."&(FUR'=0) (K,LUR)=FUR I K="" S LUR=999999,FP=2118+$L(UOU)+F60 W @F,"EINDE" G 23
19 I LUR<FUR S FP=2403+F60 W @F,@F2,@F4,"BEGINNUMMER IS GROTER DAN EINDNUMMER ! [] = OK ",@F5,@F0 R K G 17
21 I '$D(@("^"_Q_UG1_"(K,US)")) D S1 G 17
 S KC=$P(@("^"_Q_UG1_"(K,US)"),D) G 17:'$P(@("^"_Q_UGL_"(KC,US,K,1)"),D,9),23
212 S R="KI1\400\KLANT\KL\K1" D R1^KF33 G 11:K="-" S KC=$P(KI1," ",2),Q20="@(""^""_Q_UGL_""(KC,US,UR)"")"
213 S FP=411+$L(UOU) W @F,"KLANT : ",KC," ",$P(^(KI1,0),D,2)
214 I '$D(@("^"_Q_UGL_"(KC)")) S FP=2403+F60 W @F,@F2,@F4,"GEEN ",UOU," VOORBEREID VOOR DEZE KLANT [] = OK ",@F5,@F0 R K G 212
215 S FP=503 W @F,@F1,"VANAF ",UOU," NUMMER :"
216 S R="800\"_UOU_D_UGL D S2^KF33 G 212:K="-",216:K="." S FUR=R,FP=519+$L(UOU) W @F,@F1,FUR
217 S FP=605 W @F,@F1,"TOT ",UOU," NUMMER :",!?2,".[] = zelfde ",UOU
218 S R="900\"_UOU_D_UGL D S2^KF33 G 215:K="-",217:R<FUR&(K'=".") S LUR=R S:K="." LUR=FUR S FP=619+$L(UOU) W @F,@F1,LUR
22 I 'SW13 S (FUR,LUR)=UR
23 S SW37=0 S:$D(@("^"_Q_"BA(37)")) SW37=^(37) I 'SW37 F I=1:1:12 I $D(@("^"_Q_"BA(99,I)")) S @(Q_"BA(99,I)")=^(I)
26 S UR=FUR-1 D OUT^IO("T",@("^"_Q_UGL_"(0,US,""UTOU"")"))
41 S UR=-1
43 S UR=$N(@("^HBOU"_$J_"(UR)")) G 45:UR=-1 K @("^"_Q_UGT_"(UR,US)") G 43
45 K @("^HBOU"_$J) I 'SW13 S K="," X:$D(SW12) @("^"_Q_UGL_"(0,US,0)"),^("UT"),^("UU")
 ;
YZ K U0,U1,U2,UO,KN,KN2,KA,KS,KP,KW,KT,KB,KBN,KWL,UTA,TL,FUR,LUR,Q20,Z,@(Q_"BA(99)") Q
 ;
S1 S FP=2403+F60 W @F,@F2,@F4,UOU," ONBEKEND [] = OK ",@F5,@F0 R K
S1Z Q
 ;