cTN9401 ; Analytisch/segment divers : Conversie oude structuur dagboek naar nieuwe structuur ; cTN9401 ; YZ Q ; CONV(Q,BM) ; Eénmalige conversie\setup voor analytisch\segment diverse verrichtingen ; Input: Q: Vennootschap (als ref. doorgeven : .Q) ; BM: Maand vanaf de documenten worden geconverteerd ; S $ZT="TRAP^cAN000" ; W !,!,"*** Journalen opzetten ***" D JRN^cTN999(.Q,"E") ; W !,!,"*** Analytisch divers dagboek converteren ***" D DBFI(.Q,$G(BM),,0) ; W !,!,"*** Segment divers dagboek converteren ***" D DBFI(.Q,$G(BM),,1) ; W !,!,"*** Samengestelde beginsaldi opzetten ***" I '$L($G(BM)) S BM=$$DEFBM^cTN9301(Q) S JR=$$BJ^cAFE1(Q,BM) D BS(JR,1) ; CONVZ Q ; DBFI(Q,VBM,TBM,TYPE) ; Eénmalige conversie van het analytisch\segment divers dagboek ; Input: Q: Vennootschap (als ref. doorgeven : .Q) ; VBM: Van boekingsmaand van de conversie ; TBM: Tot boekingsmaand (indien ""= tot het einde) ; TYPE: Type divers dagboek ; "" of 0: analytisch divers (FIE) ; 1: segment divers (FII) ; N I1,I2,OK,ERR,CERR S $ZT="TRAP^cAN000" ; ; Controle parameters DBFI1 S TYPE=+$G(TYPE) I '$L($G(VBM)) S VBM=$$DEFBM^cTN9301(Q) I '$L(VBM) G DBFIZ ; ; Dagboek doorlopen DBFI2 D ^cT489 W !,"------- "_Q_" -------",! S I1=VBM-.01,S="#",CERR=0 I '$L($G(TBM)) S TBM=J3 DBFI23 S I1=$E($J(I1+.01,0,2)_0,1,7) S:I1#1>.12 I1=I1+.88 I I1>TBM G DBFI29 W I1_" " S I2="" DBFI24 S I2=$O(@("^"_Q_$S(TYPE=0:"FIE",1:"FII")_"(I1,I2)")) G DBFI23:I2="" S I3="" DBFI25 S I3=$O(@("^"_Q_$S(TYPE=0:"FIE",1:"FII")_"(I1,I2,I3)")) G DBFI24:I3="" S OK=$$FI2DBH^cTN9301(Q,I1,I2,I3,1,TYPE+2) S:'OK ERR(I1,I2,I3)=$P(OK,D,2) S:'OK CERR=CERR+1 G DBFI25 DBFI29 W !,"-------------------" I CERR W !,"OPGELET: ",CERR," fout(en):",! ZW ERR W "-------------------" ; DBFIZ Q ; BS(VBJ,SWC) ; Opzetten beginsaldi combinatie grootboekrek./analytische rek.(/IAS-rek.) ; Input: VBJ: Van boekingsjaar ; SWC: Switch conversie ; 1: Eénmalige conversie ; S $ZT="TRAP^cAN000" N @$$INIT^cTN009("VBJ,SWC") ; ; ; Controle parameters BS1 F i="VBJ","SWC" S @i=$G(@i) I '$L(VBJ) G BSZ ; ; Definities BS2 D Q1^cAFA10("AR.A") S CUREF=$P($$REF^cAFA10(.Q,"CUM"),D) S BSUREF=$P($$REF^cAFA10(.Q,"BEG"),D) S BSARUREF=$P($$REF^cAFA10(.Q,"BEG.AR"),D) S OUREF=$P($$REF^cAFA10(.Q,"CUM.AR.ARA"),D) S ARIREF=$P($$REF^cAFA10(.Q,"AR.A",101),D,3) G:'$L(CUREF) BSY G:'$L(BSUREF) BSY ; ; Laatst afgesloten boekjaar BS25 S BJ=$$SIG^cAFA1("Q",Q,209) I '$L(BJ) S BJ=VBJ S STJ=$P($G(^DPAR(Q,"PAR","DBH",0)),D) ; Startjaar "CUM.AR.ARA" S STJR=$$SIG^cAFA1("Q",Q,515) I $L(STJR),(VBJ(BJ+1) G BSY W !,JR K BS S BMT=$TR($$BM^cTN003(.Q,JR-1),".",""),EMT=$TR($$BM^cTN003(.Q,JR-1,1),".","") ; Indien éénmalige conversie, en de begin en eindmaand zijn niet gekend in de nieuwe ; boekhouding (dit kan het geval zijn voor het allereerste BS te berekenen) dan moeten ; de definities van de "oude" boekhouding opgehaald worden. I ('BMT!'EMT),SWC D IBJ^cT00A(Q,JR-1,"KM1","KM2") S BMT=$G(KM1(JR-1)),EMT=$G(KM2(JR-1)) I ('BMT!'EMT) G BSY ; Indeling boekjaar niet gekend S UI1=$$Q^cAFA10_" "_BMT ; ; Indien ^DBH(Q,"CUM.AR.ARA" opstaat (vanaf startjaar): ; deze bedragen overnemen (kan herverdeeld zijn) BS32 I '$L(STJ)!(JREMT G BS35 ; Ander boekjaar S AR=$P(N,D,3)_" ",ARA=$P(N,D,4)_" ",IAS=$P(N,D,5)_" " S BS(AR,ARA,IAS)=$G(BS(AR,ARA,IAS))+$P(N,D,11)-$P(N,D,12) G BS33 ; ; Beginsaldo voorgaand jaar BS35 S UI1=$$Q^cAFA10_" "_(JR-1) BS37 S UI1=$O(@BSUREF) G:'$L(UI1) BS39 S N=^(UI1,0) I $P(UI1," ")'=$$Q^cAFA10 G BS39 ; Andere firma I $P(UI1," ",2)'=(JR-1) G BS39 ; Ander boekjaar S AR=$P(N,D,3)_" ",ARA=$P(N,D,4)_" ",IAS=$P(N,D,5)_" " S BS(AR,ARA,IAS)=$G(BS(AR,ARA,IAS))+$P(N,D,6) G BS37 ; ; Beginsaldo via saldo grootboekrekening zelfde jaar BS39 I '$G(SWC)!($D(BS))!('$L(BSARUREF)) G BS5 S UI1=$$Q^cAFA10_" "_JR BS41 S UI1=$O(@BSARUREF) G:'$L(UI1) BS5 S N=^(UI1,0) I $P(UI1," ")'=$$Q^cAFA10 G BS5 ; Andere firma I $P(UI1," ",2)'=(JR) G BS5 ; Ander boekjaar S AR=$P(N,D,2)_" ",ARA=" ",IAS=" " S BS(AR,ARA,IAS)=$G(BS(AR,ARA,IAS))+$P(N,D,3) G BS41 ; ; Bestaand BS verwijderen (indien jaar 2x afgesloten) BS5 S (UI1,OUI1)=$$Q^cAFA10_" "_JR F S UI1=$O(@BSUREF) Q:$P(UI1," ",1,2)'=OUI1 D X^cAN220("BEG","",UI1) ; ; Beginsaldo opzetten BS53 S AR="" BS54 S AR=$O(BS(AR)),ARA="" I '$L(AR) G BS6 I $$VW^cTN004($P(AR," ")) G BS54 ; Beginsaldo van V\W-rekeningen worden niet opgezet (=0) BS55 S ARA=$O(BS(AR,ARA)),IAS="" I '$L(ARA) G BS54 BS56 S IAS=$O(BS(AR,ARA,IAS)) I '$L(IAS) G BS55 K N I +BS(AR,ARA,IAS)=0 G BS59 ; 0-waarden worden niet opgezet S $P(N(1),D)=JR ; Boekjaar S $P(N(1),D,3)=$P(AR," ") ; Grootboekrekening S $P(N(1),D,4)=$P(ARA," ") ; Analytische rekening S $P(N(1),D,5)=$P(IAS," ") ; IAS-rekening S $P(N(1),D,6)=BS(AR,ARA,IAS) ; Beginsaldo S $P(N(1),D,49)=$$Q^cAFA10 ; Vennootschap ; S UI1=$P(N(1),D,49)_" "_$P(N(1),D)_" "_$P(N(1),D,3)_" "_$P(N(1),D,4)_" "_$P(N(1),D,5) D P^cAN220("BEG","",UI1,"N","") W $S($L(K):"-",1:".") ; BS59 G BS56 ; ; Eventueel verschil (bij wijziging van beginsaldo rekening) bijpassen BS6 I '$L(ARIREF) G BS7 S I1="" BS61 S I1=$O(@ARIREF@(I1)),I2="" I '$L(I1) G BS7 BS62 S I2=$O(@ARIREF@(I1,I2)) I '$L(I2) G BS61 S AR=$P(^(I2),D) ; S SAL1=$$SALDO^cTN004(Q,AR,JR,"AR.A",3) ; Beginsaldo via CUM.AR S SAL2=$$SALDO^cTN004(Q,AR,JR,"C2",3) ; Beginsaldo via CUM S SAL=SAL1-SAL2 I SAL=0 G BS69 ; S $P(N(1),D)=JR ; Boekjaar S $P(N(1),D,3)=AR ; Grootboekrekening S $P(N(1),D,4)=DNARA ; Analytische rekening S $P(N(1),D,5)=DNIAS ; IAS-rekening S $P(N(1),D,6)=SAL ; Beginsaldo S $P(N(1),D,49)=$$Q^cAFA10 ; Vennootschap S UI1=$P(N(1),D,49)_" "_$P(N(1),D)_" "_$P(N(1),D,3)_" "_$P(N(1),D,4)_" "_$P(N(1),D,5) ; ; Openen BS65 I $D(@BSUREF) G BS67 D P^cAN220("BEG","",UI1,"N","") W $S($L(K):"-",1:"+") G BS69 ; ; Wijzigen BS67 S BSSAL=$P(@BSUREF@(0),D,6),BSSAL=BSSAL+SAL D W^cAN220("BEG","",UI1,106,SAL) W $S($L(K):"-",1:"+") ; BS69 G BS62 ; BS7 G BS31 ; ; Q(49) terugzetten BSY D Q2^cAFA10 ; BSZ Q ; ZZ ; 29.08.07 - 10 u 22 * V8.09