Proxy-klasse voor een factuur BL.Sys.FOP.Common,BL.Flow.Doc.Common,vhLib.Macro 1 %RegisteredObject,%XML.Adaptor right FACTUUR Datum van creatie van het document %Library.String Steeds "Factuur" (not yet implemented) %Library.String %Library.String Factuur, CreditNota, Proforma, Monster %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.Integer %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String BL.FOP.Basis.pxAttribUnit %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String BL.Flow.Proxy.pxHoutCertificaat list BL.FOP.Basis.pxTekstHTML list BL.FOP.Derde.pxKlantAdres pxFactLev list BL.Flow.Proxy.pxPPODfields BL.Flow.Proxy.pxIntrastat list BL.Flow.Proxy.pxBTWUitsplitsingItem list BL.Flow.Proxy.pxProductSoort list BL.FOP.Proxy.enu.HoofdingType BL.FOP.Derde.pxAfzenderHoofding %String BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler 1 VerkoopsvoorwaardenURLBepaler:BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler 1 1 %Status 1 FactType "F" of "P"; CreditNota of Monster wordt verder in de code bepaald 1 pxFactuur KLNr:%String,FANr:%String,FactType:%String 1 KLNr:%String,FANr:%String,Taal:DOM.enu.Taal 1 FactType:%String,FANr:%String,Exemplaar:%String="",lbPPODKeywords:%List,Opties:%String %Status FactType:%String,FANr:%String,pxFAdr:%String Oorsprong:BL.Flow.Offerte.enu.Oorsprong 1 FactType:%String,FANr:%String,Exemplaar:%String="",lbPPODKeywords:%List,Opties:%String %Status Factuur Afsluiting KLNr:%String,FactType:%String,FANr:%String,Taal:%String 1 KLNr:%String,FactuurID:%String 1 For each btw-tarief : Do ..BTWUitsplitsingItems.Insert(##class(BL.Flow.Proxy.pxBTWUitsplitsingItem).%New(..GeefVertaling("BasisBedrag"),Factuur.GeefTotaalBelastbaar())) Do ..BTWUitsplitsingItems.Insert(##class(BL.Flow.Proxy.pxBTWUitsplitsingItem).%New(..GeefVertaling("BTW")_" "_BtwPct,Factuur.GeefTotaalBTW())) }Else{ If BtwType = ##class(DOM.VKP.enu.BTWType).Intracommunautair() { Do ..BTWUitsplitsingItems.Insert(##class(BL.Flow.Proxy.pxBTWUitsplitsingItem).%New(..GeefVertaling("BTW"),..GeefVertaling("IntCom"))) }ElseIf BtwType = ##class(DOM.VKP.enu.BTWType).Extracommunautair() { Do ..BTWUitsplitsingItems.Insert(##class(BL.Flow.Proxy.pxBTWUitsplitsingItem).%New(..GeefVertaling("BTW"),..GeefVertaling("Export"))) }Else{ Do ..BTWUitsplitsingItems.Insert(##class(BL.Flow.Proxy.pxBTWUitsplitsingItem).%New(..GeefVertaling("BTW"),BtwType)) } } ]]> Label:%String 1 Factuur Afsluiting KLNr:%String,FactType:%String,FANr:%String,Taal:%String 1 BtwType van de Factuur 1 FANr:%String 0 DOM.VKP.enu.BTWType BtwType van de Klant 1 KLNr:%String 0 DOM.VKP.enu.BTWType Is een Orgalux factuur ? 1 FactType:%String,FANr:%String 0 %Boolean "Kopie gericht aan" berekenen 1 KopieCode:%String,FANr:%String,KLNr:%String,Taal:%String 0 %String Berekent de vervaldatum voor de betalingskorting. FaktDat is de FactuurDatum, VervDat is de vervaldatum van het factuur; indien ingevuld, dan kan de return value niet groter zijn dan deze VervDat. 1 KLNr:%String,FaktDat:%String,VervDat:%String="" 0 $$INTDATE^vhLib.DataTypes(VervDat)) KortingGeldigTot=VervDat Quit KortingGeldigTot ]]> Factuur en Proforma Voorwaarden ProcedureBlock doesn't allow use of $NAME(...) function KLNr:%String,FactType:%String,FANr:%String,Taal:%String 0 FactuurID:%String 1 ProformaID:%String 1 FacturatieWijze:DOM.VKP.enu.FacturatieWijze,BTWRegime:DOM.VKP.enu.BTWRegimeOrder,Klant:DOM.VKP.VanHoeckeKlant 1 Factuur en Proforma Voorwaarden ProcedureBlock doesn't allow use of $NAME(...) function KLNr:%String,FactType:%String,FANr:%String,Taal:%String 0 FactuurID:%String,Taal:DOM.enu.Taal 1 ProformaID:%String,Taal:DOM.enu.Taal 1