KOFTOFA G 1 ;AFDRUKKEN OFFERTES ;Quit naar KOFTOF [ 02/02/93  8:08 AM ]
 ;
1 K X S Y=0
5 F I=1:1:5 I $D(@("^"_Q_"BA(22,""S"",KT,I)")),$L(^(I)) S Y=Y+1,X(Y)=^(I)
7 S Y=Y+1,X(Y)=""
21 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 D TXTORD S Y=0 F I=1:1:30 I $D(X(I)) S Y=Y+1
44 D:UVN>(42-Y) HDD0^KOFTOFB F I=UVN:1:(42-Y) W !
45 F I=1:1:20 I $D(X(I)) W !,$J("",2+V),X(I)
47 K X
 ;
YZ Q
 ;
TXTORD I '$P(@("^"_Q_"OFKL(KC,US,UR,1)"),D,9) Q
 S Y=Y-5 I '$D(X(Y)) F Y=Y:-1:1 Q:$D(X(Y))
 S Y=Y+1,K=$P("GOED VOOR ORDER\BIEN POUR COMMANDE\GUT FUR AUFTRAG\GOED VOOR ORDER",D,TL)
 S:'$D(X(Y)) X(Y)="" S X(Y)=X(Y)_$J("",90-$L(X(Y))-$L(K))_K
 S Y=Y+1,K=$P("DATUM\DATE\DATUM\DATUM",D,TL)_" :"
 S:'$D(X(Y)) X(Y)="" S X(Y)=X(Y)_$J("",90-$L(X(Y))-$L(K))_K
 S Y=Y+1,K=$P("HANDTEKENING\SIGNATURE\UNTERSCHRIFT\HANDTEKENING",D,TL)_" :"
 S:'$D(X(Y)) X(Y)="" S X(Y)=X(Y)_$J("",90-$L(X(Y))-$L(K))_K
 Q
 ;
Z X ^cZ Q
ZZ ; 19.05.88 - 15 u 08