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) } Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestSifonlade/StartBatch/External_SQL.DB_KantenbandData.xml =================================================================== diff -u -r66194 -r68980 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestSifonlade/StartBatch/External_SQL.DB_KantenbandData.xml (.../External_SQL.DB_KantenbandData.xml) (revision 66194) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestSifonlade/StartBatch/External_SQL.DB_KantenbandData.xml (.../External_SQL.DB_KantenbandData.xml) (revision 68980) @@ -87,10 +87,10 @@ Pass1Program = NN_13 Pass1Tilting180 = 0 Pass1Turning180 = 1 -Pass2Edgeband = NND08B17 +Pass2Edgeband = Z8D08B18 Pass2Exit = "" Pass2PrinterText = "" -Pass2Program = NN_13_G +Pass2Program = PVC_13_G Pass2Tilting180 = 1 Pass2Turning180 = 0 Pass3Edgeband = "" Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/RugSifonlade.cls.xml =================================================================== diff -u -r66194 -r68980 --- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/RugSifonlade.cls.xml (.../RugSifonlade.cls.xml) (revision 66194) +++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/RugSifonlade.cls.xml (.../RugSifonlade.cls.xml) (revision 68980) @@ -50,15 +50,15 @@ KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam 1 Index: vhDeploy/Deploy20220825xUpdateKantenbandPassageDefinities.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20220825xUpdateKantenbandPassageDefinities.cls.xml (revision 0) +++ vhDeploy/Deploy20220825xUpdateKantenbandPassageDefinities.cls.xml (revision 68980) @@ -0,0 +1,21 @@ + + + +vhDeploy.Deploy + + +%String +Update Kantenband Passage Definities + + + +1 + + + + + +