Index: cTA216.mac.rou
===================================================================
diff -u -r734 -r3542
--- cTA216.mac.rou	(.../cTA216.mac.rou)	(revision 734)
+++ cTA216.mac.rou	(.../cTA216.mac.rou)	(revision 3542)
@@ -1,52 +1,53 @@
-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
\ No newline at end of file
+cTA216	;Analytische verwerking verkoopfactuur ;%T686 ; [ 06/26/01  10:39 AM ]
+	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,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
+	;
+	; 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,S4Z:$G(^(S2))[S1,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	; 06.08.01 - 17 u 28 * V7.87
+