cT645 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  3:05 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
 ;
T0F ;Fact/n.c. achats ;
 ;
T0E ;Registration of incoming documents ;
 ;
 ; BOEKHOUDKUNDIGE VERWERKING AANKOOPFAKTUUR
 ;
 ;VAR.: BP, FDT, FC, FNR, I1 van de lev., KKB, KC, KN, NET*, TTB,
 ;      VM, VVD, AFBTW, BTW*, NABTW, ^HULP(boot,$J,0,), COM, BPE
 ;
 ; routine boeking per verrichting
7 S BR=BR_" ",X=@("^"_Q_"AR(BR,0)")
S0 L +@("^"_Q_"AR(BR)") D S1 L -@("^"_Q_"AR(BR)") Q
 ;
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="A"_FNR_D G S1D
S1C S S1=BH_"A"_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,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
 ;
 ; wegwerken omrekeningsverschil
S2 S S4="NETG",S2=0 F S1="NETG","NETD","NETI","NETA" D S3
S2A S @S4=@S4+K,MST=MST+K,FAK=FAK+K
S2Z K S1,S2,S3,S4 Q
 ;
S3 S S3=@S1 I S3<0 S S3=-S3 ; absolute waarde
S3A I S3>S2 S S2=S3,S4=S1
S3Z Q
 ;
 ; start
1 S BPE=$G(BPE),OM1=$G(OM1),OGM=$G(OGM),SRT=$G(SRT),MPAR=$G(MPAR,1) I $D(BX),$D(BJ) G 13
11 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 ^cT646
 ;
 ; omrekening VM naar muntcode boekhouding
2 S TTBF=$J(NETG+NETD+NETI+NETA+AFBTW-BTWOH-BTWIC-BTWMC-BTWVL+NABTW*MPAR,0,QD)
21 F X=1:1 S K=$P("NETG\NETD\NETI\NETA\AFBTW\BTWOH\BTWIC\BTWMC\BTWVL\NABTW\MST",D,X) Q:K=""  S @K=$J(@K*MPAR,0,QD)
23 S KKBX=$J(KKB*MPAR,0,QD),FAK=NETG+NETD+NETI+NETA+AFBTW-BTWOH-BTWIC-BTWMC-BTWVL+NABTW
25 S K=TTBF-FAK I K'=0 D S2 G 25
27 S @("^"_Q_"BA(BP,111)")=$H,K=@("^"_Q_"BA(15,0)") F K=0:1:9 S CE(K)=$P(^(K),D)
29 D ^cT644
 ;
 ; leverancier
3 S X=$D(@("^"_Q_"LE(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=1-(FT*2),^(X)=$P(K,D)_D_(NETG+NETD+NETI+NABTW*Y+$P(K,D,2))_D_(AFBTW*Y+$P(K,D,3))_D_$P(K,D,4,99)
35 S K=BP\1+.11 S:'$D(^(K)) ^(K)="\\\\\\\\\\\\\" S X=BP#1*100+1,$P(^(K),D,X)=NETG+NETD+NETI+NETA+NABTW*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_$P(SWX,U,2)_D_VM_D_$S(VM=$P($$MNTO^cAFE1(Q,BJ),D):TTB,1:$$CNVO^cAFE1(Q,BJ,FAK,BF,"A",""))_D_D_D_D_D_OGM_D_SRT_D,@("^"_Q_"AF(FNR)")=KC_D_BP
39 S $P(@("^"_Q_"LE(I1,2)"),D,15)=FDT D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^"_Q_"LE")
 I $D(^DMS(Q,"LE",2)) S $P(^DLE(Q,"LE.A",KC,2),D,15)=FDT D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^DLE")
 ;
 ; aankoopdagboek
4 S K=FC_D_FDT_D_VVD_D_KC_D_KN_D_FAK_S_MST_D_NETG_S_MSTG_D_AFBTW_D_NABTW_D_KKBX_D_BTWOH_D_BTWIC_D_NETI_S_MSTI_D
41 S @("^"_Q_"AA(BP,FNR)")=K_NETD_S_MSTD_D_NETA_S_NETA_D_BTWVL_D_BTWMC_D_COM_D_OM1_D_BPE_D_SRT_D_D_BPE_D_VM_D_TTB_D_MPAR_D_DVO_D_$G(KOSTEN)_D_OGM_D_$G(GECOLEVA)_D_SWTOL_D_$H_D_$G(QU)_D
43 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),X=$D(@("^"_Q_"AR(BR,0)")),BC(FT)=$P(K,S,4) D S0
52 S:'$D(@("^"_Q_"AA(BP,FNX)")) ^(FNX)="" I $L(^(FNX))+$L(K)<255 S ^(FNX)=^(FNX)_K_D G 5
54 S FNX=FNX+.01 S:FNX\1'=FNR FNX=FNX-.999 G 52
 ;
 ; basisrekeningen
6 S HIS="",BC('FT)=FAK,BR=CE(FT) D 7:FAK
61 S BC(FT)=AFBTW,BR=CE(FT+2) D 7:AFBTW S BC('FT)=BTWIC,BR=CE(FT+4) D 7:BTWIC
63 S BC('FT)=BTWOH+BTWMC,BR=CE(FT+6) D 7:BTWOH+BTWMC S BC('FT)=BTWVL,BR=CE(FT+8) D 7:BTWVL
 ;
 ; analytische ventilatie
8 I SWAN D ^cTA225
 ;
 ; opkuis hulpbestand
9 S R="HULPE" D S1^cA348 I SWAN S R="HULPEA" D S1^cA348
91 S R="TRANSACT" D S1^cA348     ; einde transactie
 ;
YZ K R1,R2,R3,R4,BC,BH,X,FAK,^HULP(boot,$J,0),HULPE,HULPEA,FNX,HIS,NET,AFBTW,NABTW,INV,KKBX,FT,BR,CE,Y,AVE,SWAV,BRA,OM1,OGM Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84