CR-2008
ICT-1347: Ook voor glassets Z37 de meegegeven DNA codes naar Hadetik overnemen...
Details
Participant | Role | Time Spent | Comments | Latest Comment |
---|---|---|---|---|
Author & Moderator | 2m | |||
Reviewer - Complete | 12m | |||
Total | 14m | 0 |
Objectives
Ook voor glassets Z37 de meegegeven DNA codes naar Hadetik overnemen en niet opnieuw ophalen.
PRINT(Dev,ObjTyp,ObjRef,ObjLNr,PRNr,Aantal,VoorkeurPrinter,*DnaCode*="")
If $E($$$PRGet($$$KortTekst),1,3)="Z37" Do Quit ; Glazen boxside op maat . Do ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerkMetDnaCodes(PRNr,$G(C("KLNMBIG")),$G(C("TOENR")),$G(C("ORDNR")),Aantal)
/// d ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerk(483079,"XSDS",1)
ClassMethod PrintVHMaatwerkMetDnaCodes(PRNr, KlantNaam, TOENr, ORDNr, Aantal, Device)
{
Set bl=..Instantiate()
Do bl.Init(PRNr)
Set bl.DefaultLayout="Product verpak maatwerk VH 5x10"
#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(Order.GeefPersonalityID())
#Dim KlantInstellingenService As APP...