cTN1312	; Financieel : Inschrijven financiële uittreksels: hoofding; cTN1312;
	;
T1	;Opgevraagd document is geen financieel uittreksel.;
T2	;U heeft geen licentie voor de dagboeken.;
	;
T1F	;
T2F	;
	;
T1E	;
T2E	;
	;
T1D	;
T2D	;
	;
YZ	Q
	;
BTEMP(GRIDID,DB)	; Opbouwen mtemp99 voor financieel uittreksel
	; Input: GRIDID: Gridid van mtemp99 met registraties (indien "": nieuw gridid ophalen)
	;        DB: UI1 van het dagboek (aankoop)
	; Output: GRIDID
	;         of 
	;         0\Foutboodschap
	S $ZT="ERR^cAFVBF01"
	N @$$INITVAR^cAFVBA01("GRIDID,DB")
	;
	; Controle parameters
BTEMP1	F i="GRIDID","DB" S @i=$G(@i)
	I '$L(GRIDID) S GRIDID=$$GRIDID^cAFVBF01()
	S OK=GRIDID I '$L(DB) G BTEMPZ
	I $E(DB)'="F" S OK="0\"_$P($T(@("T1"_QT)),U,2) G BTEMPZ
	K ^mtemp99(GRIDID,"DB")
	;
	; Opslag 
BTEMP2	S REF=$$REF^cAFA10(.Q,"DB"),UREF=$P(REF,D) I '$L(UREF) S OK="0\"_$P($T(@("T2"_QT)),U,2) G BTEMPZ
	;
	; Mtemp99 opbouwen
BTEMP3	S UI1=DB M ^mtemp99(GRIDID,"DB",DB)=@UREF ; Hoofding
	; 
BTEMPZ	Q OK
	;
SAVE()	; Financieel uittreksel verwerken in de boekhouding
	; Output: 0\Foutboodschap\            \
	;         1\             \Intern docnr\Extern docnr
	;        -1\Waarschuwing \Intern docnr\Extern docnr
	S $ZT="^dmERROR"
	;
	;
	; TAB-samenstellen + intialiseren
SAVE1	D ..%NormalizeObject()
	D ..ObjToCacheSQL("O")
	S GRIDID=..GridId,UI1=..DbId S:'$L(UI1) UI1=0
	N @$$INITVAR^cAFVBA01("TAB,GRIDID,UI1") 
	;
	; Volgende B-indexen opzetten
SAVE2	I UI1'=0 G SAVE6
	S $P(TAB(1),D)="F"                 ; Financieel uittreksel
	;
	; Opslaan in mtemp99
SAVE6	S ^mtemp99(GRIDID,"DB",UI1,0)=TAB(1),^(1)=$G(TAB(2))
	S ^(2)=$G(TAB(3)),^(3)=$G(TAB(4)),^(4)=$G(TAB(5)),^(5)=$G(TAB(6)),^(6)=$G(TAB(7))
	;
	; Document boekhoudkundig verwerken
SAVE7	S OK=$$DB^cTN101(GRIDID,$S(UI1=0:"",1:UI1)) I 'OK G SAVEZ
	; Mtemp99 opnieuw opbouwen
	D BTEMP(GRIDID,$P(OK,D,3)),BTEMP^cTN1113(GRIDID,$P(OK,D,3))
	;
	G SAVEY
	;
	;
SAVEY	;	
SAVEZ	Q OK
	;
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09