This is a list of all comments for CR-2008.

Review Summary: No summary



---

ID: CR-2008 http://subversion02:8060/cru/CR-2008

Title: ICT-1347: Ook voor glassets Z37 de meegegeven DNA codes naar Hadetik overnemen en niet opnieuw ophalen. 
Statement of Objectives:
Ook voor glassets Z37 de meegegeven DNA codes naar Hadetik overnemen en niet opnieuw ophalen. 

{code:java}

PRINT(Dev,ObjTyp,ObjRef,ObjLNr,PRNr,Aantal,VoorkeurPrinter,*DnaCode*="") 

{code}

{code:java}

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)
 
{code}



{code:java}

/// 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...

State: Review

Author: Kurt Callebaut
Moderator: Kurt Callebaut
Reviewers: (0 active, 1 completed*)
     Tom Vermeulen   (*)