cTN0091 ;Controle BH: registraties ;cTN009 ; [ 12/10/01 5:49 PM ] ; T1 ;B-index ;: verschil tussen registratie (;) en dagboek (; T2 ;Cumuls;Registraties; ; T1F ; ; T1E ; ; YZ Q ; ; REG(VBM,TBM) ; Controle BH van de registraties ; Input: VBM: Van boekingsmaand ; TBM: Tot boekingsmaand ; S $ZT="TRAP^cAN000" N @$$INIT^cTN009("VBM,TBM") ; ; Controle parameters REG1 F i="VBM","TBM" S @i=$TR($G(@i),".") I '$L(VBM) G REGZ ; ; Definities ophalen REG2 G:'$L(UREFDB) REGZ G:'$L(IREFDB) REGZ G:'$L(UREFREG) REGZ G:'$L(IREFREG) REGZ ; ; Controle cumul-global opzetten REG3 W !,!,$P($T(@("T2")),U,2),! S CUMGL=$$CUMO(VBM,TBM) ; ; Registraties doorlopen REG4 W !,!,$P($T(@("T2")),U,3),! S BM=VBM,REG="" W $E(BM,1,4)_"."_$E(BM,5,6)_" " G REG41 REG40 S BM=$O(@IREFREG@("M18",$$Q^cAFA10,BM)) S REG="" G:'$L(BM) REGY I $L(TBM) I BM>TBM G REGY W $E(BM,1,4)_"."_$E(BM,5,6)_" " REG41 S REG=$O(@IREFREG@("M18",$$Q^cAFA10,BM,REG)) I '$L(REG) G REG40 ; S UI1=$P(^(REG),D) I $L(TBM),BM>TBM G REG43 F i=0:1:1 S NREG(i+1)=$G(@UREFREG@(i)) ; ; Cumuls afpunten REG43 D CUMA(.NREG,CUMGL) ; ; Links REG44 S R=$$LINK^cTN0090(4,$P(NREG(1),D,2),1) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Journaal S R=$$LINK^cTN0090(6,$P(NREG(1),D,3),1) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Document S R=$$LINK^cTN0090(1,$P(NREG(1),D,8),1) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Grootboekrekening S R=$$LINK^cTN0090(7,$P(NREG(1),D,9)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Analytische rekening S R=$$LINK^cTN0090(8,$P(NREG(1),D,10)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; EC1-rekening S R=$$LINK^cTN0090(9,$P(NREG(1),D,11)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; EC2-rekening S R=$$LINK^cTN0090(10,$P(NREG(1),D,12)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; EC3-rekening S R=$$LINK^cTN0090(2,$P(NREG(1),D,13)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Klant S R=$$LINK^cTN0090(3,$P(NREG(1),D,14)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Leverancier S R=$$LINK^cTN0090(6,$P(NREG(1),D,22)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Afgeboekt document S R=$$LINK^cTN0090(6,$P(NREG(1),D,23)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; Opgezet voorschot ; IAS (enkel indien firma IAS ondersteunt) -------------- I '$$IAS^cTN001(Q) G REG45 S R=$$LINK^cTN0090(11,$P(NREG(1),D,24)) I 'R D ERR^cTN009("1B","",UI1,"",$P(R,D,2)) ; IAS-rekening ; ------------------------------------------------------- ; ; Gemeenschappelijke velden document/registratie afchecken REG45 D BIND(UI1,.NREG) ; G REG41 ; REGY ; REGZ Q ; BIND(UI1REG,NREG) ; Checkt de gemeenschappelijke B-indexen tussen registratie en document ; Input: UI1REG: UI1 registratie ; NREG: Nodes van de registratie (optioneel) ; Doorgeven als referentie! ; S $ZT="TRAP^cAN000" N @$$INIT^cTN009("UI1REG,NREG") ; ; Controle parameters BIND1 I '$L($G(UI1REG)) G BINDZ ; ; Definities BIND2 I '$L($G(UREFDB)) G BINDZ I '$L($G(UREFREG)) G BINDZ I '$L(NREG(1)) S UI1=UIREG1,NREG(1)=$G(@UREFREG@(0)) ; ; B-indexen vergelijken BIND3 S UI1=$P(NREG(1),D,3) I '$L(UI1) G BINDZ S DBN=$G(@UREFDB@(0)) I '$L(DBN) G BINDZ F i=1,2,5,6,"36\7" D . S j=$P(i,D,2) S:'$L(j) j=i S i=$P(i,D) . I $P(NREG(1),D,i)=$P(DBN,D,j) Q . S ERR=$P($T(@("T1")),U,2)_(i+100)_$S(i=j:"",1:"\"_(j+100))_$P($T(@("T1")),U,3)_$P(NREG(1),D,i)_$P($T(@("T1")),U,4)_$P(DBN,D,j)_")" . D ERR^cTN009("1B","",UI1REG,"",ERR) ; BINDZ Q ; CUMA(NREG,CUMGL) ; Afpunten cumul-global ; Input: NREG: Nodes van de registratie ; Doorgeven als referentie! ; CUMGL: Controle cumul-global die moet worden afgepunt S $ZT="TRAP^cAN000" N @$$INIT^cTN009("NREG,CUMGL") ; ; Controle parameters CUMA1 I '$L($G(CUMGL)) G CUMAZ I '$L($G(NREG(1))) G CUMAZ ; ; Type bepalen CUMA2 S BM=$TR($P(NREG(1),D,5),"."),TREG=$P(NREG(1),D) S (DEB,DEBMNT)=$P(NREG(1),D,15) ; Debet in munt boekhouding S (CRE,CREMNT)=$P(NREG(1),D,16) ; Credit in munt boekhouding I $$SIG^cAFA1("AR.A",$P(NREG(1),D,8),113)'="1" G CUMA3 ; Geen financiële rekening S DEBMNT=$P(NREG(1),D,17) ; Debet in munt rekening S CREMNT=$P(NREG(1),D,18) ; Credit in munt rekening ; CUMA3 S TYPES="AR.A#8\ARA.A#9\KL.A#13\LE.A#14\EC1.A#10\EC2.A#11\EC3.A#12" CUMA31 S TYPE=$P($P(TYPES,D),"#"),BIN=$P($P(TYPES,D),"#",2) S TYPES=$P(TYPES,D,2,99) I '$L(TYPE) G CUMA4 I (TREG="AD")!(TREG="ID") I TYPE="AR.A" G CUMA39 ; Cumuls grootboekrek. niet aanpassen bij anal./IAS diverse verr. ; ; Afpunten enkelvoudige cumuls CUMA33 S UI1TYPE=$P(NREG(1),D,BIN) I '$L(UI1TYPE) G CUMA39 S $P(@CUMGL@(TYPE,UI1TYPE,BM,0),D)=$P($G(@CUMGL@(TYPE,UI1TYPE,BM,0)),D)-DEB ; Debet in munt boekhouding S $P(@CUMGL@(TYPE,UI1TYPE,BM,0),D,2)=$P($G(@CUMGL@(TYPE,UI1TYPE,BM,0)),D,2)-CRE ; Credit in munt boekhouding I +$P(@CUMGL@(TYPE,UI1TYPE,BM,0),D)'=0 G CUMA34 I +$P(@CUMGL@(TYPE,UI1TYPE,BM,0),D,2)'=0 G CUMA34 K @CUMGL@(TYPE,UI1TYPE,BM,0) ; Node verwijderen CUMA34 I TYPE'="AR.A" G CUMA39 CUMA35 S $P(@CUMGL@(TYPE,UI1TYPE,BM,1),D)=$P($G(@CUMGL@(TYPE,UI1TYPE,BM,1)),D)-DEBMNT ; Debet in munt rekening S $P(@CUMGL@(TYPE,UI1TYPE,BM,1),D,2)=$P($G(@CUMGL@(TYPE,UI1TYPE,BM,1)),D,2)-CREMNT ; Credit in munt rekening I +$P(@CUMGL@(TYPE,UI1TYPE,BM,1),D)'=0 G CUMA39 I +$P(@CUMGL@(TYPE,UI1TYPE,BM,1),D,2)'=0 G CUMA39 K @CUMGL@(TYPE,UI1TYPE,BM,1) ; Node verwijderen CUMA39 G CUMA31 ; ; Afpunten samengestelde cumuls CUMA4 I '$$PAR^cTN001(Q,501) G CUMAZ ; Geen analytische BH S STJR=$$PAR^cTN001(Q,515),STMT="" I $L(STJR) S STMT=$TR($$BM^cTN003(Q,STJR),".") I $L(STMT),(BMTBM G CUMO2 S @CUMGL@(TYPE,$P(UI1," ",3),$P(UI1," ",2),0)=$P(@CUMREF@(0),D,11,12) I TYPE'="AR.A" G CUMO29 S @CUMGL@(TYPE,$P(UI1," ",3),$P(UI1," ",2),1)=$P(@CUMREF@(0),D,13,14) CUMO29 G CUMO22 ; ; Samengestelde cumuls opzetten CUMO3 W "AR.A\AR.A(\IAS) " I '$$PAR^cTN001(Q,501) G CUMOZ CUMO31 S CUMREF=$P($$REF^cAFA10(.Q,"CUM"),D) I '$L(CUMREF) G CUMOZ S STJR=$$PAR^cTN001(Q,515),STMT="" I $L(STJR) S STMT=$TR($$BM^cTN003(Q,STJR),".") I $L(STMT),(VBMTBM G CUMOZ F i=4:1:6 S @("I"_i)=$S($L($P(UI1," ",i)):$P(UI1," ",i),1:" ") S @CUMGL@("CUM",$P(UI1," ",3),$P(UI1," ",2),I4,I5,I6,0)=$P(@CUMREF@(0),D,11,12) CUMO39 G CUMO32 ; CUMOZ Q CUMGL ; ZZ ; 29.08.07 - 10 u 22 * V8.09