KPRLPK4 G 1 ;DRUKKEN PRIJSLIJST PER ARTIKELSELEKTIE ;KPRLPK4;Quit naar KPRLPK3 [ 08/06/2002   8:49 AM ]
T6 ;:---------------------------------------------------------------------------------------------------------------:
 ;
1 D HDP G 9:'$D(@("^"_Q_"STKL(0,TXT,KT,1)")) S Y=0,LN=1 W !?V,":",?(112+V),":"
3 S Y=Y+1 G 9:Y=61 S X=^(Y) G 3:'$L(X)
5 S LN=LN+1 I LN>37 W !?V,":",?(112+V),":",!?V,$P($T(T6),U,2),# D HDP S LN=1 W !?V,":",?(112+V),":" G 5
7 W !?V,":",?(22+V),X,?(112+V),":" G 3
9 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 LN=LN+1 I LN>37 W !?V,":",?(112+V),":",!?V,$P($T(T6),U,2),# D HDP G 43
44 W !?V,":",?(112+V),":" S Y=0
45 S Y=Y+1 G 49:Y>20,45:'$D(X(Y))
46 S LN=LN+1 I LN>35 W !?V,":",?(112+V),":",!?V,$P($T(T6),U,2),# D HDP S LN=1 W !?V,":",?(112+V),":" G 46
47 W !?V,":",?(22+V),X(Y),?(112+V),":" G 45
49 F I=LN:1:36 W !?V,":",?(112+V),":"
51 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)," ",KC
HDP1 W " (",$P("I\H",D,KYW?.N&KYW+1),"/",KPL,$P("-\+",D,UITZ+1),") ",KV F I=1:1:3 W $C(13),?(28+V),$P("GELDIG VANAF\VALABLE A PARTIR DE\GUELTIG AB\GELDIG VANAF",D,TL),": ",GDT
HDP2 W ?(74+V),$P("PRINTDATUM\DATE D'EDITION\DRUCKDATUM\DATE",D,TL)
HDP3 W ": ",DT,?(104+V),$P(" BLZ.\ PAGE\SEITE\PAGE",D,TL),":",$J(BLZ,3),!
HDP4 W !?V,$P($T(T6),U,2)
HDPZ Q
 ;