Index: APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml =================================================================== diff -u -r66194 -r68980 --- APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml (.../PassageBepaler.cls.xml) (revision 66194) +++ APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml (.../PassageBepaler.cls.xml) (revision 68980) @@ -50,11 +50,18 @@ Set Passage.Draai180Graden = PassageDefinitie.MoetDraaien Set Passage.Kantel180Graden = PassageDefinitie.MoetKantelen - Set Passage.Kantenband = ..KantenbandBepaler.BepaalKantenband(UitvoeringInfo.KantenbandData, PassageDefinitie.Programma, PassageDefinitie.Passage) Set Passage.PrinterTekst = ..PrinterTekstBepaler.BepaalPrinterTekst(UitvoeringInfo, PassageDefinitie.Passage) Set Passage.Uitgang = PassageDefinitie.Uitgang Set Passage.Programma = PassageDefinitie.Programma + If ((UitvoeringInfo.KantenbandData.IsSifonlade) && (UitvoeringInfo.KantenbandData.Rol = ##class(APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel).Rug()) + && (UitvoeringInfo.KantenbandData.PlaatAfwerking = "F") && (PassageDefinitie.Passage = ##class(APPS.Halux.Machine.Kantenband.enu.Passage).Twee()) + && (PassageDefinitie.Programma = ##class(APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam).PVC13G())) { + Set Passage.Kantenband = "Z8D08B18" + } Else { + Set Passage.Kantenband = ..KantenbandBepaler.BepaalKantenband(UitvoeringInfo.KantenbandData, PassageDefinitie.Programma, PassageDefinitie.Passage) + } + Do Passages.Insert(Passage) }