KKAL1 G 1 ;K.A.L.-VERGELIJK ;Go naar KKAL2, KKAL3, KKAL4 [ 06/25/2002  10:51 AM ]
 ;
T2 ;VANAF LEVERWEEK
T3 ;TOT LEVERWEEK
T4 ;\"als JJ/WW[] of ?[]   .[] = vanaf het begin"
T5 ;\"als JJ/WW[] of ?[]   I[] = idem vorige   .[] = tot het einde"
T6 ;VANAF HET BEGIN
T7 ;TOT HET EINDE
T8 ;VOLGENS LEVERWEEK
T9 ;OVERZICHT
T10 ;\"[] = volledige lijst   .[] = leveringsverschillen"
T11 ;VOLLEDIGE LIJST;LEVERINGSVERSCHILLEN
T12 ;OK VOOR BEGIN TRANSFERT\"[] = ok"
T13 ;OK VOOR EINDE TRANSFERT\"[] = ok"
 ;
S2 S ^("PRC")=PRC,^("PRCX")=PRCX
S2Z Q
 ;
S3 F I="HG","GR","SG","MK","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S3Z Q
 ;
S4 F I="LE","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S4Z Q
 ;
S5 F I="LE","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S5Z Q
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S DOC=$P($T(+1),";",2),LSTX="KLPW\W[] = leverweek",SELK=0,MAC=$P(^cLOG(boot,"DEV",$$IO^cQ5),D)="MC",MAC=0
13 K WEK,WEKX S %WK=$$EXTDATE^vhDTyp(,"W") D PP^KPSEL
 I K="W" S FP=603 W @F,DOC,$P($T(T8),U,2) D ^KPSELR G 13:K="-"
130 G YZ:K="-" S FP=2001+F60 W @F,@F1,$C(13),?2,$P($T(T2),U,2),?18,":",!?2,$P($T(T3),U,2),?18,":"
14 S R="WEK\23\3\"_$P($T(T2),U,2)_$P($T(T4),U,2)_"\5\\$L(K)" D R0 G 13:K="-"
140 I K="." S K=$P($T(T6),U,2),WEK="00001"
 E  I K="?" S WEK=K
 E  D VALDATE^vhDTyp(K,"DW") G 14:'%TC D
 .I K?.N,($P(%EXT,"/",2)<%WK) D
 ..S $P(%EXT,"/")=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J","+1"),"J")
 ..S %INT=$$INTDATE^vhDTyp(%EXT,"DW")
 .S K=%EXT,WEK=%INT
 S FP=2021+F60 W @F,K
142 S R="WEKX\23\3\"_$P($T(T3),U,2)_$P($T(T5),U,2)_"\5\\$L(K)" D R0
144 I K="-" S FP=2021+F60 W @F,@F2 G 14
146 I K="." G 142:'WEK S K=$P($T(T7),U,2),WEKX=99999
 E  I K="?" S WEKX=K
 E  I K="I" G 142:'WEK,142:WEK'>1 S WEKX=WEK,K=$$EXTDATE^vhDTyp(WEK,"DW")
 E  D VALDATE^vhDTyp(K,"DW") G 142:'%TC D
 .I K?.N,($P(%EXT,"/",2)<%WK) D
 ..S $P(%EXT,"/")=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J","+1"),"J")
 ..S %INT=$$INTDATE^vhDTyp(%EXT,"DW")
 .S K=%EXT,WEKX=%INT
 G 142:WEK]WEKX
 S FP=2121+F60 W @F,K
147 S R="OVL\22\3\"_$P($T(T9),U,2)_$P($T(T10),U,2)_"\1\\""-.""[K\\\" D R0 I K="-" S FP=2121+F60 W @F,@F1 G 142
148 S FP=2215 W @F,@F1,$P($T(T11),U,$L(K)+2)
15 I MAC S R="K\23\3\"_$P($T(T12),U,2)_"\1\\""-,""[K\\\" D R0 G 13:K=",",147:K="-",2
 D INIT^vhPRINTER(132) G 13:'$D(Print)
 ;
2 F I="WEK","WEKX" S:'@I @I="???"
21 K DOC,LSTX,SELK D @("^KKAL"_$F("PKLW",LST))
23 I MAC S R="K\23\3\"_$P($T(T13),U,2)_"\1\\K=""""\\\" D R0
 ;
YZ 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
 ;