persistent 1 %Persistent 0 transport ABX, xxxx is het transportnummer ]]> consolidatie Orgalux, xxxx is een volgnummer uit ^KUL(0,"F","CO")_checksum van de bonnummers ]]> vezending OD1, xxx is een volgnummer uit ^KUL(0,"F","VZ") ]]> Verwerk een facturatiegroep 1 0 Opvragen selectiekriteria 1 0 Factureer een groep 1 BulkGroep,Leveringen,InclUitgesteld Factureer een klant 1 BulkGroep,Leveringen,KlantNr,InclUitgesteld Er zijn nog leveringen met dezelfde datum maar in een andere dataset 1 Leveringen,KlantNr Er zijn nog leveringen met dezelfde datum maar in een andere dataset 1 BonNr Er zijn nog uitgestelde leveringen in een andere dataset 1 BulkGroep,KlantNr Welke buttons zijn toegelaten? 1 Leveringen,BulkGroep Afdrukken lijst 1 Leveringen,BulkGroep 0 Call back voor afdruk lijst 1 Ref 0 Geef een nieuwe facturatiegroep volgens bulkgroepreferentie 1 BulkGroep 0 Opmaken van de mail naar de boekhouding i.v.m. 'Automatisch incasso' Incasso " #define fmtBeginTable "" #define fmtEndTable "" #define fmtEndHtml "" Set strmBody=##class(%GlobalCharacterStream).%New() Do strmBody.Write($$$fmtBeginHtml) Do strmBody.Write("
") Do strmBody.Write($$$fmtBeginTable) Do strmBody.Write("Klnr") Do strmBody.Write("Klant") Do strmBody.Write("Woonplaats") Do strmBody.Write("Factnr") Do strmBody.Write("Datum") Do strmBody.Write("Aanbieden") Do strmBody.Write("Bedrag") Do strmBody.Write("Kort cont") Do strmBody.Write("Te betalen") Do strmBody.Write("Voorwaarde") Set KlKey="" For { Set KlKey=$O(Incasso(KlKey)) Quit:KlKey="" Set FANr="" For { Set FANr=$O(Incasso(KlKey,FANr)) Quit:FANr="" Set KLNr=Incasso(KlKey,FANr) Set KlRec=^KKL(^KK1(KLNr),0) Set KlNaam=$P(KlRec,"\",2),WoonPlaats=$P(KlRec,"\",7),BetVw=$P(KlRec,"\",18) Set KlRec=^KKL(^KK1(KLNr),2) Set:$P(KlRec,"\",2) BetVw=$P(KlRec,"\",2) Set FactRec=^KFA("F",FANr,0,0) Set VervDat=$P(FactRec,"\",3) Set FactDat=$P(FactRec,"\",6) Set Bedrag=$P(FactRec,"\",12) Set KontKort=$P(FactRec,"\",13) Set Verschil=Bedrag-KontKort Set Aanbieden=VervDat Set:KontKort Aanbieden=##Class(BL.Flow.Proxy.pxFactuur).KortingGeldigTot(KLNr,FactDat,VervDat) Set FactDat=$TR(FactDat,".","-"),Aanbieden=$TR(Aanbieden,".","-") Set BetVwDagen=+BetVw,BetVwTxt=$P(BetVw,BetVwDagen,2) Set BetVw=BetVwDagen Set:$E(BetVwTxt)="D" BetVw=BetVw_" dag" Set:$E(BetVwTxt)="M" BetVw=BetVw_" maand" Set:BetVwDagen'=1 BetVw=BetVw_"en" Set:$E(BetVwTxt,2,3)="EM" BetVw=BetVw_" einde maand" Do strmBody.Write("") Do strmBody.Write(""_KLNr_"") Do strmBody.Write(""_" "_KlNaam_"") Do strmBody.Write(""_WoonPlaats_"") Do strmBody.Write(""_FANr_"") Do strmBody.Write(""_FactDat_"") Do strmBody.Write(""_Aanbieden_"") Do strmBody.Write(""_$$EXTNUM^vhDTyp(Bedrag,".",0,2)_"") Do strmBody.Write(""_$$EXTNUM^vhDTyp(KontKort,".",0,2)_"") Do strmBody.Write(""_$$EXTNUM^vhDTyp(Verschil,".",0,2)_"") Do strmBody.Write(""_BetVw_"") } } Do strmBody.Write($$$fmtEndTable) Do strmBody.Write($$$fmtEndHtml) Quit strmBody ]]> %Library.CacheStorage ^BL.Flow.Fact68A.BulkFacturatieD BulkFacturatieDefaultData ^BL.Flow.Fact68A.BulkFacturatieD ^BL.Flow.Fact68A.BulkFacturatieI ^BL.Flow.Fact68A.BulkFacturatieS listnode %%CLASSNAME