HADPWIET ;HALUX Print wizard & etiketten vanuit een toelevering
 
VERWERK
 New R,LEVNr,TOENr,TLNr,ORDNr,PRNr
 Do DISPLAY^vhScherm("HADPWIET")
 Set TOENr=""
 For  Do FIELD^vhScherm("HADPWIET","TOENR") Quit:'TOENr  Do
 . Kill ORDNr
 . Set LEVNr=$P(^KTO1(TOENr),D)
 . If LEVNr'=6332 Do WARN^vhTXTPOP("Het nummer "_TOENr_" is geen Halux toelevering!") Quit
 . Set TLNr=100
 . For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do
 . . Set R=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(R,D,2),ORDNr=$P(R,D,27)
 . . If PRNr,ORDNr,$$ISHALWIZ^FLOW("O",ORDNr),$$ISHALUX^FLOW("O",ORDNr),$$CLOSED^FLOWORD(ORDNr) Set ORDNr(ORDNr)=""
 . If $O(ORDNr("")) Do
 . . Set ORDNr=""
 . . For  Set ORDNr=$O(ORDNr(ORDNr)) Quit:ORDNr=""  Do PRINT^HADWIZ("ORD",ORDNr),ORDER^HADETIK(ORDNr)
 . Else  Do WARN^vhTXTPOP("Er is niets af te drukken voor toelevering "_TOENr)
 Quit