From b0d332102770db57fd3b60267869533d0c639bad Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Sep 2023 18:31:36 -0700 Subject: [PATCH] -- option explicit on --- App_Code/ClsInventarios.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0697147af..3fb9d858b 100644 --- a/App_Code/ClsInventarios.vb +++ b/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")