From 849e95f4daa83108622ca81e2a1a7ab0fb252698 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 Apr 2020 19:31:46 -0700 Subject: [PATCH] - --- App_Code/ClsInventarios.vb | 2776 ++++++++++++++++++------------------ 1 file changed, 1388 insertions(+), 1388 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4541aa752..00a12c0b7 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -342,1399 +342,1399 @@ Public Class ClsInventarios .Add("@VerEn", SqlDbType.Int).Value = VerEn .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Almacenes Periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - - Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_AlmacenesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Almacen", SqlDbType.VarChar).Value = Almacen - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable - .Add("@Modalidad", SqlDbType.Int).Value = Modalidad - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Orden", SqlDbType.SmallInt).Value = Orden - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Almacén con el mismo nombre: " & Almacen & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar el Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar el Almacén", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_AlmacenesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@Almacen", SqlDbType.VarChar).Value = Almacen - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable - .Add("@Modalidad", SqlDbType.Int).Value = Modalidad - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Orden", SqlDbType.SmallInt).Value = Orden - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Almacén con el mismo nombre: " & Almacen & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en el Almacén", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveAlmacen(CveAlmacen As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_AlmacenesRemove") - - SqlAdapter.SelectCommand.Parameters.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("el Almacén no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar el Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#Region " TIPO ALMACEN " - - Public Function UpdateTipoAlmacen(CveTipoAlmacen As Integer, TipoAlmacen As String, Estatus As Boolean) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_INV_TipoAlmacenUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@TipoAlmacen", SqlDbType.VarChar).Value = TipoAlmacen - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un TipoA de Almacen con el mismo nombre: " & TipoAlmacen & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetTiposAlmacenes() As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_TiposAlmacenesGet") - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Tipos Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddTipoAlmacen(TipoAlmacen As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_TiposAlmacenesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@TipoAlmacen", SqlDbType.VarChar).Value = TipoAlmacen - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Tipo de Almacen con el mismo nombre: " & TipoAlmacen & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar el Tipo de Almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar el Tipo de Almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateTipoAlmacen(TipoAlmacen As String, Estatus As Boolean, CveTipoAlmacen As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_TiposAlmacenesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@TipoAlmacen", SqlDbType.VarChar).Value = TipoAlmacen - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Almacén con el mismo nombre: " & TipoAlmacen & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveTipoAlmacen(CveTipoAlmacen As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_TiposAlmacenesRemove") - - SqlAdapter.SelectCommand.Parameters.Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("El Tipo de Almacen no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar el Tipo de Almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Tipo de Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " SECCIONES ALMACENES " - Public Function GetSeccionesAlmacenes() As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_INV_SeccionesAlmacenesGet") - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Secciones de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateSeccion(CveSeccion As Integer, Seccion As String, Estatus As Boolean) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_INV_SeccionesAlmacenesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion - .Add("@Seccion", SqlDbType.VarChar).Value = Seccion - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe una Sección de Almacén con el mismo nombre: " & Seccion & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetSeccionesAlmacenes(CveSeccion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_SeccionesAlmacenesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Secciones de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddSeccion(Seccion As String, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_SeccionesAlmacenesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Seccion", SqlDbType.VarChar).Value = Seccion - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe una Sección de Almacén con el mismo nombre: " & Seccion & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar la Sección de Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Sección de Almacén", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateSeccion(Seccion As String, CveAlmacen As Integer, Estatus As Boolean, CveSeccion As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_SeccionesAlmacenesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@Seccion", SqlDbType.VarChar).Value = Seccion - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe una Sección de Almacén con el mismo nombre: " & Seccion & ".", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveSeccion(CveSeccion As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_SeccionesAlmacenesRemove") - - SqlAdapter.SelectCommand.Parameters.Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion - - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 547;") Then - Alert("La Sección de Almacén no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar la Sección de Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar la Sección de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - - Public Function GetSucursalesAlmacenUsuario(CveUsuario As Integer, CveEmpresa As Integer) As Boolean - 'ME TRAE LAS SUCURSALES DE LOS ALMACENES QUE TIENE ASIGNADOS EL USUARIO - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_SucursalesAlmacenUsuarioGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las sucursales de los almacenes del usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - MOVIMIENTOS (DETALLE) " - - Public Function GetQuery(Consulta As String) As Boolean - Dim Retorno As Boolean = False - DataAdapter(Consulta, CommandType.Text) - - Try - SqlAdapter.Fill(Data) - If Data.Rows.Count > 0 Then - Retorno = True - End If - - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetMovimientosRep(CveAlmacen As Integer, CveTipoMovimiento As Integer, Folio As Integer, FechaIngI As Date, FechaIngF As Date, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveTipoMovimiento", SqlDbType.Int).Value = CveTipoMovimiento - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@FechaIngI", SqlDbType.DateTime).Value = FechaIngI - .Add("@FechaIngF", SqlDbType.DateTime).Value = FechaIngF - .Add("@FechaInicio ", SqlDbType.DateTime).Value = FechaInicio - .Add("@FechaFin ", SqlDbType.DateTime).Value = FechaFin - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - If Data.Rows.Count > 0 Then - Retorno = True - End If - - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetMovimientos(tCveMovimiento As Integer, tCveConcepto As Integer, tFolio As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = tCveMovimiento - .Add("@CveConcepto", SqlDbType.Int).Value = tCveConcepto - .Add("@Folio", SqlDbType.Int).Value = tFolio - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - - If Data IsNot Nothing AndAlso Data.Rows.Count = 1 Then - Dim dr As DataRow = Data.Rows(0) - CveConcepto = dr("CveConcepto").ToString.ToEntero - CveAlmacen = dr("CveAlmacen").ToString.ToEntero - Almacen = dr("Almacen").ToString - CveAlmacenDestino = dr("CveAlmacenDestino").ToString.ToEntero - AlmacenDestino = dr("AlmacenDestino").ToString - CveMovimiento = dr("CveMovimiento").ToString.ToEntero - CveMoneda = dr("CveMoneda").ToString.ToEntero - Moneda = dr("Moneda").ToString - CveCompra = dr("CveCompra").ToString.ToEntero - EstatusAlmacenCompra = dr("EstatusAlmacenCompra").ToString.ToEntero - CveConsignacion = dr("CveConsignacion").ToString.ToEntero - CveVenta = dr("CveVentaLiga").ToString.ToEntero - CvePersonal = dr("CvePersonal").ToString.ToEntero - NombreCompleto = dr("NombreCompleto").ToString - NombreCapturo = dr("UsuarioCapturo").ToString '--------------------------------------------------------------------------------------------- - 'CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero - Fecha = dr("FechaMovto").ToString.ToDate - FechaHora = dr("FechaMovto").ToString.ToDateTime - FechaRegistro = dr("FechaIng").ToString.ToDate - Folio = dr("Folio").ToString.ToEntero - IDPoliza = dr("IdPoliza").ToString.ToEntero - CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero - CveActivoFijo = dr("CveActivoFijo").ToString.ToEntero - CodigoAF = dr("Codigo").ToString.ToEntero - CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero - SubProyecto = dr("SubProyecto").ToString - Guia = dr("Guia").ToString - Observaciones = dr("Observaciones").ToString - Recibio = dr("Recibio").ToString - CveMovimientoRelacionado = dr("CveMovimientoRelacionado").ToString.ToEntero - FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero - TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) - ConceptoRelacionado = dr("ConceptoRelacionado").ToString - TipoCambio = dr("TipoCambio").ToString.ToDouble - FolioVenta = dr("FolioVenta").ToString - CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero - CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero - FolioOC = dr("FolioOC").ToString - FolioInterno = dr("VentaAnticipo").ToString - CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) - CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1) - NombreCliente = dr("Nombre").ToString - DepartamentoEntrega = dr("DepartamentoEntrega").ToString - PedidoContrato = dr("PedidoContrato").ToString - TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero - RazonSocialOC = dr("RazonSocialOC").ToString - CalleOrigen = dr("CalleOrigen").ToString - NoExtOrigen = dr("NoExtOrigen").ToString - ColoniaOrigen = dr("ColoniaOrigen").ToString - LocalidadOrigen = dr("LocalidadOrigen").ToString - MunicipioOrigen = dr("MunicipioOrigen").ToString - EstadoOrigen = dr("EstadoOrigen").ToString - PaisOrigen = dr("PaisOrigen").ToString - CPOrigen = dr("CPOrigen").ToString - CalleDestino = dr("CalleDestino").ToString - NoExtDestino = dr("NoExtDestino").ToString - ColoniaDestino = dr("ColoniaDestino").ToString - LocalidadDestino = dr("LocalidadDestino").ToString - MunicipioDestino = dr("MunicipioDestino").ToString - EstadoDestino = dr("EstadoDestino").ToString - PaisDestino = dr("PaisDestino").ToString - CPDestino = dr("CPDestino").ToString - Remision = dr("Remision").ToString - Proveedor = dr("RazonSocial").ToString - GastoIndirecto = dr("GastoIndirecto").ToString.ToDouble - PuestoEntrego = dr("PuestoRecibio").ToString - PuestoRecibio = dr("PuestoEntrego").ToString - ResponsableCarga = dr("ResponsableCarga").ToString - ResponsableRecibio = dr("ResponsableRecibio").ToString - - Retorno = True - End If - - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosPorPersonalGet") - - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function GetConsignaciones(CveEmpresa As Integer, CvePersonal As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ConsignacionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las Consignaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateMovimientoTimbrado(CveMovimiento As Integer, CveEstatusTimbrado As Integer, FolioFiscal As String, FechaCancelacion As Date, - Optional SelloCancelacion As String = "") As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientoTimbradoUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEstatusTimbrado", SqlDbType.Int).Value = CveEstatusTimbrado - .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal - .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion - .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar los datos de timbrado del movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function GetRepTraspasosEmitidos(CveEmpresa As Integer, CveAlmacen As Integer, CveEstatusTimbrado As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_TraspasosEmitidosRepGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveEstatusTimbrado", SqlDbType.Int).Value = CveEstatusTimbrado - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de los traspasos emitidos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function GetFolioSiguiente(CveConcepto As Integer, CveEmpresa As Integer) As Integer - Dim Retorno As Integer = 0 - DataAdapter("PA_Inv_MovimientosFoliosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero - - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddMovimiento(CveAlmacen As Integer, CveConcepto As Integer, CveMoneda As Integer, FechaMovto As DateTime, tFolio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCompra As Integer, - CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, - Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", - Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, - Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "", - Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", - Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "") As Integer - - Dim Retorno As Integer = -1 - - DataAdapter("PA_Inv_MovimientosAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - '.Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@FechaMovto", SqlDbType.DateTime).Value = String.Format("{0} {1}:{2}:{3}", FechaMovto.ToShortDateString, Now.Hour, Now.Minute, Now.Second).ToDateTime - .Add("@Folio", SqlDbType.Int).Value = tFolio - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveOS", SqlDbType.Int).Value = CveOS - .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable - .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@MovimientoFijo", SqlDbType.Bit).Value = If(MovimientoFijo, 1, 0) - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@Recibio", SqlDbType.VarChar).Value = Recibio - .Add("@DepartamentoEntrega", SqlDbType.VarChar).Value = DepartamentoEntrega - .Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado - .Add("@TipoCambio", SqlDbType.SmallMoney).Value = TipoCambio - .Add("@CveMovimiento", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@FolioMovimiento", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Remision", SqlDbType.VarChar).Value = Remision - .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato - .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@Placa", SqlDbType.VarChar).Value = Placa - .Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega - .Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad - .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga - .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio - .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion - .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Licencia", SqlDbType.VarChar).Value = Licencia - .Add("@Modulo", SqlDbType.VarChar).Value = Modulo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveMovimiento").Value.ToString.ToEntero - Folio = SqlAdapter.SelectCommand.Parameters("@FolioMovimiento").Value.ToString.ToEntero - - Catch Ex1 As SqlException - If Ex1.Message.Contains("UK_Inv_MovimientosFolio") Then - Me.OnError("El Folio ya se encuentra registrado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Else - Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - - Catch ex As Exception - OnError("Ocurrió un error al guardar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - 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 - - DataAdapter("PA_Inv_MovimientosUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaMovto", SqlDbType.DateTime).Value = FechaMovto - '.Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@Recibio", SqlDbType.VarChar).Value = Recibio - .Add("@TipoCambio", SqlDbType.SmallMoney).Value = TipoCambio - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Remision", SqlDbType.VarChar).Value = Remision - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al actualizar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al actualizar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateMovimientoPoliza(IDPoliza As Integer, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosPolizaUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al guardar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateMovimientoGuia(Guia As String, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosPolizaUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Guia", SqlDbType.VarChar).Value = Guia - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al guardar la guia del movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try - SqlAdapter.Fill(Data) - - If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then - Dim dr As DataRow = Data.Rows(0) - CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero - End If - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetMovimientosDetalleVenta(CveMovimiento As Integer, CveEmpresa As Integer, CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosVentaDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos detalle venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetMovimientosDetalleVendedor(CveMovimiento As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleVendedorGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetMovimientosDetalleImpresion(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleImpresionGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - - If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then - Dim dr As DataRow = Data.Rows(0) - CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero - End If - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetMovimientosDetalleContrato(CveContrato As Integer, CveEmpresa As Integer, Optional EsInterno As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleContratoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@EsInterno", SqlDbType.Int).Value = EsInterno - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos detalle del contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleVirtualGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + End With + Try SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos virtuales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", - Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional FechaCaducidad As Date = MinFecha, - Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1, - Optional Lote As String = "", Optional Batch As String = "", Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveUM", SqlDbType.Int).Value = CveUM - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@PU", SqlDbType.Decimal).Value = PU - .Add("@PUTC", SqlDbType.Money).Value = PUTC - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAF", SqlDbType.Int).Value = CveAF - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveMovimientoDetalleEntrada", SqlDbType.Int).Value = CveMovimientoDetalleEntrada - .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad - .Add("@CostoIndirecto", SqlDbType.Decimal).Value = CostoIndirecto - .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle - .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle - .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle - .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - .Add("@EsInterno", SqlDbType.Int).Value = EsInterno - End With - - Try - SqlAdapter.Fill(Data) - CveMovimientoDetalle = SqlAdapter.SelectCommand.Parameters("@CveMovimientoDetalle").Value.ToString.ToEntero - If CveMovimientoDetalle > 0 Then - Retorno = True - End If - Catch Ex1 As SqlException - If Ex1.Message.Contains("50019") Then - Me.OnError(" El producto no tiene existencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Else - Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - - Catch ex As Exception - - OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", - Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosDetalleUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@CveUM", SqlDbType.Int).Value = CveUM - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@PU", SqlDbType.Money).Value = PU - .Add("@PUTC", SqlDbType.Money).Value = PUTC - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CveAF", SqlDbType.Int).Value = CveAF - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - - OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function UpdateMovimientoDetalleEsInterno(CveEmpresa As Integer, CveMovimientoDetalle As Integer, EsInterno As Boolean) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosDetalleContratoEsInternoUpdate") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@EsInterno", SqlDbType.Bit).Value = EsInterno - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - - OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateCostoIndirectoMovimientoDetalle(CveMovimientoDetalle As Integer, CostoIndirecto As Decimal) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosDetalleCostoIndirectoUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle - .Add("@CostoIndirecto", SqlDbType.Money).Value = CostoIndirecto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - - OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveMovimientoDetalle(CveMovimientoDetalle As Integer, CveMovimiento As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_MovimientosDetalleRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al eliminar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - - OnError("Ocurrió un error al eliminar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetMovimientosTransitorios(CveAlmacenDestino As Integer, CveTipoAlmacenDestino As Integer, CveAlmacenTransitorio As Integer, CveUsuarioResponsable As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosTransitoriosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino - .Add("@CveTipoAlmacenDestino", SqlDbType.Int).Value = CveTipoAlmacenDestino - .Add("@CveAlmacenTransitorio", SqlDbType.Int).Value = CveAlmacenTransitorio - .Add("@Folio", SqlDbType.Int).Value = Folio - .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los movimientos transitorios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_KardexAlmacenGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function - Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional Marcas As String = "-1") As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") - - With SqlAdapter.SelectCommand.Parameters - '.Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@IncluyeTransitorios", SqlDbType.Int).Value = IncluyeTransitorios - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias - .Add("@Orden", SqlDbType.Int).Value = Orden - .Add("@Marcas", SqlDbType.VarChar).Value = Marcas - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function - Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1") As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_KardexGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Entrada", SqlDbType.Bit).Value = Entrada - .Add("@Salida", SqlDbType.Bit).Value = Salida - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveTiposAlmacen", SqlDbType.VarChar).Value = CveTiposAlmacen - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen - .Add("@Serie", SqlDbType.VarChar).Value = Serie - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al obtener el kardex.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al obtener el kardex.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Almacenes Periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno End Function -#End Region -#Region " INVENTARIOS - REPORTES " + Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean + Dim Retorno As Boolean = False - Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RepExistenciasCostosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedores - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de Existencias y costos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - - Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String, - CveFamilia As Integer, CveSubFamilia As Integer, CvePS As Integer, CveClasificacion As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1, - Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ReporteMovimientos") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes - .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia - .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveMarca", SqlDbType.Int).Value = CveMarca - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 - .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen - .Add("@Modalidad", SqlDbType.Int).Value = Modalidad - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la lista de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - 'Nuevo R: 19/10/2017 - Public Function RepMovimientosGen(CveEmpresa As Integer, FechaI As String, FechaF As String, CveProveedor As Integer, CveAlmacen As Integer, - CvePS As Integer, CveClasificacion As Integer, Agrupador As Integer, Optional CveClasificacion2 As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ReporteMovimientosGen") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 - .Add("@Agrupador", SqlDbType.Int).Value = Agrupador - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la lista de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - - - - Public Function RepExistenciasEquivalencias(CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ExistenciasEquivalenciasRep") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la lista de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function RepAlmacenCompras(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RepAlmacenCompras") - - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Almacen Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False - DataAdapter("PA_Inv_RepNotasSinAlmacen") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveClienteProveedor", SqlDbType.VarChar).Value = CveClienteProveedor - .Add("@FechaIni", SqlDbType.Date).Value = FechaIni - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@Opcion", SqlDbType.Int).Value = Opcion - .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Retorno = False - OnError("Ocurrió un error al obtener RepNotasSinAlmacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - - End Function - - Public Function GetReporteMaterialRep(CvePersonal As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosReporteMaterialRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno + DataAdapter("PA_Inv_AlmacenesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Almacen", SqlDbType.VarChar).Value = Almacen + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable + .Add("@Modalidad", SqlDbType.Int).Value = Modalidad + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Orden", SqlDbType.SmallInt).Value = Orden + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Almacén con el mismo nombre: " & Almacen & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar el Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Almacén", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_AlmacenesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Almacen", SqlDbType.VarChar).Value = Almacen + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable + .Add("@Modalidad", SqlDbType.Int).Value = Modalidad + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Orden", SqlDbType.SmallInt).Value = Orden + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Almacén con el mismo nombre: " & Almacen & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Almacén", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveAlmacen(CveAlmacen As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_AlmacenesRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("el Almacén no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#Region " TIPO ALMACEN " + + Public Function UpdateTipoAlmacen(CveTipoAlmacen As Integer, TipoAlmacen As String, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_INV_TipoAlmacenUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@TipoAlmacen", SqlDbType.VarChar).Value = TipoAlmacen + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un TipoA de Almacen con el mismo nombre: " & TipoAlmacen & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetTiposAlmacenes() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_TiposAlmacenesGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Tipos Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddTipoAlmacen(TipoAlmacen As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_TiposAlmacenesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoAlmacen", SqlDbType.VarChar).Value = TipoAlmacen + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Tipo de Almacen con el mismo nombre: " & TipoAlmacen & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar el Tipo de Almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Tipo de Almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateTipoAlmacen(TipoAlmacen As String, Estatus As Boolean, CveTipoAlmacen As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_TiposAlmacenesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@TipoAlmacen", SqlDbType.VarChar).Value = TipoAlmacen + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Almacén con el mismo nombre: " & TipoAlmacen & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Tipo de Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveTipoAlmacen(CveTipoAlmacen As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_TiposAlmacenesRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Tipo de Almacen no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Tipo de Almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Tipo de Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " SECCIONES ALMACENES " + Public Function GetSeccionesAlmacenes() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_INV_SeccionesAlmacenesGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Secciones de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateSeccion(CveSeccion As Integer, Seccion As String, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_INV_SeccionesAlmacenesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion + .Add("@Seccion", SqlDbType.VarChar).Value = Seccion + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sección de Almacén con el mismo nombre: " & Seccion & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetSeccionesAlmacenes(CveSeccion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_SeccionesAlmacenesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Secciones de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddSeccion(Seccion As String, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_SeccionesAlmacenesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Seccion", SqlDbType.VarChar).Value = Seccion + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sección de Almacén con el mismo nombre: " & Seccion & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar la Sección de Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Sección de Almacén", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateSeccion(Seccion As String, CveAlmacen As Integer, Estatus As Boolean, CveSeccion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_SeccionesAlmacenesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Seccion", SqlDbType.VarChar).Value = Seccion + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sección de Almacén con el mismo nombre: " & Seccion & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en la Sección de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveSeccion(CveSeccion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_SeccionesAlmacenesRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("La Sección de Almacén no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar la Sección de Almacén.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la Sección de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + + Public Function GetSucursalesAlmacenUsuario(CveUsuario As Integer, CveEmpresa As Integer) As Boolean + 'ME TRAE LAS SUCURSALES DE LOS ALMACENES QUE TIENE ASIGNADOS EL USUARIO + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_SucursalesAlmacenUsuarioGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las sucursales de los almacenes del usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - MOVIMIENTOS (DETALLE) " + + Public Function GetQuery(Consulta As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter(Consulta, CommandType.Text) + + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + Retorno = True + End If + + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetMovimientosRep(CveAlmacen As Integer, CveTipoMovimiento As Integer, Folio As Integer, FechaIngI As Date, FechaIngF As Date, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveTipoMovimiento", SqlDbType.Int).Value = CveTipoMovimiento + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@FechaIngI", SqlDbType.DateTime).Value = FechaIngI + .Add("@FechaIngF", SqlDbType.DateTime).Value = FechaIngF + .Add("@FechaInicio ", SqlDbType.DateTime).Value = FechaInicio + .Add("@FechaFin ", SqlDbType.DateTime).Value = FechaFin + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + Retorno = True + End If + + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetMovimientos(tCveMovimiento As Integer, tCveConcepto As Integer, tFolio As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = tCveMovimiento + .Add("@CveConcepto", SqlDbType.Int).Value = tCveConcepto + .Add("@Folio", SqlDbType.Int).Value = tFolio + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + + If Data IsNot Nothing AndAlso Data.Rows.Count = 1 Then + Dim dr As DataRow = Data.Rows(0) + CveConcepto = dr("CveConcepto").ToString.ToEntero + CveAlmacen = dr("CveAlmacen").ToString.ToEntero + Almacen = dr("Almacen").ToString + CveAlmacenDestino = dr("CveAlmacenDestino").ToString.ToEntero + AlmacenDestino = dr("AlmacenDestino").ToString + CveMovimiento = dr("CveMovimiento").ToString.ToEntero + CveMoneda = dr("CveMoneda").ToString.ToEntero + Moneda = dr("Moneda").ToString + CveCompra = dr("CveCompra").ToString.ToEntero + EstatusAlmacenCompra = dr("EstatusAlmacenCompra").ToString.ToEntero + CveConsignacion = dr("CveConsignacion").ToString.ToEntero + CveVenta = dr("CveVentaLiga").ToString.ToEntero + CvePersonal = dr("CvePersonal").ToString.ToEntero + NombreCompleto = dr("NombreCompleto").ToString + NombreCapturo = dr("UsuarioCapturo").ToString '--------------------------------------------------------------------------------------------- + 'CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero + Fecha = dr("FechaMovto").ToString.ToDate + FechaHora = dr("FechaMovto").ToString.ToDateTime + FechaRegistro = dr("FechaIng").ToString.ToDate + Folio = dr("Folio").ToString.ToEntero + IDPoliza = dr("IdPoliza").ToString.ToEntero + CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero + CveActivoFijo = dr("CveActivoFijo").ToString.ToEntero + CodigoAF = dr("Codigo").ToString.ToEntero + CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero + SubProyecto = dr("SubProyecto").ToString + Guia = dr("Guia").ToString + Observaciones = dr("Observaciones").ToString + Recibio = dr("Recibio").ToString + CveMovimientoRelacionado = dr("CveMovimientoRelacionado").ToString.ToEntero + FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero + TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) + ConceptoRelacionado = dr("ConceptoRelacionado").ToString + TipoCambio = dr("TipoCambio").ToString.ToDouble + FolioVenta = dr("FolioVenta").ToString + CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero + CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero + FolioOC = dr("FolioOC").ToString + FolioInterno = dr("VentaAnticipo").ToString + CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) + CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1) + NombreCliente = dr("Nombre").ToString + DepartamentoEntrega = dr("DepartamentoEntrega").ToString + PedidoContrato = dr("PedidoContrato").ToString + TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero + RazonSocialOC = dr("RazonSocialOC").ToString + CalleOrigen = dr("CalleOrigen").ToString + NoExtOrigen = dr("NoExtOrigen").ToString + ColoniaOrigen = dr("ColoniaOrigen").ToString + LocalidadOrigen = dr("LocalidadOrigen").ToString + MunicipioOrigen = dr("MunicipioOrigen").ToString + EstadoOrigen = dr("EstadoOrigen").ToString + PaisOrigen = dr("PaisOrigen").ToString + CPOrigen = dr("CPOrigen").ToString + CalleDestino = dr("CalleDestino").ToString + NoExtDestino = dr("NoExtDestino").ToString + ColoniaDestino = dr("ColoniaDestino").ToString + LocalidadDestino = dr("LocalidadDestino").ToString + MunicipioDestino = dr("MunicipioDestino").ToString + EstadoDestino = dr("EstadoDestino").ToString + PaisDestino = dr("PaisDestino").ToString + CPDestino = dr("CPDestino").ToString + Remision = dr("Remision").ToString + Proveedor = dr("RazonSocial").ToString + GastoIndirecto = dr("GastoIndirecto").ToString.ToDouble + PuestoEntrego = dr("PuestoRecibio").ToString + PuestoRecibio = dr("PuestoEntrego").ToString + ResponsableCarga = dr("ResponsableCarga").ToString + ResponsableRecibio = dr("ResponsableRecibio").ToString + + Retorno = True + End If + + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosPorPersonalGet") + + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function GetConsignaciones(CveEmpresa As Integer, CvePersonal As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ConsignacionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Consignaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateMovimientoTimbrado(CveMovimiento As Integer, CveEstatusTimbrado As Integer, FolioFiscal As String, FechaCancelacion As Date, + Optional SelloCancelacion As String = "") As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientoTimbradoUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEstatusTimbrado", SqlDbType.Int).Value = CveEstatusTimbrado + .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal + .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion + .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar los datos de timbrado del movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function GetRepTraspasosEmitidos(CveEmpresa As Integer, CveAlmacen As Integer, CveEstatusTimbrado As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_TraspasosEmitidosRepGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveEstatusTimbrado", SqlDbType.Int).Value = CveEstatusTimbrado + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de los traspasos emitidos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function GetFolioSiguiente(CveConcepto As Integer, CveEmpresa As Integer) As Integer + Dim Retorno As Integer = 0 + DataAdapter("PA_Inv_MovimientosFoliosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero + + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddMovimiento(CveAlmacen As Integer, CveConcepto As Integer, CveMoneda As Integer, FechaMovto As DateTime, tFolio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCompra As Integer, + CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, + Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", + Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, + Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "", + Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", + Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "") As Integer + + Dim Retorno As Integer = -1 + + DataAdapter("PA_Inv_MovimientosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + '.Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) + .Add("@FechaMovto", SqlDbType.DateTime).Value = String.Format("{0} {1}:{2}:{3}", FechaMovto.ToShortDateString, Now.Hour, Now.Minute, Now.Second).ToDateTime + .Add("@Folio", SqlDbType.Int).Value = tFolio + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable + .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@MovimientoFijo", SqlDbType.Bit).Value = If(MovimientoFijo, 1, 0) + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Recibio", SqlDbType.VarChar).Value = Recibio + .Add("@DepartamentoEntrega", SqlDbType.VarChar).Value = DepartamentoEntrega + .Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado + .Add("@TipoCambio", SqlDbType.SmallMoney).Value = TipoCambio + .Add("@CveMovimiento", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@FolioMovimiento", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Remision", SqlDbType.VarChar).Value = Remision + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato + .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@Placa", SqlDbType.VarChar).Value = Placa + .Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega + .Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad + .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga + .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio + .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion + .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Licencia", SqlDbType.VarChar).Value = Licencia + .Add("@Modulo", SqlDbType.VarChar).Value = Modulo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveMovimiento").Value.ToString.ToEntero + Folio = SqlAdapter.SelectCommand.Parameters("@FolioMovimiento").Value.ToString.ToEntero + + Catch Ex1 As SqlException + If Ex1.Message.Contains("UK_Inv_MovimientosFolio") Then + Me.OnError("El Folio ya se encuentra registrado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Else + Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + + Catch ex As Exception + OnError("Ocurrió un error al guardar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + 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 + + DataAdapter("PA_Inv_MovimientosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaMovto", SqlDbType.DateTime).Value = FechaMovto + '.Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Recibio", SqlDbType.VarChar).Value = Recibio + .Add("@TipoCambio", SqlDbType.SmallMoney).Value = TipoCambio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Remision", SqlDbType.VarChar).Value = Remision + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al actualizar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al actualizar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateMovimientoPoliza(IDPoliza As Integer, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosPolizaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al guardar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateMovimientoGuia(Guia As String, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosPolizaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Guia", SqlDbType.VarChar).Value = Guia + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al guardar la guia del movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + + If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then + Dim dr As DataRow = Data.Rows(0) + CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero + End If + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetMovimientosDetalleVenta(CveMovimiento As Integer, CveEmpresa As Integer, CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosVentaDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos detalle venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetMovimientosDetalleVendedor(CveMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleVendedorGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetMovimientosDetalleImpresion(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleImpresionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + + If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then + Dim dr As DataRow = Data.Rows(0) + CveSeccion = dr("CveSeccionAlmacen").ToString.ToEntero + End If + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetMovimientosDetalleContrato(CveContrato As Integer, CveEmpresa As Integer, Optional EsInterno As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleContratoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@EsInterno", SqlDbType.Int).Value = EsInterno + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos detalle del contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleVirtualGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos virtuales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", + Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional FechaCaducidad As Date = MinFecha, + Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1, + Optional Lote As String = "", Optional Batch As String = "", Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@PU", SqlDbType.Decimal).Value = PU + .Add("@PUTC", SqlDbType.Money).Value = PUTC + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Lote", SqlDbType.VarChar).Value = Lote + .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveMovimientoDetalleEntrada", SqlDbType.Int).Value = CveMovimientoDetalleEntrada + .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad + .Add("@CostoIndirecto", SqlDbType.Decimal).Value = CostoIndirecto + .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle + .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle + .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + .Add("@EsInterno", SqlDbType.Int).Value = EsInterno + End With + + Try + SqlAdapter.Fill(Data) + CveMovimientoDetalle = SqlAdapter.SelectCommand.Parameters("@CveMovimientoDetalle").Value.ToString.ToEntero + If CveMovimientoDetalle > 0 Then + Retorno = True + End If + Catch Ex1 As SqlException + If Ex1.Message.Contains("50019") Then + Me.OnError(" El producto no tiene existencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Else + Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + + Catch ex As Exception + + OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", + Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@PU", SqlDbType.Money).Value = PU + .Add("@PUTC", SqlDbType.Money).Value = PUTC + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + + OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function UpdateMovimientoDetalleEsInterno(CveEmpresa As Integer, CveMovimientoDetalle As Integer, EsInterno As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosDetalleContratoEsInternoUpdate") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@EsInterno", SqlDbType.Bit).Value = EsInterno + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + + OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateCostoIndirectoMovimientoDetalle(CveMovimientoDetalle As Integer, CostoIndirecto As Decimal) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosDetalleCostoIndirectoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + .Add("@CostoIndirecto", SqlDbType.Money).Value = CostoIndirecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + + OnError("Ocurrió un error al guardar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveMovimientoDetalle(CveMovimientoDetalle As Integer, CveMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_MovimientosDetalleRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al eliminar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + + OnError("Ocurrió un error al eliminar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetMovimientosTransitorios(CveAlmacenDestino As Integer, CveTipoAlmacenDestino As Integer, CveAlmacenTransitorio As Integer, CveUsuarioResponsable As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosTransitoriosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino + .Add("@CveTipoAlmacenDestino", SqlDbType.Int).Value = CveTipoAlmacenDestino + .Add("@CveAlmacenTransitorio", SqlDbType.Int).Value = CveAlmacenTransitorio + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los movimientos transitorios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_KardexAlmacenGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional Marcas As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") + + With SqlAdapter.SelectCommand.Parameters + '.Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@IncluyeTransitorios", SqlDbType.Int).Value = IncluyeTransitorios + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias + .Add("@Orden", SqlDbType.Int).Value = Orden + .Add("@Marcas", SqlDbType.VarChar).Value = Marcas + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_KardexGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Entrada", SqlDbType.Bit).Value = Entrada + .Add("@Salida", SqlDbType.Bit).Value = Salida + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveTiposAlmacen", SqlDbType.VarChar).Value = CveTiposAlmacen + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen + .Add("@Serie", SqlDbType.VarChar).Value = Serie + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener el kardex.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al obtener el kardex.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + +#End Region + +#Region " INVENTARIOS - REPORTES " + + Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RepExistenciasCostosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedores + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Existencias y costos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String, + CveFamilia As Integer, CveSubFamilia As Integer, CvePS As Integer, CveClasificacion As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1, + Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ReporteMovimientos") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes + .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia + .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 + .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen + .Add("@Modalidad", SqlDbType.Int).Value = Modalidad + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la lista de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + 'Nuevo R: 19/10/2017 + Public Function RepMovimientosGen(CveEmpresa As Integer, FechaI As String, FechaF As String, CveProveedor As Integer, CveAlmacen As Integer, + CvePS As Integer, CveClasificacion As Integer, Agrupador As Integer, Optional CveClasificacion2 As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ReporteMovimientosGen") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 + .Add("@Agrupador", SqlDbType.Int).Value = Agrupador + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la lista de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + + + Public Function RepExistenciasEquivalencias(CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ExistenciasEquivalenciasRep") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la lista de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RepAlmacenCompras(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RepAlmacenCompras") + + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Almacen Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno = False + DataAdapter("PA_Inv_RepNotasSinAlmacen") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClienteProveedor", SqlDbType.VarChar).Value = CveClienteProveedor + .Add("@FechaIni", SqlDbType.Date).Value = FechaIni + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Retorno = False + OnError("Ocurrió un error al obtener RepNotasSinAlmacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + + End Function + + Public Function GetReporteMaterialRep(CvePersonal As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosReporteMaterialRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno End Function Public Function RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean