cAT190 ;Niet gesaldeerde ;%AT19, %T14 ; [ 01/03/01  5:00 PM ]
 G 1
 ;
T0 ;Niet gesaldeerde ;
T1 ;Vervallen;Niet-verv.;
T2 ;Termijn;Mnt\Saldo doc.;
T3 ; D.;FCW;FCW;
T4 ; Overdracht ; Eindtotaal ;Fact-C.N.;Voorschot;
T5 ; Totaal saldo;
T6 ;Referentie factuurdatum : ; - Vervaldatum : ; - Muntcode : ;
T7 ;Enkel geblokkeerde facturen;
 ;
T0F ;Non soldés ;
T1F ;Echu;Non échu;
T2F ;Délai;Mon\Solde doc.;
T3F ; J.;FCW;FCT;
T4F ; Transfert ; Total final ;Fact-N.C.;Acompte;
T5F ; Solde total;
T6F ;Référence date facture : ; - Date d'échéance : ; - Code mon. : ;
T7F ;Seulement les factures blocquées;
 ;
T0E ;Outstanding ;
T1E ;Overdue;Not overdue;
T2E ;Period;Cur.\Balance doc.;
T3E ; D.;ICB;ICB;
T4E ; Transfer ; Sum total ;Inv-C.N.;Advance;
T5E ; Balance total;
T6E ;Reference invoice date : ; - Due date : ; - Currency : ;
T7E ;Only blocked invoices;
 ;
 ; initialisatie
1 S HD(1)=D,HD(2)=D_TIT1_";C;F82",HD(3)=D_$P($T(@("T6"_QT)),U,2)_PDT
10 I PDT2 S HD(3)=HD(3)_$P($T(@("T6"_QT)),U,3)_PDT2,PDT2=$$DH^cAFD1(PDT2)
11 S HD(3)=HD(3)_$P($T(@("T6"_QT)),U,4)_$P(MUNT,D)_";C",BF=$P($$MNTO^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM)),D),QD=$P(MUNT,D,2)
110 I $G(BLOK) S HD(4)=D_$P($T(@("T7"_QT)),U,2)_";C"
111 S VAR=$P($T(@("T1"_QT)),U,2,3),P(1)=-$P(A,D),H(1)=-P(1),P(6)=$P(A,D,6),H(6)=P(6)
112 F I=2:1:5 S K=$P(A,D,I),P(I)=$E($P(K,"-"),2,9),H(I)=P(I),P(I+10)=$P(K,"-",2),H(I+10)=P(I+10) S:K["V" P(I)=-P(I),P(I+10)=-P(I+10)
113 S:+H(6) H(5)=H(5)-1 S:'+H(6) H(5)=$P(A,D,5) S P(5)=H(5)
13 S TIT(1)=$S(DET:"",1:$P($T(@("T2"_QT)),U,2)_";1")_"\\\\" F I=1:1:4 S TIT(1)=TIT(1)_$P(VAR,U,P(I)>0+1)_";2\"
14 S TIT(1)=TIT(1)_$P(VAR,U,2)_";2",TAB="28\43\47\61\75\89\103\117\131",VAR=$P($T(@("T3"_QT)),U,2)_";2\"
15 S TIT(2)=$P(TIT,":",2)_D_$P(TIT,":",3)_D_$P($T(@("T2"_QT)),U,3)_";1\+ "_H(1)_VAR
16 F I=2:1:4 S TIT(2)=TIT(2)_H(I)_"-"_H(I+10)_VAR
17 S TIT(2)=TIT(2)_"+ "_H(5)_VAR
18 S CORQ1="KL",CORQ2="K1" I TXT[CORQ1 S CORQ1="LE",CORQ2="L1"
19 S RFD=$$DH^cAFD1(DT),PDT=$$DH^cAFD1(PDT),I1="",SORT=$P(@("^"_Q_"BA")@("%T",2),D),TEXT=TXT
191 K ALG,ALG1,ALG2 F I=1:1:6 S T(I)=0,T1(I)=0
192 D S2 S I=$T(@("T4"_QT)),AFS(1,1)=$P(I,U,2)_$P(I,U,4),AFS(2,1)=$P(I,U,2)_$P(I,U,5)
 ;
 ; volgende klant of leverancier
2 S TXT=TEXT,R="I1"_TXT D ^cA327 I I1="" K ^HULP(boot,$J+.01) G 7
21 S B(1)=^(0),COR=$P($G(^(2)),D,30)
22 K ^HULP(boot,$J+.01) S I2=9999,ATL=2    ; openstaande facturen sorteren
23 S I2=$O(@("^"_Q_$P(TXT,D,2)_"(I1,I2)")) I I2'?5.6N G 27
24 S A=^(I2),I3=$$DC^cAFD1($S(SORT<2:$P(A,D,2+SORT),1:DT))*1E6+I2
25 I $G(BLOK)&('$P(A,D,8)) G 23 ; enkel geblokkeerde facturen
26 S ATL=ATL+1,^HULP(boot,$J+.01,I3)=A G 23
27 I '$D(^HULP(boot,$J+.01)) G 2
28 I COR S COR=$G(@("^"_Q_CORQ2_"(COR)")) I $L(COR) S COR=$O(@("^"_Q_CORQ1_"(COR,9999)"))
29 S COR=$S(COR?5.6N:"*",1:" "),I3="",SW=0 F I=1:1:6 S A(I)=0
 ;
 ; volgende openstaande factuur, credietnota of voorschot
3 S I3=$O(^HULP(boot,$J+.01,I3)) G 6:I3="" S A=^(I3),(OPE,OPEVM)=$P(A,D,5),FAK=OPE,FC=$P(A,D),R=$P(A,D,3),DAT=$P(A,D,2),MNT=$P(A,D,9),SWSTER=$P(A,D,8) K ^(I3) I CORQ1="LE" S SWSTER=0
30 S:MNT="" MNT=BF S:MNT'=BF OPE=$P(A,D,10) S DEC=+$P($G(@("^"_Q_"BA(11,MNT)")),D,7),R=$$DH^cAFD1(R)
31 S:FC="C" OPE=-OPE,OPEVM=-OPEVM,FAK=-FAK G 3:R'<PDT2&PDT2 S K=R-RFD,VV=6,R=$$DH^cAFD1(DAT) G 3:R>PDT
32 S OPE=$$BEDR^cAFE1(Q,OPE,BF,$P(MUNT,D),PARI),I2=I3#1E6
33 I K<P(1) S VV=2 G 4
35 I K'>P(12)&(K'<P(2)) S VV=3 G 4
37 I K'>P(13)&(K'<P(3)) S VV=4 G 4
39 I K'>P(14)&(K'<P(4)) S VV=5
 ;
 ; afdruk detail
4 G 5:DET I 'SW,$G(LN),$G(LNMAX),LN+4+(ATL<5)>LNMAX S END=4 D ^cA334
41 I 'SW K TXT S TXT(1)=$$BET^cAFO1($P(B(1),D,18))_"\1" D ^cA334 S TXT(1)=COR_$TR($P(B(1),D,1,2),D," ")
43 D S1 S FC=$TR(FC,$P($T(@("T3"_QT)),U,3),$P($T(@("T3"_QT)),U,4))
45 S TXT(2)=FC_$E(" *",$P(A,D,4)'=$P(A,D,5)+1)_$J(I2,6)_$S(SWSTER:"*",1:" ")_$E(DAT,1,5),TXT(3)=MNT
47 S TXT(4)=FAK_"\\\\1\"_DEC,TXT(3+VV)=$S(SWVM:OPEVM,1:OPE)_"\\\\1\"_$S(SWVM:DEC,1:QD) D ^cA334 K TXT
 ;
 ; totalisatie
5 S A(1)=A(1)+$S(SWVM:OPEVM,1:OPE),A(VV)=A(VV)+$S(SWVM:OPEVM,1:OPE)
51 S K="T" S:I2>989999&(FC="C") K="T1" F I=1,VV S @(K_"(I)="_K_"(I)+OPE")
53 S ALG(MNT)=DEC,K="ALG1" S:I2>989999&(FC="C") K="ALG2" F I=1,VV S @(K_"(MNT,I)=$G("_K_"(MNT,I))+OPEVM")
57 I 'DET D S2
59 G 3
 ;
 ; totaal per klant/lev.
6 G 65:'DET I 'A(1),'A(2),'A(3),'A(4),'A(5),'A(6) G 2
61 S TXT(1)=COR_$TR($P(B(1),D,1,2),D," "),TXT(2)=" "_$$BET^cAFO1($P(B(1),D,18)),TXT(3)=$S(SWVM:MNT,1:$P(MUNT,D))
62 S TXT(4)=A(1)_"\\\\1\"_$S(SWVM:DEC,1:QD) F I=2:1:6 S TXT(3+I)=A(I)_"\\\\1\"_$S(SWVM:MNT,1:QD)
63 D ^cA334,S2 K TXT G 2
 ; igv met detail
65 G 2:'SW F I=2:1:9 S TXT(I)="---------------"
66 D S1,^cA334,S1 S TXT(2)=$P($T(@("T5"_QT)),U,2),TXT(3)=$S(SWVM:MNT,1:$P(MUNT,D)) F I=1:1:6 S TXT(3+I)=A(I)_"\\\\1\"_$S(SWVM:DEC,1:QD)
67 D ^cA334 K TXT S END=145 D ^cA334
69 G 2
 ;
 ; overdracht-totaal of eindtotaal
7 D S2 S I=$T(@("T4"_QT)),AFS(1,1)=$P(I,U,3)_$P(I,U,4),AFS(2,1)=$P(I,U,3)_$P(I,U,5),END=$S(SWVM:4,1:1) D ^cA334 K AFS(1),AFS(2)
71 I 'SWVM G YZ
 ;
 ; overzicht per muntkode
8 S MNT=""
81 S MNT=$O(ALG(MNT)) G 89:MNT="" S DEC=ALG(MNT)
83 S I=$T(@("T4"_QT)),TXT(1)=$P(I,U,3)_$P(I,U,4),TXT(2)="",TXT(3)=MNT F I=1:1:6 S TXT(3+I)=$G(ALG1(MNT,I))_"\\\\1\"_DEC
84 D ^cA334
85 S I=$T(@("T4"_QT)),TXT(1)=$P(I,U,3)_$P(I,U,5),TXT(2)="",TXT(3)=MNT F I=1:1:6 S TXT(3+I)=$G(ALG2(MNT,I))_"\\\\1\"_DEC
86 D ^cA334
87 S END=145 D ^cA334 G 81
89 S END=1 D ^cA334
 ;
YZ Q
 ;
 ; woonplaats/telefoon
S1 I SW=1 S TXT(1)=" "_$P(B(1),D,7)
S1A I SW=2 S TXT(1)=" "_$P(B(1),D,13)
S1B I SW>2 S TXT(1)=""
S1Z S SW=SW+1 Q
 ;
 ; totalen
S2 F I=1:1:6 S AFS(1,3+I)=T(I)_"\\\\1\"_QD,AFS(2,3+I)=T1(I)_"\\\\1\"_QD
S2Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84