cT686	;Uitgaande documenten ;%T68 ;%T68* ; [ 06/26/01  10:00 AM ]
	G 1
	;
T0	;Uitgaande fact/creditn ;
	;
T0F	;Documents de sortie ;
	;
T0E	;Registration of outgoing documents ;
	;
	; BOEKHOUDKUNDIGE VERWERKING VERKOOPFAKTUUR
	;
	;VAR.: BP, BR(BR) met spatie, FDT, FC, FNR, I1 van de klant, KKB,
	;      KC, KN, LXT, MST, NET, TTB, VM, VVD
	;
	; per rekening
S0	S X="^"_Q_"AR(BR)",X=$$PLUS^cANLOCK(X,2,$$OMS^cAFA1("AR",$G(QT),1,1)_" "_BR,$S($G(JOBBED):0,1:2)) I 'X G S0
S0A	S X=$D(@("^"_Q_"AR(BR,0)")) D S1
S0Z	L -@("^"_Q_"AR(BR)") Q
	;
	; cumul & historiek
S1	S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A	F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B	S BH=BH\1 D:BPE @BPEC I HIS S S1="V"_FNR_D G S1D
S1C	S S1=BH_"V"_SRT,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=FNR_D_FDT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D	S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1Z:$G(^(BH))[S1,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E	I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z	K S1,S2 S (BC(0),BC(1))=0 Q
	;
	; locks
S2	I $D(LOCK) S:$L(X) X=X_"," S X=X_LOCK
S2A	I X="" L  Q
S2Z	L @("("_X_")") Q
	;
	; omzetten maatstaven
S3	S (MST,R0)=$J(MST*MPAR,0,QD),(R1,R2,R3)="" F  S R1=$O(MST(R1)) Q:R1=""  D
	. S MST(R1)=$J(MST(R1)*MPAR,0,QD),R0=R0-MST(R1)
	. I MST(R1)>R2 S R2=MST(R1)_D_R1
	. I $P($G(PBTW(R1)),D)="Z.B." S R3=R1
S3A	I R0'=0 S R1=+$P(R2,D,2),MST(R1)=$G(MST(R1))+R0
S3B	I $L(R3) S MST=MST-MST(R3)
S3Z	K R0,R1,R2,R3 Q
	;
	;  Opzetten laatste factuurdatum in bestand ^DKL
S4	N DMS,DMSQ,UQC,USC,UREF,UI1
	S $ZT="TRAP^cAN000"
	S DMS="KL"
	S DMSQ=$$DMSQ^cAN008(DMS) I DMSQ="" G S4Z
	S UQC=$P(^DMS(DMSQ,DMS,2),D),USC=$P(^DMS(DMSQ,DMS,2),D,2) I UQC=""!(USC="") G S4Z
	S UREF=^DMC(UQC,USC,"DATA","REF")
	S UI1=$$SG^cAFA1("KL",KC,148)
	I '$L(UI1) G S4Z
	S $P(@UREF@(2),D,15)=FDT
	D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^DKL")
S4Z	Q
	;
1	S SRT=$G(SRT),DOMVVD=$G(DOMVVD),BPE=$G(BPE),KKBX=$G(KKBX,KKB),COM=$G(COM),OM1=$G(OM1)
11	S KATP=$G(KATP),MPAR=$G(MPAR,1) I $D(BX),$D(BJ) G 13
12	S BPB=@("^"_Q_"BA(2)"),BJ=$P(BPB,D,2) S:BP>BJ BPB=BJ\1*12+(BJ#1*100),BJ=BJ+1 S BJ=BJ\1,BX=BP\1*12+(BP#1*100)-BPB+1
13	S S="#",(BC(0),BC(1),S1)=0,BH=1_(BP*100),FT=FC'="C"
19	D ^cT687
	;
	; omrekenen VM naar muntcode boekhouding
2	S NET=$J(NET*MPAR,0,QD),BTW=$J(BTW*MPAR,0,QD),LXT=$J(LXT*MPAR,0,QD),KKBX=$J(KKBX*MPAR,0,QD)
21	S FAK=TTBF I BTW S BTW=FAK-NET-LXT
22	S @("^"_Q_"BA(BP,110)")=$H F X=0:1:9 S T(X)=0
23	D ^cT685,S3
	;
	; klant bijwerken
3	S X="^"_Q_"KL(I1)",X=$$PLUS^cANLOCK(X,2,$$OMS^cAFA1("KL",$G(QT),1,1)_" "_KC_" "_$P($G(@X@(0)),D,2),$S($G(JOBBED):0,1:2)) I 'X G 3
30	S X=$D(@("^"_Q_"KL(I1,0)")),BC('FT)=FAK,HIS=1 D S1
31	S X=BP\1+.01 F K=X-.01,X,X+.01 I '$D(^(K)) S ^(K)="\\\\\\\\\\\\\\\\\\\\"
33	S K=^(X),Y=FT*2-1,^(X)=$P(K,D)_D_(MST*Y+$P(K,D,2))_D_(BTW*Y+$P(K,D,3))_D_(LXT*Y+$P(K,D,4))_D_$P(K,D,5,99)
35	S K=BP\1+.11 S:'$D(^(K)) ^(K)="\\\\\\\\\\\\\" S X=BP#1*100+1,$P(^(K),D,X)=(NET-$G(KREDBEP))*Y+$P(^(K),D,X)
37	I TTB!FAK S ^(FNR)=FC_D_FDT_D_VVD_D_TTB_D_TTB_D_KKB_D_COM_D_D_VM_D_$S(VM=$P($$MNTO^cAFE1(Q,BJ),D):TTB,1:$$CNVO^cAFE1(Q,BJ,FAK,BF,"V",""))_D_DOMVVD_"\\\\"_$G(KREDBEP)_D_SRT_D_$G(US)_D_D,@("^"_Q_"VF(FNR)")=KC_D_BP
38	S $P(@("^"_Q_"KL(I1,2)"),D,15)=FDT D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^"_Q_"KL")
	; I $D(^DMS(Q,"KL",2)) S $P(^DKL(Q,"KL.A",KC,2),D,15)=FDT D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^DKL")
	; KO - 17.04.02 
	D S4
39	L -@("^"_Q_"KL(I1)")
	;
	; verkoopdagboek
4	S K=FC_D_FDT_D_VVD_D_KC_D_KN_D_FAK_D_NET_D_BTW_D_D_KKBX_D,(S1,S2)=""
41	S:MST(11) S1=1_S_MST(11)_S S:LXT S2=1_S_LXT_S
43	F X=0:1:9 I $G(MST(X)) S K=K_X_S_MST(X)_S
45	S @("^"_Q_"VE(BP,FNR)")=K_D_S1_D_S2_D_COM_D_D_D_KATP_D_LXT_D_OM1_D_BPE_D_SRT_D_D_D_VM_D_TTB_D_$G(UPAR,MPAR)_D_$G(KREDBEP)_D_$H_D_$G(QU)_D_D_$G(US)_D
47	S R1="",FNX=FNR+.01
	;
	; ventilaties
5	S R1=$O(^HULPE(HULPE,R1)) G 6:R1="" S K=$P(^(R1),D),BR=$P(K,S),HIS=$P(K,S,7)
	S X=$D(@("^"_Q_"AR(BR,0)")),BC(FT)=$P(K,S,4) D S0
	;
	; opbouwen ^VEP igv project ingevuld in ventilatie - FB - 25.09.06
	I $$PROJ^cT48H(Q),$L($P(K,"#",2)) D VEP^TCAFA1($P(K,"#",2),BP,Q,BP,FNR,$S(FC="C":-$P(K,"#",4),1:$P(K,"#",4)))
	;
52	S:'$D(@("^"_Q_"VE(BP,FNX)")) ^(FNX)="" I $L(^(FNX))+$L(K)<250 S ^(FNX)=^(FNX)_K_D G 5
54	S FNX=FNX+.01 S:FNX\1'=FNR FNX=FNX-.999 G 52
	;
	; basisrekeningen
6	S X='FT,T(X)=FAK,T(X+2)=BTW,T(X+4)=0,T(X+6)=LXT ; G 65:'$D(@("^"_Q_"BA(39)")),65:$P(^(39),D,3)'="NL"
61	; I $D(MST(2)),MST(2) S K=$J(MST(2)*PBTW(2)/100,0,QD),T(X+4)=T(X+4)+K,T(X+2)=T(X+2)-K
63	; I $D(MST(3)),MST(3) S K=$J(MST(3)*PBTW(3)/100,0,QD),T(X+6)=T(X+6)+K,T(X+2)=T(X+2)-K
65	S X(0)=$P(@("^"_Q_"BA(14,0)"),D) F X=1:1:9 I $D(^(X)) S X(X)=$P(^(X),D)
67	F K=0:1:9 I T(K),$D(X(K)) S BR=X(K)_" ",X=@("^"_Q_"AR(BR,0)"),HIS=0,BC(K=1!(K=2)!(K=4)!(K=6)!(K=8))=T(K) D S0
	;
	; betaald
7	I $D(RB),$G(BEDR),TTB!FAK D ^cT256
	;
	; analytische ventilatie
8	I SWAN D ^cTA216
	;
	; GM 21.05.04 Extra cumuls
	D ECUM^cTA180("VE",BP,FNR,"")
	;
	; opkuis hulpbestand
9	S R="HULPE" D S1^cA348 I SWAN S R="HULPEA" D S1^cA348
91	I '$G(TRANSEND) S R="TRANSACT" D S1^cA348         ; einde transactie
93	S X="" D S2                                       ; opkuis locks
	;
YZ	K HULPE,HULPEA,R1,R2,S,DOMVVD,BPB,BC,BH,FNX,HIS,IT,FT,X,T,FAK,NET,BTW,MST,LXT,BR,KKBX,SW71,Y,OM1,AVE,SWAV,BRA,KREDBEP Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08