vhLib.Macro 1 AbstractParserTXT 0 ParseStatus ParseStatus "," ") . Set pxHoofding.OrderDatum = $TR($ZD($H,1),"/",".") . Set pxHoofding.DocDate = $TR($ZD($H,1),"/",".") . Set idxLine = "" . For Set idxLine = $O(aOrders(idxRef,idxLine)) Quit:idxLine="" Do // Lijn gegevens opvullen . . Set LnInfo = aOrders(idxRef,idxLine) . . Set pxLijn = ##class(BL.Flow.Offerte.pxLijn).%New() . . Set pxLijn.LijnType = "P" . . Set pxLijn.Aantal = $LG(LnInfo,1) . . Set pxLijn.KlantProdRef = $LG(LnInfo,2) . . Set pxLijn.ProdRef = $LG(LnInfo,2) . . Do pxHoofding.Lijnen.SetAt(pxLijn,idxLine) . Set OrderCnt=OrderCnt+1 . Set arOffertes(OrderCnt)=pxHoofding If $D(arOffertes) Quit ##class(ParseStatus).OKStatus() Quit ##class(ParseStatus).%New(100,"Geen offertes in het bestand") ; geen inhoud ]]> Line,aResult:%String %Boolean ", " ") Set aResult("BestNr") = $ZSTRIP($P(Line,"|",4),"<>", " ") Set aResult("Ref") = $ZSTRIP($P(Line,"|",5),"<>", " ") Quit 1 ]]>