Index: HADETIK.mac.rou =================================================================== diff -u -r60217 -r60627 --- HADETIK.mac.rou (.../HADETIK.mac.rou) (revision 60217) +++ HADETIK.mac.rou (.../HADETIK.mac.rou) (revision 60627) @@ -410,10 +410,6 @@ If $$HeeftMaatwerkEtiketNodig(PRNr){ #dim Etiket As APPS.common.Print.AbstractLabel - If DnaCode="" && ObjTyp = "T" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){ - Set DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(ObjRef,PRNr,"") - Set Aantal = 1 - } #dim AantalEtiketten As %Integer = $G(C("AANTAL"),Aantal) If ObjTyp="T" { @@ -430,9 +426,7 @@ 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,"",$G(C("DNACODE"))) - - - + If DnaCode="" && ObjTyp = "T" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){ Set DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(ObjRef,PRNr,"") Set Aantal = 1