cTN1320 ;Boekingsreeksen; cTN1320 ; T1 ; T2 ;Journaal ;Boekingsmaand ;Periode ;Boekingsdatum ;ontbreekt; T3 ;Boekingsreeks niet in evenwicht; T4 ;AR.A#Grootboekrekening;ARA.A#Analytische rekening;BR#Boekingsreeks T5 ;De boekingsreeks is verwerkt.;De boekingsreeksen zijn verwerkt.; T6 ;De boekingsreeks kan niet verwerkt worden. ;De boekingsreeksen kunnen niet verwerkt worden. ; T7 ;Zie "Journaalpost" voor meer informatie. T8 ;Boekingsreeks ;, lijn ; T9 ;Geen divers journaal; T10 ;Divers journaal; ; T1F ; T2F ;Journal ;Mois comptable ;Période ;Date comptable ;manque; T3F ;Série d’écritures non équilibrée; T4F ;AR.A#Compte de grand-livre;ARA.A#Compte de grand-livre;BR#Série d'écritures T5F ;La série d’écitures a été traitée.;Les séries d’écitures ont été traitées.; T6F ;Impossible de traiter la série d’écitures. ;Impossible de traiter les séries d’écritures. ; T7F ;Veuillez consulter "Poste de journal" pour plus d’information. T8F ;Boekingsreeks ;,lijn ; T9F ;Geen divers journaal; T10F ;Divers journaal; ; T1E ; T2E ;Journal ;Boekingsmaand ;Period ;Book date ;is missing; T3E ;The booking sequence is not balanced; T4E ;AR.A#General Account;ARA.A#Analytical Account;BR#Booking Sequence T5E ;The booking sequence is processed.;The booking sequences are processed.; T6E ;The booking sequence can’t be processed. ;The booking sequences can’t be processed. ; T7E ;See “Journal Entry” for more information. T8E ;Boekingsreeks ;,lijn ; T9E ;Geen divers journaal; T10E ;Divers journaal; ; YZ Q ; JRNP(Q,KEUID,JRN,BM,BPE,BDAT,REF,OMS,PAR) ; Journaalpost aan de hand van boekingsreeks(en) ; Input: Q : Vennootschap ; KEUID: GridId van de ^mtemp99 met geselecteerde boekingsreeksen ; JRN : Default journaal (JRN) ; BM : Default boekingsmaand (BJJJ.MM) ; BPE : Default boekingsperiode (JJJJ.MM) ; BDAT : Default boekingsdatum ($H of DD.MM.JJ) ; REF : Default referte ; OMS : Default omschrijving ; PAR : Gescheiden door "\" ; 1. Doorboeken? ; 0: Enkel journaalpost opbouwen ; 1: Journaalpost opbouwen + doorboeken (indien geen fouten) ; ; Output: 0\Foutboodschap ; of ; 1\Boodschap\(GridId): GridId wordt doorgegeven indien "Enkel journaalpost opbouwen" ; S $ZT="^dmERROR" N @$$INITVAR^cAFVBA01("KEUID,JRN,BM,BPE,BDAT,REF,OMS,PAR") ; ; Controle parameters JRNP1 F i="KEUID","JRN","BM","BPE","BDAT","REF","OMS","PAR" S @i=$G(@i) S OK=1 I $$SELC^cAFVBA01(KEUID,1)<1 G JRNPZ I $L(BDAT) I BDAT'?2N1"."2N1"."2N S BDAT=$$HD^cAFD1(BDAT) ; ; Variabelen opzetten JRNP2 S BRREF=$P($$REF^cAFA10(Q,"BR"),D) I '$L(BRREF) G JRNPZ S BRDREF=$$REPL^cAFA10($P($$REF^cAFA10(Q,"BR.DET"),D),"UI1","DUI1") I '$L(BRDREF) G JRNPZ S GRIDIDJP=$$GRIDID^cAFVBF01(),MTEMPJP="^mtemp99(GRIDIDJP,""COMMON"")" K @MTEMPJP ; Mtemp journaalpost ; ; Boekingsreeksen locken JRNP25 S UI1="",L=0 JRNP251 S UI1=$O(^mtemp99(KEUID,"COMMON",UI1)) I '$L(UI1) G JRNP27 S DMS=$P($P($T(@("T4"_QT)),U,4),"#") S TXT=$P($P($T(@("T4"_QT)),U,4),"#",2)_" "_$$SIG^cAFA1(DMS,UI1,101) S OK=$$LOCK^cAFVBA01(.Q,DMS,UI1,1,TXT) I 'OK G JRNPY S L=L+1 S LOCK(L+1)=DMS_D_UI1 JRNP259 G JRNP251 ; ; Boekingsreeksen sorteren + defaults invullen JRNP27 S STAP2=$$STAP2(Q,"",KEUID,JRN,BM,BPE,BDAT,REF,OMS) I 'STAP2 S OK=STAP2 G JRNPY S GRIDID=$P(STAP2,D) ; ; Journaalpost opzetten JRNP3 S UI1="",VNR=0 JRNP31 S UI1=$O(^mtemp99(GRIDID,"BR",UI1)) I '$L(UI1) G JRNP4 S BRH=^(UI1,0),VNR=VNR+1 I '$L(BRH)!($P(BRH,D,30)=2) G JRNP31 S UI1BR=$P(UI1," ",$L(UI1," ")) ; ; Detail JRNP32 S DUI1=UI1BR_" " JRNP33 S DUI1=$O(@BRDREF) I $P(DUI1," ")'=UI1BR G JRNP39 S BRD=$G(^(DUI1,0)) I '$L(BRD)!($P(BRD,D,30)=2) G JRNP33 S N="" S $P(N,D)=$P(BRD,D) ; 1. Boekingsreeks S $P(N,D,2)=$P(BRD,D,8) ; 2. Grootboekrekening S $P(N,D,3)=$P(BRD,D,9) ; 3. Analytische rekening S $P(N,D,4)=$P(BRH,D,5) ; 4. Boekingsmaand S $P(N,D,5)=$P(BRH,D,6) ; 5. Periode S $P(N,D,6)=$P(BRH,D,7) ; 6. Boekingsdatum S $P(N,D,7)=$P(BRH,D,4) ; 7. Journaal S $P(N,D,8)=$P(BRD,D,15) ; 8. Debet S $P(N,D,9)=$P(BRD,D,16) ; 9. Credit I (+$P(N,D,8)=0),(+$P(N,D,9)=0) G JRNP37 ; Lijnen zonder bedragen worden genegeerd S $P(N,D,10)=$P(BRD,D,34) ; 10. Referte lijn S:'$L($P(N,D,10)) $P(N,D,10)=$P(BRH,D,8) ; -> Referte uittreksel S $P(N,D,11)=$P(BRD,D,19) ; 11. Omschrijving lijn S:'$L($P(N,D,11)) $P(N,D,11)=$P(BRH,D,9) ; -> Omschrijving uittreksel S $P(N,D,12)=$P(BRH,D,8) ; 12. Referte uittreksel S $P(N,D,13)=$P(BRH,D,9) ; 13. Omschrijving uittreksel ; UI1 journaalpost = (gescheiden door " ") ; 1. Volgnummer boekingsreeks ; 2. Volgnummer boekingslijn (+10E4, omwille van numerische sortering) ; 3. UI1 boekingslijn S UI1JP=VNR_" "_($P(BRD,D,3)+10E4)_" "_DUI1 S @MTEMPJP@(UI1JP,0)=N ; JRNP37 G JRNP33 JRNP39 G JRNP31 ; ; Controles JRNP4 S OK=$$CNTRL(GRIDIDJP) I '$P(PAR,D) S OK=1_D_D_GRIDID ; Indien enkel journaalpost tonen ; ; Doorboeken? JRNP5 I '$P(PAR,D)!'OK G JRNPY S OK=$$BOEK(GRIDIDJP) ; ; Opkuis + output JRNPY I $P(PAR,D) K @MTEMPJP ; Mtemp99 met journaalpost verwijderen I $G(GRIDID) K ^mtemp99(GRIDID) ; Mtemp99 uit STAP2 verwijderden D UNLOCK^cTN1012(.LOCK) ; JRNPZ Q OK ; ; BOEK(GRIDID) ; Journaalpost doorboeken ; Input: GRIDID: GridId van journaalpost-mtemp99 ; Output: 0\Foutboodschap: Boeking is niet gelukt ; 1\Boodschap: Boeking is gelukt S $ZT="TRAP^cAN000" N @$$INITVAR^cAFVBA01("GRIDID") ; D Q1^cAFA10("BR") ; ; Controle parameters BOEK1 S OK=1 I '$L($G(GRIDID)) G BOEKZ S MTEMPJP="^mtemp99(GRIDID,""COMMON"")" S BKID=$$GRIDID^cAFVBF01() S MTEMPH="^mtemp99(BKID,""DB"")" K @MTEMPH ; Mtemp boeking: hoofding S MTEMPD="^mtemp99(BKID,""REG"")" K @MTEMPD ; Mtemp boeking: detail ; ; Locken van alle rekeningen BOEK2 S (TUI1,L)="" BOEK21 S TUI1=$O(@MTEMPJP@(TUI1)) I '$L(TUI1) G BOEK3 S N0=$G(^(TUI1,0)),i=1 BOEK23 S i=i+1 I i>3 G BOEK27 S UI1=$P(N0,D,i) I '$L(UI1) G BOEK25 S DMS=$P($P($T(@("T4"_QT)),U,i),"#") S TXT=$P($P($T(@("T4"_QT)),U,i),"#",2)_" "_$$SIG^cAFA1(DMS,UI1,101) S OK=$$LOCK^cAFVBA01(.Q,DMS,UI1,1,TXT) I 'OK G BOEKY S L=L+1 S LOCK(L)=DMS_D_UI1 BOEK25 G BOEK23 ; Boekingsreeks (volgnummer) bijhouden BOEK27 I $D(BREEKS($P(TUI1," "))) G BOEK29 I $$PAR^cTN001(Q,201)=1 D I 'OK G BOEKY . N Q93,DCDAT,RB,SRT,CD,JRN . D Q93($P(TUI1," ",3),$P(N0,D,7),$P(N0,D,6)) . S TXT=$P($T(@("T10"_QT)),U,2) . S OK=$$PLUS^cANLOCK(Q93,"",TXT,0,2) I 'OK Q . S L=L+1 S LOCK(L)=""_D_""_D_Q93 S BREEKS($P(TUI1," "))=$P(TUI1," ",3) BOEK29 G BOEK21 ; ; Hoofding en detail opzetten BOEK3 S (BR,TEL)="" BOEK31 S BR=$O(BREEKS(BR)) I '$L(BR) G BOEKY S TUI1=BR_" ",HD="",TEL=TEL+1,BRUI1=BREEKS(BR) BOEK32 S TUI1=$O(@MTEMPJP@(TUI1)) I $P(TUI1," ")'=BR G BOEK38 S N0=$G(^(TUI1,0)) ; ; Hoofding BOEK33 I $L(HD) G BOEK35 ; Reeds opgezet S $P(HD,D)="D" ; 1. Registratietype S $P(HD,D,2)=$P(N0,D,7) ; 2. Journaalnummer BOEK335 S $P(HD,D,3)=$$FNR^cTN002(.Q,$P(HD,D,2),($P(N0,D,4)\1),""_D_1) ; 3. Documentnummer ; Bestaat dit uitreksel al? ; Uittreksel is een groepering per: ; - Firma ; - Type dagboek ; - Journaal ; - Documentnummer ; - Boekingsmaand I $L($$UI1OP^cAFA1("DB","M6","",$$Q^cAFA10(),$P(HD,D),$P(HD,D,2),$P(HD,D,3),$P(N0,D,4))) G BOEK335 ; --------------------------------- S $P(HD,D,5)=$P(N0,D,4) ; 5. Boekingsmaand S $P(HD,D,6)=$P(N0,D,5) ; 6. Boekingsperiode S $P(HD,D,7)=$P(N0,D,6) ; 7. Documentdatum S $P(HD,D,12)=$P(N0,D,12) ; 12. Referte S $P(HD,D,13)=$P(N0,D,13) ; 13. Omschrijving S $P(HD,D,14)=$$PAR^cTN001(Q,202) ; 14. Muntcode document (= munt BH) S $P(HD,D,15)=$$SIG^cAFA1("CODE.9009",$P(HD,D,14),104) ; 15. Pariteit S $P(HD,D,22)=0 ; 22. Openstaand S $P(HD,D,30)=0 ; 30. Operationeel S $P(HD,D,31)=$T(+0) ; 31. Naam programma S @MTEMPH@($P(TUI1," ",1,2),0)=HD ; ; Detail BOEK35 S DET="" S $P(DET,D,7)="G" ; 7. Soort grootboekrekening S $P(DET,D,8)=$P(N0,D,2) ; 8. Grootboekrekening S $P(DET,D,9)=$P(N0,D,3) ; 9. Analytische rekening S $P(DET,D,15)=$P(N0,D,8) ; 15. Bedrag debet in munt BH S $P(DET,D,16)=$P(N0,D,9) ; 16. Bedrag credit in munt BH S $P(DET,D,17)=$P(N0,D,8) ; 17. Bedrag debet in munt document S $P(DET,D,18)=$P(N0,D,9) ; 18. Bedrag credit in munt document S $P(DET,D,19)=$P(N0,D,11) ; 19. Omschrijving S $P(DET,D,30)=0 ; 30. Niveau S $P(DET,D,31)=$T(+0)_"," ; 31. Naam programma S $P(DET,D,32)=1 ; 32. Manuele registraties S $P(DET,D,34)=$P(N0,D,10) ; 34. Referte S $P(DET,D,37)=$P(N0,D) ; 37. Boekingsreeks S @MTEMPD@(TUI1,0)=DET ; BOEK37 G BOEK32 ; ; Boeken (oude & nieuwe BH) BOEK38 S OK=$$DB^cTN101(BKID) I OK D BOEKFI(BKID,BRUI1,$P(OK,D,4),$P(OK,D,3)) K @MTEMPH,@MTEMPD I 'OK G BOEKY ; ; Boekingsreeks verwijderen? I $$SIG^cAFA1("BR",BRUI1,103) D V^cAN220("BR","",BRUI1) ; BOEK39 G BOEK31 ; ; Unlocken + opkuis BOEKY D UNLOCK^cTN1012(.LOCK) I OK S OK=1_D_$P($T(@("T5"_QT)),U,2+($G(TEL)'=1)) ; Boekingsreeksen zijn verwerkt ; BOEKZ D Q2^cAFA10 Q OK ; BOEKFI(GRIDID,BR,NUM,UI1DB) ; Doorboeken in "oude" BH ; Input: GRIDID: GridId van uittreksel in ^DBH ; BR: Boekingsreeks ; NUM: Nummer uittreksel ; UI1DB: UI1 dagboek N @$$INITVAR^cAFVBA01("GRIDID,BR,NUM,UI1DB") S $ZT="TRAP^cAN000" ; ; Oude BH gelijkhouden? I $$PAR^cTN001(Q,201)'=1 G BOEKFIZ ; BOEKFI1 D DMS^cAN000("UQC","USC","FID.J") S (UI1FID,UI1)=$$NR^cAN000 S MTEMPH="^mtemp99(GRIDID,""DB"",HUI1)" ; Mtemp boeking: hoofding S MTEMPD="^mtemp99(GRIDID,""REG"",DUI1)" ; Mtemp boeking: detail S HUI1="",HUI1=$O(@MTEMPH),DUI1="",LYN=999 ; ; Opzetten hoofding BOEKFI2 S HD(1)="" S $P(HD(1),D)=UI1FID ; 1. Intern nummer S $P(HD(1),D,2)=$$SIG^cAFA1("BR",$G(BR),102) ; 2. Omschrijving S JRNUI1=$P(@MTEMPH@(0),D,2) S JRN=$$SIG^cAFA1("JRN",JRNUI1,103) I JRN=0 S JRN="" S $P(HD(1),D,3)=JRN ; 3. Journaal S $P(HD(1),D,4)=$P(@MTEMPH@(0),D,5) ; 4. Boekingsmaand S $P(HD(1),D,5)=$P(@MTEMPH@(0),D,6) ; 5. Periode S $P(HD(1),D,6)=$P(@MTEMPH@(0),D,12) ; 6. Referte S $P(HD(1),D,7)=$P(@MTEMPH@(0),D,13) ; 7. Omschrijving S $P(HD(1),D,8)=QU ; 8. Intialen S $P(HD(1),D,9)=DT ; 9. Datum creatie S $P(HD(1),D,11)=$P(@MTEMPH@(0),D,7) ; 11. Boekingsdatum D P^cAN220("FID.J",0,UI1,"HD","") I $L(K) X "STOP" ; ; Opzetten detaillijnen BOEKFI3 S DUI1=$O(@MTEMPD) I '$L(DUI1) G BOEKFI5 S N=@MTEMPD@(0),DET(1)="",LYN=LYN+1,UI1DET=UI1FID_" "_LYN S $P(DET(1),D)=$$SIG^cAFA1("AR.A",$P(N,D,8),150) ; 1. Grootboekrekening S BEDR=$P(N,D,15) I +$P(N,D,16) S BEDR=$P(N,D,16)_"-" S $P(DET(1),D,2)=BEDR ; 2. Bedrag S $P(DET(1),D,4)=$$SIG^cAFA1("ARA.A",$P(N,D,9),150) ; 4. Analytische rekening S $P(DET(1),D,6)=$P(N,D,34) ; 6. Referte S $P(DET(1),D,7)=$P(N,D,19) ; 7. Omschrijving S $P(DET(1),D,11)=UI1FID ; 11. UI1 FID.J S $P(DET(1),D,12)=LYN ; 12. Volgnummer D P^cAN220("FID.J.DET",0,UI1DET,"DET",0) I $L(K) X "STOP" BOEKFI4 G BOEKFI3 ; ; Boekingsreeks verwerken BOEKFI5 S VOLG=UI1FID ;S DCDAT=$$DC^cAFD1($P(HD(1),D,11)) ;S Q41="^"_Q_"AR(BR,0)",Q93="^"_Q_"BA(4,RB,"_DCDAT_")",Q95="^"_Q_"FI(BP,RB,BNR)" S Q41="^"_Q_"AR(BR,0)",Q95="^"_Q_"FI(BP,RB,BNR)" D Q93(BR,JRNUI1,$P(HD(1),D,11)) S BNR=NUM,BP=$P(HD(1),D,4),BJ=$$BJ^cTN003(Q,BP),BPE=$P(HD(1),D,5),DAT=$P(HD(1),D,11) S BPEC="YZ^"_$T(+0),SWAN=$G(@("^"_Q_"BA(300)")) S BENTER=1,OKBP=$$OKBP^cT866(BP) S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2),HBF=BF,HQD=QD,PAR=1,SWMU="" ; Munt S (REF,REF1)=$P(HD(1),D,6),OM1=$P(HD(1),D,7) ; Omschrijving/referte ;S RB="D" S:JRN RB=RB_JRN S SRT=JRN S CD=$$JRN^cAFO2("D",SRT) ; Journaal ;S @Q93=$G(@Q93,DCDAT_"0001"),STBNR=@Q93 S (HUX,UX,HUXB)=0,HUXV=1 S (F,F1)="""""" ; Print-variabelen S SWVB=1 ; Opgeroepen vanuit VB S SWN2O=1 ; Opzetten om oude boekingsreeks niet meer te laten doorschrijven naar ^DBH ; ; Transactie -------------------------------------------------------- S R="TRANSACT" D ^cA348 ; Begin transactie S ^(TRANSACT,0)=$T(+0)_D_Q_D_"F"_D_JRN_D_NUM_D_BJ_D_BP_D_BPE_D_DAT_D_DT_D_RB_D L +@Q93 S STBNR=@Q93 D ^cT865 ; Verwerking S @("^"_Q_"BA(4,RB,BP\1)")=NUM ; Nummer ophogen L -@Q93 S R="TRANSACT" D S1^cA348 ; Einde transactie ; ------------------------------------------------------------------- ; ; Nieuwe BH linken met "oude" BH BOEKFI6 I '$L($G(UI1DB)) G BOEKFIZ ; Tabel met linken opzetten S BNR=STBNR-.01 K TAB BOEKFI7 S BNR=$O(@Q95) I '$L(BNR) G BOEKFI9 S N=$G(^(BNR)) I $P(N,D,3)'=NUM G BOEKFI7 S TAB(BNR)="" BOEKFI8 G BOEKFI7 ; Linken wegschrijven BOEKFI9 S REF=$$REF^cAFA10(.Q,"REG"),IREF=$P(REF,D,3),UREF=$P(REF,D) I '$L(REF) G BOEKFIZ S UI1DB=$P($$DI^cAN000(UI1DB,"")," "),BNR="" S I1="" F S I1=$O(@IREF@("M1",$$Q^cAFA10(),"D",UI1DB,I1)) Q:'$L(I1) D . S UI1=$P(^(I1),D),REG=@UREF@(0),BNR=$O(TAB(BNR)) . S $P(@UREF@(0),D,35)=BNR ; BOEKFIZ Q ; ; ; ******************************************************************************* ; H U L P - F U N C T I E S ; ******************************************************************************* ; ERR(DUI1,SW,ERR) ; Error opzetten (OK en ERRID niet newen) ; Input: DUI1: UI1 detaillijn ; SW: "" of 0: fout op detaillijn-niveau ; >=1: fout op hoofding-niveau ; ERR: Fout N MTEMPERR,BRNR,LNR,ERRM,ERRUI1 ;S $P(@MTEMPJP@(DUI1,0),D,15)=ERR,OK=0 S MTEMPERR="^mtemp99(ERRID,""COMMON"")" ,OK=0 I '$L($G(ERRID)) S ERRID=$$GRIDID^cAFVBF01() K @MTEMPERR w !,ERRID ; Mtemp met errors S BRNR=$$SIG^cAFA1("BR",$P(DUI1," "),101),LNR=$$SIG^cAFA1("BR.DET",DUI1,103) S ERRM=$P($T(@("T8"_QT)),U,2)_BRNR_$S('SW:$P($T(@("T8"_QT)),U,3)_LNR_": ",1:": ")_ERR S ERRUI1=$S('SW:DUI1,1:$P(DUI1," ")_" ")_SW S @MTEMPERR@(ERRUI1,0)=ERRM ; ERRZ Q ; CNTRL(GRIDID) ; Journaalpost controleren ; Input: GRIDID: GridId van journaalpost-mtemp99 ; Output: 0\Foutboodschap (er is minstens één fout) ; 1: OK S $ZT="TRAP^cAN000" N @$$INITVAR^cAFVBA01("GRIDID") ; CNTRL2 S TUI1="",OK=1,MTEMPJP="^mtemp99(GRIDID,""COMMON"")",(MS,BR)="" CNTRL21 S TUI1=$O(@MTEMPJP@(TUI1)) I '$L(TUI1) G CNTRLY S N=^(TUI1,0) S:'$L(BR) VNR=$P(TUI1," ") I VNR'=$P(TUI1," ") S MS=1 S DETUI1=$P(TUI1," ",3,4) ; ; Grootboekrekening CNTRL22 S R=$$CHKAR^cTN003($P(N,D,2)) I 'R D ERR(DETUI1,"",$P(R,D,2)) G CNTRL29 ; ; Analytische rekening CNTRL23 S R=$$CHKARA^cTN003($P(N,D,3),$P(N,D,2)) I 'R D ERR(DETUI1,"",$P(R,D,2)) G CNTRL29 ; ; Boekingsmaand CNTRL24 I '$L($P(N,D,4)) D ERR(DETUI1,1,$P($T(@("T2"_QT)),U,3)_$P($T(@("T2"_QT)),U,6)) G CNTRL29 S R=$$CTRL^cTN003(Q,$P(N,D,4),"") I 'R D ERR(DETUI1,1,$P(R,D,2)) G CNTRL29 ; ; Periode CNTRL25 I '$$PER^cTN001(Q) G CNTRL26 I '$L($P(N,D,5)) D ERR(DETUI1,2,$P($T(@("T2"_QT)),U,4)_$P($T(@("T2"_QT)),U,6)) G CNTRL29 ; ; Boekingsdatum CNTRL26 I '$L($P(N,D,6)) D ERR(DETUI1,3,$P($T(@("T2"_QT)),U,5)_$P($T(@("T2"_QT)),U,6)) G CNTRL29 ; ; Journaal CNTRL27 I '$L($P(N,D,7)) D ERR(DETUI1,4,$P($T(@("T2"_QT)),U,2)_$P($T(@("T2"_QT)),U,6)) G CNTRL29 I $$SIG^cAFA1("JRN",$P(N,D,7),104)'="D" D ERR(DETUI1,4,$P($T(@("T9"_QT)),U,2)) G CNTRL29 S R=$$FNR^cTN002(Q,$P(N,D,7),($P(N,D,4)\1),1) I 'R D ERR(DETUI1,4,$P(R,D,2)) G CNTRL29 ; ; In evenwicht? CNTRL28 I +$$VENT^cTN1321($P(N,D))'=0 D ERR(DETUI1,5,$P($T(@("T3"_QT)),U,2)) G CNTRL29 ; CNTRL29 G CNTRL21 ; ; Foutboodschap CNTRLY I OK G CNTRLZ ;S OK=0_D_$P($T(@("T6"_QT)),U,2+MS)_$C(13,10)_$P($T(@("T7"_QT)),U,2) S OK=0_D_$P($T(@("T6"_QT)),U,2+MS)_D_"Select Text01 from Tech.Temp where GridId = '"_ERRID_"'" ; CNTRLZ Q OK ; ; STAP2(Q,GRIDID,KEUID,JRN,BM,BPE,BDAT,REF,OMS) ; Overzicht gekozen boekingsreeksen ; Input: Q : Vennootschap ; GRIDID: GridId van overzicht-mtemp99. Indien "" wordt er een nieuwe nr bepaald. ; KEUID : GridId van de ^mtemp99 met geselecteerde boekingsreeksen ; JRN : Default journaal (JRN) ; BM : Default boekingsmaand (BJJJ.MM) ; BPE : Default boekingsperiode (JJJJ.MM) ; BDAT : Default boekingsdatum ($H of DD.MM.JJ) ; REF : Default referte ; OMS : Default omschrijving ; ; Output: 0\Foutboodschap ; of ; GridId\Switch focus ; 2 = Tab 2 ; 1 = Tab 1 ; S $ZT="^dmERROR" N @$$INITVAR^cAFVBA01("GRIDID,KEUID,JRN,BM,BPE,BDAT,REF,OMS") ; ; Controle parameters STAP21 F i="GRIDID","KEUID","JRN","BM","BPE","BDAT","REF","OMS" S @i=$G(@i) I $L(BDAT) I BDAT'?2N1"."2N1"."2N S BDAT=$$HD^cAFD1(BDAT) ; ; Variabelen opzetten STAP22 S:'$L(GRIDID) GRIDID=$$GRIDID^cAFVBF01() S MTEMP="^mtemp99(GRIDID,""BR"")" K @MTEMP ; Mtemp overzicht S OK=GRIDID,SW=1 I $$SELC^cAFVBA01(KEUID,1)<1 G STAP2Z S BRREF=$P($$REF^cAFA10(Q,"BR"),D) I '$L(BRREF) G STAP2Z ; ; Defaults STAP225 S $P(DEF,D,4)=JRN ; Journaal S $P(DEF,D,5)=BM ; Boekingsmaand S $P(DEF,D,6)=BPE ; Periode S $P(DEF,D,7)=BDAT ; Datum document S $P(DEF,D,8)=REF ; Referte S $P(DEF,D,9)=OMS ; Omschrijving ; ; Overzicht STAP23 S UI1="",SW=2 STAP231 S UI1=$O(^mtemp99(KEUID,"COMMON",UI1)) I '$L(UI1) G STAP2Z S BR=$G(@BRREF@(0)) I '$L(BR)!($P(BR,D,30)=2) G STAP231 ; ; Eventueel defaults invullen F i=4,5,7,8,9 I '$L($P(BR,D,i)) S $P(BR,D,i)=$P(DEF,D,i),SW=1 I $$PER^cTN001(Q) I '$L($P(BR,D,6)) S $P(BR,D,6)=$P(DEF,D,6),SW=1 ; Periode (niet altijd beschikbaar) ; ; Samengestelde TUI1 (voor volgorde van uitvoering) S $P(TUI1," ")=$$SIG^cAFA1("JRN",$P(BR,D,4),101) ; 1. Journaal (afkorting) S $P(TUI1," ",2)=$TR($P(BR,D,5),".") ; 2. Boekingsmaand S $P(TUI1," ",3)=$TR($P(BR,D,6),".") ; 3. Periode S $P(TUI1," ",4)=$S('$L($P(BR,D,7)):"",1:$$DC^cAFD1($P(BR,D,7))) ; 4. Datum document S $P(TUI1," ",5)=UI1 ; 4. Intern nummer boekingsreeks ; S @MTEMP@(TUI1,0)=BR ; STAP239 G STAP231 ; STAP2Z Q OK_D_$G(SW) ; Q93(UI1BR,UI1JRN,DAT) ; Q93,DCDAT,RB,SRT,CD en JRN worden opgezet S $ZT="TRAP^cAN000" S D="\" D QT^cAFVBO01 ;S DCDAT=$$DC^cAFD1($$SIG^cAFA1("BR",UI1BR,107)) S DCDAT=$$DC^cAFD1(DAT) ;S JRN=$$SIG^cAFA1("JRN",$$SIG^cAFA1("BR",UI1BR,104),103) I JRN=0 S JRN="" S JRN=$$SIG^cAFA1("JRN",UI1JRN,103) I JRN=0 S JRN="" S RB="D" S:JRN RB=RB_JRN S SRT=JRN S CD=$$JRN^cAFO2("D",SRT) ; Journaal S Q93="^"_Q_"BA(4,"""_RB_""","_DCDAT_")" S @Q93=$G(@Q93,DCDAT_"0001") Q93Z Q ; ZZ ; 29.08.07 - 10 u 22 * V8.09