1 AbstractParserTXT %String ParseStatus 1 Do . . Set Deel1=$E(LijnRef,1,6) ;tekstgedeelte . . Set Deel2=$TR($E(LijnRef,7,8)," ","") ;numeriek gedeelte . . Set Len=$L(SplitsAantal) . . For i=2:1:SplitsAantal Do . . . Set VNR=VNR+1 . . . Set Deel2=Deel2+1 . . . Set LijnRef=Deel1_$J(Deel2,2) . . . Set pxLijn = ##class(BL.Flow.Offerte.pxLijn).%New() . . . Set pxLijn.LijnType = "P" . . . Set pxLijn.LijnRef =LijnRef . . . Set pxLijn.KlantProdRef = KlantProdRef . . . Set pxLijn.ProdBeschrijving = ProdBeschrijving . . . Set pxLijn.Aantal =1 . . . Do pxHoofding.Lijnen.SetAt(pxLijn,VNR) . Set arOffertes(1)=pxHoofding If $D(arOffertes) Quit ##class(ParseStatus).OKStatus() Quit ##class(ParseStatus).%New(100,"Geen offertes in het bestand") ; geen inhoud ]]> Line,arResult:%String,VorigeRef:%String "," ") . Quit:Deel3="" . Set LijnNr=$O(arResult(""),-1) . Set ProdBeschrijving=$LI(arResult(LijnNr),3) . Set $LI(arResult(LijnNr),3)=ProdBeschrijving_" "_Deel3 . Set VorigeRef="" Else Do . Set Referentie=$E(Line,2,9) . Quit:$TR(Referentie," ","")="" . Set Deel1=$E(Line,11,19) . Set SplitsAantal=$Tr($E(Line,34,36)," ","") . Quit:'+SplitsAantal . Set KlantProdRef=$ZSTRIP($E(Line,38,48),"<>"," ") . Set Deel2=$ZSTRIP($E(Line,50,90),"<>"," ") . Set ProdBeschrijving=Deel1_" "_Deel2 . Set LijnNr=$O(arResult(""),-1)+1 . Set arResult(LijnNr)=$LB(Referentie,KlantProdRef,ProdBeschrijving,SplitsAantal) . Set VorigeRef=Referentie ]]>