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