cTA216 ;Analytische verwerking verkoopfactuur ;%T686 ; [ 10/16/00  3:34 PM ]
 G 1
 ;
T0 ;Analytische verwerking verkoopfactuur ;
 ;
T0F ;Traitement analytique des ventes ;
 ;
T0E ;Analytische verwerking verkoopfactuur ;
 ;
 ; analytische boeking per verrichting
S0 S X="^"_Q_"ARA(BRA)",X=$$PLUS^cANLOCK(X,2,$$OMS^cAFA1("ARA",$G(QT),1,1)_" "_BRA,$S($G(JOBBED):0,1:2)) I 'X G S0
S0A S X=$D(@("^"_Q_"ARA(BRA,0)")) D S1
S0Z L -@("^"_Q_"ARA(BRA)") 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,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
 ;
 ; link grootboekrekening <--> analytische rekening
S4 S S3=2_$E(R5_$J("",7),1,7)_(BP*100),S4=0 I HIS S S1="V"_FNR_D G S4B
S4A S S1=S3_"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 S4Z
S4B S S4=S4+.01,S2=S3_S4 S:S4=1 HIS=0 D ^cTA00:'HIS G S4A:'HIS,S4B:$D(^(S3_(S4+.01))) S:'$D(^(S2)) ^(S2)=""
S4C I ^(S2)'[S1 G S4B:$L(^(S2))+$L(S1)>255 S ^(S2)=^(S2)_S1
S4Z K S1,S2,S3,S4 S (BC(0),BC(1))=0 Q
 ;
 ; cumul + gewone historiek bij analytische rekening
1 S R1=""
12 S R1=$O(^HULPE(HULPEA,R1)) G 2:R1="" S K=^(R1),BR=$P(K,S),BC(FT)=$P(K,S,4),BRA=$P(K,S,9)
14 S X=@("^"_Q_"ARA(BRA,0)"),HIS=$P(X,D,3) D S0 G 12
 ;
 ; analytische historiek bij analytische rekening
2 S R1=""
22 S R1=$O(^HULPE(HULPE,R1)) G 3:R1="" S K=^(R1),BR=$P(K,S),BC(FT)=$P(K,S,4),BRA=$P(K,S,9) I '$L(BRA) G 22
24 S X="^"_Q_"ARA(BRA)",X=$$PLUS^cANLOCK(X,2,$$OMS^cAFA1("ARA",$G(QT),1,1)_" "_BRA,$S($G(JOBBED):0,1:2)) I 'X G 24
26 S X="^"_Q_"ARA(BRA)",HIS=$P(@X@(0),D,3),R5=BR,HIS=1 D S4
28 L -@("^"_Q_"ARA(BRA)") G 22
 ;
 ; analytische historiek bij grootboekrekening
3 S R1=""
32 S R1=$O(^HULPE(HULPE,R1)) G YZ:R1="" S K=^(R1),BR=$P(K,S),BC(FT)=$P(K,S,4),BRA=$P(K,S,9) I '$L(BRA) G 32
34 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 34
36 S X="^"_Q_"AR(BR)",HIS=$P(@X@(0),D,3),R5=BRA,HIS=1 D S4
38 L -@("^"_Q_"AR(BR)") G 32
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84