-- option explicit on

App_Code/ClsInventarios.vb

@@ -1069,7 +1069,7 @@ Public Class ClsInventarios
     Public Function UpdateMovimiento(CveMovimiento As Integer, CveAlmacen As Integer, CveConcepto As Integer, CveMoneda As Integer, FechaMovto As DateTime, Folio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCompra As Integer,
                                      CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Double = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_MovimientosUpdate")
 
@@ -3694,7 +3694,7 @@ Public Class ClsInventarios
     End Function
 
     Public Function AddConsignaciones(CveProveedor As Integer, CveCompra As Integer, SerieFolio As String, Fecha As Date, CveUsuario As Integer) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
 
         DataAdapter("PA_Inv_ConsignacionesAdd")