1 BL.Flow.Offerte.Parser.AbstractParserTXT BL.Flow.Offerte.pxHoofding 1 %String list 1 %String list 1 DOM.PARTIJ.Partij 1 DirRead:%String,FileName:%String,DirTemp:%String 1 1 %Status Deze method overschrijven in klantspecifieke parser, indien er specifieke searchkeys nodig zijn. zie method ConvertProductLijn() in klasse BL.Flow.Offerte.ScanEDIMail pxLijn:BL.Flow.Offerte.pxLijn %List BL.Flow.Offerte.Parser.ParseStatus 1 BL.Flow.Offerte.Parser.ParseStatus 0) { Set arOffertes($Increment(arOffertes))=..pxOfferte Set Status=##class(ParseStatus).OKStatus() } Else { // Indien geen lijnen toegevoegd, dan de hoofding terug wissen Set ..pxOfferte="" Set Status=##class(ParseStatus).%New(100,"Geen offertes in de bestanden van subdir "_SubDir) } Quit Status ]]> SubDirFullPath:%String 1 0 { Do ..RapporteerAlleValidatieBerichten() } Else { ;Do ..RapporteerImportSucces() // Voorlopig niks } ]]> FileName:%String 1 0 { #dim LijnIdentificatie As %String = ..GeefLijnIdentificatie(FileName,$G(KADWrapper)) Do ..VerwerkValidatieBerichtenVoorFile(LijnIdentificatie) Do ..VoegToeFoutmeldingInOfferte(LijnIdentificatie) } If $IsObject(pxLijn) { Do ..VoegToeLijnInOfferte(pxLijn) } ]]> Parsen van de xml-file en geeft dto ProjectItem terug FileName:%String 1 BL.Flow.Offerte.dto.KADEDI.ProjectItem CorrelateErrorStatus:%Status 1 %String FileName:%String,KADWrapper:BL.Flow.Offerte.impl.KADWrapper 1 %String LijnIdentificatie:%String 1 Tekstlijn toevoegen met melding dat er validatiefouten zijn LijnIdentificatie:%String 1 pxLijn:BL.Flow.Offerte.pxLijn 1 KADWrapper:BL.Flow.Offerte.impl.KADWrapper 1 BL.Flow.Offerte.pxLijn KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken 1 Prod.GADef.KaderDeur GADefKaderdeur:Prod.GADef.KaderDeur 1 1 KADWrapper:BL.Flow.Offerte.IKADWrapper 1 KADWrapper:BL.Flow.Offerte.IKADWrapper,GevalideerdeKaderdeur:Prod.GADef.KaderDeur 1 BL.Flow.Offerte.pxLijn Tekst:%String 1 BL.Flow.Offerte.pxLijn GADefKaderdeur:Prod.GADef.KaderDeur,Aantal:%Integer 1 Prod.Product Geeft de IpComKey als result terug Klantnummer:%String 1 %String Melding:%String 1 Melding:%String 1 ToeTeVoegenLijst:%ListOfDataTypes 1 0 { Do ##class(TECH.ListUtils).CopyListOfDataTypes(ToeTeVoegenLijst,..ValidatieBerichtenPerFile) } ]]> Exceptie:TECH.Exceptions.Exception,LoggerActie:%String 1 1 %String 1 %String