KTDTLA G 1 ;AFDRUKKEN TOELEVERINGEN ;Quit naar KTDTL [ 08/11/93  3:18 PM ]
 ;
1 K X S Y=0 I $D(@("^"_Q_"BA(154,LLV_"" "")")) S Y=Y+1,X(Y)=^(LLV_" ",LT,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,LXWA="",X(Y)=$P("BETALINGSVOORWAARDE\CONDITIONS DE PAIEMENT\ZAHLUNGSBEDINGUNG\BETALINGSVOORWAARDE",D,TL)_": "
25 I '$L(LX) S X(Y)=X(Y)_$P("KONTANT\AU COMPTANT\BARZAHLUNG\KONTANT",D,TL) S:LLL X(Y)=X(Y)_" "_$P("MET\AVEC\MIT\MET",D,TL)_" "_LLL_" % "_$P("KORTING\D'ESCOMPTE\SKONTO\KORTING",D,TL) S LLL=0 G 37
27 S LXA=+LX S:"-W/A"[$E(LX,$L(LX)-1,$L(LX)) LXWA=$E(LX,$L(LX)-1,$L(LX)) S LX=$E(LX,$L(LXA)+1,$L(LX)-$L(LXWA)),LLTA=+LLT,LLT=$E(LLT,$L(LLTA)+1,$L(LLT))
28 G 29:'LLL S X(Y)=X(Y)_LLL_" % "_$P("KORTING\D'ESCOMPTE ENDEANS\SKONTO\KORTING",D,TL)_" "_LLTA_" "_$P("DAG\JOUR\TAG\DAG",D,TL) S:LLTA'=1 X(Y)=X(Y)_$P("EN\S\EN\EN",D,TL) S X(Y)=X(Y)_" "
280 I LLT="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:'LXA
29 S X(Y)=X(Y)_LXA_" " I LX'="M" S X(Y)=X(Y)_$P("DAG\JOUR\TAG\DAG",D,TL) S:LXA'=1 X(Y)=X(Y)_$P("EN\S\EN\EN",D,TL) G 33:LX="D",35
31 S X(Y)=X(Y)_$P("MAAND\MOIS\MONAT\MAAND",D,TL) S:LXA'=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:'LLL X(Y)=$E("-------------------------",1,$P("20\23\18\20",D,TL)) G 43:'$L(LX)
39 G 43:'$L(LXWA) 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 LXWA="/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
44 D:UVN>(39-Y) HDD0^KTDTLB F I=UVN:1:(39-Y) W !
45 F I=1:1:20 I $D(X(I)) W !?(2+V),X(I)
47 K X
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36