persistent 1 %Persistent 0 Toon het detail van de (proforma)factuur (origineel) via een VBA:\\ oproep naar Reflection die dan het bestand opent 1 FANr:%String,FactType:%String="F",pdlExemplaar:%String="" 0 Toon het detail van de (proforma)factuur via een VBA:\\ oproep naar Reflection die dan het bestand opent 1 FANr:%String,FactType:%String="F",pdlExemplaar:%String="" 0 Mail het detail van de (proforma)factuur naar Notes 1 FANr:%String,FactType:%String="F",pdlExemplaar:%String="" 0 Init bestandsnaam 1 Controle op het archiveren van facturen Boekjaar (niet meegegeven is huidig boekjaar) 1 BoekJaar,AppendSubject,MailTo 0 Controle op het archiveren van facturen Jaar van, tot (niet meegegeven is huidig jaar) 1 FromYear,ToYear,AppendSubject,MailTo $H FromYear=+$H Set:ToYear>$H ToYear=+$H Set Year(FromYear)="",Year(ToYear)="" Set FromYear=$O(Year("")),ToYear=$O(Year(""),-1) Set FromMonth=$$CALCDATE^vhDTyp(FromYear,"J","FD"),ToMonth=$$CALCDATE^vhDTyp(ToYear,"J","LD") Set AppendSubject=$G(AppendSubject) Set:AppendSubject="" AppendSubject="van het jaar "_$$EXTDATE^vhDTyp(FromYear,"J4")_$S(ToYear=FromYear:"",1:" t.e.m. "_$$EXTDATE^vhDTyp(ToYear,"J4")) Set MailTo=$G(MailTo) Set:'$LL(MailTo) MailTo=$LB("CW@VANHOECKE.BE") Do ..CheckMaand(FromMonth,ToMonth,AppendSubject,MailTo) Quit ]]> Controle op het archiveren van facturen Maand van, tot (niet meegegeven is huidige maand) 1 FromMonth,ToMonth,AppendSubject,MailTo $H FromMonth=+$H Set:ToMonth>$H ToMonth=+$H Set Month(FromMonth)="",Month(ToMonth)="" Set FromMonth=$O(Month("")),ToMonth=$O(Month(""),-1) Set FromDate=$$CALCDATE^vhDTyp(FromMonth,"M","FD"),ToDate=$$CALCDATE^vhDTyp(ToMonth,"M","LD") Set AppendSubject=$G(AppendSubject) Set:AppendSubject="" AppendSubject="van de maand "_$$EXTDATE^vhDTyp(FromMonth,"DMC")_$S(ToMonth=FromMonth:"",1:" t.e.m. "_$$EXTDATE^vhDTyp(ToMonth,"DMC")) Set MailTo=$G(MailTo) Set:'$LL(MailTo) MailTo=$LB("CW@VANHOECKE.BE") Do ..CheckDatum(FromDate,ToDate,AppendSubject,MailTo) Quit ]]> Controle op het archiveren van facturen Datum van, tot (niet meegegeven is huidige dag) 1 FromDate,ToDate,AppendSubject,MailTo $H FromDate=+$H Set:ToDate>$H ToDate=+$H Set Date(FromDate)="",Date(ToDate)="" Set FromDate=$O(Date("")),ToDate=$O(Date(""),-1) For Date=FromDate:1:ToDate Set BevatArbDag=$$ISARBDAG^vhRtn2(Date) Quit:BevatArbDag Do:BevatArbDag . Set FromVeMonth=$$CALCDATE^vhDTyp(FromDate,"M","FD") Set ToVeMonth=$$CALCDATE^vhDTyp(ToDate,"M","LD") . Set VeMonth=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(FromVeMonth,"M",-1),"DM4") . Set FromFANr=1000000,ToFANr=99999 . For Set VeMonth=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp(VeMonth,"DM4"),"M",1),"DM4") Quit:$$INTDATE^vhDTyp(VeMonth)>ToVeMonth Do . . Set FANr="" . . For Set FANr=$O(^KVE(VeMonth,FANr)) Quit:FANr="" Do . . . Set R=^KVE(VeMonth,FANr),FactType=$P(R,"\"),FactDate=$$INTDATE^vhDTyp($P(R,"\",2)) . . . If FactDate'ToDate Do . . . . If FromFANr=1000000,ToFANr=99999,FactType="C" Quit ; Opzoeken eerste factuur voor die dag, (einde maand - mogelijks enkel credietnota's) . . . . Set:FANrToFANr ToFANr=FANr . If FromFANr=1000000,ToFANr=99999 Do Quit ; Er zijn geen facturen (of enkel credietnota's) voor die dag, dus vorige werkdag opzoeken (dit i.v.m. facturatie eerste werkdag v.d. maand op vorige maand) . . For FromDate=FromDate-1:-1 Quit:$$ISARBDAG^vhRtn2(FromDate) . . Do ..CheckDatum(FromDate,ToDate) . Set AppendSubject=$G(AppendSubject) . Set:AppendSubject="" AppendSubject="op datum van "_$$EXTDATE^vhDTyp(FromDate)_$S(ToDate=FromDate:"",1:" t.e.m. "_$$EXTDATE^vhDTyp(ToDate)) . Set MailTo=$G(MailTo) Set:'$LL(MailTo) MailTo=$LB("CW@VANHOECKE.BE") . Do ..CheckFacturen(FromFANr,ToFANr,AppendSubject,MailTo) Quit ]]> Controle op het archiveren van facturen Facturen van, tot 1 FromFANr,ToFANr,AppendSubject,To 99 . . . . Set Count=Count+1,Body=Body_$$EXTNUM^vhDTyp(FANr,0,".T",0)_$S(Count#20:", ",1:$C(13)) . . . If FANr,$O(CheckFacturen(CheckFacturen,FANr)) Set Body=Body_$C(13)_"En volgende ..." . . . Else Set Body=Body_$C(13) . . Do:CheckFacturen="FO" . . . Set Body=Body_$C(13)_"Van volgende facturen is de 'File' onbekend:"_$C(13),FANr="",Count=0 . . . For Set FANr=$O(CheckFacturen(CheckFacturen,FANr)) Quit:FANr="" Do Quit:Count>99 . . . . Set Count=Count+1,Body=Body_$$EXTNUM^vhDTyp(FANr,0,".T",0)_" - "_CheckFacturen(CheckFacturen,FANr)_$C(13) . . . If FANr,$O(CheckFacturen(CheckFacturen,FANr)) Set Body=Body_$C(13)_"En volgende ..." . . . Else Set Body=Body_$C(13) Set Status=$$SendMiniMail^vhLib(From,To,Subject,Body) Quit ]]> Controle op het archiveren van facturen Factuur (de eigenlijke controle van de factuur) 1 FANr Controle op mail incasso Datum van, tot (niet meegegeven is huidige dag) 1 FromDate,ToDate,MailTo $H FromDate=+$H Set:ToDate>$H ToDate=+$H Set Date(FromDate)="",Date(ToDate)="" Set FromDate=$O(Date("")),ToDate=$O(Date(""),-1) For Date=FromDate:1:ToDate Set BevatArbDag=$$ISARBDAG^vhRtn2(Date) Quit:BevatArbDag Do:BevatArbDag . Set FromVeMonth=$$CALCDATE^vhDTyp(FromDate,"M","FD") Set ToVeMonth=$$CALCDATE^vhDTyp(ToDate,"M","LD") . Set VeMonth=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(FromVeMonth,"M",-1),"DM4") . Set FromFANr=1000000,ToFANr=99999 . For Set VeMonth=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp(VeMonth,"DM4"),"M",1),"DM4") Quit:$$INTDATE^vhDTyp(VeMonth)>ToVeMonth Do . . Set FANr="" . . For Set FANr=$O(^KVE(VeMonth,FANr)) Quit:FANr="" Do . . . Set R=^KVE(VeMonth,FANr),FactType=$P(R,"\"),FactDate=$$INTDATE^vhDTyp($P(R,"\",2)) . . . If FactDate'ToDate Set:FANrToFANr ToFANr=FANr . Set FANr=FromFANr-1 . For Set FANr=$O(^KFA("F",FANr)) Quit:'FANr Quit:FANr>ToFANr Do . . Set KLNr=$P(^KFA("F",FANr,0,0),"\") . . Set Incasso=$P(^KKL(^KK1(KLNr),0),"\",23) . . If Incasso=1,$$LAND^vhRtn1(KLNr,"K",1)="NL",$P(^KFA("F",FANr,0,0),"\",2)'="C",$P(^KFA("F",FANr,0,3),"\",26)'="1#1" Set CheckFacturen(FANr)="" . Set Subject="Controle incasso op datum van "_$$EXTDATE^vhDTyp(FromDate)_$S(ToDate=FromDate:"",1:" t.e.m. "_$$EXTDATE^vhDTyp(ToDate)) . If $D(CheckFacturen) Do . . Set Body="Er werden fouten gevonden!"_$C(13),Body=Body_$C(13)_"Van volgende facturen is de mail niet verzonden:"_$C(13),FANr="",Count=0 . . For Set FANr=$O(CheckFacturen(FANr)) Quit:FANr="" Do Quit:Count>99 . . . Set KLNr=CheckFacturen(FANr) . . . Set Count=Count+1,Body=Body_$$EXTNUM^vhDTyp(FANr,0,".T",0)_"- "_$P(^KFA("F",FANr,0,0),"\",6)_" -"_$J(KLNr,6)_" "_$P(^KKL(^KK1(KLNr),0),"\",2)_$C(13) . . If FANr,$O(CheckFacturen(FANr)) Set Body=Body_$C(13)_"En volgende ..." . . Else Set Body=Body_$C(13) . Else Set Body="Geen fouten gevonden.",Subject=Subject_" (geen fouten)" . Set From=$ZUTIL(110)_"@VANHOECKE.BE" . Set To=$G(MailTo) Set:'$LL(To) To=$LB("CW@VANHOECKE.BE") . Set Status=$$SendMiniMail^vhLib(From,To,Subject,Body) Quit ]]> %Library.CacheStorage ^CHUI.Flow.FactuurD FactuurDefaultData ^CHUI.Flow.FactuurD ^CHUI.Flow.FactuurI ^CHUI.Flow.FactuurS listnode %%CLASSNAME