cAT181 ;BETALING FAKTUREN ;%AT18 ;do naar %A104,%A326 ;overlay %AT180 ; [ 01/02/01  10:45 AM ]
 G 1
 ;
T0 ;Betaling facturen ;
T1 ;Nummer open te stellen document\"xxxxxx[] = geldig documentnummer";
T2 ;Factuur of creditnota\"[] = factuur   .[] = creditnota";
T3 ;Factuurdatum;Vervaldatum;\"dd.mm.jj[] = bepaalde datum   [] = ;
T4 ;Totaal bedrag\;Openstaand bedrag\SC1;Korting contant\;Referte\;
T5 ;Bevestiging\".[] = opening factuur   ,[] = hernemen";
T6 ;De nummers 99xxxx zijn voorbehouden voor de voorschotten ;
 ;
T0F ;Paiement des factures ;
T1F ;Numéro du document à ouvrir\"xxxxxx[] = n° de document valable";
T2F ;Facture ou note de crédit\"[] =facture   .[] = note de crédit";
T3F ;Date document;Date d'échéance;\"jj.mm.aa[] = date spécifique   [] = ;
T4F ;Montant total\;Montant impayé\SC1;Esc.comptant\;Référence\;
T5F ;Confirmation\".[] = ouverture document   ,[] = reprendre";
T6F ;Les numéros 99xxxx sont réservés aux acomptes ;
 ;
T0E ;Payment of invoices ;
T1E ;Number document to open\"xxxxxx[] = valid document number";
T2E ;Invoice or credit note\"[] = invoice   .[] = credit note";
T3E ;Invoice date;Due date;\"dd.mm.yy[] = particular date   [] = ;
T4E ;Total amount\;Outstanding amount\SC1;In cash discount\;Reference\;
T5E ;Confirmation\".[] = opening invoice   ,[] = retry";
T6E ;The numbers 99xxxx are reserved for the advances ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
1 S R="FNR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\6\\""-,""[K&$L(K)!(K?6N&$E(K))\4\20" D R0 G YZ:K="-"!(K=",")
11 I $E(FNR,1,2)=99 S K=$P($T(@("T6"_QT)),U,2) D TXT^cAFA1(250) G 1
13 I $D(@("^"_Q_"VF(FNR)"))!$D(@("^"_Q_"KL(I1,FNR)")) D TXT^cAFA1(205) G 1
15 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 1:K="-",YZ:K="," S FP=520,FC=$E("FC",$L(K)+1) W @F,FC G 2
17 S FC="C" F FNR=990001:1 Q:'$D(@("^"_Q_"KL(I1,FNR)"))
19 S FP=420 W @F,FNR S FP=520 W @F,FC
 ;
2 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T3"_QT)),U,4)_DT_"""\8\DCTR" D R0 G YZ:K="," I K="-" G 15:X="F",YZ
21 S FDT=$S(K="":DT,1:K),FP=620 W @F,FDT
23 S R=FDT_D_KX D ^cA104 S VVD=R
25 S R="K\22\3\"_$P($T(@("T3"_QT)),U,3)_$P($T(@("T3"_QT)),U,4)_VVD_"""\8\DCTR" D R0 G YZ:K=",",2:K="-"
27 S:K VVD=K S FP=720 W @F,VVD S R=VVD_D_FDT D ^cA326 I R<0 G 23
 ;
3 S R="TTB\22\3\"_$P($T(@("T4"_QT)),U,2)_"\10\INCTR" D R0 G YZ:K=",",23:K="-",3:'K
31 S FP=820,R=TTB_"\12\\"_QD W @F D R3
33 S R="OPE\22\3\"_$P($T(@("T4"_QT)),U,3)_"\10\INCTR" D R0 G YZ:K=",",3:K="-" S:K="" OPE=TTB G 33:'OPE
35 S FP=920,R=OPE_"\12\\"_QD W @F D R3
37 S R="KKB\22\3\"_$P($T(@("T4"_QT)),U,4)_"\10\INCTR" D R0 G YZ:K=",",33:K="-"
39 S FP=1020,R=KKB_"\12\\"_QD W @F D R3
 ;
4 S R="REF\22\3\"_$P($T(@("T4"_QT)),U,5)_"\15\\\11\20" D R0 G YZ:K=",",37:K="-"
41 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G YZ:K=",",4:K="-"
43 S @%Q1=0,@("^"_Q_"KL(I1,FNR)")=FC_D_FDT_D_VVD_D_TTB_D_OPE_D_KKB_D_REF_D_D_D_OPE_D_D_D_D_D
45 I X'="V" S K=$P(^(0),D),@("^"_Q_"VF(FNR)")=K
47 S @%Q1=1
 ;
YZ G ^cAT180
 ;
INCTR ;"-,"[K!(K?.N)!(K?.N1".".N&QD&($L($P(K,".",2))'>QD))
 ;
SC1 W !?2,"[] = ",$J(TTB,0,QD) Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-,"[K)
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84