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
+
+
+
+
+
+