KPRLPK1 G 1 ;DRUKKEN PRIJSLIJST PER ARTIKELSELEKTIE ;KPRLPK1; Go naar KPRLPK2 [ 08/06/2002   8:49 AM ]
 ;
T0 ;KLANT
T1 ;ARTIKELSELEKTIE
T2 ;MUNTKODE
T3 ;TAAL
T4 ;LEVERINGSVOORWAARDE
T5 ;BETALINGSTERM.+AARD
T6 ;KORTING KONTANT
T7 ;TERM. KORT. KONTANT
T8 ;HANDEL
T9 ;AANTAL EXEMPLAREN
T10 ;GROOT;BASIS;SPIL;RABAT;LIJST
T11 ;NEEN;JA
T13 ;NEDERLANDS;FRANS;DUITS
T14 ;PRIJSLIJST VOOR KLANTNUMMER
T15 ;[] = vervolg   
T16 ;GELDIG VANAF
T17 ;[] = dagdatum
T20 ;NUMMER TEKST
T21 ;Z[] = zonder tekst
T22 ;KORTING OF NETTO
T23 ;NETTO;KORTING
 ;
 ;
 ;    initialisatie + vraag
1 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)
BREAK B 1
3 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^"_Q_"STKL(KC)",Q3="^"_Q_"STKL(KC,PR)",Q4="^"_Q_"STKL(KC,PR,BP)",Q5="^"_Q_"PR(PR,0)"
4 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
5 I '$G(^KLPUTZ("AS")) S FP=2403+F60 W @F,@F4,"OPGELET ! DE SCHADUWUITZONDERINGEN ZIJN NIET AKTIEF  [] = ok ",@F5,@F0 R K
6 S FP=401 W @F,@F1
7 S KC=0,LN=1502
9 S KC=$N(@("^"_Q_"K1(KC)")) G 15:KC>99 S KL=^(KC),X=@("^"_Q_"KL(KL,0)")
11 S FP=LN W @F,$C(13),$J($P(X,D,1),6),?9,$P(X,D,2)
13 S LN=LN+100 G 9:LN<2200
15 S R="K\23\3\"_$P($T(T14),U,2)_"\SC1\2\\K<100!(""-""[K)" D R0 G YZ:K="-"
17 I K="" S (LN,FP)=1502 W @F,@F1 G 7:KC>99,9
19 G 15:'$D(@("^"_Q_"K1(K)")) S KC=K,(KL,KLX)=^(KC),X=@("^"_Q_"KL(KL,0)"),FP=401 W @F,@F1
21 W $C(13),?2,$P($T(T0),U,2),?22,": ",KC," ",$P(X,D,2) S KT=$P(X,D,9),KV=$P(X,D,11),KK=$P(X,D,17),KX=$P(X,D,18)
23 S X=^(1),X=^(2),KKT=$P(X,D,2),KPL=$P(X,D,25),KKN=$P(X,D,5) S:'$L(KPL) KPL=$P(X,D,3)
25 S X=^(3),KLV=$P(X,D,3),KYW=$$IsHandel^KLANT5(KC)
 W !!?2,$P($T(T1),U,2),?22,": ",$P($T(T10),U,$F("GBSRL",KPL))
27 W !?2,$P($T(T2),U,2),?22,": ",KV,!?2,$P($T(T3),U,2),?22,": ",$P($T(T13),U,$F("NFD",KT))
29 W !?2,$P($T(T4),U,2),?22,": ",KLV,!?2,$P($T(T5),U,2),?22,": ",KX,!?2,$P($T(T6),U,2),?22,": ",KK W:KK " %"
30 W !?2,$P($T(T7),U,2),?22,": ",KKT,!?2,$P($T(T8),U,2),?22,": ",$P($T(T11),U,KYW?.N&KYW+2)
31 W !?2,$P($T(T22),U,2),?22,": ",$P($T(T23),U,KKN+2)
32 W !!?2,$P($T(T16),U,2),?22,":",!?2,$P($T(T20),U,2),?22,":",!?2,$P($T(T9),U,2),?22,":"
33 S FP=1902 W @F,@F1 S R="GDT\23\3\"_$P($T(T16),U,2)_"\"""_$P($T(T17),U,2)_"""\8\DCTR" D R0 G 6:K="-" S:K="" GDT=DT S FP=1625 W @F,@F2,GDT
34 S TXTC=0,(LN,FP)=2002 W @F,@F1
340 S TXTC=$N(@("^"_Q_"STKL(0,TXTC)")) G 343:TXTC>99!(TXTC'?.N)
341 S FP=LN W @F,$C(13),$J(TXTC,6),?9,^(TXTC,0,0)
342 S LN=LN+100 G 340:LN<2200
343 S R="TXT\23\3\"_$P($T(T20),U,2)_"\SC2\2\\K?.N!(""-Z""[K)" D R0 G 33:K="-" I K="Z" S TXT=0 G 35
344 I K="" S (LN,FP)=2002 W @F,@F1 G 34:TXTC>99!(TXTC'?.N),340
345 G 343:'$D(@("^"_Q_"STKL(0,TXT)"))
35 S FP=1902 W @F,@F1 S FP=1725 W @F,@F2 W:TXT TXT," ",^(TXT,0,0)
36 S R="EXP\23\3\"_$P($T(T9),U,2)_"\\4\\K?.N&(K>0)!(K=""-"")" D R0 G 34:K="-" S FP=1825 W @F,@F2,K
37 D INIT^vhPRINTER(132) G 6:'$D(Print)
39 G ^KPRLPK2
 ;
YZ Q
 ;
SC1 W:KC<100&(KC>0) !?2,$P($T(T15),U,2) Q
SC2 W !?2 W:TXTC<100&(TXTC>0) $P($T(T15),U,2) W $P($T(T21),U,2) 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
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;