From 06999ef50a3c54a348114549a4037a85f4a3dbb5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 18 Sep 2023 09:29:09 -0700
Subject: [PATCH] -- option explicit

---
 OC/OC.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index e2f73fcd2..1611935e6 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3591,11 +3591,11 @@ Partial Class OC_OC
         If CveEstatusFinalError > 0 Then
             Dim objOrdenCompra As New ClsOC
             objOrdenCompra.IniciaTransacSQL()
-            Dim TieneError = False
+            Dim TieneError As Boolean = False
 
             'AC
             Dim ObjAC As ClsContPAQi = Nothing
-            Dim PolizaCancelacion = -1
+            Dim PolizaCancelacion As Integer = -1
             If UsuarioActual.Empresa.UsaAC Then
                 ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
                 ObjAC.IniciaTransacSQL()
@@ -3655,8 +3655,8 @@ Partial Class OC_OC
         ' > 0: GENERO POLIZA DE CANCELACION
         ' < 0: ERROR
 
-        Dim ErrorCancelar = False
-        Dim IdPolizaNueva = 0
+        Dim ErrorCancelar As Boolean = False
+        Dim IdPolizaNueva As Integer = 0
 
         If IDPolizaPresupuestal > 0 Then
             Dim dt As DataTable