KPRLK4 G 1 ;PRIJSLIJST KLANTEN ;KPRLK4;Quit naar KPRLK3 [ 08/06/2002   8:52 AM ]
T1 ;:-------------:-----------------------------------------------------------:-------------------------
T2 ;-----------:
T3 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING;: NO. IDENT.  : ARTICLE  -  DESCRIPTION;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG;: IDENTNUMMER : ARTICLE  -  DESCRIPTION
T4 ; KORTING;  REMISE;  RABATT;DISCOUNT
T5 ;EENH. PR. ;PRIX UNI. ;EINH. PR. ;ONE PRICE 
T6 ;:---------------------------------------------------------------------------------------------------------------:
 ;
1 K X S Y=0 I $D(@("^"_Q_"BA(153,KLV_"" "")")) S Y=Y+1,X(Y)=^(KLV_" ",KT,1) S:$L(X(Y)) Y=Y+1 S X(Y)=^(2) S:$L(X(Y)) Y=Y+1 S X(Y)=""
23 S Y=Y+1,KXWA="",X(Y)=$P("BETALINGSVOORWAARDE\CONDITIONS DE PAIEMENT\ZAHLUNGSBEDINGUNG\BETALINGSVOORWAARDE",D,TL)_": "
25 I '$L(KX) S X(Y)=X(Y)_$P("KONTANT\AU COMPTANT\BARZAHLUNG\KONTANT",D,TL) S:KK X(Y)=X(Y)_" "_$P("MET\AVEC\MIT\MET",D,TL)_" "_KK_" % "_$P("KORTING\D'ESCOMPTE\SKONTO\KORTING",D,TL) S KK=0 G 37
27 S KXA=+KX S:"-W/A"[$E(KX,$L(KX)-1,$L(KX)) KXWA=$E(KX,$L(KX)-1,$L(KX)) S KX=$E(KX,$L(KXA)+1,$L(KX)-$L(KXWA)),KKTA=+KKT,KKT=$E(KKT,$L(KKTA)+1,$L(KKT))
28 G 29:'KK S X(Y)=X(Y)_KK_" % "_$P("KORTING\D'ESCOMPTE ENDEANS\SKONTO\KORTING",D,TL)_" "_KKTA_" "_$P("DAG\JOUR\TAG\DAG",D,TL) S:KKTA'=1 X(Y)=X(Y)_$P("EN\S\EN\EN",D,TL) S X(Y)=X(Y)_" "
280 I KKT="D" S X(Y)=X(Y)_$P("FAKTUURDATUM\DATE DE FACT.\RECHNUNGSDATUM\FAKTUURDATUM",D,TL) G 282
281 S X(Y)=X(Y)_$P("EINDE MAAND\FIN DE MOIS\ENDE MONAT\EINDE MAAND",D,TL)
282 S Y=Y+1,X(Y)=$E("-------------------------",1,$P("20\23\18\20",D,TL))_" "_$P("OF NETTO\OU NET\ODER NETTO\OF NETTO",D,TL)_" " G 37:'KXA
29 S X(Y)=X(Y)_KXA_" " I KX'="M" S X(Y)=X(Y)_$P("DAG\JOUR\TAG\DAG",D,TL) S:KXA'=1 X(Y)=X(Y)_$P("EN\S\EN\EN",D,TL) G 33:KX="D",35
31 S X(Y)=X(Y)_$P("MAAND\MOIS\MONAT\MAAND",D,TL) S:KXA'=1 X(Y)=X(Y)_$P("EN\\E\S",D,TL)
33 S X(Y)=X(Y)_" "_$P("FAKTUURDATUM\DATE DE FACTURATION\RECHNUNGSDATUM\FAKTUURDATUM",D,TL) G 37
35 S X(Y)=X(Y)_" "_$P("EINDE MAAND\FIN DE MOIS\ENDE MONAT\EINDE MAAND",D,TL)
37 S Y=Y+1 S:'KK X(Y)=$E("-------------------------",1,$P("20\23\18\20",D,TL)) G 43:'$L(KX)
39 G 43:'$L(KXWA) S:'$D(X(Y)) X(Y)=$E("                         ",1,$P("20\23\18\20",D,TL)) S X(Y)=X(Y)_" "_$P("MET WISSEL\PAR TRAITE\MIT WECHEL\MET WISSEL",D,TL)
41 I KXWA="/A" S X(Y)=X(Y)_" "_$P("GETEKEND VOOR AVAL\AVALISEE\AVALIERT\GETEKEND VOOR AVAL",D,TL)
43 S Y=0 F I=1:1:20 I $D(X(I)) S Y=Y+1
45 G 47:LN'>(33-Y) F I=LN:1:35 W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
46 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2),# D HDP
47 F I=LN:1:(33-Y) W !?V,":",?(14+V),":",?(74+V),":" W:KKN ?(100+V),":" W ?(112+V),":"
48 W !?V,":",?(112+V),":" F I=1:1:20 I $D(X(I)) W !?V,":",?(2+V),X(I),?(112+V),":"
49 W !?V,":",?(112+V),":",!?V,$P($T(T6),U,2),# K X
 ;
YZ Q
 ;
HDP S BLZ=BLZ+1,LN=0 W !!!!! F I=1:1:3 W $C(13),?V,$P("PRIJSLIJST\PRIX COURANT\PREISLISTE\PRICE LIST",D,TL)
HDP1 W ?(28+V) W:$L(KA) KA," " W KN,?(73+V),$P("DATUM\DATE\DATUM\DATE",D,TL),?(34+V),": ",DT,?(104+V),$P(" BLZ.\ PAGE\SEITE\PAGE",D,TL),":",$J(BLZ,3),!
HDP2 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2)
HDP3 W !?V,$P($T(T3),U,TL+1),?(74+V),":"
HDP4 W ?(90+V-$L(KV)),$P($T(T5),U,TL+1),KV W:KKN ?(100+V),":",?(101+V),$P($T(T4),U,TL+1)," %" W ?(112+V),":"
HDP5 W !?V,$P($T(T1),U,2),$S(KKN:":",1:"-"),$P($T(T2),U,2)
HDPZ Q
 ;