KFCOU ;KONTROLE ORDERS - UITLEVERINGEN ;KFCOU; [ 08/05/2002  10:44 AM ]
 G 1
 ;
T3 ;: KLANT                              : O-L-NR : PRODUKT                      :    AANKPR :    VERKPR :   LIJSTPR :    AANTAL :
T4 ;:------------------------------------:--------:------------------------------:-----------:-----------:-----------:-----------:
T5 ;BLZ:
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
S1 S AFRR=$P(K,D,21),AFA=$E(AFRR,1),AFR=$E(AFRR,2),AFE=$P("1\100\1000",D,$F("EHM",AFA)-1)
S1A S UA=$P(K,D,3) G S1Z:'UA S UEP=$J($P(K,D,9)/UA*AFE,1,2),UMC=$P(K,D,22)
S1B S PR=$P(K,D,2) G S1Z:'PR,S1Z:'$D(^KPR(PR)) S UPAR=$$MUNT^vhRtn1(UMC,,12)
S1C S PC=$P(^KPR(PR,0),D,1),X=^($N(^("J"))),CIFP=$P(X,D,23),PLP=$P(X,D,25) F S="CIFP","PLP" S @S=@S/UPAR*AFE D S2 S @S=$J(@S,0,2)
S1D I UEP<CIFP D S3
S1E I UEP>PLP D S3
S1Z Q
 ;
S2 S @S=$$ROUND^KPRIJS(@S) Q
 ;
S3 S LN=LN+1 I LN>50 W:BLZ !,$P($T(T4),U,2),# D HD G S3
S3A W !,":",$J(KCX,5)," ",KNX,?37,": ",URX,?46,": ",PC,?77,":" S R=CIFP_"\10\78\2" D R3 W ":"
S3B S R=UEP_"\10\90\2" D R3 W ":" S R=PLP_"\10\102\2" D R3 W ":" S R=UA_"\10\113" D R3 W ":"
S3C S (KCX,KNX,URX)=""
S3Z Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 ;
2 S KC=0,US="F",BLZ=0,LN=99,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
21 S (KC,KCX)=$N(@("^"_Q_"OD(KC)")) G 3:KC=-1 S UR=0,(KN,KNX)=$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,2),KV=$P(^(0),D,11)
 I KV="" S KV=$$FADEF^vhRtn1()
23 S (UR,URX)=$N(@("^"_Q_"OD(KC,US,UR)")) G 21:UR=-1 S UZ=100
25 S UZ=$N(@("^"_Q_"OD(KC,US,UR,UZ)")) G 23:UZ=-1 S K=^(UZ)
27 G 25:$P(K,D,26)'="*" D S1 G 25
 ;
3 S KC=0
31 S (KC,KCX)=$O(@("^"_Q_"UL(KC)")) G 4:KC="" S UR=0,(KN,KNX)=$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,2)
33 S (UR,URX)=$O(@("^"_Q_"UL(KC,US,UR)")) G 31:UR="" S UZ=100
35 S UZ=$O(@("^"_Q_"UL(KC,US,UR,UZ)")) G 33:'UZ S K=^(UZ)
37 G 35:$P(K,D,26)'="*" D S1 G 35
 ;
4 W:BLZ !,$P($T(T4),U,2),# D CLOSE^vhPRINTER
 ;
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?118,$P($T(T5),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?118,DT,!,NM3,?119,TD,!!
HDA W $P($T(T4),U,2),!,$P($T(T3),U,2),!,$P($T(T4),U,2)
HDZ 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 W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;