cTN8801(BP,MAP,NRS,SWVB,SWMAFS)	;Maandafsluiting via PDF: printen lijsten; cT39F1;                [ 01/12/09  16:49:24 ]
	;
T0	;Maandafsluiting via PDF: printen lijsten;
T1	;Het pad is niet correct ingevuld.;
T2	;Pad maandafsluiting niet bereikbaar.;
T3	;Boekingsmaand leeg.;
T4	;Beginmaand is groter dan eindmaand.;
	;
T0F	;Clôture mensuelle par PDF;
T1F	;Le directoire n'est pas rempli correctement.;
T2F	;Directoire de clôture mensuelle n'est pas accesible.;
T3F	;Boekingsmaand leeg.;
T4F	;Beginmaand is groter dan eindmaand.;
	;
T0E	;Monthly closure by PDF;
T1E	;The path is not correct.;
T2E	;Path monthly closure is not accessible.;
T3E	;Boekingsmaand leeg.;
T4E	;Beginmaand is groter dan eindmaand.;
	;
	; Ophalen definities printer
1	S:'$D(DEV) DEV=$G(io,$$IO^cQ5)
11	S PARPDF=MAP_D_0_D_0_D_"Titel lijst"_D_1_D_0_D_2_D_0
	I $G(SWMAFS) S $P(PARPDF,D,8)=1
13	D BF70^cAN322(302,1,,PARPDF) I K="-" S OK=0 G YZ  ; KU : 23.10.08
15	M oPTS=PTS
	;
	; Aflopen string met af te printen lijsten
2	I '$L(NRS) G 23
21	F VNR=1:1:$L(NRS,D) D @("LST"_$P(NRS,D,VNR))
22	G 9
23	F VNR=1:1:10 D @("LST"_VNR)
	;
	; Afsluiten printer
9	D W^cA612 K QP S QP=1 X F71
91	S OK=1_D_MAP
	;
YZ	Q OK
	;
BG(Q,VBP)	; Aanmaken standaardrapporten van maand VBP tot laatst afgesloten boekingsmaand
	N OK,MAP,TBP,R,SWAT,SWPDF,SWAT,NMAP,BP,TABBA
	S $ZT="TRAP^cAN000"
	S OK=1
	; Ophalen map
	S MAP=$$SIG^cAFA1("Q",Q,265)
	S MAP=$$MAP^cAN3220(MAP)
	I '$L(MAP) S OK=0_D_$P($T(@("T6"_QT)),U,2) G BGZ
	I $E(MAP,$L(MAP))'="\" S MAP=MAP_"\"
	; Testen of map bereikbaar is
	S OK=$$TDIR^cT39F1(MAP)
	I 'OK G BGZ
	; Ophalen laatst afgesloten boekingsmaand
	S TBP=$$SIG^cAFA1("Q",Q,210)
	I VBP=""!(TBP="") S OK=0_D_$P($T(@("T6"_QT)),U,2) G BGZ
	I $TR(VBP,".","")>$TR(TBP,".","") S OK=0_D_$P($T(@("T4"_QT)),U,2) G BGZ
	; Opzetten variablen voor printen lijsten naar PDF
	S SWPDF=1,R=""
	S SWAT=0 ; I $D(@("^"_Q_"BA(100)"))#2,^(100)=2 S SWAT=1
	; Aflopen verschillende maanden
	S BP=VBP
	; Sammen stellen map naam
BGA	S NMAP=$TR(MAP_BP,D,"/")
	; Printen lijsten voor 1 maand
	; M TABBA=@("^"_Q_"BA(BP)")
	S OK=$$^cTN8801(BP,NMAP,"",1)
	; M @("^"_Q_"BA(BP)")=TABBA
	I '$P(OK,D) G BGZ
	; Volgende maand nemen
	S BP=$E(BP+.01_0,1,7) S:BP#1=.13 BP=BP+.88
	I $TR(BP,".","")>$TR(TBP,".","") G BGZ
	G BGA
BGZ	Q OK
	;
LST1	; Aankoopdagboek
	K PP S PP(1)=BP,PP(2)="A",PP(3)="",PP(4)=""
	D PRINT(.PP,MAP,"^cTN8832(BP,MAP,DMS)","")
LST1Z	Q
	;
LST2	; Aankoopventilaties
	K PP S PP(1)=BP,PP(2)="A",PP(3)="",PP(4)=""
	; D PRINT(.PP,MAP,"^cTN8833(BP,MAP,DMS)","")
	D PRINT(.PP,MAP,"^cT33")
LST2Z	Q
	;
LST3	; Verkoopdagboek
	K PP S PP(1)=BP,PP(2)="A",PP(3)="",PP(4)=""
	D PRINT(.PP,MAP,"^cTN8872(BP,MAP,DMS)","")
LST3Z	Q
	;
LST4	; Verkoopventilaties
	K PP S PP(1)=BP,PP(2)="A",PP(3)="",PP(4)=""
	D PRINT(.PP,MAP,"^cT28")
LST4Z	Q
	;
LST5	; Fin. dagboek
	K PP S PP(1)=BP,PP(2)=".",(PP(3),PP(4),PP(5),PP(6))=""
	D PRINT(.PP,MAP,"^cTN8838(BP,MAP,DMS)","")
LST5Z	Q
	;
LST6	; Klantenbalans
	K PP S PP(1)=BP,PP(2)=""
	D PRINT(.PP,MAP,"^cTN8807(BP,MAP,DMS)","KL.A")
LST6Z	Q
	;
LST7	; Leveranciersbalans
	K PP S PP(1)=BP,PP(2)=""
	D PRINT(.PP,MAP,"^cTN8808(BP,MAP,DMS)","LE.A")
LST7Z	Q
	;
LST8	; Centralisatiedagboek
	K PP S PP(1)=BP,PP(2)=7
	D PRINT(.PP,MAP,"^cT65")
LST8Z	Q
	;
LST9	; Proefbalans
	K PP S PP(1)=1,PP(2)="",PP(3)="~",PP(4)=BP,PP(5)=""
	D PRINT(.PP,MAP,"^cTN8820(BP,MAP,DMS)","AR.A")
LST9Z	Q
	;
LST10	; Maandbalans
	K PP S SWA="",BM=+$P(BP,".",2),MNM=^cBA(2,$E(QT_"N"),+BM)_" "_(BP\1)
	D PRINT("",MAP,"^cT390")
LST10Z	Q
	;
	;
PRINT(PP,MAP,PROG,DMS)	; Printen van 1 lijst
	S $ZT="TRAP^cAN000"
	; Ophalen bestandsnaam
	I $G(SWVB) N @$$INITVAR^cAFVBA01("oPTS,PP,MAP,PROG,BP,BPX,SWAFS,SWA,SWPDF,MNM,BM,TABBA,SWAT,T,SWVB,VNR,NRS,NMAP,TBP,F70,F71,DMS") G PRINTA
	D
	. N oPTS,PP,MAP,PROG,BP,BPX,SWAFS,SWA,SWPDF,MNM,BM,TABBA,SWAT,T,SWVB,VNR,NRS,NMAP,TBP,F70,F71,DMS
	. D ^cA609
PRINTA	S QP=0
	K PTS M PTS=oPTS
	S TITEL=$$TITEL^cAN3220($P(PROG,"("))
	S (F71("PDF","to-org"),F71("PDF","to"))=$TR(MAP_D_TITEL_" "_BP_".PDF","/",D)
	S R=""
	I '$D(DMS) S DMS=""
	D @PROG
	H +$G(^cLOG(0,"HANG"))
PRINTZ	Q
	;
VB(Q,BP,MAP,NRS)	; Ingang voor VB
	; Q   = Q-waarde vennootschap
	; BP  = Maand
	; MAP = map naar waar lijsten moeten geëxporteerd worden
	; NRS = nummers van lijsten die moeten naar PDF geprint worden
	S $ZT="^dmERROR"
	N @$$INITVAR^cAFVBA01("Q,BP,MAP,NRS")
	S SWVB=1,R=""
	; Opzij zetten ^_Q_BA(BP
	; M TABBA=@("^"_Q_"BA(BP)")
	D ^cAN325(QU) ; Opbouw cPRINT voor gebruiker
	; Ophalen taal van de gebruiker
	N QT,QTU
	S UI1USR=$$UR^cAFA1("USR",101,QU),QT=$$SIG^cAFA1("USR",UI1USR,109)
	I QT="N" S QT=""
	S QTU=$F("FDE",QT)
	S OK=$$^cTN8801(BP,MAP,NRS,SWVB)
	; Terug zetten ^_Q_BA(BP
	; M @("^"_Q_"BA(BP)")=TABBA
VBZ	Q OK
	;
ZZ	; 26.02.09 - 10 u 24 * V9.05