persistent BL.EC.Common 1 %Persistent 0 1 KlantNr,BeperkStatus,DefaultOfferteNr 0 1 KlantNr,BeperkStatus,DefaultOfferte 0 1 KLNr,OfferteNr %Status 1 Quit $$$OK Quit $$$ERROR($$$GeneralError,Tekst_"\"_EDIref) ]]> 1 KlantNr,BeperkStatus,Offertes,DefaultOfferte 0 1 Offerte,List,Geforceerd:%Boolean=0 0 1 KLNr,PRNrs 0 $$CALCDATE^vhDTyp(,"A",1) ; Is voor levering na volgende arbeidsdag Set SortKey=$$SORTKEY^PRODUKT(PRNr) Set Producten("S",SortKey)=PRNr } If $D(Producten) { Set SortKey="",Count=0 For { Set SortKey=$O(Producten("S",SortKey)) Quit:SortKey="" Set PRNr=Producten("S",SortKey) Set Count=Count+1,Producten("L",Count)=PRNr } Do INIT^vhLIST("CHUI.Flow.Offerte.Offerte","DPLUS2",.LD) Set R=$P(LD("POS"),"`") Set $P(R,";")=$P(R,";")-(Count\2) Set:$P(R,";")<5 $P(R,";")=5 Set $P(R,";",3)=$P(R,";",3)+(Count-(Count\2))-1 Set:$P(R,";",3)>21 $P(R,";",3)=21 Set $P(LD("POS"),"`")=R Do WRITE^vhLIST(.LD) Set R=$$SCROLL^vhLIST(.LD) } } ]]> 1 Offerte 0 1 KlantNr,BeperkStatus 0 1 0 1 KlantNr,EDINr,TranslateDomain 0 1 KlantNr,EDINr 0 1 OfferteNr 0 1 OfferteNr 1 OfferteNr,a,b,c,d,e 1 1 OfferteNr %Library.CacheStorage ^CHUI.Flow.Offerte.OfferteD OfferteDefaultData ^CHUI.Flow.Offerte.OfferteD ^CHUI.Flow.Offerte.OfferteI ^CHUI.Flow.Offerte.OfferteS listnode %%CLASSNAME