cTN8808(BM,MAP,DMS)	; Leveranciers - balans naar PDF ; cTN107             [ 30/11/09  15:31:02 ]
	;
T0	;Leveranciersbalans
T1	; Nummer\ Naam van de klant\ Totaal saldo\ Debet maand\ Credit maand\ Debet jaar\ Credit jaar\ Beginsaldo
T2	; Overdrachttotaal; Eindtotaal;
T3	; Nummer\ Naam van de leverancier\ Totaal saldo\ Debet maand\ Credit maand\ Debet jaar\ Credit jaar\ Beginsaldo
T4	;Klantenbalans;Leveranciersbalans
	;
T0F	;Balance comptes fournisseurs
T1F	; Numéro\ Nom du client\ Solde total\ Débit mensuel\ Crédit mensuel\ Débit annuel\ Crédit annuel\ Solde init.
T2F	; Total à transférer; Total final;
T3F	; Numéro\ Nom du fournisseur\ Solde total\ Débit mensuel\ Crédit mensuel\ Débit annuel\ Crédit annuel\ Solde init.
T4F	;Balance comptes clients;Balance comptes fournisseurs
	;
T0E	;Supplier balance
T1E	; Number\ Customer Name\ Total Bal.\ Debit Month\ Credit Month\ Debit Year\ Credit Year\ Start Bal.
T2E	; Transfer total; Sum total;
T3E	; Number\ Supplier Name\ Total Bal.\ Debit Month\ Credit Month\ Debit Year\ Credit Year\ Start Bal.
T4E	;Customer balance;Supplier balance
	;
1	N VNR
	S $ZT="TRAP^cAN000"
	S KEUID=$$SELPAR^cAFVBA01("",D_1)
	D SEL^cAFVBA01(KEUID,DMS,4)
	;
	; opbouwen ^mtemp99(... met bedragen
	S GRIDID=$$BTEMP^cTN107("",DMS,BM,BM,KEUID,1)
	;
	; sorteren data op klantnaam
11	S VNR="" K ^TEMP(boot,$J,"BALANS")
	F  S VNR=$O(^mtemp99(GRIDID,"COMMON",VNR)) Q:VNR=""  D
	. S UI1KLA=$P(^mtemp99(GRIDID,"COMMON",VNR,1),D,2+(DMS="LE.A"))
	. S BJ=$P(^(0),D,8)
	. S KLAN=$$SIG^cAFA1(DMS,UI1KLA,102),KLAN=$$DI^cAN000(KLAN,UI1KLA)
	. M ^TEMP(boot,$j,"BALANS",KLAN)=^mtemp99(GRIDID,"COMMON",VNR)
	;
13	S QP=0
	S TITEL=$P($T(@("T4"_QT)),U,2+(DMS["LE"))
	S HD(1)=D
	S HD(2)=D_TITEL_";C;F82" 
	S HD(3)=D_^cBA(2,$E(QT_"N"),+$P(BM,".",2))_" "_BJ_" ;C;F82"
	;
	; afdrukken cijfers vanuit ^TEMP(boot,$J,"BALANS",
	S TAB="9\41\56\71\86\101\116\131",TIT(1)=$P($T(@("T1"_QT)),U,2,99)
	I DMS="LE.A" S TIT(1)=$P($T(@("T3"_QT)),U,2,99)
	S AFS(1,2)=$P($T(@("T2"_QT)),U,2)
	S I1=0 F  S I1=$O(^TEMP(boot,$J,"BALANS",I1)) Q:I1=""  I $D(^(I1,0)) D
	. S B(1)=^(0),B(2)=^(1)
	. S TXT(1)=$$SIG^cAFA1(DMS,$P(B(2),D,2+(DMS="LE.A")),101)
	. S TXT(2)=$$SIG^cAFA1(DMS,$P(B(2),D,2+(DMS="LE.A")),102)
	. S TXT(1)=TXT(1)_"\\\1",TXT(2)=TXT(2)_"\\1"
	. F I=3:1:8 S TXT(I)=$P(B(1),D,I-1)
	. I PTS=3!(PTS=4) S TXT(9)=BM
	. F X=3:1:8 S TXT(X)=TXT(X)_"\\\\1\"_QD_"\\1"
	. D ^cA334
	S AFS(1,2)=$P($T(@("T2"_QT)),U,3),END=1 D ^cA334
	;
	K ^TEMP(boot,$J,"BALANS")
	;
YZ	Q
	;
ZZ	; 13.05.09 - FB/GM