From e84aba6082979db96533e9f00d69effd7704704a Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Fri, 22 Nov 2019 00:46:51 -0700 Subject: [PATCH] Filtro por numero de serie en el kardex --- App_Code/ClsInventarios.vb | 9593 ++++++++++++++++++------------------ Inventarios/Kardex.aspx | 78 +- Inventarios/Kardex.aspx.vb | 766 +-- 3 files changed, 5239 insertions(+), 5198 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e7603cf05..561449597 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1,4818 +1,4817 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Data.SqlClient -Imports Extensiones - -Public Class ClsInventarios - Implements IDisposable - -#Region " CAMPOS " - 'SQL - Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter - Private SqlTransacc As SqlTransaction - Private Data As DataTable - - Private disposedValue As Boolean = False ' Para detectar llamadas redundantes - 'REGISTRAR CONEXIONES ABIERTAS - Private CveConexion As Integer = 0 - - -#End Region - - Public Function IniciaTransacSQL() As SqlTransaction - If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() - Return SqlTransacc - End Function - - Public Sub RollBack() - If SqlTransacc.Connection IsNot Nothing Then SqlTransacc.Rollback() - End Sub - - Public Sub Commit() - If SqlTransacc.Connection IsNot Nothing Then SqlTransacc.Commit() - End Sub - -#Region " PROPIEDADES " - - Public Property Fecha As Date - Public Property FechaHora As DateTime - Public Property FechaRegistro As Date - Public Property CveMovimiento As Integer - Public Property CveMovimientoDetalle As Integer - Public Property CveSucursal As Integer - Public Property CveAlmacenDestino As Integer - Public Property CveAlmacen As Integer - Public Property Almacen As String - Public Property CveConcepto As Integer - Public Property CveMoneda As Integer - Public Property Moneda As String - Public Property CveSeccion As Integer - Public Property FechaI As String - Public Property FechaF As String - Public Property Sucursal As String - Public Property AlmacenDestino As String - Public Property Estatus As String - Public Property InventarioFisico As String - Public Property Observaciones As String - Public Property Recibio As String - Public Property CveMovimientoRelacionado As Integer - Public Property FolioRelacionado As Integer - Public Property TieneRelacionado As Integer - Public Property ConceptoRelacionado As String - Public Property Folio As Integer - Public Property IDPoliza As Integer - Public Property CvePrePoliza As Integer - Public Property CveCompra As Integer - Public Property EstatusAlmacenCompra As Integer - Public Property CveConsignacion As Integer - Public Property CveVenta As Integer - Public Property TipoEstatus As Integer - Public Property EsDevolucionVenta As Integer - Public Property CvePersonal As Integer - Public Property NombreCompleto As String - Public Property NombreCapturo As String - Public Property CveActivoFijo As Integer - Public Property CodigoAF As Integer - Public Property CveSubProyecto As Integer - Public Property CveSubProyectoInventario As Integer - Public Property SubProyecto As String - Public Property SubProyectoInventario As String - Public Property SerieLote As String - Public Property Guia As String - Public Property TipoCambio As Double - Public Property FolioVenta As String - Public Property CveOrdenCompra As Integer - Public Property CveOrdenCompraLiga As Integer - Public Property FolioOC As String - Public Property CvePS As Integer - Public Property CveEntregaForanea As Integer - Public Property CvePaqueteriaGuia As Integer - Public Property CveInventarioFisico As Integer - Public Property FolioInterno As String - Public Property CveTraspasoSolicitud As Integer - Public Property CveGrupoPS As Integer - Public Property CveFlete As Integer - Public Property CveCliente As Integer +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Data.SqlClient +Imports Extensiones + +Public Class ClsInventarios + Implements IDisposable + +#Region " CAMPOS " + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlTransacc As SqlTransaction + Private Data As DataTable + + Private disposedValue As Boolean = False ' Para detectar llamadas redundantes + 'REGISTRAR CONEXIONES ABIERTAS + Private CveConexion As Integer = 0 + + +#End Region + + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + + Public Sub RollBack() + If SqlTransacc.Connection IsNot Nothing Then SqlTransacc.Rollback() + End Sub + + Public Sub Commit() + If SqlTransacc.Connection IsNot Nothing Then SqlTransacc.Commit() + End Sub + +#Region " PROPIEDADES " + + Public Property Fecha As Date + Public Property FechaHora As DateTime + Public Property FechaRegistro As Date + Public Property CveMovimiento As Integer + Public Property CveMovimientoDetalle As Integer + Public Property CveSucursal As Integer + Public Property CveAlmacenDestino As Integer + Public Property CveAlmacen As Integer + Public Property Almacen As String + Public Property CveConcepto As Integer + Public Property CveMoneda As Integer + Public Property Moneda As String + Public Property CveSeccion As Integer + Public Property FechaI As String + Public Property FechaF As String + Public Property Sucursal As String + Public Property AlmacenDestino As String + Public Property Estatus As String + Public Property InventarioFisico As String + Public Property Observaciones As String + Public Property Recibio As String + Public Property CveMovimientoRelacionado As Integer + Public Property FolioRelacionado As Integer + Public Property TieneRelacionado As Integer + Public Property ConceptoRelacionado As String + Public Property Folio As Integer + Public Property IDPoliza As Integer + Public Property CvePrePoliza As Integer + Public Property CveCompra As Integer + Public Property EstatusAlmacenCompra As Integer + Public Property CveConsignacion As Integer + Public Property CveVenta As Integer + Public Property TipoEstatus As Integer + Public Property EsDevolucionVenta As Integer + Public Property CvePersonal As Integer + Public Property NombreCompleto As String + Public Property NombreCapturo As String + Public Property CveActivoFijo As Integer + Public Property CodigoAF As Integer + Public Property CveSubProyecto As Integer + Public Property CveSubProyectoInventario As Integer + Public Property SubProyecto As String + Public Property SubProyectoInventario As String + Public Property SerieLote As String + Public Property Guia As String + Public Property TipoCambio As Double + Public Property FolioVenta As String + Public Property CveOrdenCompra As Integer + Public Property CveOrdenCompraLiga As Integer + Public Property FolioOC As String + Public Property CvePS As Integer + Public Property CveEntregaForanea As Integer + Public Property CvePaqueteriaGuia As Integer + Public Property CveInventarioFisico As Integer + Public Property FolioInterno As String + Public Property CveTraspasoSolicitud As Integer + Public Property CveGrupoPS As Integer + Public Property CveFlete As Integer + Public Property CveCliente As Integer Public Property CveClienteSucursal As Integer - Public Property NombreCliente As String - Public Property DepartamentoEntrega As String - Public Property PedidoContrato As String - Public Property GastoIndirecto As Double - Public Property TienePrePoliza As Integer - Public Property RazonSocialOC As String - Public Property Remision As String - Public Property Proveedor As String - Public Property CalleOrigen As String - Public Property NoExtOrigen As String - Public Property ColoniaOrigen As String - Public Property LocalidadOrigen As String - Public Property MunicipioOrigen As String - Public Property EstadoOrigen As String - Public Property PaisOrigen As String - Public Property CPOrigen As String - Public Property CalleDestino As String - Public Property NoExtDestino As String - Public Property ColoniaDestino As String - Public Property LocalidadDestino As String - Public Property MunicipioDestino As String - Public Property EstadoDestino As String - Public Property PaisDestino As String - Public Property CPDestino As String - Public Property PuestoRecibio As String - Public Property PuestoEntrego As String - Public Property CveRemanufactura As Integer - Public Property ResponsableCarga As String - Public Property ResponsableRecibio As String - - - - Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property - -#End Region - - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) - - If TransaccionCompartida Is Nothing Then - SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - Try - SqlConexion.Open() - Catch ex As Exception - OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) - End Try - Else - SqlConexion = TransaccionCompartida.Connection - SqlTransacc = TransaccionCompartida - End If - - SqlAdapter = New SqlDataAdapter("", SqlConexion) - ConexionAdd() - End Sub - - Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlAdapter.SelectCommand - .Parameters.Clear() - .CommandText = pStrSQL - .CommandType = TipoComando - End With - If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - Data = New DataTable - End Sub -#Region "Conexiones" - - Private Sub ConexionAdd() - If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - Try - DataAdapter("PA_Sis_RegistrarConexion") - With SqlAdapter.SelectCommand.Parameters - .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name - .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) - .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - SqlAdapter.Fill(Data) - CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - End If - End Sub - - Private Sub ConexionClose() - If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - - DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - CveConexion = 0 - End If - - End Sub -#End Region - -#Region " INVENTARIOS - CONCEPTOS " - - Public Function GetConceptos() As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ConceptosGet") - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de conceptos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - ALMACENES " - - Public Function AddAlmacen2(Almacen As String, CveSucursal As Integer, CveTipoAlmacen As Integer, CveSeccion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_INV_AlmacenAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Almacen", SqlDbType.VarChar).Value = Almacen - .Add("@CveSucursal", SqlDbType.Int).Value = CveSucursal - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion - .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 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 UpdateAlmacen2(CveAlmacen As Integer, Almacen As String, CveSucursal As Integer, CveTipoAlmacen As Integer, CveSeccion As Integer, Estatus As Boolean) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_INV_AlmacenUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@Almacen", SqlDbType.VarChar).Value = Almacen - .Add("@CveSucursal", SqlDbType.Int).Value = CveSucursal - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion - .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: " & 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 GetAlmacenes(CveTipoAlmacen As Integer, Modalidad As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_AlmacenesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@Modalidad", SqlDbType.Int).Value = Modalidad - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Catálogo de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function + Public Property DepartamentoEntrega As String + Public Property PedidoContrato As String + Public Property GastoIndirecto As Double + Public Property TienePrePoliza As Integer + Public Property RazonSocialOC As String + Public Property Remision As String + Public Property Proveedor As String + Public Property CalleOrigen As String + Public Property NoExtOrigen As String + Public Property ColoniaOrigen As String + Public Property LocalidadOrigen As String + Public Property MunicipioOrigen As String + Public Property EstadoOrigen As String + Public Property PaisOrigen As String + Public Property CPOrigen As String + Public Property CalleDestino As String + Public Property NoExtDestino As String + Public Property ColoniaDestino As String + Public Property LocalidadDestino As String + Public Property MunicipioDestino As String + Public Property EstadoDestino As String + Public Property PaisDestino As String + Public Property CPDestino As String + Public Property PuestoRecibio As String + Public Property PuestoEntrego As String + Public Property CveRemanufactura As Integer + Public Property ResponsableCarga As String + Public Property ResponsableRecibio As String + + + + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property + +#End Region + + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + End If + + SqlAdapter = New SqlDataAdapter("", SqlConexion) + ConexionAdd() + End Sub + + Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = pStrSQL + .CommandType = TipoComando + End With + If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable + End Sub +#Region "Conexiones" + + Private Sub ConexionAdd() + If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + Try + DataAdapter("PA_Sis_RegistrarConexion") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name + .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) + .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + SqlAdapter.Fill(Data) + CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + CveConexion = 0 + End If + + End Sub +#End Region + +#Region " INVENTARIOS - CONCEPTOS " + + Public Function GetConceptos() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ConceptosGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de conceptos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - ALMACENES " + + Public Function AddAlmacen2(Almacen As String, CveSucursal As Integer, CveTipoAlmacen As Integer, CveSeccion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_INV_AlmacenAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Almacen", SqlDbType.VarChar).Value = Almacen + .Add("@CveSucursal", SqlDbType.Int).Value = CveSucursal + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion + .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 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 UpdateAlmacen2(CveAlmacen As Integer, Almacen As String, CveSucursal As Integer, CveTipoAlmacen As Integer, CveSeccion As Integer, Estatus As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_INV_AlmacenUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Almacen", SqlDbType.VarChar).Value = Almacen + .Add("@CveSucursal", SqlDbType.Int).Value = CveSucursal + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion + .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: " & 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 GetAlmacenes(CveTipoAlmacen As Integer, Modalidad As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_AlmacenesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@Modalidad", SqlDbType.Int).Value = Modalidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, - Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, - Optional CveUsuarioConsulta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_AlmacenesRepGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaInicio - .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen - .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable - .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables + Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, + Optional CveUsuarioConsulta As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_AlmacenesRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen + .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable + .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .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 Catálogo de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetRepAlmacenesPeriodo(FechaCorte As Date, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, VerEn As Integer, - Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_AlmacenesPeriodoRepGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen - .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable - .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable - .Add("@VerEn", SqlDbType.Int).Value = VerEn + .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 Catálogo de Almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetRepAlmacenesPeriodo(FechaCorte As Date, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, VerEn As Integer, + Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_AlmacenesPeriodoRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen + .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable + .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable + .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) 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 - 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) 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 - 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 = "") 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 = $"{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 - 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 AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", - Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Double = -1, Optional FechaCaducidad As Date = MinFecha, - Optional CostoIndirecto As Double = 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.Float).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.Float).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, CveUsuario As Integer, CveEmpresa As Integer) 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("@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 - 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) 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 - 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 + .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 RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RepTraspasoAlmacen") - + + 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) 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 + 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) 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 + 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) + 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 = "") 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 = $"{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 + 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 AddMovimientoDetalle(CveMovimiento As Integer, Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional SerieLote As String = "", + Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Double = -1, Optional FechaCaducidad As Date = MinFecha, + Optional CostoIndirecto As Double = 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.Float).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.Float).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, CveUsuario As Integer, CveEmpresa As Integer) 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("@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 + 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 = "") 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 + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RepTraspasoAlmacen") + With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen - .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino - .Add("@Recibido", SqlDbType.Bit).Value = Recibido - .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 Traspaso de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen + .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino + .Add("@Recibido", SqlDbType.Bit).Value = Recibido + .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 Traspaso de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno End Function -#End Region +#End Region -#Region " INVENTARIOS - EXISTENCIAS " - Public Function GetExistenciasPS(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, - CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, - Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", - Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Decimal - Dim Retorno As Decimal = -1 - - If FechaMovto = "-1" Then - FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) - End If - - DataAdapter("PA_Inv_ExistenciasPSGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado - .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir - .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados - .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes - - .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output - .Add("@CvePSRetorno", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@Existencia").Value.ToString.ToDecimal() - Me.CvePS = SqlAdapter.SelectCommand.Parameters("@CvePSRetorno").Value.ToString.ToEntero - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetExistenciasProducto(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, - CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, - Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", - Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ExistenciasGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado - .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir - .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados - .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes - .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las Existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetExistenciasPSSerie(SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer, Optional FechaMovto As String = "-1") As Decimal - - If SerieLote = "" Then Return 0 - - Dim Retorno As Decimal = 0 - If FechaMovto = "-1" Then - FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) - End If - - DataAdapter("PA_Inv_ExistenciasPSSerieGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - ' .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - - .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output - .Add("@CvePS", SqlDbType.Int).Direction = ParameterDirection.Output - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@Existencia").Value.ToString.ToDecimal - CvePS = SqlAdapter.SelectCommand.Parameters("@CvePS").Value.ToString.ToEntero - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al obtener las existencias.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function - Public Function GetCostoPSSerie(CvePS As Integer, SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer) As Decimal - Dim Retorno As Decimal = 0 - DataAdapter("PA_Inv_CostoPSSerieGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@Costo").Value.ToString.ToDecimal - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener las existencias.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetExistenciasAlmacenDT(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ExistenciasDTGET") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .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 existencias de los almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_ProductosServiciosInventario") - With SqlAdapter.SelectCommand.Parameters - .Add("@PS", SqlDbType.VarChar).Value = PS - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@AplicaParaVenta", SqlDbType.Int).Value = AplicaParaVenta - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - - End Function - - Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, - CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, - Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", - Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - If FechaMovto = "-1" Then - FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) - End If - - DataAdapter("PA_Inv_ExistenciasPSEmpaqueGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado - .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir - .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados - .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetExistenciasPSXML(XML As String, CveAlmacen As Integer, Fecha As String, CveSubProyecto As Integer, CveVendedor As Integer, CveCliente As Integer, ExcluyeApartados As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno = False - - If Fecha = "-1" Then - Fecha = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) - End If - - DataAdapter("PA_Inv_ExistenciasPSXMLGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@XML", SqlDbType.Xml).Value = XML - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@Fecha", SqlDbType.DateTime).Value = DateTime.ParseExact(Fecha, "yyyy/MM/dd HH:mm", Nothing) - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados - .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 momento de vericar la existencia de los productos por xml.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno +#Region " INVENTARIOS - EXISTENCIAS " + Public Function GetExistenciasPS(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, + CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, + Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, + Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", + Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Decimal + Dim Retorno As Decimal = -1 + + If FechaMovto = "-1" Then + FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) + End If + + DataAdapter("PA_Inv_ExistenciasPSGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Lote", SqlDbType.VarChar).Value = Lote + .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado + .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir + .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados + .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes + + .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output + .Add("@CvePSRetorno", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@Existencia").Value.ToString.ToDecimal() + Me.CvePS = SqlAdapter.SelectCommand.Parameters("@CvePSRetorno").Value.ToString.ToEntero + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function -#End Region + Public Function GetExistenciasProducto(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, + CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, + Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, + Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", + Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ExistenciasGet") -#Region " INVENTARIOS - INVENTARIO FISICO " + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Lote", SqlDbType.VarChar).Value = Lote + .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado + .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir + .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados + .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes + .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try - Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@InventarioFisico", SqlDbType.VarChar).Value = InventarioFisico - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@CveInventarioFisico", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - - SqlAdapter.Fill(Data) - CveInventarioFisico = SqlAdapter.SelectCommand.Parameters("@CveInventarioFisico").Value.ToString.ToEntero - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar el Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al guardar el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateInventarioFisico(CveInventarioFisico As Integer, InventarioFisico As String, Observaciones As String, - CveSubProyecto As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@InventarioFisico", SqlDbType.VarChar).Value = InventarioFisico - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al modificar el Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al modificar el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateInventarioFisicoEstatus(CveInventarioFisico As Integer, CveEstatus As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoUpdateEstatus") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al actualizar estatus del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al actualizar estatus del Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetInventarioFisico(CveInventarioFisico As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Estado As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Estado", SqlDbType.Int).Value = Estado - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then - Dim dr As DataRow = Data.Rows(0) - InventarioFisico = dr("InventarioFisico").ToString - Observaciones = dr("Observaciones").ToString - CveSubProyectoInventario = dr("CveSubProyecto").ToString.ToEntero - SubProyectoInventario = dr("SubProyecto").ToString - FechaI = dr("FechaInicio").ToString - FechaF = dr("FechaFin").ToString - Estatus = dr("Estatus").ToString - Retorno = True - End If - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener el Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveInventarioFisico(CveInventarioFisico As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("El inventario fisico se encuentra actualmente en uso.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al Eliminar el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AddInventarioFisicoClasificaciones(CveInventarioFisico As Integer, CveClasificacion As Integer, CveUsuario As Integer, Incluye As Boolean) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoClasificacionesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Incluye", SqlDbType.Bit).Value = Incluye - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveInventarioFisicoAlamacen(CveInventarioFisico As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoAlmacenesRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al eliminar el almacen del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al eliminar el almacen del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function RemoveInventarioFisicoClasificacion(CveInventarioFisico As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoClasificacionesRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al eliminar la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al eliminar la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function AddInventarioFisico(CveInventarioFisico As Integer, CveClasificacion As Integer, CveUsuario As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoClasificacionesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AddInventarioFisicoProductosServicios(CveInventarioFisico As Integer, CvePS As Integer, Incluye As Boolean) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoProductosServiciosAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Incluye", SqlDbType.Bit).Value = If(Incluye, 1, 0) - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar el producto del servicio del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al guardar el producto del servicio del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function RemoveInventarioFisicoProductosServicios(CveInventarioFisico As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoProductosServiciosRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al eliminar el producto del servicio del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al eliminar el producto del servicio del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function AddInventarioFisicoAlmacenes(CveInventarioFisico As Integer, CveAlmacen As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoAlmacenesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al agregar elalmacen del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al agregar elalmacen del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetInventarioFisicoDetallesAlmacen(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoDetallesAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetInventarioFisicoDetallesClasificacion(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoDetallesClasificacionGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoDetallesProductosServiciosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - -#Region "I N V E N T A R I O - F I S I C O - D E T A L L E" - - Public Function UpdateInventarioFisicoDetalles(CveInventarioFisicoDetalle As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoDetalleUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisicoDetalle", SqlDbType.Int).Value = CveInventarioFisicoDetalle - .Add("@CveUM", SqlDbType.Int).Value = CveUM - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@CvePS", SqlDbType.Int).Value = CvePS - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al Actualizar los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al Actualizar los detalles del Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, SerieLote As String, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveUM", SqlDbType.Int).Value = CveUM - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Estatus", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - - If SqlAdapter.SelectCommand.Parameters("@Estatus").Value.ToString.ToEntero = 1 Then - Retorno = True - ElseIf SqlAdapter.SelectCommand.Parameters("@Estatus").Value.ToString.ToEntero = 2 Then - Retorno = False - Alert($"Ya existe la Serie {SerieLote} en el inventario actual.", TipoMensaje.MsgAdvertencia) - End If - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al Guardar los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al Guardar los detalles del Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveInventarioFisicoDetalles(CveInventarioFisicoDetalle As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoDetalleRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisicoDetalle", SqlDbType.Int).Value = CveInventarioFisicoDetalle - - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al remover los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al remover los detalles del Inventario Físico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + Return Retorno + End Function + Public Function GetExistenciasPSSerie(SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer, Optional FechaMovto As String = "-1") As Decimal + + If SerieLote = "" Then Return 0 + + Dim Retorno As Decimal = 0 + If FechaMovto = "-1" Then + FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) + End If + + DataAdapter("PA_Inv_ExistenciasPSSerieGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + ' .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) + + .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output + .Add("@CvePS", SqlDbType.Int).Direction = ParameterDirection.Output + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@Existencia").Value.ToString.ToDecimal + CvePS = SqlAdapter.SelectCommand.Parameters("@CvePS").Value.ToString.ToEntero + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener las existencias.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function GetCostoPSSerie(CvePS As Integer, SerieLote As String, CveAlmacen As Integer, CveEmpresa As Integer) As Decimal + Dim Retorno As Decimal = 0 + DataAdapter("PA_Inv_CostoPSSerieGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@Costo").Value.ToString.ToDecimal + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener las existencias.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetExistenciasAlmacenDT(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ExistenciasDTGET") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .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 existencias de los almacenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ProductosServiciosInventario") + With SqlAdapter.SelectCommand.Parameters + .Add("@PS", SqlDbType.VarChar).Value = PS + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@AplicaParaVenta", SqlDbType.Int).Value = AplicaParaVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + + End Function + + Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, + CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1, + Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, + Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1", + Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + If FechaMovto = "-1" Then + FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) + End If + + DataAdapter("PA_Inv_ExistenciasPSEmpaqueGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@Lote", SqlDbType.VarChar).Value = Lote + .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado + .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir + .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados + .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetExistenciasPSXML(XML As String, CveAlmacen As Integer, Fecha As String, CveSubProyecto As Integer, CveVendedor As Integer, CveCliente As Integer, ExcluyeApartados As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno = False + + If Fecha = "-1" Then + Fecha = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd")) + End If + + DataAdapter("PA_Inv_ExistenciasPSXMLGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@XML", SqlDbType.Xml).Value = XML + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Fecha", SqlDbType.DateTime).Value = DateTime.ParseExact(Fecha, "yyyy/MM/dd HH:mm", Nothing) + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Agrupar", SqlDbType.Bit).Value = Agrupar - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - - Me.OnError("Ocurrió un error al Obtener los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al Obtener los detalles del Inventario Físico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de vericar la existencia de los productos por xml.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - INVENTARIO FISICO " + + Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@InventarioFisico", SqlDbType.VarChar).Value = InventarioFisico + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveInventarioFisico", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + + SqlAdapter.Fill(Data) + CveInventarioFisico = SqlAdapter.SelectCommand.Parameters("@CveInventarioFisico").Value.ToString.ToEntero + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar el Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function - Public Function GetInventarioFisicoContador(CveInventarioFisico As Integer, CveUsuario As Integer, CodigoBarras As String) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_InventarioFisicoContadorGET") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras + Public Function UpdateInventarioFisico(CveInventarioFisico As Integer, InventarioFisico As String, Observaciones As String, + CveSubProyecto As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@InventarioFisico", SqlDbType.VarChar).Value = InventarioFisico + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al modificar el Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al modificar el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateInventarioFisicoEstatus(CveInventarioFisico As Integer, CveEstatus As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoUpdateEstatus") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al actualizar estatus del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al actualizar estatus del Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetInventarioFisico(CveInventarioFisico As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Estado As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Estado", SqlDbType.Int).Value = Estado + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + If Data IsNot Nothing AndAlso Data.Rows.Count >= 1 Then + Dim dr As DataRow = Data.Rows(0) + InventarioFisico = dr("InventarioFisico").ToString + Observaciones = dr("Observaciones").ToString + CveSubProyectoInventario = dr("CveSubProyecto").ToString.ToEntero + SubProyectoInventario = dr("SubProyecto").ToString + FechaI = dr("FechaInicio").ToString + FechaF = dr("FechaFin").ToString + Estatus = dr("Estatus").ToString + Retorno = True + End If + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener el Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveInventarioFisico(CveInventarioFisico As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("El inventario fisico se encuentra actualmente en uso.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al Eliminar el Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddInventarioFisicoClasificaciones(CveInventarioFisico As Integer, CveClasificacion As Integer, CveUsuario As Integer, Incluye As Boolean) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoClasificacionesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .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 los detalles del Inventario Físico(Contador).", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - - Catch ex As Exception - OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region + .Add("@Incluye", SqlDbType.Bit).Value = Incluye + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveInventarioFisicoAlamacen(CveInventarioFisico As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoAlmacenesRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar el almacen del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al eliminar el almacen del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RemoveInventarioFisicoClasificacion(CveInventarioFisico As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoClasificacionesRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al eliminar la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function AddInventarioFisico(CveInventarioFisico As Integer, CveClasificacion As Integer, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoClasificacionesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddInventarioFisicoProductosServicios(CveInventarioFisico As Integer, CvePS As Integer, Incluye As Boolean) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoProductosServiciosAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Incluye", SqlDbType.Bit).Value = If(Incluye, 1, 0) + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar el producto del servicio del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar el producto del servicio del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RemoveInventarioFisicoProductosServicios(CveInventarioFisico As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoProductosServiciosRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar el producto del servicio del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al eliminar el producto del servicio del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function AddInventarioFisicoAlmacenes(CveInventarioFisico As Integer, CveAlmacen As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoAlmacenesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al agregar elalmacen del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al agregar elalmacen del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetInventarioFisicoDetallesAlmacen(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoDetallesAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetInventarioFisicoDetallesClasificacion(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoDetallesClasificacionGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoDetallesProductosServiciosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + +#Region "I N V E N T A R I O - F I S I C O - D E T A L L E" + + Public Function UpdateInventarioFisicoDetalles(CveInventarioFisicoDetalle As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisicoDetalle", SqlDbType.Int).Value = CveInventarioFisicoDetalle + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CvePS", SqlDbType.Int).Value = CvePS + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al Actualizar los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al Actualizar los detalles del Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, SerieLote As String, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + + If SqlAdapter.SelectCommand.Parameters("@Estatus").Value.ToString.ToEntero = 1 Then + Retorno = True + ElseIf SqlAdapter.SelectCommand.Parameters("@Estatus").Value.ToString.ToEntero = 2 Then + Retorno = False + Alert($"Ya existe la Serie {SerieLote} en el inventario actual.", TipoMensaje.MsgAdvertencia) + End If + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al Guardar los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al Guardar los detalles del Inventario Físico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveInventarioFisicoDetalles(CveInventarioFisicoDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoDetalleRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisicoDetalle", SqlDbType.Int).Value = CveInventarioFisicoDetalle + + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al remover los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al remover los detalles del Inventario Físico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Agrupar", SqlDbType.Bit).Value = Agrupar + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al Obtener los detalles del Inventario Físico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al Obtener los detalles del Inventario Físico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetInventarioFisicoContador(CveInventarioFisico As Integer, CveUsuario As Integer, CodigoBarras As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoContadorGET") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras + .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 los detalles del Inventario Físico(Contador).", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O" + Public Function AddInventarioFisicoResultados(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoResultadoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el Inventario Fisico Resultado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetInventarioFisicoResultados(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoResultadosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .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 Inventario Fisico Avance", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetInventarioFisicoResultadosAvance(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoResultadoAvance") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Inventario Fisico Avance", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + + Public Function RepAnomalias(CveInventarioFisico As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ReporteAnomalias") + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Anomalias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RepAnomalias2(CveInventarioFisico As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_Rep_AnomaliasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de anomalias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + +#End Region + +#Region " INVENTARIOS - MAXIMO MINIMO" + Public Function RepMaximoMinimo(CveSubproyecto As Integer, CveAlmacen As Integer, CveClasificacion2 As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ReporteMaximoMinimo") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 + .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 Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RepMaximoMinimoDetalleGet(CveSubProyecto As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ReporteMaximoMinimoDetalle") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .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 los detalles del Reporte de Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Double, Minimo As Double, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_AlmacenesMaximoMinimoAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Maximo", SqlDbType.Money).Value = Maximo + .Add("@Minimo", SqlDbType.Money).Value = Minimo + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Double, Minimo As Double, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_AlmacenesMaximoMinimoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Maximo", SqlDbType.Money).Value = Maximo + .Add("@Minimo", SqlDbType.Money).Value = Minimo + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_AlmacenesMaximoMinimoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - COMPRAS " + + Public Function RecepcionAlmacenGet(CveCompra As Integer, TipoRecepcion As Integer, CveEmpresa As Integer, Optional CveProveedor As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RecepcionAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .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 artículos de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function ComprasPendientesAlmacenGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ComprasPendientesAlmacenGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .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 compras pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ComprasDevolucionExistenciasGet(CveCompras As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ComprasExistenciasDevolucionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompras + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetInv_ComprasMov(CveCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasMovimientos") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener datos del Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - VENTAS " + Public Function EntregaAlmacenGet(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .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 artículos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function VentasPendientesAlmacenGet(CveCliente As Integer, Fecha As Date, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_VentasPendientesAlmacenGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las ventas pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function SerieLoteRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_SerieLoteRecomendadoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la Serie/Lote recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function LoteBatchRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_LoteBatchRecomendadoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Lote-Batch recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function SeccionAlmacenRecomendadoSurtidoGet(CvePS As Integer, Cantidad As Double, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_SeccionAlmacenRecomendadoSurtidoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la seccion almacen recomendada para surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function LoteBatchFechaCaducidadGet(CvePS As Integer, Lote As String, Batch As String, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_LoteBatchFechaCaducidadGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Lote", SqlDbType.VarChar).Value = Lote + .Add("@Batch", SqlDbType.VarChar).Value = Batch + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la Fecha Caducidad del Lote-Batch.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ActualizarEsDevolucionVenta(CveVenta As Integer, Valor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("Vta_UpdateDevolucionVenta") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@Valor", SqlDbType.Int).Value = Valor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la devolucion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function LimpiaEntregaDirecta(CveMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_LimpiaEntregaDirecta") + + 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 generar la limpieza del movimiento de entrega directa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function EliminaEntregaDirecta(CveMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EliminaEntregaDirecta") + + 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 generar la eliminación del movimiento de entrega directa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function VentaDetallePadreGet(CveVentaDetallePadre As Integer) As Integer + Dim Retorno = -1 + DataAdapter("PA_Inv_VentaDetallePadreGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVentaDetallePadre", SqlDbType.Int).Value = CveVentaDetallePadre + .Add("@CveVentaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveVentaDetalle").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al obtener la venta detalle padre.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetPendietePorSurtirVenta(CvePS As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional Tipo As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_VentasPendientesPorSurtirGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener ventas pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetEstatusVentaPorSurir(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EstatusVentaPorSurtirGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + + Try + SqlAdapter.Fill(Data) + + If Data IsNot Nothing AndAlso Data.Rows.Count = 1 Then + Dim dr As DataRow = Data.Rows(0) + TipoEstatus = dr("TipoEstatus").ToString.ToEntero + EsDevolucionVenta = dr("EsVentaDevolucion").ToString.ToEntero + Retorno = True + End If + + + Catch ex As Exception + OnError("Ocurrió un error al obtener ventas pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + + + Return Retorno + End Function + + Public Function GetInv_Mov(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaDetalleAlmacen") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener datos del Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetDevolucionRemisionesFacturadas(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_DevolucionRemisionesFacturadas") + + With SqlAdapter.SelectCommand.Parameters + .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 datos de devolución de remisiones facturadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetDevolucionRemisionesCanceladas(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_DevolucionRemisionCanceladas") + + With SqlAdapter.SelectCommand.Parameters + .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 datos de devolución de remisiones canceladas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - CONSIGNACIONES " + + Public Function GetConsignaciones2(CveConsignacion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ConsignacionesGet2") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + .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 GetConsignacionesImpresion(CveConsignacion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ConsignacionesImpresionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + 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 GetConsignacionesDetalleProveedor(CveProveedor As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ConsignacionesDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .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 AddConsignaciones(CveProveedor As Integer, CveCompra As Integer, SerieFolio As String, Fecha As Date, CveUsuario As Integer) As Integer + Dim Retorno = -1 + + DataAdapter("PA_Inv_ConsignacionesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@SerieFolio", SqlDbType.VarChar).Value = SerieFolio + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveConsignacion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveConsignacion").Value.ToString.ToEntero + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateConsignaciones(CveConsignacion As Integer, CveProveedor As Integer, CveCompra As Integer, SerieFolio As String, Fecha As Date, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ConsignacionesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@SerieFolio", SqlDbType.VarChar).Value = SerieFolio + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al actualizar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al actualizar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveConsignaciones(CveConsignacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ConsignacionesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al eliminar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateConsignacionesCompra(CveCompra As Integer, CveConsignacion As Integer, CveAlmacen As Integer, CvePS As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ConsignacionesCompraUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al actualizar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al actualizar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RepConsignaciones(CveProveedor As Integer, TipoReporte As Integer, CveConsignacion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ConsignacionesRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@TipoReporte", SqlDbType.Int).Value = TipoReporte + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al consultar el reporte de consignaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al consultar el reporte de consignaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetConsignacionesPendientes(CveProveedor As Integer, TipoReporte As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ConsignacionesPendientesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@TipoReporte", SqlDbType.Int).Value = TipoReporte + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al consultar las consignaciones pendientes.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al consultar las consignaciones pendientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function ConsignacionesDetalle(CveConsignacion As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ConsignacionesDetalleGet2") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al consultar el detalle de la consignacion.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al consultar el detalle de la consignacion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - COSTO PS " + Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1) As Decimal + Dim Retorno As Decimal = -1D + DataAdapter("PA_Inv_PSCostoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@Costo").Value.ToString.ToDecimal + Catch ex As Exception + OnError("Ocurrió un error al obtener El Costo del Producto/Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - OC " + Public Function RepOcInv(Folio As String, FIni As Date, Ffin As Date, CveProveedor As Integer, Estatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_OC_RepOcInv") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@Fini", SqlDbType.Date).Value = FIni + .Add("@Ffin", SqlDbType.Date).Value = Ffin + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Retorno = False + OnError("Ocurrió un error al obtener RepOcInv.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function RepOcInvMoto(Folio As String, FIni As Date, Ffin As Date, CveProveedor As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_OC_RepOcInvMoto") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@Fini", SqlDbType.Date).Value = FIni + .Add("@Ffin", SqlDbType.Date).Value = Ffin + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Retorno = False + OnError("Ocurrió un error al obtener RepOcInvMoto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function GetMovimientosOC(CveOC As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosOCGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .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 de Almacen de OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateMovimientosOCCompra(CveCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosOCCompraUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al vincular los movimientos de Almacen de OC con Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RecepcionAlmacenOCGet(CveOC As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_OC_RecepcionAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .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 OC pendientes de almacén", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function PendientesAlmacenOCGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_OC_PendientesAlmacenGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .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 OCs pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function TraspasaEntregaDirectaOCInv(CveVentaNueva As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_OC_TraspasaEntregaDirectaOCInv") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al traspasar la entrega directa de OC con inventario de la venta .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - ENTREGAS FORANEAR - SE CAMBIO ESQUEMA A PAQUETERIAGUIAS" + Public Function AddEntregaForanea(Guia As String, GuiaRequerida As Boolean, CveEntregaEstatus As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1, Optional CveVenta As Integer = -1, Optional CvePaqueteria As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregasForaneasAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@GuiaRequerida", SqlDbType.Bit).Value = GuiaRequerida + .Add("@CveEntregaEstatus", SqlDbType.Int).Value = CveEntregaEstatus + .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar la guia de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetEntregasForaneas(CveEntregaForaneaEstatus As Integer, CvePaqueteria As Integer, CveEmpresa As Integer, Tipo As Integer, Optional CveSubProyecto As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregasForaneasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaForaneaEstatus", SqlDbType.Int).Value = CveEntregaForaneaEstatus + .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + + End With + + Try + SqlAdapter.Fill(Data) + If Tipo = 1 Then + If Data.Rows.Count > 0 Then + _CveEntregaForanea = Data.Rows(0)("CveEntregaForanea").ToString.ToEntero + _CvePaqueteriaGuia = 0 + End If + Else + If Data.Rows.Count > 0 Then + _CveEntregaForanea = 0 + _CvePaqueteriaGuia = Data.Rows(0)("CvePaqueteriaGuia").ToString.ToEntero + End If + End If + 'If Data.Rows.Count > 0 Then + ' _CveEntregaForanea = Data.Rows(0)("CveEntregaForanea").ToString.ToEntero + 'End If + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener datos de la entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateEntregaForanea(CveEntregaForanea As Integer, Guia As String, GuiaRequerida As Integer, CveEntregaEstatus As Integer, Optional CvePaqueteria As Integer = -1, Optional Tipo As Integer = 1, Optional CvePaqueteriaGuia As Integer = -1, Optional Extencion As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregasForaneasUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaForanea", SqlDbType.Int).Value = CveEntregaForanea + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@GuiaRequerida", SqlDbType.Bit).Value = GuiaRequerida + .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria + .Add("@CveEntregaEstatus", SqlDbType.Int).Value = CveEntregaEstatus + + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia + .Add("@Extencion", SqlDbType.VarChar).Value = Extencion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar datos de la entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveEntregaForanea(CveEntregaForanea As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregasForaneasRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaForanea", SqlDbType.Int).Value = CveEntregaForanea + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar datos de la entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetEntregaForaneaEstatus(CveEntregaForaneaEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_EntregasForaneasEstatusGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEntregaForaneaEstatus", SqlDbType.Int).Value = CveEntregaForaneaEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener datos del estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - APARTADOS " + Public Function VentasAlmacenApartadosGet(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_VentasAlmacenApartadosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la relación de ventas con almacén en apartados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function DesapartadosGet(CveAlmacen As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_DesapartadosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .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 datos de desapartado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ApartadosRep(CveAlmacen As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer, CvePS As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ApartadosRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .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 desapartado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ApartadosRep2(CveAlmacen As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveGrupo As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_ApartadosRep1") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de desapartado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - PAQUETES " + Public Function AddPaqueteRelacionSeries(CvePaquete As Integer, SeriePaquete As String, CvePS As Integer, SeriePS As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteRelacionSeriesoAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaquete", SqlDbType.Int).Value = CvePaquete + .Add("@SeriePaquete", SqlDbType.VarChar).Value = SeriePaquete + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@SeriePS", SqlDbType.VarChar).Value = SeriePS + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la relación de series del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetPaqueteRelacionSeries(CvePaquete As Integer, SeriePaquete As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteRelacionSeriesoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaquete", SqlDbType.Int).Value = CvePaquete + .Add("@SeriePaquete", SqlDbType.VarChar).Value = SeriePaquete + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la relación de series del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RemovePaqueteRelacionSeries(CvePaquete As Integer, SeriePaquete As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteRelacionSeriesoRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaquete", SqlDbType.Int).Value = CvePaquete + .Add("@SeriePaquete", SqlDbType.VarChar).Value = SeriePaquete + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la relación de series del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - OS " + Public Function GetMovimientosOS(CveConcepto As Integer, CveOS As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GetMovimientosOS") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .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 Movimientos de Ordenes de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " INVENTARIOS - SOLICITUD DE TRASPASOS " + Public Function AddTrasladoSolicitud(Observaciones As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, CveMovimientoAlmacen As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, + Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1) As Integer + Dim Retorno = -1 + DataAdapter("PA_Inv_TraspasoSolicitudAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen + .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino + .Add("@CveTrasladoEstatus", SqlDbType.TinyInt).Value = CveTrasladoEstatus + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@CveTraspasoSolicitud", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria + .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio + .Add("@CveOS", SqlDbType.Int).Value = CveOS + + End With + + Try + SqlAdapter.Fill(Data) + CveTraspasoSolicitud = SqlAdapter.SelectCommand.Parameters("@CveTraspasoSolicitud").Value.ToString.ToEntero + If CveTraspasoSolicitud > 0 Then + Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero + End If + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + 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 AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String, CveContratoDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + Dim CveTraspasoSolicitud As Integer = 0 + DataAdapter("PA_Inv_TraspasoSolicitudDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud + .Add("@Cantidad", SqlDbType.Int).Value = Cantidad + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Precio", SqlDbType.Float).Value = Precio + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + 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 AddTrasladoSolicitudGet(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + Dim CveTraspasoSolicitud As Integer = 0 + DataAdapter("PA_Inv_TraspasoSolicitudGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveTrasladoSolicitud(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + Dim CveTraspasoSolicitud As Integer = 0 + DataAdapter("PA_Inv_TraspasoSolicitudRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + 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 EntregaAlmacenTraspasosGet(CveTraspasoSolicitud As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_EntregaAlmacenTraspasosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los productos pendientes de la solicitud de traspaso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateTraspasoSolicitudMovimiento(CveTraspasoSolicitud As Integer, CveMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_TraspasoSolicitudUpdateMovimiento") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el movimiento de almacén de la solicitud de traspaso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateTraspasoSolicitudEstatus(CveTraspasoSolicitud As Integer, CveEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_TraspasoSolicitudUpdateEstatus") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el estatus de la solicitud de traspaso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_TraspasoSolicitudGetRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen + .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino + .Add("@CveTrasladoEstatus", SqlDbType.Int).Value = CveTrasladoEstatus + .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio + .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@OpcionAlmacen", SqlDbType.Int).Value = OpcionAlmacen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - GRUPO PS" + + Public Function GetGrupoPS(CveEmpresa As Integer, Optional CveGrupoPS As Integer = -1, Optional Estatus As Integer = -1, Optional Descripcion As String = "-1") As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los grupos de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddGrupoPS(Descripcion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveGrupoPS", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + CveGrupoPS = SqlAdapter.SelectCommand.Parameters("@CveGrupoPS").Value.ToString.ToEntero + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el grupo de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function UpdateGrupoPS(CveGrupoPS As Integer, Descripcion As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el grupo de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RemoveGrupoPS(CveGrupoPS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el grupo de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - GRUPO PS DETALLE" + + Public Function GetGrupoPSDetalle(CveGrupoPS As Integer, Optional CveGrupoPSDetalle As Integer = -1, Optional CvePS As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSDetalleGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + .Add("@CveGrupoPSDetalle", SqlDbType.Int).Value = CveGrupoPSDetalle + .Add("@CvePS", SqlDbType.Int).Value = CvePS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddGrupoPSDetalle(CveGrupoPS As Integer, CvePS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSDetalleAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + .Add("@CvePS", SqlDbType.Int).Value = CvePS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function UpdateGrupoPSDetalle(CveGrupoPSDetalle As Integer, CveGrupoPS As Integer, CvePS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSDetalleUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveGrupoPSDetalle", SqlDbType.Int).Value = CveGrupoPSDetalle + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RemoveGrupoPSDetalle(CveGrupoPSDetalle As Integer, Optional CveGrupoPS As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_GrupoPSDetalleRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGrupoPSDetalle", SqlDbType.Int).Value = CveGrupoPSDetalle + .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + +#Region " INVENTARIOS - IMPORTACIONES " + + Public Function PendientesAlmacenImportacionComprasGet(CveImportacion As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_PendientesAlmacenImportacionesComprasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function PendientesAlmacenImportacionGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_PendientesAlmacenImportacionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .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 Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RecepcionAlmacenImportacionGet(CveImportacion As Integer, CveCompra As Integer, CveProveedor As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RecepcionAlmacenImportacionGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .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 productos por recibir de la importación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " GUIAS " + + Public Function GetPaqueteriaGuia(CveMovimiento As Integer, CveEmpresa As Integer, Optional CvePaqueteriaGuia As Integer = -1, Optional CveVenta As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteriaGuiasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de obtener la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + Public Function AddPaqueteriaGuia(CvePaqueteria As Integer, CveMovimiento As Integer, Guia As String, NumCajas As Integer, Peso As Decimal, CveUsuario As Integer, CveEmpresa As Integer, + Optional Rastreo As String = "", Optional Dimensiones As String = "", Optional FechaEstimada As String = "", Optional CveVenta As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteriaGuiasAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@NumCajas", SqlDbType.Int).Value = NumCajas + .Add("@Peso", SqlDbType.Money).Value = Peso + .Add("@Rastreo", SqlDbType.VarChar).Value = Rastreo + .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones + .Add("@FechaEstimada", SqlDbType.VarChar).Value = FechaEstimada + + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .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 momento de agregar la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + Public Function UpdatePaqueteriaGuia(CvePaqueteriaGuia As Integer, CveEstatus As Integer, Guia As String) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteriaGuiasUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de actualizar la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + Public Function RemovePaqueteriaGuia(CvePaqueteriaGuia As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteriaGuiasRemove") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de eliminar la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + 'PA_Inv_PaqueteriaGuiasInfoFormatoGet + + Public Function GetPaqueteriaGuiasInfoFormato(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveVenta As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PaqueteriaGuiasInfoFormatoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener información de la guia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function +#End Region + +#Region " FLETES " + + Public Function AddFlete(Folio As String, Descripcion As String, Fecha As Date, CveOC As Integer, CveCompra As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveFlete", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + CveFlete = SqlAdapter.SelectCommand.Parameters("@CveFlete").Value.ToString.ToEntero + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function UpdateFlete(CveFlete As Integer, Descripcion As String, Fecha As Date, CveOC As Integer, CveCompra As Integer, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RemoveFlete(CveFlete As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RecepcionAlmacenFleteGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .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 productos por recibir del flete", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region " FLETES DETALLE " + Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesDetalleAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el flete detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RemoveFleteDetalle(CveFleteDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesDetalleRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFleteDetalle", SqlDbType.Int).Value = CveFleteDetalle + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el flete detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetFleteDetalle(CveFlete As Integer, Optional CveCompra As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesDetalleGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el flete detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + +#End Region + +#Region " CONSUMO INTERNO " + Public Function GetConsumoInterno(CveEmpresa As Integer, CveAlmacen As Integer, CvePersonal As Integer, CveAF As Integer, CvePS As Integer, FechaInicio As String, FechaFin As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ConsumoInternoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de obtener el detalle del Consumo Interno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function +#End Region + +#Region "INVENTARIOS - REPORTE DE MOVIMIENTOS DE PROVEEDOR" + + Public Function GetRepMovimientosProveedor(CveEmpresa As Integer, CveConcepto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ProductosProveedor") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .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 momento de obtener los movimientos del proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + + +#Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" + + Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ResguardoUniformesRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento + + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de obtener el reporte de uniforme.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + +#Region "REMANUFACTURA" + + Public Function AddRemanufactura(CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CvePS As Integer, + Folio As String, Cantidad As Double, Precio As Double, Fecha As Date, CveUsuario As Integer, + CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RemanufacturaAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@Precio", SqlDbType.Float).Value = Precio + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveRemanufactura", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + CveRemanufactura = SqlAdapter.SelectCommand.Parameters("@CveRemanufactura").Value.ToString.ToEntero + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de agregar la remanufactura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function UpdateRemanufactura(CveRemanufactura As Integer, CveMovimiento As Integer, CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RemanufacturaUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveRemanufactura", SqlDbType.Int).Value = CveRemanufactura + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de actualizar la remanufactura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetRemanufactura(CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveProyecto As Integer, + CvePS As Integer, CveEmpresa As Integer, FechaI As Date, + FechaF As Date, CveUsuarioConsulta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RemanufacturaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al momento de obtener la remanufactura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + +#Region "REPORTE DE ENTRADAS SALIDAS X CONTRATO" + + Public Function GetRepEntradasSalidasXContrato(CveEmpresa As Integer, CveMoneda As Integer, FechaI As Date, + FechaF As Date, CveConcepto As Integer, CveProveedor As Integer, + CveAlmacen As Integer, CvePS As Integer, CveClasificacion As Integer, + Tipo As Integer, CveMarca As Integer, CveContrato As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RepEntradasSalidasXContrato") + 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.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + 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 + +#End Region + +#Region "PRESTAMOS DE PROVEEDOR" + Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_PrestamosdeProveedorGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Folio", SqlDbType.Int).Value = Folio + .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 información de préstamos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +#Region "MOVIMIENTOS SALIDA" + + Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_RepMovimientosSalidaGet") + With SqlAdapter.SelectCommand.Parameters + .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 los movimientos salida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + +#End Region + +#Region "MOVIMIENTOS DETALLE SECCION ALMACEN" + + Public Function AddMovimientosDetalleSeccionesAlmacen(CveMovimientoDetalle As Integer, CveSeccionAlmacen As Integer, Cantidad As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacen As Integer, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .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 agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetExistenciaSeccionAlmacen(CveVenta As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ExistenciaSeccionAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .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 de las secciones de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetKardexSeccionAlmacen(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_KardexSeccionAlmacenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen + .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 kardex de seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function AddProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RemoveProductosServiciosAlmacenSeccion(CvePSAlmacenSeccion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePSAlmacenSeccion", SqlDbType.Int).Value = CvePSAlmacenSeccion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + + +#End Region + + +#Region " IDisposable Support " + ' IDisposable + Protected Overridable Sub Dispose(ByVal disposing As Boolean) + If Not disposedValue Then + If disposing Then + ' TODO: Liberar otro estado (objetos administrados). + SqlConexion.Close() + SqlConexion.Dispose() + If Not Data Is Nothing Then Data.Dispose() + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() + + End If + + ' TODO: Liberar su propio estado (objetos no administrados). + ' TODO: Establecer campos grandes como Null. + End If + disposedValue = True + End Sub + + ' Visual Basic agregó este código para implementar correctamente el modelo descartable. + Public Sub Dispose() Implements IDisposable.Dispose + ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + +End Class -#Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O" - Public Function AddInventarioFisicoResultados(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoResultadoAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el Inventario Fisico Resultado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetInventarioFisicoResultados(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoResultadosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .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 Inventario Fisico Avance", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetInventarioFisicoResultadosAvance(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_InventarioFisicoResultadoAvance") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Inventario Fisico Avance", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - - Public Function RepAnomalias(CveInventarioFisico As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ReporteAnomalias") - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Anomalias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RepAnomalias2(CveInventarioFisico As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_Rep_AnomaliasGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de anomalias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - -#End Region - -#Region " INVENTARIOS - MAXIMO MINIMO" - Public Function RepMaximoMinimo(CveSubproyecto As Integer, CveAlmacen As Integer, CveClasificacion2 As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ReporteMaximoMinimo") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 - .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 Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RepMaximoMinimoDetalleGet(CveSubProyecto As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ReporteMaximoMinimoDetalle") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .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 los detalles del Reporte de Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Double, Minimo As Double, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_AlmacenesMaximoMinimoAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Maximo", SqlDbType.Money).Value = Maximo - .Add("@Minimo", SqlDbType.Money).Value = Minimo - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al guardar Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer, Maximo As Double, Minimo As Double, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_AlmacenesMaximoMinimoUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Maximo", SqlDbType.Money).Value = Maximo - .Add("@Minimo", SqlDbType.Money).Value = Minimo - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function GetAlmacenMaximoMinimo(CveAlmacen As Integer, CvePS As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_AlmacenesMaximoMinimoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener Maximos y Minimos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - COMPRAS " - - Public Function RecepcionAlmacenGet(CveCompra As Integer, TipoRecepcion As Integer, CveEmpresa As Integer, Optional CveProveedor As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RecepcionAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .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 artículos de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function ComprasPendientesAlmacenGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ComprasPendientesAlmacenGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .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 compras pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function ComprasDevolucionExistenciasGet(CveCompras As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ComprasExistenciasDevolucionGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompras - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las existencias de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetInv_ComprasMov(CveCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasMovimientos") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener datos del Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - VENTAS " - Public Function EntregaAlmacenGet(CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_EntregaAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .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 artículos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function VentasPendientesAlmacenGet(CveCliente As Integer, Fecha As Date, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_VentasPendientesAlmacenGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las ventas pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function SerieLoteRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_SerieLoteRecomendadoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la Serie/Lote recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function LoteBatchRecomendadoGet(CvePS As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_LoteBatchRecomendadoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Lote-Batch recomendado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function SeccionAlmacenRecomendadoSurtidoGet(CvePS As Integer, Cantidad As Double, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_SeccionAlmacenRecomendadoSurtidoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la seccion almacen recomendada para surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function LoteBatchFechaCaducidadGet(CvePS As Integer, Lote As String, Batch As String, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_LoteBatchFechaCaducidadGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Lote", SqlDbType.VarChar).Value = Lote - .Add("@Batch", SqlDbType.VarChar).Value = Batch - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la Fecha Caducidad del Lote-Batch.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function ActualizarEsDevolucionVenta(CveVenta As Integer, Valor As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("Vta_UpdateDevolucionVenta") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@Valor", SqlDbType.Int).Value = Valor - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la devolucion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function LimpiaEntregaDirecta(CveMovimiento As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_LimpiaEntregaDirecta") - - 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 generar la limpieza del movimiento de entrega directa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function EliminaEntregaDirecta(CveMovimiento As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_EliminaEntregaDirecta") - - 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 generar la eliminación del movimiento de entrega directa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function VentaDetallePadreGet(CveVentaDetallePadre As Integer) As Integer - Dim Retorno = -1 - DataAdapter("PA_Inv_VentaDetallePadreGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVentaDetallePadre", SqlDbType.Int).Value = CveVentaDetallePadre - .Add("@CveVentaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveVentaDetalle").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error al obtener la venta detalle padre.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetPendietePorSurtirVenta(CvePS As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional Tipo As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_VentasPendientesPorSurtirGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener ventas pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetEstatusVentaPorSurir(CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_EstatusVentaPorSurtirGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - End With - - Try - SqlAdapter.Fill(Data) - - If Data IsNot Nothing AndAlso Data.Rows.Count = 1 Then - Dim dr As DataRow = Data.Rows(0) - TipoEstatus = dr("TipoEstatus").ToString.ToEntero - EsDevolucionVenta = dr("EsVentaDevolucion").ToString.ToEntero - Retorno = True - End If - - - Catch ex As Exception - OnError("Ocurrió un error al obtener ventas pendientes por surtir.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - - - Return Retorno - End Function - - Public Function GetInv_Mov(CveVenta As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_VentaDetalleAlmacen") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener datos del Almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetDevolucionRemisionesFacturadas(CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_DevolucionRemisionesFacturadas") - - With SqlAdapter.SelectCommand.Parameters - .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 datos de devolución de remisiones facturadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetDevolucionRemisionesCanceladas(CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_DevolucionRemisionCanceladas") - - With SqlAdapter.SelectCommand.Parameters - .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 datos de devolución de remisiones canceladas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - CONSIGNACIONES " - - Public Function GetConsignaciones2(CveConsignacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ConsignacionesGet2") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - .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 GetConsignacionesImpresion(CveConsignacion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ConsignacionesImpresionGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - 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 GetConsignacionesDetalleProveedor(CveProveedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ConsignacionesDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .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 AddConsignaciones(CveProveedor As Integer, CveCompra As Integer, SerieFolio As String, Fecha As Date, CveUsuario As Integer) As Integer - Dim Retorno = -1 - - DataAdapter("PA_Inv_ConsignacionesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@SerieFolio", SqlDbType.VarChar).Value = SerieFolio - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveConsignacion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveConsignacion").Value.ToString.ToEntero - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al guardar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateConsignaciones(CveConsignacion As Integer, CveProveedor As Integer, CveCompra As Integer, SerieFolio As String, Fecha As Date, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ConsignacionesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@SerieFolio", SqlDbType.VarChar).Value = SerieFolio - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al actualizar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al actualizar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveConsignaciones(CveConsignacion As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ConsignacionesRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al eliminar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al eliminar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateConsignacionesCompra(CveCompra As Integer, CveConsignacion As Integer, CveAlmacen As Integer, CvePS As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ConsignacionesCompraUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al actualizar la consignación.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al actualizar la consignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RepConsignaciones(CveProveedor As Integer, TipoReporte As Integer, CveConsignacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ConsignacionesRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@TipoReporte", SqlDbType.Int).Value = TipoReporte - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al consultar el reporte de consignaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al consultar el reporte de consignaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetConsignacionesPendientes(CveProveedor As Integer, TipoReporte As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ConsignacionesPendientesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@TipoReporte", SqlDbType.Int).Value = TipoReporte - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al consultar las consignaciones pendientes.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al consultar las consignaciones pendientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function ConsignacionesDetalle(CveConsignacion As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ConsignacionesDetalleGet2") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveConsignacion", SqlDbType.Int).Value = CveConsignacion - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al consultar el detalle de la consignacion.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al consultar el detalle de la consignacion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - COSTO PS " - Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1) As Decimal - Dim Retorno As Decimal = -1D - DataAdapter("PA_Inv_PSCostoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@Costo").Value.ToString.ToDecimal - Catch ex As Exception - OnError("Ocurrió un error al obtener El Costo del Producto/Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - OC " - Public Function RepOcInv(Folio As String, FIni As Date, Ffin As Date, CveProveedor As Integer, Estatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_OC_RepOcInv") - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@Fini", SqlDbType.Date).Value = FIni - .Add("@Ffin", SqlDbType.Date).Value = Ffin - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Retorno = False - OnError("Ocurrió un error al obtener RepOcInv.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function - - Public Function RepOcInvMoto(Folio As String, FIni As Date, Ffin As Date, CveProveedor As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_OC_RepOcInvMoto") - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@Fini", SqlDbType.Date).Value = FIni - .Add("@Ffin", SqlDbType.Date).Value = Ffin - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Retorno = False - OnError("Ocurrió un error al obtener RepOcInvMoto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - - End Function - Public Function GetMovimientosOC(CveOC As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosOCGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .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 de Almacen de OC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateMovimientosOCCompra(CveCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosOCCompraUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al vincular los movimientos de Almacen de OC con Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RecepcionAlmacenOCGet(CveOC As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_OC_RecepcionAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .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 OC pendientes de almacén", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function PendientesAlmacenOCGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_OC_PendientesAlmacenGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .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 OCs pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function TraspasaEntregaDirectaOCInv(CveVentaNueva As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_OC_TraspasaEntregaDirectaOCInv") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al traspasar la entrega directa de OC con inventario de la venta .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - ENTREGAS FORANEAR - SE CAMBIO ESQUEMA A PAQUETERIAGUIAS" - Public Function AddEntregaForanea(Guia As String, GuiaRequerida As Boolean, CveEntregaEstatus As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1, Optional CveVenta As Integer = -1, Optional CvePaqueteria As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_EntregasForaneasAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@GuiaRequerida", SqlDbType.Bit).Value = GuiaRequerida - .Add("@CveEntregaEstatus", SqlDbType.Int).Value = CveEntregaEstatus - .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al guardar la guia de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetEntregasForaneas(CveEntregaForaneaEstatus As Integer, CvePaqueteria As Integer, CveEmpresa As Integer, Tipo As Integer, Optional CveSubProyecto As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_EntregasForaneasGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaForaneaEstatus", SqlDbType.Int).Value = CveEntregaForaneaEstatus - .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio - .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin - - End With - - Try - SqlAdapter.Fill(Data) - If Tipo = 1 Then - If Data.Rows.Count > 0 Then - _CveEntregaForanea = Data.Rows(0)("CveEntregaForanea").ToString.ToEntero - _CvePaqueteriaGuia = 0 - End If - Else - If Data.Rows.Count > 0 Then - _CveEntregaForanea = 0 - _CvePaqueteriaGuia = Data.Rows(0)("CvePaqueteriaGuia").ToString.ToEntero - End If - End If - 'If Data.Rows.Count > 0 Then - ' _CveEntregaForanea = Data.Rows(0)("CveEntregaForanea").ToString.ToEntero - 'End If - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener datos de la entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateEntregaForanea(CveEntregaForanea As Integer, Guia As String, GuiaRequerida As Integer, CveEntregaEstatus As Integer, Optional CvePaqueteria As Integer = -1, Optional Tipo As Integer = 1, Optional CvePaqueteriaGuia As Integer = -1, Optional Extencion As String = "-1") As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_EntregasForaneasUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaForanea", SqlDbType.Int).Value = CveEntregaForanea - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@GuiaRequerida", SqlDbType.Bit).Value = GuiaRequerida - .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria - .Add("@CveEntregaEstatus", SqlDbType.Int).Value = CveEntregaEstatus - - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia - .Add("@Extencion", SqlDbType.VarChar).Value = Extencion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar datos de la entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveEntregaForanea(CveEntregaForanea As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_EntregasForaneasRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaForanea", SqlDbType.Int).Value = CveEntregaForanea - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar datos de la entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetEntregaForaneaEstatus(CveEntregaForaneaEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_EntregasForaneasEstatusGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaForaneaEstatus", SqlDbType.Int).Value = CveEntregaForaneaEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener datos del estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - APARTADOS " - Public Function VentasAlmacenApartadosGet(CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_VentasAlmacenApartadosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la relación de ventas con almacén en apartados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function DesapartadosGet(CveAlmacen As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_DesapartadosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .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 datos de desapartado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function ApartadosRep(CveAlmacen As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer, CvePS As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ApartadosRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .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 desapartado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function ApartadosRep2(CveAlmacen As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveGrupo As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_ApartadosRep1") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de desapartado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - PAQUETES " - Public Function AddPaqueteRelacionSeries(CvePaquete As Integer, SeriePaquete As String, CvePS As Integer, SeriePS As String) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteRelacionSeriesoAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePaquete", SqlDbType.Int).Value = CvePaquete - .Add("@SeriePaquete", SqlDbType.VarChar).Value = SeriePaquete - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@SeriePS", SqlDbType.VarChar).Value = SeriePS - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar la relación de series del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetPaqueteRelacionSeries(CvePaquete As Integer, SeriePaquete As String) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteRelacionSeriesoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePaquete", SqlDbType.Int).Value = CvePaquete - .Add("@SeriePaquete", SqlDbType.VarChar).Value = SeriePaquete - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la relación de series del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RemovePaqueteRelacionSeries(CvePaquete As Integer, SeriePaquete As String) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteRelacionSeriesoRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePaquete", SqlDbType.Int).Value = CvePaquete - .Add("@SeriePaquete", SqlDbType.VarChar).Value = SeriePaquete - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar la relación de series del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - OS " - Public Function GetMovimientosOS(CveConcepto As Integer, CveOS As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GetMovimientosOS") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveOS", SqlDbType.Int).Value = CveOS - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .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 Movimientos de Ordenes de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " INVENTARIOS - SOLICITUD DE TRASPASOS " - Public Function AddTrasladoSolicitud(Observaciones As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, CveMovimientoAlmacen As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, - Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1) As Integer - Dim Retorno = -1 - DataAdapter("PA_Inv_TraspasoSolicitudAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen - .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino - .Add("@CveTrasladoEstatus", SqlDbType.TinyInt).Value = CveTrasladoEstatus - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato - .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@CveTraspasoSolicitud", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria - .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio - .Add("@CveOS", SqlDbType.Int).Value = CveOS - - End With - - Try - SqlAdapter.Fill(Data) - CveTraspasoSolicitud = SqlAdapter.SelectCommand.Parameters("@CveTraspasoSolicitud").Value.ToString.ToEntero - If CveTraspasoSolicitud > 0 Then - Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero - End If - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - 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 AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String, CveContratoDetalle As Integer) As Boolean - Dim Retorno As Boolean = False - Dim CveTraspasoSolicitud As Integer = 0 - DataAdapter("PA_Inv_TraspasoSolicitudDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud - .Add("@Cantidad", SqlDbType.Int).Value = Cantidad - .Add("@CveUM", SqlDbType.Int).Value = CveUM - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Precio", SqlDbType.Float).Value = Precio - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - 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 AddTrasladoSolicitudGet(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - Dim CveTraspasoSolicitud As Integer = 0 - DataAdapter("PA_Inv_TraspasoSolicitudGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al obtener los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RemoveTrasladoSolicitud(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - Dim CveTraspasoSolicitud As Integer = 0 - DataAdapter("PA_Inv_TraspasoSolicitudRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - 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 EntregaAlmacenTraspasosGet(CveTraspasoSolicitud As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_EntregaAlmacenTraspasosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los productos pendientes de la solicitud de traspaso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateTraspasoSolicitudMovimiento(CveTraspasoSolicitud As Integer, CveMovimiento As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_TraspasoSolicitudUpdateMovimiento") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el movimiento de almacén de la solicitud de traspaso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateTraspasoSolicitudEstatus(CveTraspasoSolicitud As Integer, CveEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_TraspasoSolicitudUpdateEstatus") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el estatus de la solicitud de traspaso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_TraspasoSolicitudGetRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen - .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino - .Add("@CveTrasladoEstatus", SqlDbType.Int).Value = CveTrasladoEstatus - .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio - .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato - .Add("@OpcionAlmacen", SqlDbType.Int).Value = OpcionAlmacen - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - Catch ex As Exception - OnError("Ocurrió un error al guardar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - GRUPO PS" - - Public Function GetGrupoPS(CveEmpresa As Integer, Optional CveGrupoPS As Integer = -1, Optional Estatus As Integer = -1, Optional Descripcion As String = "-1") As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los grupos de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function AddGrupoPS(Descripcion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@CveGrupoPS", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - CveGrupoPS = SqlAdapter.SelectCommand.Parameters("@CveGrupoPS").Value.ToString.ToEntero - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el grupo de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function UpdateGrupoPS(CveGrupoPS As Integer, Descripcion As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el grupo de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function RemoveGrupoPS(CveGrupoPS As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el grupo de ps.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - GRUPO PS DETALLE" - - Public Function GetGrupoPSDetalle(CveGrupoPS As Integer, Optional CveGrupoPSDetalle As Integer = -1, Optional CvePS As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSDetalleGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - .Add("@CveGrupoPSDetalle", SqlDbType.Int).Value = CveGrupoPSDetalle - .Add("@CvePS", SqlDbType.Int).Value = CvePS - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function AddGrupoPSDetalle(CveGrupoPS As Integer, CvePS As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSDetalleAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - .Add("@CvePS", SqlDbType.Int).Value = CvePS - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function UpdateGrupoPSDetalle(CveGrupoPSDetalle As Integer, CveGrupoPS As Integer, CvePS As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSDetalleUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveGrupoPSDetalle", SqlDbType.Int).Value = CveGrupoPSDetalle - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function RemoveGrupoPSDetalle(CveGrupoPSDetalle As Integer, Optional CveGrupoPS As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_GrupoPSDetalleRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveGrupoPSDetalle", SqlDbType.Int).Value = CveGrupoPSDetalle - .Add("@CveGrupoPS", SqlDbType.Int).Value = CveGrupoPS - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el grupo de ps detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region " INVENTARIOS - IMPORTACIONES " - - Public Function PendientesAlmacenImportacionComprasGet(CveImportacion As Integer, CveProveedor As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_PendientesAlmacenImportacionesComprasGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function PendientesAlmacenImportacionGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Inv_PendientesAlmacenImportacionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .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 Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RecepcionAlmacenImportacionGet(CveImportacion As Integer, CveCompra As Integer, CveProveedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RecepcionAlmacenImportacionGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .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 productos por recibir de la importación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " GUIAS " - - Public Function GetPaqueteriaGuia(CveMovimiento As Integer, CveEmpresa As Integer, Optional CvePaqueteriaGuia As Integer = -1, Optional CveVenta As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteriaGuiasGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de obtener la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - - End Function - - Public Function AddPaqueteriaGuia(CvePaqueteria As Integer, CveMovimiento As Integer, Guia As String, NumCajas As Integer, Peso As Decimal, CveUsuario As Integer, CveEmpresa As Integer, - Optional Rastreo As String = "", Optional Dimensiones As String = "", Optional FechaEstimada As String = "", Optional CveVenta As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteriaGuiasAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@NumCajas", SqlDbType.Int).Value = NumCajas - .Add("@Peso", SqlDbType.Money).Value = Peso - .Add("@Rastreo", SqlDbType.VarChar).Value = Rastreo - .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones - .Add("@FechaEstimada", SqlDbType.VarChar).Value = FechaEstimada - - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .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 momento de agregar la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - - End Function - - Public Function UpdatePaqueteriaGuia(CvePaqueteriaGuia As Integer, CveEstatus As Integer, Guia As String) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteriaGuiasUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia - .Add("@Guia", SqlDbType.VarChar).Value = Guia - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de actualizar la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - - End Function - - Public Function RemovePaqueteriaGuia(CvePaqueteriaGuia As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteriaGuiasRemove") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de eliminar la guía.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - - End Function - 'PA_Inv_PaqueteriaGuiasInfoFormatoGet - - Public Function GetPaqueteriaGuiasInfoFormato(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveVenta As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PaqueteriaGuiasInfoFormatoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener información de la guia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - - End Function -#End Region - -#Region " FLETES " - - Public Function AddFlete(Folio As String, Descripcion As String, Fecha As Date, CveOC As Integer, CveCompra As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveFlete", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - CveFlete = SqlAdapter.SelectCommand.Parameters("@CveFlete").Value.ToString.ToEntero - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function UpdateFlete(CveFlete As Integer, Descripcion As String, Fecha As Date, CveOC As Integer, CveCompra As Integer, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFlete", SqlDbType.Int).Value = CveFlete - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function RemoveFlete(CveFlete As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFlete", SqlDbType.Int).Value = CveFlete - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveOC", SqlDbType.Int).Value = CveOC - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveFlete", SqlDbType.Int).Value = CveFlete - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RecepcionAlmacenFleteGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFlete", SqlDbType.Int).Value = CveFlete - .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .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 productos por recibir del flete", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region " FLETES DETALLE " - Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesDetalleAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFlete", SqlDbType.Int).Value = CveFlete - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el flete detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function RemoveFleteDetalle(CveFleteDetalle As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesDetalleRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFleteDetalle", SqlDbType.Int).Value = CveFleteDetalle - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el flete detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetFleteDetalle(CveFlete As Integer, Optional CveCompra As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_FletesDetalleGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFlete", SqlDbType.Int).Value = CveFlete - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el flete detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - -#End Region - -#Region " CONSUMO INTERNO " - Public Function GetConsumoInterno(CveEmpresa As Integer, CveAlmacen As Integer, CvePersonal As Integer, CveAF As Integer, CvePS As Integer, FechaInicio As String, FechaFin As String) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ConsumoInternoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveAF", SqlDbType.Int).Value = CveAF - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio - .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de obtener el detalle del Consumo Interno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function -#End Region - -#Region "INVENTARIOS - REPORTE DE MOVIMIENTOS DE PROVEEDOR" - - Public Function GetRepMovimientosProveedor(CveEmpresa As Integer, CveConcepto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ProductosProveedor") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .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 momento de obtener los movimientos del proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - - -#Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" - - Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ResguardoUniformesRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento - - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de obtener el reporte de uniforme.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region "REMANUFACTURA" - - Public Function AddRemanufactura(CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CvePS As Integer, - Folio As String, Cantidad As Double, Precio As Double, Fecha As Date, CveUsuario As Integer, - CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RemanufacturaAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - .Add("@Precio", SqlDbType.Float).Value = Precio - .Add("@Fecha", SqlDbType.Date).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveRemanufactura", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - CveRemanufactura = SqlAdapter.SelectCommand.Parameters("@CveRemanufactura").Value.ToString.ToEntero - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de agregar la remanufactura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function UpdateRemanufactura(CveRemanufactura As Integer, CveMovimiento As Integer, CveVenta As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RemanufacturaUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveRemanufactura", SqlDbType.Int).Value = CveRemanufactura - .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de actualizar la remanufactura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetRemanufactura(CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveProyecto As Integer, - CvePS As Integer, CveEmpresa As Integer, FechaI As Date, - FechaF As Date, CveUsuarioConsulta As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RemanufacturaGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al momento de obtener la remanufactura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region "REPORTE DE ENTRADAS SALIDAS X CONTRATO" - - Public Function GetRepEntradasSalidasXContrato(CveEmpresa As Integer, CveMoneda As Integer, FechaI As Date, - FechaF As Date, CveConcepto As Integer, CveProveedor As Integer, - CveAlmacen As Integer, CvePS As Integer, CveClasificacion As Integer, - Tipo As Integer, CveMarca As Integer, CveContrato As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RepEntradasSalidasXContrato") - 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.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveMarca", SqlDbType.Int).Value = CveMarca - 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 - -#End Region - -#Region "PRESTAMOS DE PROVEEDOR" - Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_PrestamosdeProveedorGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Folio", SqlDbType.Int).Value = Folio - .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 información de préstamos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -#Region "MOVIMIENTOS SALIDA" - - Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_RepMovimientosSalidaGet") - With SqlAdapter.SelectCommand.Parameters - .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 los movimientos salida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region "MOVIMIENTOS DETALLE SECCION ALMACEN" - - Public Function AddMovimientosDetalleSeccionesAlmacen(CveMovimientoDetalle As Integer, CveSeccionAlmacen As Integer, Cantidad As Decimal) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetMovimientosDetalleSeccionesAlmacen(CveSeccionAlmacen As Integer, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosDetalleSeccionesAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .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 agregar movimientos detalle seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetExistenciaSeccionAlmacen(CveVenta As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ExistenciaSeccionAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .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 de las secciones de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetKardexSeccionAlmacen(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_KardexSeccionAlmacenGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen - .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 kardex de seccion almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - Public Function AddProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen - .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - Public Function RemoveProductosServiciosAlmacenSeccion(CvePSAlmacenSeccion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePSAlmacenSeccion", SqlDbType.Int).Value = CvePSAlmacenSeccion - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - - -#End Region - - -#Region " IDisposable Support " - ' IDisposable - Protected Overridable Sub Dispose(ByVal disposing As Boolean) - If Not disposedValue Then - If disposing Then - ' TODO: Liberar otro estado (objetos administrados). - SqlConexion.Close() - SqlConexion.Dispose() - If Not Data Is Nothing Then Data.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - - End If - - ' TODO: Liberar su propio estado (objetos no administrados). - ' TODO: Establecer campos grandes como Null. - End If - disposedValue = True - End Sub - - ' Visual Basic agregó este código para implementar correctamente el modelo descartable. - Public Sub Dispose() Implements IDisposable.Dispose - ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region - -End Class - diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 41e33fc52..d2514d935 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -141,7 +141,7 @@
- Producto: + Producto:
@@ -181,37 +181,49 @@
+ +
+ + +
> +
+ +
+ + + +
+ + +
+ + + +
+ +
+ +
+ +
+ +
+ +
+ +
+ + +
+ +
+
-
-
> -
- -
- - - -
- -
- - - -
- -
- -
-
- -
-
- -
-
+ @@ -307,8 +319,13 @@
-
- +
+
+ +
+
+ +
@@ -408,6 +425,7 @@
+ @@ -454,7 +472,7 @@ - + diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index be1cdb2aa..2f9fdb888 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -1,378 +1,402 @@ -Option Strict On -Option Explicit On - -Imports System.Data -Imports Extensiones -Imports Microsoft.Reporting.WebForms - -Partial Class Inventarios_Kardex - Inherits ClsPaginas -#Region "P R O P I E D A D E S" - 'Public Property DtKardex As DataTable - ' Get - ' Return CType(ViewState("DtKardex"), DataTable) - ' End Get - ' Set(value As DataTable) - ' ViewState("DtKardex") = value - ' End Set - 'End Property - - Private Property CveMovimiento() As Integer - Get - Return If(IsNothing(ViewState("CveMovimiento")), -1, CInt(ViewState("CveMovimiento"))) - End Get - Set - ViewState("CveMovimiento") = Value - End Set - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString - TxtFechaF.Text = Now.ToShortDateString - CargaCombos() - ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) - - If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 13, 66) Then - GvM.Columns(6).Visible = True ' SerieLote - GvM.Columns(7).Visible = True ' FCaducidad - End If - - If UsuarioActual.TienePermisoProceso(258) Then GvM.Columns(1).Visible = True - - ddlAlmacen.SelectedValue = If(Request("CveAlmacen") IsNot Nothing, Request("CveAlmacen").ToString, "-1") - - If Request("FechaI") IsNot Nothing AndAlso Request("FechaI") <> "-1" Then TxtFechaI.Text = Request("FechaI").ToString - If Request("FechaF") IsNot Nothing AndAlso Request("FechaF") <> "-1" Then TxtFechaF.Text = Request("FechaF").ToString - - If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero) - ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") - - If Request("CvePS") IsNot Nothing And Request("CvePS") <> "-1" Then - ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") - ddlProducto_SelectedIndexChanged(ddlProducto2, EventArgs.Empty) - End If - - CargaPermisos() - +Option Strict On +Option Explicit On + +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class Inventarios_Kardex + Inherits ClsPaginas +#Region "P R O P I E D A D E S" + 'Public Property DtKardex As DataTable + ' Get + ' Return CType(ViewState("DtKardex"), DataTable) + ' End Get + ' Set(value As DataTable) + ' ViewState("DtKardex") = value + ' End Set + 'End Property + + Private Property CveMovimiento() As Integer + Get + Return If(IsNothing(ViewState("CveMovimiento")), -1, CInt(ViewState("CveMovimiento"))) + End Get + Set + ViewState("CveMovimiento") = Value + End Set + End Property +#End Region + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not IsPostBack Then + TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString + TxtFechaF.Text = Now.ToShortDateString + CargaCombos() + ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 13, 66) Then + GvM.Columns(6).Visible = True ' SerieLote + GvM.Columns(7).Visible = True ' FCaducidad + End If + + If UsuarioActual.TienePermisoProceso(258) Then GvM.Columns(1).Visible = True + + ddlAlmacen.SelectedValue = If(Request("CveAlmacen") IsNot Nothing, Request("CveAlmacen").ToString, "-1") + + If Request("FechaI") IsNot Nothing AndAlso Request("FechaI") <> "-1" Then TxtFechaI.Text = Request("FechaI").ToString + If Request("FechaF") IsNot Nothing AndAlso Request("FechaF") <> "-1" Then TxtFechaF.Text = Request("FechaF").ToString + + If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero) + ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") + + If Request("CvePS") IsNot Nothing And Request("CvePS") <> "-1" Then + ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") + ddlProducto_SelectedIndexChanged(ddlProducto2, EventArgs.Empty) + End If + + CargaPermisos() + If UsuarioActual.CveUsuario = 100 Then LblPS.ToolTip = ddlProducto2.SelectedValue - End If - - End If - End Sub - - - -#Region " INICIALIZA VALORES " - - Private Sub CargaPermisos() - Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) - GvM.Columns(11).Visible = TienePermisoImportes ' costo - GvM.Columns(12).Visible = TienePermisoImportes ' importe - GvM.Columns(14).Visible = TienePermisoImportes ' valor - End Sub - - Private Function isWithFamily() As Boolean - Return (UsuarioActual.CveEmpresa = 66) - End Function - Private Sub CargaCombos() - - CargaFuncionalidad105() - CargaPS() - - ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) - ddlAlmacen.DataBind() - If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString) - CargaClasificaciones() - - CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1) - CBLTiposAlmacen.DataBind() - For Each item As ListItem In CBLTiposAlmacen.Items - If item.Text = "Entrega Adelantado" Then - item.Selected = False - Else - item.Selected = True - End If - - Next - End Sub - Private Sub CargaFuncionalidad105() - ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") - - If ddlProducto2.UsaWebService Then - ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1") - ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios") - ddlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) - - 'DdlClasificacion.AutoPostBack = False - Else - ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1")) - ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) - End If - - End Sub - Private Sub CargaClasificaciones() - - Dim CveClasificacion = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1") - - If isWithFamily() Then - - DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") - Else - Dim ObjClasificaciones As New ClsClasificaciones - If UsuarioActual.Empresa.UsaAC Then - If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then - DdlClasificacion.DataSource = ObjClasificaciones.DtResultados - ' DdlClasificacion.DataBind() - End If - Else - If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then - DdlClasificacion.DataSource = ObjClasificaciones.DtResultados - ' DdlClasificacion.DataBind() - End If - End If - ObjClasificaciones.Dispose() - End If - - 'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", "Clasificacion") - DdlClasificacion.DataBind() - DdlClasificacion.SelectedValueExist(CveClasificacion) - End Sub -#End Region - -#Region " CARGA PS " - Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged - CargaPS() - End Sub - Private Sub CargaPS() - If Not ddlProducto2.UsaWebService Then - Dim Filtro = If(DdlClasificacion.SelectedValue.ToEntero > 0, String.Format("CveClasificacion={0} And CveTipoPS=2", DdlClasificacion.SelectedValue), "CveTipoPS=2") - ddlProducto2.ddl.Items.Clear() - ddlProducto2.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(Filtro, "PSCodigo") - ddlProducto2.DataBind() - ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1")) - Else - ddlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) - ddlProducto2.SelectedText = "" - ddlProducto2.SelectedValue = "-1" - End If - End Sub - - Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange - DdlUnidadMedida.Items.Clear() - DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1) - DdlUnidadMedida.DataBind() + End If + + End If + End Sub + + + +#Region " INICIALIZA VALORES " + + Private Sub CargaPermisos() + Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) + GvM.Columns(11).Visible = TienePermisoImportes ' costo + GvM.Columns(12).Visible = TienePermisoImportes ' importe + GvM.Columns(14).Visible = TienePermisoImportes ' valor + End Sub + + Private Function isWithFamily() As Boolean + Return (UsuarioActual.CveEmpresa = 66) + End Function + Private Sub CargaCombos() + + CargaFuncionalidad105() + CargaPS() + + ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) + ddlAlmacen.DataBind() + If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString) + CargaClasificaciones() + + CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1) + CBLTiposAlmacen.DataBind() + For Each item As ListItem In CBLTiposAlmacen.Items + If item.Text = "Entrega Adelantado" Then + item.Selected = False + Else + item.Selected = True + End If + + Next + End Sub + Private Sub CargaFuncionalidad105() + ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + + If ddlProducto2.UsaWebService Then + ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1") + ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios") + ddlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) + + 'DdlClasificacion.AutoPostBack = False + Else + ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1")) + ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) + End If + + End Sub + Private Sub CargaClasificaciones() + + Dim CveClasificacion = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1") + + If isWithFamily() Then + + DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") + Else + Dim ObjClasificaciones As New ClsClasificaciones + If UsuarioActual.Empresa.UsaAC Then + If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then + DdlClasificacion.DataSource = ObjClasificaciones.DtResultados + ' DdlClasificacion.DataBind() + End If + Else + If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then + DdlClasificacion.DataSource = ObjClasificaciones.DtResultados + ' DdlClasificacion.DataBind() + End If + End If + ObjClasificaciones.Dispose() + End If + + 'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", "Clasificacion") + DdlClasificacion.DataBind() + DdlClasificacion.SelectedValueExist(CveClasificacion) + End Sub +#End Region + +#Region " CARGA PS " + Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged + CargaPS() + End Sub + Private Sub CargaPS() + If Not ddlProducto2.UsaWebService Then + Dim Filtro = If(DdlClasificacion.SelectedValue.ToEntero > 0, String.Format("CveClasificacion={0} And CveTipoPS=2", DdlClasificacion.SelectedValue), "CveTipoPS=2") + ddlProducto2.ddl.Items.Clear() + ddlProducto2.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(Filtro, "PSCodigo") + ddlProducto2.DataBind() + ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1")) + Else + ddlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) + ddlProducto2.SelectedText = "" + ddlProducto2.SelectedValue = "-1" + End If + End Sub + + Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange + DdlUnidadMedida.Items.Clear() + DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1) + DdlUnidadMedida.DataBind() DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1")) If UsuarioActual.CveUsuario = 100 Then LblPS.ToolTip = ddlProducto2.SelectedValue - End If - End Sub -#End Region - -#Region " CARGA DATOS " - Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click - CargaDatos() - End Sub - - Private Sub CargaDatos() - Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero - - If CveProducto > 0 Then - Dim DtTemp = CargarKardex(CveProducto) - If DtTemp IsNot Nothing Then - 'CARGA INDICADORES - If UsuarioActual.TienePermisoProceso(201) Then - DivIndicadores.Visible = True - - Dim Dr = DtTemp.FiltroUltimo("") - Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1) - - LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero() - - LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero() - LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero() - - Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0) - LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() - LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero() - - LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() - LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero() - - LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia $ {TC.FormatoNumero(4)} " - - UpIndicadores.Update() - - GvM.Attributes.Add("data-heighterror", "430") - Else - GvM.Attributes.Add("data-heighterror", "270") - End If - GvM.DataSource = DtTemp - GvM.DataBind() - End If - Else - Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) - End If - End Sub - - Private Function CargarKardex(CvePS As Integer) As DataTable - Dim dt As DataTable = Nothing - - Dim Entrada As Boolean = cbEntrada.Checked - Dim Salida As Boolean = cbSalida.Checked - - Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") - Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") - Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero - If CvePS > 0 Then ddlProducto2.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo", "") - - Dim CveTiposAlmacen = "" - For Each item As ListItem In CBLTiposAlmacen.Items - CveTiposAlmacen += If(item.Selected, $"{item.Value},", "") - Next - - Dim ObjInventarios As New ClsInventarios - If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked) Then - dt = ObjInventarios.DtResultados.Copy - End If - ObjInventarios.Dispose() - - Return dt - End Function - Protected Sub gvMovimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - e.Row.Cells(0).ToolTip = e.Row.DBCampo("FechaMovto") - - If UsuarioActual.TienePermisoProceso(201) Then 'PERMISO PARA VER IMPORTES - If e.Row.DBCampo("CveCompra") <> "" Then - e.Row.FCHyperLink("hlFolioD").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) - ElseIf e.Row.DBCampo("CveVenta") <> "" Then - e.Row.FCHyperLink("hlFolioD").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta")) - ElseIf e.Row.DBCampo("CveOrdenCompra") <> "" Then - e.Row.FCHyperLink("hlFolioD").NavigateUrl = String.Format("/OC/OC.aspx?OC={0}", e.Row.DBCampo("CveOrdenCompra")) - End If - End If - - If GvM.Columns(1).Visible Then - If Not e.Row.DBCampo("CveMovimiento").ToEntero > 0 Then - e.Row.Cells(1).Text = "" - End If - End If - - If e.Row.DBCampo("Concepto").Contains("TOTAL GENERAL") Then - e.Row.CssClass = "Totales" - ElseIf e.Row.DBCampo("Concepto").Contains("SALDO INICIAL") Then - e.Row.CssClass = "SubTotales" - End If - - End If - End Sub -#End Region - -#Region " IMPRIMIR " - Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - 'Imprimir("Excel") - GenerarPDF("Excel") - End Sub - Private Sub Imprimir(Optional reporte As String = "PDF") - - Dim DtKardex As DataTable = Nothing - DtKardex = CargarKardex(ddlProducto2.SelectedValue.ToEntero) - If (Not IsNothing(DtKardex)) Then - Dim params As New List(Of ReportParameter) - If IO.File.Exists(String.Format("{0}/Formatos/Kardex.rdlc", UsuarioActual.Empresa.Ruta)) Then - ImprimirPDF(String.Format("Empresas/{0}/Formatos/Kardex.rdlc", UsuarioActual.CveEmpresa), DtKardex, params, "ReporteKardex", reporte) - Else - ImprimirPDF("Empresas/Grales/Formatos/Kardex.rdlc", DtKardex, params, "Reporte Kardex", reporte) - End If - DtKardex.Dispose() - End If - - End Sub - Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click - GenerarPDF() - End Sub - Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Movimientos As New ClsInventarios - Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero - Dim Entrada As Boolean = cbEntrada.Checked - Dim Salida As Boolean = cbSalida.Checked - - Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") - Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") - Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero - - - Dim Almacen = If(ddlAlmacen.SelectedValue = "-1", "", $" Almacén: {ddlAlmacen.SelectedItem.Text}") - Dim UM = If(DdlUnidadMedida.SelectedValue = "-1", "", $" Unidad de Medida: {DdlUnidadMedida.SelectedItem.Text}") - Dim FechaIn As String = If(TxtFechaI.Text = "", "", $" Fecha Inicio: {TxtFechaI.Text}") - Dim FechaFn As String = If(TxtFechaF.Text = "", "", $" Fecha Fin: {TxtFechaF.Text}") - Dim EntradaSalida As String = "" - - If cbEntrada.Checked And cbSalida.Checked Then - EntradaSalida = "Entradas y Salidas" - ElseIf cbEntrada.Checked And cbSalida.Checked = False Then - EntradaSalida = "Solo Entradas" - ElseIf cbEntrada.Checked = False And cbSalida.Checked Then - EntradaSalida = "Solo Salidas" - End If - - - If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked) Then - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim dt As DataTable = Movimientos.DtResultados - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("FechaInicio", FechaI)) - params.Add(New ReportParameter("FechaFin", FechaF)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText)) - params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}")) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato) - Else - Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) - End If - - End Sub -#End Region - -#Region "EDITAR FECHA" - - Protected Sub LnkEditarFecha_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - CveMovimiento = gvRow.DataKey("CveMovimiento").ToEntero - TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-ddTHH:mm") - RegistraScript("$('#DModalEditarFecha').modal()") - UpModalEditarFecha.Update() - End Sub - - - Protected Sub BtnEditarFecha_Click(sender As Object, e As EventArgs) - Dim ObjMov As New ClsMovimientos - If ObjMov.UpdateMovimientoFecha(TxtFecha.Text.ToDateTime, CveMovimiento) Then - Alert("Actualizada correctamente a : " + TxtFecha.Text.ToDateTime.ToString("yyyy-MM-dd HH:mm")) - RegistraScript("$('#DModalEditarFecha').modal('hide')") - CargaDatos() - UPDatos.Update() - End If - ObjMov.Dispose() - End Sub - -#End Region - - -End Class + End If + + TxtSerie.Text = "" + If ddlProducto2.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimero("") + If Dr IsNot Nothing Then + If Dr("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then + DivSerie.Visible = True + Else + DivSerie.Visible = False + End If + End If + End If + + End Sub +#End Region + +#Region " CARGA DATOS " + Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click + CargaDatos() + End Sub + + Private Sub CargaDatos() + Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero + + If CveProducto > 0 Then + Dim DtTemp = CargarKardex(CveProducto) + If DtTemp IsNot Nothing Then + 'CARGA INDICADORES + If UsuarioActual.TienePermisoProceso(201) Then + DivIndicadores.Visible = True + + Dim Dr = DtTemp.FiltroUltimo("") + Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1) + + LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero() + + LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero() + LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero() + + Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0) + LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() + LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero() + + LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() + LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero() + + LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia $ {TC.FormatoNumero(4)} " + + If TxtSerie.Text <> "" Then + LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: {TxtSerie.Text} " + Else + LtIndicador_MensajeSerie.Text = "" + End If + + UpIndicadores.Update() + + GvM.Attributes.Add("data-heighterror", "430") + Else + GvM.Attributes.Add("data-heighterror", "270") + End If + GvM.DataSource = DtTemp + GvM.DataBind() + End If + Else + Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) + End If + End Sub + + Private Function CargarKardex(CvePS As Integer) As DataTable + Dim dt As DataTable = Nothing + + Dim Entrada As Boolean = cbEntrada.Checked + Dim Salida As Boolean = cbSalida.Checked + + Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") + Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") + Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero + If CvePS > 0 Then ddlProducto2.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo", "") + + Dim CveTiposAlmacen = "" + For Each item As ListItem In CBLTiposAlmacen.Items + CveTiposAlmacen += If(item.Selected, $"{item.Value},", "") + Next + + Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1") + + Dim ObjInventarios As New ClsInventarios + If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then + dt = ObjInventarios.DtResultados.Copy + End If + ObjInventarios.Dispose() + + Return dt + End Function + Protected Sub gvMovimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.Cells(0).ToolTip = e.Row.DBCampo("FechaMovto") + + If UsuarioActual.TienePermisoProceso(201) Then 'PERMISO PARA VER IMPORTES + If e.Row.DBCampo("CveCompra") <> "" Then + e.Row.FCHyperLink("hlFolioD").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + ElseIf e.Row.DBCampo("CveVenta") <> "" Then + e.Row.FCHyperLink("hlFolioD").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta")) + ElseIf e.Row.DBCampo("CveOrdenCompra") <> "" Then + e.Row.FCHyperLink("hlFolioD").NavigateUrl = String.Format("/OC/OC.aspx?OC={0}", e.Row.DBCampo("CveOrdenCompra")) + End If + End If + + If GvM.Columns(1).Visible Then + If Not e.Row.DBCampo("CveMovimiento").ToEntero > 0 Then + e.Row.Cells(1).Text = "" + End If + End If + + If e.Row.DBCampo("Concepto").Contains("TOTAL GENERAL") Then + e.Row.CssClass = "Totales" + ElseIf e.Row.DBCampo("Concepto").Contains("SALDO INICIAL") Then + e.Row.CssClass = "SubTotales" + End If + + End If + End Sub +#End Region + +#Region " IMPRIMIR " + Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + 'Imprimir("Excel") + GenerarPDF("Excel") + End Sub + Private Sub Imprimir(Optional reporte As String = "PDF") + + Dim DtKardex As DataTable = Nothing + DtKardex = CargarKardex(ddlProducto2.SelectedValue.ToEntero) + If (Not IsNothing(DtKardex)) Then + Dim params As New List(Of ReportParameter) + If IO.File.Exists(String.Format("{0}/Formatos/Kardex.rdlc", UsuarioActual.Empresa.Ruta)) Then + ImprimirPDF(String.Format("Empresas/{0}/Formatos/Kardex.rdlc", UsuarioActual.CveEmpresa), DtKardex, params, "ReporteKardex", reporte) + Else + ImprimirPDF("Empresas/Grales/Formatos/Kardex.rdlc", DtKardex, params, "Reporte Kardex", reporte) + End If + DtKardex.Dispose() + End If + + End Sub + Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click + GenerarPDF() + End Sub + Private Sub GenerarPDF(Optional Formato As String = "PDF") + Dim Movimientos As New ClsInventarios + Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero + Dim Entrada As Boolean = cbEntrada.Checked + Dim Salida As Boolean = cbSalida.Checked + + Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") + Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") + Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero + + + Dim Almacen = If(ddlAlmacen.SelectedValue = "-1", "", $" Almacén: {ddlAlmacen.SelectedItem.Text}") + Dim UM = If(DdlUnidadMedida.SelectedValue = "-1", "", $" Unidad de Medida: {DdlUnidadMedida.SelectedItem.Text}") + Dim FechaIn As String = If(TxtFechaI.Text = "", "", $" Fecha Inicio: {TxtFechaI.Text}") + Dim FechaFn As String = If(TxtFechaF.Text = "", "", $" Fecha Fin: {TxtFechaF.Text}") + Dim EntradaSalida As String = "" + + If cbEntrada.Checked And cbSalida.Checked Then + EntradaSalida = " Entradas y Salidas" + ElseIf cbEntrada.Checked And cbSalida.Checked = False Then + EntradaSalida = " Solo Entradas" + ElseIf cbEntrada.Checked = False And cbSalida.Checked Then + EntradaSalida = " Solo Salidas" + End If + + Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1") + + Dim SerieAgrupado As String = If(TxtSerie.Text = "", "", $"Existencia y costos calculada por numero de serie: {TxtSerie.Text} ") + + If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dt As DataTable = Movimientos.DtResultados + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("FechaInicio", FechaI)) + params.Add(New ReportParameter("FechaFin", FechaF)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText)) + params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}")) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato) + Else + Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + End If + + End Sub +#End Region + +#Region "EDITAR FECHA" + + Protected Sub LnkEditarFecha_Click(sender As Object, e As EventArgs) + Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + CveMovimiento = gvRow.DataKey("CveMovimiento").ToEntero + TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-ddTHH:mm") + RegistraScript("$('#DModalEditarFecha').modal()") + UpModalEditarFecha.Update() + End Sub + + + Protected Sub BtnEditarFecha_Click(sender As Object, e As EventArgs) + Dim ObjMov As New ClsMovimientos + If ObjMov.UpdateMovimientoFecha(TxtFecha.Text.ToDateTime, CveMovimiento) Then + Alert("Actualizada correctamente a : " + TxtFecha.Text.ToDateTime.ToString("yyyy-MM-dd HH:mm")) + RegistraScript("$('#DModalEditarFecha').modal('hide')") + CargaDatos() + UPDatos.Update() + End If + ObjMov.Dispose() + End Sub + +#End Region + + +End Class