KF4L G 1 ;MODULE UITLEVEREN LEVERANCIERORDERS (SELEKTIE ORDERNRS.) ;Quit naar %F10,KF3 - Do naar KF5L,%F32 [ 08/05/2002  10:44 AM ]
 ;
T1 ; VRAAGT EEN SPECIALE BEHANDELING, WENST U DIT TE VERWERKEN
T2 ; IS EEN CONTRACTORDER, WENST U DIT TE VERWERKEN
T3 ;J[] = ja   N[] = neen
 ;
M1 S MSG=UOU_"BESTAND VAN DEZE KLANT IN GEBRUIK" G MY
M2 S MSG="FAKTURATIEADRES VERSCHILLEND VAN VOORGAAND "_UOU G MY
M3 S MSG="FAKTURATIEMUNT VERSCHILLEND VAN VOORGAAND "_UOU G MY
M4 S MSG="LEVERINGSADRES VERSCHILLEND VAN VOORGAAND "_UOU G MY
M5 S MSG="FAKTURATIEMUNT "_UVM_" NIET TOEGELATEN" G MY
M6 S MSG="VOORGAAND "_UOU_$P("\ NIET",D,UEB+1)_" VOOR EXPORT DIT "_UOU_" "_$P("NIET\WEL",D,UEB+1) G MY
M7 S MSG="LEVERINGSVOORWAARDE VERSCHILLEND VAN VOORGAAND "_UOU G MY
MY S FP=2403+F60 W @F,@F4,MSG," [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
1 L @("^"_Q_"OD(KC,US)"):2 E  D M1 G YZ
6 K UTA,UTB D S2
7 S UL=UD,Y=-1,(KCO,UMNT,XLA,ULV)="",UVB=0
70 I $N(^($N(@("^"_Q_"OD(KC,US,Y)"))))=-1 S K=$N(^(Y)),X=^(K,1),KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),X=^(3) S:'$L($P(X,D,1)) X="" D S3 G YZ:K="N" G 21:$D(@("^"_Q_"BA(11,UVM)")),YZ
8 I UL<12 S Y=$N(@("^"_Q_"OD(KC,US,Y)")) I Y'=-1 D S6 G 8
80 I $D(KUR),$D(UTA(KUR)) S K=KUR K KUR G 11
9 S R="K\22\3\GEEF OVER TE BOEKEN "_UOU_"NUMMER\""A[] = alle   [] = " S:Y=-1 R=R_"einde selektie" S:Y'=-1 R=R_"vervolg" S R=R_"""\6\\K=""""!(K=""-"")!(K="","")!(K=""A"")!(K?.N)\\" D R0
11 G YZ:K="-"!(K=","),18:K="A",21:K=""&(Y=-1) I K="" K UTA S UL=UD D S2 G 8
12 G 9:'$D(@("^"_Q_"OD(KC,US,K)"))!$D(UTO(K)) S X=^(K,1) G 9:$P(X,D,25)'="L"
 S KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),X=$P(^(3),D,1,8)
13 G 14:'(KCO=""!(KCN=KCO)),15:'(UMNT=""!(UMNT=UVM)),16:'(XLA=""!(XLA=X)),17:'$D(@("^"_Q_"BA(11,UVM)")),170:'(UVB=0!(UVB=UEB)),172:'(ULV=""!(ULV=LVW))
130 D S3 G 9
14 D M2 G 9
15 D M3 G 9
16 D M4 G 9
17 D M5 G 9
170 D M6 G 9
172 D M7 G 9
18 S Y=-1,KCO="",UL=UD-1 D S2 K UTO,UTA
19 S (K,Y)=$N(@("^"_Q_"OD(KC,US,Y)")) G 21:Y=-1 S X=^(Y,1) G 19:$P(X,D,25)'="L"
 S KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),X=$P(^(3),D,1,8)
20 D:KCO=""!(KCN=KCO)&(UMNT=""!(UMNT=UVM))&(XLA=""!(XLA=X))&(ULV=""!(ULV=LVW))&$D(@("^"_Q_"BA(11,UVM)"))&(UVB=0!(UVB=UEB)) S3 G 19
21 K UTA S UL=UD,Y=-1 D S2 G 7:'$D(UTO)
23 I UL<12 S Y=$N(UTO(Y)) I Y'=-1 S UL=UL+1,FP=UL*100+1 W @F,$C(13),?(7-$L(Y)),Y,@FMTK,$P("\*",D,$P(@("^"_Q_"OD(KC,US,Y,1)"),D,25)+1),@FMTk S FP=FP+10 W @F,$P(^(1),D,2) S FP=FP+11 W @F,$P(^(1),D,3) G 23
25 S R="UVL\22\3\UITLEVEREN ORDERS\""O[] = geselekteerde orders volledig   P[] = per order" S:Y'=-1 R=R_"   [] = vervolg" S R=R_"""\1\\""-,OP""[K" D R0
26 G YZ:K="," I K="-" D S2 K UTO G 7:$N(^($N(@("^"_Q_"OD(KC,US,-1)"))))'=-1,YZ
27 I K="P",KBON S FP=2403 W @F,@F4,"AANDACHT !!! BON BIJVOEGEN !!!  [] = ok ",@F5,@F0 R R
28 S UL=UD S:$L(K) UL=UL+8 S FP=UL*100+1 W @F,@F1 G 23:K=""
29 L (@("^"_Q_"UL(0,US,""UR"")"),@("^"_Q_"OD(KC,US)")) S URR=@("^"_Q_"UL(0,US,""UR"")"),^("UR")=URR+1
30 L (@("^"_Q_"OD(KC,US)"),@("^"_Q_"UL(KC,US,URR)")) S UR=-1,UR=$N(UTO(UR)),X=@("^"_Q_"OD(KC,US,UR,1)"),X=D_UDT_D_D_$P(X,D,4,6)_D_D_$P(X,D,8,99)
31 S @("^"_Q_"UL(KC,US,URR,0)")=101,^(1)=X F I=2,3 S @("^"_Q_"UL(KC,US,URR,I)")=@("^"_Q_"OD(KC,US,UR,I)")
310 S UUD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(UDT),"DS"),D,"")
32 S UPC=1,UR=-1 D S2,^KF5L S UZ=@("^"_Q_"UL(KC,US,URR,0)"),UZ=100,UM="KF5"
33 S UZ=$N(^(UZ)) I UZ'=-1 S U2=^(UZ) G 33:$P(U2,D,2)&('$P(U2,D,3)) S:$P(U2,D,17)'="KF5" UM=$P(U2,D,17) G 33
35 I UM="KF5" K @("^"_Q_"UL(KC,US,URR)") G 39
37 S UR=URR
38 S (@("^"_Q_"U1(URR,US)"),@("^"_Q_"UB(URR,US)"))=KC_D,@("^"_Q_"U2(US,KC,URR)")=""
 I $D(@("^"_Q_"UL(0,US,2)")) S URLC=URR D @^(2)
39 S K=","
 ;
YZ K UM,UTO,UUO,UTA,KCO,KCN,UMNT,FNR,I1,X,XLA,UVM,UEB,UVB Q
 ;
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
 ;
S1 S KCO=KCN,UMNT=UVM,UTO(K)="",UVB=UEB,XLA=X,ULV=LVW D S4
S1Z Q
 ;
S2 S FP=UD*100+1 W @F,@F1
S2Z Q
 ;
S3 I USB'="L" S K="N" G S3Z
S3A S KK=K,URR=UR,UR=K,XX=X I USB D S5 G S3Z:K="N"
S3C S K=KK,UR=URR,X=XX K KK,XX D S1
S3Z Q
 ;
S4 G S4Z:'$D(UTA(K)) S FP=UTA(K)*100+9 W @F,@F5 S FP=UTA(K)*100+2 W @F,@FMTI,@FMTB,K,@F5
 S FP=FP+$L(K) W @F,@FMTB,@FMTK,$P("\s\c\a\k\l\y\m\p",D,$F("SCAKLYMP",USB)),@FMTk,@FMTb
S4Z Q
 ;
S5 S R="K\22\3\"_UOU_" "_K_$P($T(@("T"_USB)),U,2)_"\"""_$P($T(T3),U,2)_"""\1\\""JN""[K&$L(K)" D R0
S5Z Q
 ;
S6 Q:$P(@("^"_Q_"OD(KC,US,Y,1)"),D,25)'="L"
 S UL=UL+1,UTA(Y)=UL,FP=UL*100+1 W @F,$C(13),?(7-$L(Y)),Y,@FMTK,$P("\s\c\a\k\l\y\m\p",D,$F("SCAKLYMP",$P(^(1),D,25))),@FMTk
 S FP=FP+10 W @F,$P(^(1),D,2) S FP=FP+11 W @F,$P(^(1),D,3) Q:'$D(UTO(Y))  S K=Y D S4
 Q
 ;
 Q
Z X ^cZ Q
ZZ ; 11.06.91 -  8 u 26