Rev_18/8/22_1

- Classe 'cPallet_Par' foi excluida e os atributos referentes a ela foram transferidos para a classe 'cProduction_Par'. Realizada adequação do programa devido a esta mudança. A inteção é tornar o
código mais legível.
- Editada a rotina 'rSet_Drop_Cur' para melhor entendimento do código
- Editada a rotina 'Reset_Cell';

Paletização_v1/Módulos de programa/T_PROCESS/Main_Module_tProcess.mod

@@ -30,48 +30,48 @@ MODULE Main_Module_tProcess
         !*** Verifica se o palete esquerdo foi retirado
         IF (DI_020_PAL_LEFT_RESET = 2) rReset_Pal 2;
 
-        !rBox_Fall;
+        rBox_Fall;
 
     ENDPROC
 
     !*** Reseta o palete (T_ROB1 / T_PROCESS)
     PROC rReset_Pal(num Pallet)
 
-        !cPallet_Status{Pallet} := [0,1,1,0,0,FALSE];
-        !Incr cProduction_Part{Pallet}.Pallet_Rejected;
+        cPallet_Status{Pallet} := [0,"",1,1,0,0,FALSE,0,0,0,0,0];
+        Incr cPallet_Status{Pallet}.Pallets_Rejected;
 
     ENDPROC
 
     !*** Rastreia queda de caixa
     PROC rBox_Fall()
 
-!        IF (
-!            cSegment_Cur.Number = 22 OR
-!            cSegment_Cur.Number = 26 OR
-!            (cSegment_Cur.Number = 3 AND cProcess_Cur = 2)
-!            ) 
-!            AND
-!            (
+        IF (
+            cSegment_Cur.Number = 22 OR
+            cSegment_Cur.Number = 26 OR
+            (cSegment_Cur.Number = 3 AND cProcess_Cur.Number = 2)
+            ) 
+            AND
+            (
 
-!            (
-!            (
-!            cPallet_Drop{cPallet_Status{nCur_Pallet}.Pos_Cur}.Qtd_Box = 2 AND
-!            (DI_007_PRES_BOX_1 = 0 OR DI_008_PRES_BOX_2 = 0)
-!            ) 
-!            OR  bDry_Run = TRUE
-!            ) 
-!            OR
-!            (
-!            (
-!            cPallet_Drop{cPallet_Status{nCur_Pallet}.Pos_Cur}.Qtd_Box = 1 AND DI_007_PRES_BOX_1 = 0
-!            ) OR bDry_Run = TRUE
-!            )
+            (
+            (
+            cPallet_Drop{cPallet_Status{nCur_Pallet}.Pos_Cur}.Qtd_Box = 2 AND
+            (DI_007_PRES_BOX_1 = 0 OR DI_008_PRES_BOX_2 = 0)
+            ) 
+            OR  bDry_Run = TRUE
+            ) 
+            OR
+            (
+            (
+            cPallet_Drop{cPallet_Status{nCur_Pallet}.Pos_Cur}.Qtd_Box = 1 AND DI_007_PRES_BOX_1 = 0
+            ) OR bDry_Run = TRUE
+            )
 
-!            )
-!            THEN
-!                Incr cProduction_Part{cPallet_Status{nCur_Pallet}.Part_In_Pallet}.Box_Fallen;
-!                STOP;
-!        ENDIF
+            )
+            THEN
+                Incr cPallet_Status{nCur_Pallet}.Box_Fallen;
+                STOP;
+        ENDIF
 
     ENDPROC