diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index ad35ebb1e..cd1106378 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1,2337 +1,2337 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Data.SqlClient -Imports Extensiones - -Public Class ClsCompras - Implements IDisposable - -#Region "Campos" - - 'SQL - Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter - Private SqlCommand As SqlCommand - Private SqlTransacc As SqlTransaction - Private Data As DataTable - Private StrSQL As StringBuilder - - 'Atributos de la clase +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Data.SqlClient +Imports Extensiones + +Public Class ClsCompras + Implements IDisposable + +#Region "Campos" + + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlCommand As SqlCommand + Private SqlTransacc As SqlTransaction + Private Data As DataTable + Private StrSQL As StringBuilder + + 'Atributos de la clase Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'REGISTRAR CONEXIONES ABIERTAS Private CveConexion As Integer = 0 Private EsTransaccionCompartida As Boolean = False -#End Region +#End Region -#Region "Propiedades" - Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property - - Public Property CveCompra As Integer - Public Property CveFactura As Integer - Public Property CveCompraDetalle As Integer -#End Region - - Public Function IniciaTransacSQL() As SqlTransaction - If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() - Return SqlTransacc - End Function - - Public Sub RollBack() - SqlTransacc.Rollback() - End Sub - - Public Sub Commit() - SqlTransacc.Commit() - End Sub - - 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 - EsTransaccionCompartida = True - 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 - Data = New DataTable - If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc +#Region "Propiedades" + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property + + Public Property CveCompra As Integer + Public Property CveFactura As Integer + Public Property CveCompraDetalle As Integer +#End Region + + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + + Public Sub RollBack() + SqlTransacc.Rollback() End Sub -#Region "Conexiones" + Public Sub Commit() + SqlTransacc.Commit() + End Sub - Private Sub ConexionAdd() - If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + 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 + EsTransaccionCompartida = True + 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 + Data = New DataTable + If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + End Sub + +#Region "Conexiones" + + Private Sub ConexionAdd() + If Not EsTransaccionCompartida AndAlso 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 + 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 - Public Function GetCompras(CveCompra As Integer, Serie As String, Folio As String, CveProveedor As Integer, IdPoliza As Integer, CveEmpresa As Integer, Optional ProveedorRFC As String = "-1") As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@Serie", SqlDbType.VarChar).Value = Serie - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@ProveedorRFC", SqlDbType.VarChar).Value = ProveedorRFC - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function + 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 + + Public Function GetCompras(CveCompra As Integer, Serie As String, Folio As String, CveProveedor As Integer, IdPoliza As Integer, CveEmpresa As Integer, Optional ProveedorRFC As String = "-1") As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@ProveedorRFC", SqlDbType.VarChar).Value = ProveedorRFC + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String, - FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasGetBuscar") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - .Add("@Folio", SqlDbType.VarChar).Value = Folio - '.Add("@FolioSecundario", SqlDbType.VarChar).Value = FolioSecundario - .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo - .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@TopSelect", SqlDbType.Int).Value = TopSelect - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetCompraDetalle(CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_CompraDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .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 detalle de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function AddCompra(TipoDocto As String, Descripcion As String, Serie As String, Folio As String, FolioSecundario As String, CveProveedor As Integer, SubTotal As Double, Descuentos As Double, Amortizacion As Double, IVA As Double, - RetIVA As Double, RetISR As Double, IEPS As Double, OtrosImpuestos As Double, Redondeo As Double, Total As Double, Fecha As Date, CveMoneda As Integer, TipoCambio As Double, FechaVencimiento As Date, - AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional IdPoliza As Integer = -1, - Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1, - Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1, - Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - + FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasGetBuscar") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@Folio", SqlDbType.VarChar).Value = Folio + '.Add("@FolioSecundario", SqlDbType.VarChar).Value = FolioSecundario + .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetCompraDetalle(CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CompraDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .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 detalle de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddCompra(TipoDocto As String, Descripcion As String, Serie As String, Folio As String, FolioSecundario As String, CveProveedor As Integer, SubTotal As Double, Descuentos As Double, Amortizacion As Double, IVA As Double, + RetIVA As Double, RetISR As Double, IEPS As Double, OtrosImpuestos As Double, Redondeo As Double, Total As Double, Fecha As Date, CveMoneda As Integer, TipoCambio As Double, FechaVencimiento As Date, + AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional IdPoliza As Integer = -1, + Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1, + Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1, + Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CompraAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@CveOC", SqlDbType.VarChar).Value = CveOC - .Add("@Serie", SqlDbType.VarChar).Value = Serie - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@FolioSecundario", SqlDbType.VarChar).Value = FolioSecundario - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@SubTotal", SqlDbType.Money).Value = SubTotal - .Add("@Descuentos", SqlDbType.Money).Value = Descuentos - .Add("@Amortizacion", SqlDbType.Money).Value = Amortizacion - .Add("@IVA", SqlDbType.Money).Value = IVA - .Add("@RetIVA", SqlDbType.Money).Value = RetIVA - .Add("@RetISR", SqlDbType.Money).Value = RetISR - .Add("@IEPS", SqlDbType.Money).Value = IEPS - .Add("@OtrosImpuestos", SqlDbType.Money).Value = OtrosImpuestos - .Add("@Redondeo", SqlDbType.Money).Value = Redondeo - .Add("@Total", SqlDbType.Money).Value = Total - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Money).Value = TipoCambio - .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento - .Add("@AplicaNotaCredito", SqlDbType.Int).Value = If(AplicaNotaCredito, 1, 0) - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusCompra - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza - .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso - .Add("@CveProveedorSucursal", SqlDbType.VarChar).Value = CveProveedorSucursal - .Add("@AplicoPromocion", SqlDbType.Bit).Value = AplicoPromocion - .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA - .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago - .Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto - .Add("@CveConceptoContableAlmacen", SqlDbType.Int).Value = CveConceptoContableAlmacen - .Add("@CveRetISRConcepto", SqlDbType.Int).Value = CveRetISRConcepto - .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible - .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra - .Add("@TotalOriginal", SqlDbType.Money).Value = TotalOriginal - .Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto - .Add("@CveFactura", SqlDbType.Int).Value = CveFactura - End With - - Try - SqlAdapter.Fill(Data) - CveCompra = SqlAdapter.SelectCommand.Parameters("@CveCompra").Value.ToString.ToEntero - Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then - Alert(String.Format("Ya existe una compra con el mismo Folio: {0}-{1}.", Serie, Folio), TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al Guardar la Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - - - Return Retorno - End Function - Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, - Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, - CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, - Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, - Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveFactura As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@FolioSecundario", SqlDbType.VarChar).Value = FolioSecundario - .Add("@AplicaNotaCredito", SqlDbType.Int).Value = If(AplicaNotaCredito, 1, 0) - .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusCompra - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@Descuento", SqlDbType.Money).Value = Descuento - .Add("@SubTotal", SqlDbType.Money).Value = SubTotal - .Add("@IVA", SqlDbType.Money).Value = IVA - .Add("@Total", SqlDbType.Money).Value = Total - .Add("@CveProveedorSucursal", SqlDbType.Int).Value = CveProveedorSucursal - .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA - .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso - .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra - .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible - .Add("@CveFactura", SqlDbType.Int).Value = CveFactura - End With - - Try - SqlAdapter.Fill(Data) - CveCompra = SqlAdapter.SelectCommand.Parameters("@CveCompra").Value.ToString.ToEntero - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateCompraPoliza(IdPoliza As Integer, CveCompra As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraUpdatePoliza") - - With SqlAdapter.SelectCommand.Parameters - .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la poliza de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateCompraPrePoliza(FechaConta As Date, NumeroPoliza As String, IdPoliza As Integer, CvePrePoliza As Integer, CveCompra As Integer, CveIE As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraPrePolizaUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaConta", SqlDbType.Date).Value = FechaConta - .Add("@NumeroPoliza", SqlDbType.VarChar).Value = NumeroPoliza - .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveIE", SqlDbType.Int).Value = CveIE - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateCompraTipoCambio(TipoCambio As Double, CveCompra As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraTipoCambioUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@TipoCambio", SqlDbType.Money).Value = TipoCambio - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el tipo cambio de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function ObtenerCreditoRestante(CveProveedor As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ProveedoresLimiteCreditoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el limite de credito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetComprasSaldos(CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasSaldosGet") - - With SqlAdapter.SelectCommand.Parameters - .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 saldo de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function UpdateCompraEstatusPortal(CveCompra As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_ComprasEstatusPortalUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Actualizar EstatusPortal de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer, - Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveOCDetalle As Integer, - Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, - Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1, - Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0, - Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, - Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, Optional NoDeducible As Boolean = False) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUM", SqlDbType.Int).Value = CveUM - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - .Add("@PU", SqlDbType.Float).Value = PU - .Add("@IVA", SqlDbType.Float).Value = IVA - .Add("@Total", SqlDbType.Float).Value = Total - .Add("@Descuento", SqlDbType.Float).Value = Descuento - .Add("@OtrosGastos", SqlDbType.Float).Value = OtrosGastos - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle - .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso - .Add("@AplicaCostoIndirecto", SqlDbType.Int).Value = AplicaCostoIndirecto - .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto - .Add("@AF_Medida", SqlDbType.Int).Value = AF_Medida - .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento - .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - .Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS - .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA - - .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje - .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje - .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje - .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje - .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje - .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible - End With - - Try - SqlAdapter.Fill(Data) - CveCompraDetalle = SqlAdapter.SelectCommand.Parameters("@CveCompraDetalle").Value.ToString.ToEntero - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el Producto o Servicio a la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateCompraDetalle(CvePS As Integer, Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveSubProyecto As Integer, CvePresupuestoEgreso As Integer, CveActivoFijo As Integer, CveCompraDetalle As Integer, Optional AplicaCostoIndirecto As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1, - Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", - Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, - Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, Optional NoDeducible As Boolean = False) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraDetalleUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - .Add("@PU", SqlDbType.Money).Value = PU - .Add("@IVA", SqlDbType.Money).Value = IVA - .Add("@Total", SqlDbType.Money).Value = Total - .Add("@Descuento", SqlDbType.Money).Value = Descuento - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle - .Add("@AplicaCostoIndirecto", SqlDbType.Int).Value = AplicaCostoIndirecto - .Add("@AF_Medida", SqlDbType.Int).Value = AF_Medida - .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto - .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS - .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA - - .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje - .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje - .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje - .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje - .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje - .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al actualizar el Producto o Servicio de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function DeleteCompraDetalle(CveCompraDetalle As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraDetalleRemove") - - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al eliminar el detalle de la compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function DeleteCompra(CveCompra As Integer, ConFactura As Boolean) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraRemove") - - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@ConFactura", SqlDbType.TinyInt).Value = If(ConFactura, 1, 0) - .Add("@Eliminada", SqlDbType.Bit).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - If SqlAdapter.SelectCommand.Parameters("@Eliminada").Value.ToString = "True" Then - Retorno = True - End If - Catch ex As SqlException - If ex.Message.Contains("FK_Inv_MovimientosDetalle_Inv_MovimientosDetalleEntrada") Then + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveOC", SqlDbType.VarChar).Value = CveOC + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@FolioSecundario", SqlDbType.VarChar).Value = FolioSecundario + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@SubTotal", SqlDbType.Money).Value = SubTotal + .Add("@Descuentos", SqlDbType.Money).Value = Descuentos + .Add("@Amortizacion", SqlDbType.Money).Value = Amortizacion + .Add("@IVA", SqlDbType.Money).Value = IVA + .Add("@RetIVA", SqlDbType.Money).Value = RetIVA + .Add("@RetISR", SqlDbType.Money).Value = RetISR + .Add("@IEPS", SqlDbType.Money).Value = IEPS + .Add("@OtrosImpuestos", SqlDbType.Money).Value = OtrosImpuestos + .Add("@Redondeo", SqlDbType.Money).Value = Redondeo + .Add("@Total", SqlDbType.Money).Value = Total + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Money).Value = TipoCambio + .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento + .Add("@AplicaNotaCredito", SqlDbType.Int).Value = If(AplicaNotaCredito, 1, 0) + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusCompra + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCompra", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza + .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso + .Add("@CveProveedorSucursal", SqlDbType.VarChar).Value = CveProveedorSucursal + .Add("@AplicoPromocion", SqlDbType.Bit).Value = AplicoPromocion + .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA + .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago + .Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto + .Add("@CveConceptoContableAlmacen", SqlDbType.Int).Value = CveConceptoContableAlmacen + .Add("@CveRetISRConcepto", SqlDbType.Int).Value = CveRetISRConcepto + .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible + .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra + .Add("@TotalOriginal", SqlDbType.Money).Value = TotalOriginal + .Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto + .Add("@CveFactura", SqlDbType.Int).Value = CveFactura + End With + + Try + SqlAdapter.Fill(Data) + CveCompra = SqlAdapter.SelectCommand.Parameters("@CveCompra").Value.ToString.ToEntero + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert(String.Format("Ya existe una compra con el mismo Folio: {0}-{1}.", Serie, Folio), TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar la Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + + + Return Retorno + End Function + Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, + Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, + CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, + Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, + Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveFactura As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@FolioSecundario", SqlDbType.VarChar).Value = FolioSecundario + .Add("@AplicaNotaCredito", SqlDbType.Int).Value = If(AplicaNotaCredito, 1, 0) + .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusCompra + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Descuento", SqlDbType.Money).Value = Descuento + .Add("@SubTotal", SqlDbType.Money).Value = SubTotal + .Add("@IVA", SqlDbType.Money).Value = IVA + .Add("@Total", SqlDbType.Money).Value = Total + .Add("@CveProveedorSucursal", SqlDbType.Int).Value = CveProveedorSucursal + .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA + .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso + .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra + .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible + .Add("@CveFactura", SqlDbType.Int).Value = CveFactura + End With + + Try + SqlAdapter.Fill(Data) + CveCompra = SqlAdapter.SelectCommand.Parameters("@CveCompra").Value.ToString.ToEntero + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateCompraPoliza(IdPoliza As Integer, CveCompra As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraUpdatePoliza") + + With SqlAdapter.SelectCommand.Parameters + .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la poliza de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateCompraPrePoliza(FechaConta As Date, NumeroPoliza As String, IdPoliza As Integer, CvePrePoliza As Integer, CveCompra As Integer, CveIE As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraPrePolizaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaConta", SqlDbType.Date).Value = FechaConta + .Add("@NumeroPoliza", SqlDbType.VarChar).Value = NumeroPoliza + .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveIE", SqlDbType.Int).Value = CveIE + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateCompraTipoCambio(TipoCambio As Double, CveCompra As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraTipoCambioUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoCambio", SqlDbType.Money).Value = TipoCambio + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el tipo cambio de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function ObtenerCreditoRestante(CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ProveedoresLimiteCreditoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el limite de credito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetComprasSaldos(CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasSaldosGet") + + With SqlAdapter.SelectCommand.Parameters + .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 saldo de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function UpdateCompraEstatusPortal(CveCompra As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_ComprasEstatusPortalUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Actualizar EstatusPortal de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer, + Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveOCDetalle As Integer, + Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, + Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1, + Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0, + Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, + Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, Optional NoDeducible As Boolean = False) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@PU", SqlDbType.Float).Value = PU + .Add("@IVA", SqlDbType.Float).Value = IVA + .Add("@Total", SqlDbType.Float).Value = Total + .Add("@Descuento", SqlDbType.Float).Value = Descuento + .Add("@OtrosGastos", SqlDbType.Float).Value = OtrosGastos + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle + .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso + .Add("@AplicaCostoIndirecto", SqlDbType.Int).Value = AplicaCostoIndirecto + .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@AF_Medida", SqlDbType.Int).Value = AF_Medida + .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento + .Add("@Referencia", SqlDbType.VarChar).Value = Referencia + .Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@RetIVA", SqlDbType.Float).Value = RetIVA + .Add("@RetISR", SqlDbType.Float).Value = RetISR + .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS + .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA + + .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje + .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje + .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje + .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje + .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje + .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible + End With + + Try + SqlAdapter.Fill(Data) + CveCompraDetalle = SqlAdapter.SelectCommand.Parameters("@CveCompraDetalle").Value.ToString.ToEntero + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el Producto o Servicio a la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateCompraDetalle(CvePS As Integer, Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveSubProyecto As Integer, CvePresupuestoEgreso As Integer, CveActivoFijo As Integer, CveCompraDetalle As Integer, Optional AplicaCostoIndirecto As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1, + Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", + Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, + Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, Optional NoDeducible As Boolean = False) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@PU", SqlDbType.Money).Value = PU + .Add("@IVA", SqlDbType.Money).Value = IVA + .Add("@Total", SqlDbType.Money).Value = Total + .Add("@Descuento", SqlDbType.Money).Value = Descuento + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle + .Add("@AplicaCostoIndirecto", SqlDbType.Int).Value = AplicaCostoIndirecto + .Add("@AF_Medida", SqlDbType.Int).Value = AF_Medida + .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@Referencia", SqlDbType.VarChar).Value = Referencia + .Add("@RetIVA", SqlDbType.Float).Value = RetIVA + .Add("@RetISR", SqlDbType.Float).Value = RetISR + .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS + .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA + + .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje + .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje + .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje + .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje + .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje + .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al actualizar el Producto o Servicio de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DeleteCompraDetalle(CveCompraDetalle As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraDetalleRemove") + + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al eliminar el detalle de la compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DeleteCompra(CveCompra As Integer, ConFactura As Boolean) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraRemove") + + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@ConFactura", SqlDbType.TinyInt).Value = If(ConFactura, 1, 0) + .Add("@Eliminada", SqlDbType.Bit).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + If SqlAdapter.SelectCommand.Parameters("@Eliminada").Value.ToString = "True" Then + Retorno = True + End If + Catch ex As SqlException + If ex.Message.Contains("FK_Inv_MovimientosDetalle_Inv_MovimientosDetalleEntrada") Then Alert(String.Format("No se puede eliminar la compra, porque tiene movimientos de salida de Almacen relacionados."), TipoMensaje.MsgAdvertencia) ElseIf ex.Message.Contains("50015") Then Alert("No se puede eliminar na compra debido a que el perido esta cerrado.", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al eliminar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End If - Catch ex As Exception - OnError("Ocurrió un error al eliminar la compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - - End Try - - Return Retorno - End Function - - Public Function GetRepPromociones(CveProveedor As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_PromocionesRepGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .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 Promociones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - 'Reporte de Compras - Public Function GetRepCompras(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveUsuarioCaptura As Integer, FechaICaptura As String, FechaFCaptura As String, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CvesubProyecto As String, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional CveProyecto As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional TipoDocto As String = "-1") As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasGetRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura - .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura - .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto - .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CvesubProyecto - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetRepComprasAF(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1 - ) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasAFGetRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo - .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - - - 'CveClasificacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetRepComprasAFDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, - Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasAFDetalleGetRep") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@Anio", SqlDbType.Int).Value = Anio - .Add("@Mes", SqlDbType.Int).Value = Mes - .Add("@AnioMes", SqlDbType.VarChar).Value = AnioMes - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo - .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - - 'CveClasificacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function GetRepComprasPersonal(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CvePersonal As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1 - ) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasPersonalGetRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - - 'CveClasificacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetRepComprasPersonalDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CvePersonal As Integer, CvePS As Integer, - Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasPersonalDetalleGetRep") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@Anio", SqlDbType.Int).Value = Anio - .Add("@Mes", SqlDbType.Int).Value = Mes - .Add("@AnioMes", SqlDbType.VarChar).Value = AnioMes - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - - 'CveClasificacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - 'Reporte de Compras Detalle - Public Function GetRepComprasDetalle(Gpo As Integer, Anio As Integer, Mes As Integer, AnioMes As String, Fecha As String, CveProveedor As Integer, CveMoneda As Integer, - CveUsuario As Integer, FechaI As String, FechaF As String, - CveUsuarioCaptura As Integer, NumeroRemesa As Integer, CveUsuarioRemesa As Integer, FechaICaptura As String, FechaFCaptura As String, FechaCaptura As String, - CvesubProyecto As String, TipoDocto As String, CveEmpresa As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional CveProyecto As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasGetRepDetalle") - - With SqlAdapter.SelectCommand.Parameters - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@Anio", SqlDbType.Int).Value = Anio - .Add("@Mes", SqlDbType.Int).Value = Mes - .Add("@AnioMes", SqlDbType.VarChar).Value = AnioMes - .Add("@Fecha", SqlDbType.VarChar).Value = Fecha - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura - .Add("@NumeroRemesa", SqlDbType.Int).Value = NumeroRemesa - .Add("@CveUsuarioRemesa", SqlDbType.Int).Value = CveUsuarioRemesa - .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura - .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura - .Add("@FechaCaptura", SqlDbType.VarChar).Value = FechaCaptura - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CvesubProyecto - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - 'Reporte de Compras Periodo - Public Function GetRepComprasPeriodo(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveUsuarioCaptura As Integer, - FechaICaptura As String, FechaFCaptura As String, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, - CvesubProyecto As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As Integer = -1, - Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CveProyecto As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasGetRepPeriodo") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura - .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura - .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CvesubProyecto - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@VerEn", SqlDbType.Int).Value = VerEn - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras por Periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - 'Reporte de Perioricidad - Public Function GetRepComprasPerioricidad(CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, - FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasPerioricidadRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .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 Perioricidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - 'Reporte de Productos y Servicios - Public Function GetRepProductosServicios(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, - FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, - CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", - Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_GetRepPS") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto - .Add("@CveCategoria", SqlDbType.VarChar).Value = CveCategoria - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia - .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveTipoActivoFijo", SqlDbType.VarChar).Value = CveTipoActivoFijo - .Add("@CveSubTipoActivoFijo", SqlDbType.VarChar).Value = CveSubTipoActivoFijo - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras por Productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetRepProductosServiciosDetalle(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, - FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, - CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, - CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, - Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_GetRepPSDetalle") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto - .Add("@CveCategoria", SqlDbType.VarChar).Value = CveCategoria - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto - - .Add("@GPO", SqlDbType.Int).Value = Gpo - - .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia - .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia - - .Add("@CveTipoActivoFijo", SqlDbType.VarChar).Value = CveTipoActivoFijo - .Add("@CveSubTipoActivoFijo", SqlDbType.VarChar).Value = CveSubTipoActivoFijo - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras por Productos Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function ProgramarCompra(pCveCompra As Integer, pImporte As Double, CveUsuario As Integer, CveTipoPagoProgramo As Integer, Optional CodigoProgramacion As String = "") As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraProgramar") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra - .Add("@Importe", SqlDbType.Money).Value = pImporte - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveTipoPagoProgramo", SqlDbType.Int).Value = CveTipoPagoProgramo - .Add("@CodigoProgramacion", SqlDbType.VarChar).Value = CodigoProgramacion - - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al programar Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateProgramarCompra(pCveCompra As Integer, pImporte As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraProgramarUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra - .Add("@Importe", SqlDbType.Money).Value = pImporte - .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 actualizar programar Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetComprasNotasCredito(CveCompra As Integer, CveCompraNC As Integer, Optional CveIE As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasNotasCreditoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveCompraNC", SqlDbType.Int).Value = CveCompraNC - .Add("@CveIE", SqlDbType.Int).Value = CveIE - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Notas de crédito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AmortizarCompra(pCveCompra As Integer, pCveCompraNC As Integer, ImporteAmortizar As Double, CveUsuario As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_CompraAmortizar") - - With SqlAdapter.SelectCommand.Parameters - - .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra - .Add("@CveCompraNC", SqlDbType.Int).Value = pCveCompraNC - .Add("@ImporteAmortizar", SqlDbType.Money).Value = ImporteAmortizar - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al programar Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function UpdateCompraFactura(pCveCompra As Integer, pCveFactura As Integer, Serie As String, Folio As String) As Boolean - Dim OnError As Boolean = False - - DataAdapter("UPDATE Comp_Facturas SET CveCompra = @pCveCompra, Serie = CASE WHEN @Serie <> Serie THEN @Serie ELSE Serie END, Folio = CASE WHEN @Folio <> Folio THEN @Folio ELSE Folio END WHERE CveFactura = @pCveFactura ", CommandType.Text) - With SqlAdapter.SelectCommand.Parameters - .Add("@pCveCompra", SqlDbType.Int).Value = pCveCompra - .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura - .Add("@Serie", SqlDbType.VarChar).Value = Serie - .Add("@Folio", SqlDbType.VarChar).Value = Folio - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al actualizar la compra de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - - Public Function GetComprasCrediProveedores(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasCrediProveedoresGet") - - With SqlAdapter.SelectCommand.Parameters - .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 la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function UpdateImporteCompra(CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasLimpiaImporte") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al limpiar los importes de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetFacturasComparacionXML(Version As String, Xml As String, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComparacionXML") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Version", SqlDbType.VarChar, 4).Value = Version - .Add("@Xml", SqlDbType.Xml).Value = Xml - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Error", SqlDbType.VarChar, 300).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString = "" Then Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetReporteGastosCentroCosto(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ReporteGastosCentroCostoGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaInicio", SqlDbType.Date).Value = FechaI - .Add("@FechaFin", 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 Gastos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetReporteGastosCentroCostoDetalle(CveEmpresa As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, FechaI As Date, FechaF As Date) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Vta_ReporteGastosCentroCostoDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaInicio", SqlDbType.Date).Value = FechaI - .Add("@FechaFin", SqlDbType.Date).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de Gastos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - -#Region "C O M P R A S - P R E S U P U E S T O S" - Public Function GetPresupuestosCompras(CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_AC_PresupuestosComprasGet") - - 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 los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function AddPresupuestoCompra(CveCompra As Integer, CvePresupuestoEgreso As Integer, Importe As Double) As Boolean - Dim OnError As Boolean = False - - DataAdapter("PA_AC_PresupuestosComprasAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso - .Add("@Importe", SqlDbType.Money).Value = Importe - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al actualizar la compra de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - - Public Function UpdatePresupuestoCompra(CveCompra As Integer, CvePresupuestoEgreso As Integer, Importe As Double) As Boolean - Dim OnError As Boolean = False - - DataAdapter("PA_AC_PresupuestosComprasUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso - .Add("@Importe", SqlDbType.Money).Value = Importe - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al actualizar la compra de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - -#End Region - - -#Region "I M P O R T A C I O N E S" - Public Function GetImportaciones(CveImportacion As Integer, CveProveedor As Integer, CveActivoFijo As Integer, FechaInicio As String, FechaFin As String, CveEmpresa As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@FechaI", SqlDbType.VarChar).Value = FechaInicio - .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin - .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.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function AddImportacion(Pedimento As String, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Integer - - Dim Retorno = -1 - - DataAdapter("PA_Comp_ImportacionesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Pedimento", SqlDbType.VarChar).Value = Pedimento - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveImportacion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveImportacion").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateImportacion(Pedimento As String, CveImportacion As Integer, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@Pedimento", SqlDbType.VarChar).Value = Pedimento - .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveImportacion(CveImportacion As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Eliminar la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetImportacionCompra(CveCompra As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesCompraGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la compra de la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetImportacionesDetalle(CveImportacion As Integer, CveImportacionDetalle As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacionDetalle", SqlDbType.Int).Value = CveImportacionDetalle - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los detalles de las Importaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function AddImportacionDetalle(CveImportacion As Integer, CveCompra As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesDetalleAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Guardar la Importación Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateImportacionDetalle(CveImportacionDetalle As Integer, CveCompra As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesDetalleUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacionDetalle", SqlDbType.Int).Value = CveImportacionDetalle - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la Importación Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function RemoveImportacionDetalle(CveImportacionDetalle As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_ImportacionesDetalleRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacionDetalle", SqlDbType.Int).Value = CveImportacionDetalle - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al Eliminar la Importación Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function AddImportacionCompra(CveImportacion As Integer, CveCompra As Integer) As Boolean - Dim Retorno = False - DataAdapter("PA_Comp_ImportacionesCompraAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar la importación compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function RemoveImportacionCompra(CveImportacionCompra As Integer) As Boolean - Dim Retorno = False - DataAdapter("PA_Comp_ImportacionesCompraRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacionCompra", SqlDbType.Int).Value = CveImportacionCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar la importación compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetImportacionCompras(Optional CveImportacion As Integer = -1, Optional CveCompra As Integer = -1) As Boolean - Dim Retorno = False - DataAdapter("PA_Comp_ImportacionesComprasGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la importación compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function -#End Region - - Public Function GetSiguienteFolio(CveProveedor As Integer, Serie As String) As Integer - - Dim Retorno As Integer = -1 - - DataAdapter("SELECT MAX(dbo.FNC_Numero(Folio)) FROM Comp_Compras C WHERE CveProveedor = @CveProveedor AND UPPER(Serie) = @Serie ", CommandType.Text) - - With SqlAdapter.SelectCommand.Parameters - .Add("@Serie", SqlDbType.VarChar).Value = Serie.ToUpper - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - End With - - Try - Retorno = SqlAdapter.SelectCommand.ExecuteScalar.ToString.ToEntero + 1 - - Catch ex As Exception - OnError("Ocurrió un error al obtener el siguiente folio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - - -#Region "B E N E F I C I A R I O S" - Public Function GetBeneficiarios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_BeneficiariosGet") - - With SqlAdapter.SelectCommand.Parameters - .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 Beneficiarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetBeneficiarios2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_BeneficiariosGet2") - - With SqlAdapter.SelectCommand.Parameters - .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 Beneficiarios 2.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetBeneficiariosDetalle(CveProveedor As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_BeneficiariosDetalleGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .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 detalle de Beneficiarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - - -#Region "N O T A S - C R E D I T O" - Public Function GetNotasCreditoRep(CveProveedor As Integer, Opcion As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer) As Boolean - - Dim Retorno = False - - DataAdapter("PA_Comp_RepNotasCredito") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Opcion", SqlDbType.Int).Value = Opcion - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).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 Notas de Crédito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - - -#Region "F A C T U R A S " - - Public Function GetFacturas(CveFactura As Integer, Folio As String, FechaFacturaI As Date, FechaFacturaF As Date, RFC As String, Proveedor As String, FueValidado As Integer, CveResponsable As Integer, CveProveedorClasificacion As Integer, CveTipoProveedor As Integer, TipoComprobante As String, CveEmpresa As Integer) As Boolean - Dim OnError As Boolean = False - - 'StrSQL.Clear() - 'StrSQL.Append(" SELECT T.*, CASE WHEN Serie <>'' THEN Serie + '-' ELSE '' END + CASE WHEN Folio = '' THEN 'S/N' ELSE Folio END AS SerieFolio ") - 'StrSQL.Append(" FROM ( ") - 'StrSQL.Append(" SELECT C.CveEmpresa, CveFactura, Serie, ISNULL(Folio,COUNT(*)) as Folio, FechaFactura, ISNULL(P.RazonSocial,ISNULL(NULLIF(NombreProveedor, ''),RFCDe)) as NombreProveedor, RFCDe, SUM (Total) AS Total, ") - 'StrSQL.Append(" FechaRecepcion, UUID, RFCPara, XML, PDF, P.CveProveedor, ") - 'StrSQL.Append(" FueValidado, TipoFactura, CveCompra, CASE WHEN YEAR (FechaFactura) IS NULL AND MONTH (FechaFactura) IS NULL THEN 0 ELSE 1 END AS Orden ") - 'StrSQL.Append(" FROM Comp_Facturas C LEFT JOIN Comp_Proveedores P ON P.RFC = C.RFCDe AND P.CveEmpresa = @CveEmpresa ") - 'StrSQL.Append(" WHERE (@Folio = '-1' OR (Folio LIKE @Folio OR Serie LIKE @Folio)) ") - 'StrSQL.Append(" AND (FechaFactura >= @FechaFacturaI AND FechaFactura <= @FechaFacturaF) ") - 'StrSQL.Append(" AND (@RFC = '-1' OR RFCDe LIKE @RFC) ") - 'StrSQL.Append(" AND (@CveResponsable = -1 OR P.CveUsuarioResponsable = @CveResponsable) ") - 'StrSQL.Append(" AND (@Proveedor = '-1' OR UPPER(NombreProveedor) LIKE @Proveedor) ") - 'StrSQL.Append(" AND (@FueValidado = -1 OR (CASE WHEN @FueValidado = -2 AND CveCompra IS NULL AND NOT FueValidado IN (3,5) THEN 1 WHEN FueValidado = @FueValidado THEN 1 WHEN @FueValidado = 3 AND CveCompra > 0 THEN 1 WHEN @FueValidado = 4 AND FueValidado = 2 THEN 1 WHEN @FueValidado = 5 AND FueValidado = 3 THEN 1 WHEN @FueValidado = 2 AND FueValidado = 1 AND CveCompra IS NULL THEN 1 ELSE 0 END = 1)) ") - 'StrSQL.Append(" AND (@CveFactura = -1 OR CveFactura = @CveFactura) ") - 'StrSQL.Append(" AND C.CveEmpresa = @CveEmpresa ") - 'StrSQL.Append(" GROUP BY C.CveEmpresa,CveFactura, Serie, Folio, FechaFactura, NombreProveedor, RFCDe, FechaRecepcion, UUID, RFCPara, XML, PDF, P.RazonSocial, P.CveProveedor, FueValidado, CASE WHEN FueValidado = 0 THEN 'No' ELSE 'Si' END, TipoFactura, CveCompra ") - 'StrSQL.Append(" ) T ") - 'StrSQL.Append(" ORDER BY Orden, FechaFactura DESC") - - DataAdapter("PA_Comp_FacturasGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@FechaFacturaI", SqlDbType.Date).Value = FechaFacturaI - .Add("@FechaFacturaF", SqlDbType.Date).Value = FechaFacturaF - .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor - .Add("@FueValidado", SqlDbType.Int).Value = FueValidado - .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable - .Add("@CveFactura", SqlDbType.Int).Value = CveFactura - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - .Add("@TipoComprobante", SqlDbType.VarChar).Value = TipoComprobante - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener las Facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - - Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer) As Boolean - Dim OnError As Boolean = False - - DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura ", CommandType.Text) - With SqlAdapter.SelectCommand.Parameters - .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado - .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al cambiar el estatus de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - - Public Function DeleteFactura(pCveFactura As Integer) As Boolean - Dim OnError As Boolean = False - - DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text) - - SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return OnError - End Function - - Public Function GetFacturasBitacoraGet(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean - Dim OnError As Boolean = False - - DataAdapter("PA_Comp_FacturasBitacoraGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio - .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - OnError = True - Catch ex As Exception + Else + Me.OnError("Ocurrió un error al eliminar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al eliminar la compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + + End Try + + Return Retorno + End Function + + Public Function GetRepPromociones(CveProveedor As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_PromocionesRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .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 Promociones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + 'Reporte de Compras + Public Function GetRepCompras(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveUsuarioCaptura As Integer, FechaICaptura As String, FechaFCaptura As String, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CvesubProyecto As String, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional CveProyecto As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional TipoDocto As String = "-1") As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasGetRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura + .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura + .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto + .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CvesubProyecto + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetRepComprasAF(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1 + ) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasAFGetRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo + .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + + + 'CveClasificacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetRepComprasAFDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, + Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasAFDetalleGetRep") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@AnioMes", SqlDbType.VarChar).Value = AnioMes + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo + .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + + 'CveClasificacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetRepComprasPersonal(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CvePersonal As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1 + ) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasPersonalGetRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + + 'CveClasificacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetRepComprasPersonalDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CvePersonal As Integer, CvePS As Integer, + Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasPersonalDetalleGetRep") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@AnioMes", SqlDbType.VarChar).Value = AnioMes + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + + 'CveClasificacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + 'Reporte de Compras Detalle + Public Function GetRepComprasDetalle(Gpo As Integer, Anio As Integer, Mes As Integer, AnioMes As String, Fecha As String, CveProveedor As Integer, CveMoneda As Integer, + CveUsuario As Integer, FechaI As String, FechaF As String, + CveUsuarioCaptura As Integer, NumeroRemesa As Integer, CveUsuarioRemesa As Integer, FechaICaptura As String, FechaFCaptura As String, FechaCaptura As String, + CvesubProyecto As String, TipoDocto As String, CveEmpresa As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional CveProyecto As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasGetRepDetalle") + + With SqlAdapter.SelectCommand.Parameters + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@Anio", SqlDbType.Int).Value = Anio + .Add("@Mes", SqlDbType.Int).Value = Mes + .Add("@AnioMes", SqlDbType.VarChar).Value = AnioMes + .Add("@Fecha", SqlDbType.VarChar).Value = Fecha + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura + .Add("@NumeroRemesa", SqlDbType.Int).Value = NumeroRemesa + .Add("@CveUsuarioRemesa", SqlDbType.Int).Value = CveUsuarioRemesa + .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura + .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura + .Add("@FechaCaptura", SqlDbType.VarChar).Value = FechaCaptura + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CvesubProyecto + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + 'Reporte de Compras Periodo + Public Function GetRepComprasPeriodo(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveUsuarioCaptura As Integer, + FechaICaptura As String, FechaFCaptura As String, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, + CvesubProyecto As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As Integer = -1, + Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CveProyecto As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasGetRepPeriodo") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura + .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura + .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CvesubProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@VerEn", SqlDbType.Int).Value = VerEn + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras por Periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + 'Reporte de Perioricidad + Public Function GetRepComprasPerioricidad(CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, + FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasPerioricidadRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .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 Perioricidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + 'Reporte de Productos y Servicios + Public Function GetRepProductosServicios(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, + FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, + CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", + Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_GetRepPS") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto + .Add("@CveCategoria", SqlDbType.VarChar).Value = CveCategoria + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia + .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveTipoActivoFijo", SqlDbType.VarChar).Value = CveTipoActivoFijo + .Add("@CveSubTipoActivoFijo", SqlDbType.VarChar).Value = CveSubTipoActivoFijo + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras por Productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetRepProductosServiciosDetalle(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, + FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, + CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, + CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, + Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_GetRepPSDetalle") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto + .Add("@CveCategoria", SqlDbType.VarChar).Value = CveCategoria + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto + + .Add("@GPO", SqlDbType.Int).Value = Gpo + + .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia + .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia + + .Add("@CveTipoActivoFijo", SqlDbType.VarChar).Value = CveTipoActivoFijo + .Add("@CveSubTipoActivoFijo", SqlDbType.VarChar).Value = CveSubTipoActivoFijo + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras por Productos Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function ProgramarCompra(pCveCompra As Integer, pImporte As Double, CveUsuario As Integer, CveTipoPagoProgramo As Integer, Optional CodigoProgramacion As String = "") As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraProgramar") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra + .Add("@Importe", SqlDbType.Money).Value = pImporte + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveTipoPagoProgramo", SqlDbType.Int).Value = CveTipoPagoProgramo + .Add("@CodigoProgramacion", SqlDbType.VarChar).Value = CodigoProgramacion + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al programar Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateProgramarCompra(pCveCompra As Integer, pImporte As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraProgramarUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra + .Add("@Importe", SqlDbType.Money).Value = pImporte + .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 actualizar programar Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetComprasNotasCredito(CveCompra As Integer, CveCompraNC As Integer, Optional CveIE As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasNotasCreditoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveCompraNC", SqlDbType.Int).Value = CveCompraNC + .Add("@CveIE", SqlDbType.Int).Value = CveIE + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Notas de crédito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AmortizarCompra(pCveCompra As Integer, pCveCompraNC As Integer, ImporteAmortizar As Double, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_CompraAmortizar") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveCompra", SqlDbType.Int).Value = pCveCompra + .Add("@CveCompraNC", SqlDbType.Int).Value = pCveCompraNC + .Add("@ImporteAmortizar", SqlDbType.Money).Value = ImporteAmortizar + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al programar Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function UpdateCompraFactura(pCveCompra As Integer, pCveFactura As Integer, Serie As String, Folio As String) As Boolean + Dim OnError As Boolean = False + + DataAdapter("UPDATE Comp_Facturas SET CveCompra = @pCveCompra, Serie = CASE WHEN @Serie <> Serie THEN @Serie ELSE Serie END, Folio = CASE WHEN @Folio <> Folio THEN @Folio ELSE Folio END WHERE CveFactura = @pCveFactura ", CommandType.Text) + With SqlAdapter.SelectCommand.Parameters + .Add("@pCveCompra", SqlDbType.Int).Value = pCveCompra + .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Folio", SqlDbType.VarChar).Value = Folio + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al actualizar la compra de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + + Public Function GetComprasCrediProveedores(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasCrediProveedoresGet") + + With SqlAdapter.SelectCommand.Parameters + .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 la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateImporteCompra(CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasLimpiaImporte") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al limpiar los importes de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetFacturasComparacionXML(Version As String, Xml As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComparacionXML") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Version", SqlDbType.VarChar, 4).Value = Version + .Add("@Xml", SqlDbType.Xml).Value = Xml + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Error", SqlDbType.VarChar, 300).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString = "" Then Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetReporteGastosCentroCosto(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ReporteGastosCentroCostoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.Date).Value = FechaI + .Add("@FechaFin", 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 Gastos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetReporteGastosCentroCostoDetalle(CveEmpresa As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ReporteGastosCentroCostoDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.Date).Value = FechaI + .Add("@FechaFin", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Gastos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + +#Region "C O M P R A S - P R E S U P U E S T O S" + Public Function GetPresupuestosCompras(CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_AC_PresupuestosComprasGet") + + 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 los datos de la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function AddPresupuestoCompra(CveCompra As Integer, CvePresupuestoEgreso As Integer, Importe As Double) As Boolean + Dim OnError As Boolean = False + + DataAdapter("PA_AC_PresupuestosComprasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso + .Add("@Importe", SqlDbType.Money).Value = Importe + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al actualizar la compra de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + + Public Function UpdatePresupuestoCompra(CveCompra As Integer, CvePresupuestoEgreso As Integer, Importe As Double) As Boolean + Dim OnError As Boolean = False + + DataAdapter("PA_AC_PresupuestosComprasUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CvePresupuestoEgreso", SqlDbType.Int).Value = CvePresupuestoEgreso + .Add("@Importe", SqlDbType.Money).Value = Importe + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al actualizar la compra de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + +#End Region + + +#Region "I M P O R T A C I O N E S" + Public Function GetImportaciones(CveImportacion As Integer, CveProveedor As Integer, CveActivoFijo As Integer, FechaInicio As String, FechaFin As String, CveEmpresa As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@FechaI", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin + .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.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddImportacion(Pedimento As String, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Integer + + Dim Retorno = -1 + + DataAdapter("PA_Comp_ImportacionesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Pedimento", SqlDbType.VarChar).Value = Pedimento + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveImportacion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveImportacion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateImportacion(Pedimento As String, CveImportacion As Integer, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Pedimento", SqlDbType.VarChar).Value = Pedimento + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveImportacion(CveImportacion As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Eliminar la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetImportacionCompra(CveCompra As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesCompraGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la compra de la Importación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetImportacionesDetalle(CveImportacion As Integer, CveImportacionDetalle As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacionDetalle", SqlDbType.Int).Value = CveImportacionDetalle + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los detalles de las Importaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddImportacionDetalle(CveImportacion As Integer, CveCompra As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Importación Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateImportacionDetalle(CveImportacionDetalle As Integer, CveCompra As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacionDetalle", SqlDbType.Int).Value = CveImportacionDetalle + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Importación Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveImportacionDetalle(CveImportacionDetalle As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_ImportacionesDetalleRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacionDetalle", SqlDbType.Int).Value = CveImportacionDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Eliminar la Importación Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddImportacionCompra(CveImportacion As Integer, CveCompra As Integer) As Boolean + Dim Retorno = False + DataAdapter("PA_Comp_ImportacionesCompraAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la importación compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveImportacionCompra(CveImportacionCompra As Integer) As Boolean + Dim Retorno = False + DataAdapter("PA_Comp_ImportacionesCompraRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacionCompra", SqlDbType.Int).Value = CveImportacionCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la importación compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetImportacionCompras(Optional CveImportacion As Integer = -1, Optional CveCompra As Integer = -1) As Boolean + Dim Retorno = False + DataAdapter("PA_Comp_ImportacionesComprasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la importación compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region + + Public Function GetSiguienteFolio(CveProveedor As Integer, Serie As String) As Integer + + Dim Retorno As Integer = -1 + + DataAdapter("SELECT MAX(dbo.FNC_Numero(Folio)) FROM Comp_Compras C WHERE CveProveedor = @CveProveedor AND UPPER(Serie) = @Serie ", CommandType.Text) + + With SqlAdapter.SelectCommand.Parameters + .Add("@Serie", SqlDbType.VarChar).Value = Serie.ToUpper + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + End With + + Try + Retorno = SqlAdapter.SelectCommand.ExecuteScalar.ToString.ToEntero + 1 + + Catch ex As Exception + OnError("Ocurrió un error al obtener el siguiente folio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + + +#Region "B E N E F I C I A R I O S" + Public Function GetBeneficiarios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_BeneficiariosGet") + + With SqlAdapter.SelectCommand.Parameters + .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 Beneficiarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetBeneficiarios2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_BeneficiariosGet2") + + With SqlAdapter.SelectCommand.Parameters + .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 Beneficiarios 2.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetBeneficiariosDetalle(CveProveedor As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_BeneficiariosDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .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 detalle de Beneficiarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + + +#Region "N O T A S - C R E D I T O" + Public Function GetNotasCreditoRep(CveProveedor As Integer, Opcion As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Comp_RepNotasCredito") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).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 Notas de Crédito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + + +#Region "F A C T U R A S " + + Public Function GetFacturas(CveFactura As Integer, Folio As String, FechaFacturaI As Date, FechaFacturaF As Date, RFC As String, Proveedor As String, FueValidado As Integer, CveResponsable As Integer, CveProveedorClasificacion As Integer, CveTipoProveedor As Integer, TipoComprobante As String, CveEmpresa As Integer) As Boolean + Dim OnError As Boolean = False + + 'StrSQL.Clear() + 'StrSQL.Append(" SELECT T.*, CASE WHEN Serie <>'' THEN Serie + '-' ELSE '' END + CASE WHEN Folio = '' THEN 'S/N' ELSE Folio END AS SerieFolio ") + 'StrSQL.Append(" FROM ( ") + 'StrSQL.Append(" SELECT C.CveEmpresa, CveFactura, Serie, ISNULL(Folio,COUNT(*)) as Folio, FechaFactura, ISNULL(P.RazonSocial,ISNULL(NULLIF(NombreProveedor, ''),RFCDe)) as NombreProveedor, RFCDe, SUM (Total) AS Total, ") + 'StrSQL.Append(" FechaRecepcion, UUID, RFCPara, XML, PDF, P.CveProveedor, ") + 'StrSQL.Append(" FueValidado, TipoFactura, CveCompra, CASE WHEN YEAR (FechaFactura) IS NULL AND MONTH (FechaFactura) IS NULL THEN 0 ELSE 1 END AS Orden ") + 'StrSQL.Append(" FROM Comp_Facturas C LEFT JOIN Comp_Proveedores P ON P.RFC = C.RFCDe AND P.CveEmpresa = @CveEmpresa ") + 'StrSQL.Append(" WHERE (@Folio = '-1' OR (Folio LIKE @Folio OR Serie LIKE @Folio)) ") + 'StrSQL.Append(" AND (FechaFactura >= @FechaFacturaI AND FechaFactura <= @FechaFacturaF) ") + 'StrSQL.Append(" AND (@RFC = '-1' OR RFCDe LIKE @RFC) ") + 'StrSQL.Append(" AND (@CveResponsable = -1 OR P.CveUsuarioResponsable = @CveResponsable) ") + 'StrSQL.Append(" AND (@Proveedor = '-1' OR UPPER(NombreProveedor) LIKE @Proveedor) ") + 'StrSQL.Append(" AND (@FueValidado = -1 OR (CASE WHEN @FueValidado = -2 AND CveCompra IS NULL AND NOT FueValidado IN (3,5) THEN 1 WHEN FueValidado = @FueValidado THEN 1 WHEN @FueValidado = 3 AND CveCompra > 0 THEN 1 WHEN @FueValidado = 4 AND FueValidado = 2 THEN 1 WHEN @FueValidado = 5 AND FueValidado = 3 THEN 1 WHEN @FueValidado = 2 AND FueValidado = 1 AND CveCompra IS NULL THEN 1 ELSE 0 END = 1)) ") + 'StrSQL.Append(" AND (@CveFactura = -1 OR CveFactura = @CveFactura) ") + 'StrSQL.Append(" AND C.CveEmpresa = @CveEmpresa ") + 'StrSQL.Append(" GROUP BY C.CveEmpresa,CveFactura, Serie, Folio, FechaFactura, NombreProveedor, RFCDe, FechaRecepcion, UUID, RFCPara, XML, PDF, P.RazonSocial, P.CveProveedor, FueValidado, CASE WHEN FueValidado = 0 THEN 'No' ELSE 'Si' END, TipoFactura, CveCompra ") + 'StrSQL.Append(" ) T ") + 'StrSQL.Append(" ORDER BY Orden, FechaFactura DESC") + + DataAdapter("PA_Comp_FacturasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@FechaFacturaI", SqlDbType.Date).Value = FechaFacturaI + .Add("@FechaFacturaF", SqlDbType.Date).Value = FechaFacturaF + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor + .Add("@FueValidado", SqlDbType.Int).Value = FueValidado + .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable + .Add("@CveFactura", SqlDbType.Int).Value = CveFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@TipoComprobante", SqlDbType.VarChar).Value = TipoComprobante + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener las Facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + + Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer) As Boolean + Dim OnError As Boolean = False + + DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura ", CommandType.Text) + With SqlAdapter.SelectCommand.Parameters + .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado + .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al cambiar el estatus de la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + + Public Function DeleteFactura(pCveFactura As Integer) As Boolean + Dim OnError As Boolean = False + + DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text) + + SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return OnError + End Function + + Public Function GetFacturasBitacoraGet(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean + Dim OnError As Boolean = False + + DataAdapter("PA_Comp_FacturasBitacoraGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio + .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + OnError = True + Catch ex As Exception If ex.Message.Contains("Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.") Then Alert("Fechas fuera de rango, debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM", TipoMensaje.MsgAdvertencia) Else - Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If - End Try - - Return OnError - End Function - - - Public Function AddFactura(Serie As String, Folio As String, FechaFactura As DateTime, NombreProveedor As String, RFCDe As String, SubTotal As Double, - IVA As Double, Total As Double, UUID As String, RFCPara As String, XML As String, PDF As String, - VersionCFD As String, Descuento As Double, Moneda As String, TipodeComprobante As String, TipoCambio As Double, FueValidado As Integer, - CveEmpresa As Integer, PreFijo As String) As Integer - Dim Retorno As Integer = -1 - - Dim StrSQL = New StringBuilder() - StrSQL.Append(" BEGIN ") - StrSQL.Append(" DECLARE @tTotal INT; ") - StrSQL.Append(" ") - StrSQL.Append(" SELECT @tTotal = ISNULL(MAX(CveFactura),0) FROM Comp_Facturas WHERE UUID = @UUID;") - StrSQL.Append(" IF @tTotal = 0 ") - StrSQL.Append(" BEGIN ") - StrSQL.Append(" INSERT INTO Comp_Facturas (Serie, Folio, FechaFactura, NombreProveedor, RFCDe, Total, UUID, RFCPara, XML, PDF, FueValidado, CveEmpresa, TipoFactura,Version, TipoComprobante) ") - StrSQL.Append(" VALUES (@Serie, @Folio, @FechaFactura, @NombreProveedor, @RFCDe, @Total, @UUID, @RFCPara, @XML, @PDF, @FueValidado, @CveEmpresa, @PreFijo, @Version,@TipodeComprobante); ") - StrSQL.Append(" SET @Retorno = 1; ") - StrSQL.Append(" SET @CveFactura = IDENT_CURRENT('Comp_Facturas'); ") - StrSQL.Append(" UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml'), PDF = CONCAT(@CveFactura ,'.pdf') WHERE CveFactura = @CveFactura; ") - StrSQL.Append(" END ") - StrSQL.Append(" ELSE BEGIN SET @CveFactura = @tTotal; END ") - StrSQL.Append(" END ") - - If PreFijo.ToLower() = "cfdi" Then - PreFijo = "CFDi" - ElseIf PreFijo.ToLower() = "cfd" Then - PreFijo = "CFD" - End If - - DataAdapter(StrSQL.ToString(), CommandType.Text) - With SqlAdapter.SelectCommand.Parameters - .Add("@Serie", SqlDbType.VarChar).Value = Serie - .Add("@Folio", SqlDbType.VarChar).Value = Folio - .Add("@FechaFactura", SqlDbType.[Date]).Value = FechaFactura - .Add("@NombreProveedor", SqlDbType.VarChar).Value = NombreProveedor - .Add("@RFCDe", SqlDbType.VarChar).Value = RFCDe - .Add("@Total", SqlDbType.Money).Value = Total - .Add("@UUID", SqlDbType.VarChar).Value = UUID - .Add("@RFCPara", SqlDbType.VarChar).Value = RFCPara - .Add("@XML", SqlDbType.VarChar).Value = XML - .Add("@PDF", SqlDbType.VarChar).Value = PDF - .Add("@Version", SqlDbType.VarChar).Value = VersionCFD - .Add("@FueValidado", SqlDbType.Int).Value = FueValidado - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@PreFijo", SqlDbType.VarChar).Value = PreFijo - .Add("@TipodeComprobante", SqlDbType.VarChar).Value = TipodeComprobante.ToUpper - .Add("@CveFactura", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@Retorno", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - - Try - SqlAdapter.Fill(Data) - - Retorno = SqlAdapter.SelectCommand.Parameters("@Retorno").Value.ToString().ToEntero() - - CveFactura = SqlAdapter.SelectCommand.Parameters("@CveFactura").Value.ToString().ToEntero() - Catch ex As Exception - ModExtensiones.OnError(Me, "Ocurrió un error al intentar Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateArchivo(CveFactura As Integer, Columna As String) As Boolean - Dim Retorno = False - Dim Str As String = "" - If Columna = "XML" Then - Str = "UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml') WHERE CveFactura = @CveFactura" - End If - If Columna = "PDF" Then - Str = "UPDATE Comp_Facturas SET PDF = CONCAT(@CveFactura,'.pdf') WHERE CveFactura = @CveFactura" - End If - - DataAdapter(Str, CommandType.Text) - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - ModExtensiones.OnError(Me, "Ocurrió un error al agregar el Tipo de Cambio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - -#End Region - -#Region "IDisposable Support" - - - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - ' TODO: dispose managed state (managed objects). - If Not Data Is Nothing Then Data.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() - End If - - ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. - ' TODO: set large fields to null. - End If - Me.disposedValue = True - End Sub - - ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources. - 'Protected Overrides Sub Finalize() - ' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - ' Dispose(False) - ' MyBase.Finalize() - 'End Sub - - ' This code added by Visual Basic to correctly implement the disposable pattern. - Public Sub Dispose() Implements IDisposable.Dispose - ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region - - -#Region "Devoluciones" - - Public Function GetCompraParaDevolucion(CveProveedor As Integer, CveEmpresa As Integer, SubTotal As Double) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ParaDevolucion") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@SubTotal", SqlDbType.Float).Value = SubTotal - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las devoluciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_DetalleAlmacen") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el detalle de las devoluciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#End Region - - -#Region " REFACTURACION " - - Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RefacturacionGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@SubTotal", SqlDbType.Float).Value = SubTotal - .Add("@IVA", SqlDbType.Float).Value = IVA - .Add("@Total", SqlDbType.Float).Value = Total - .Add("@Opcion", SqlDbType.Int).Value = Opcion ' 1. Exácta, 2. Con diferencia - .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 facturas para refacturación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - 'Public Function Refacturacion(CveCompraAnterior As Integer, CveCompraActual As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Comp_Refacturacion") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveCompraAnterior", SqlDbType.Int).Value = CveCompraAnterior - ' .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual - ' .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza - ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - - Public Function Refacturacion(CveCompraAnterior As Integer, CveCompraActual As Integer, CveEmpresa As Integer, Optional Tipo As Integer = 1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_Refacturacion") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompraAnterior", SqlDbType.Int).Value = CveCompraAnterior - .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function RefacturacionPoliza(IdPoliza As Integer, CvePrePoliza As Integer, CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RefacturacionPoliza") - - With SqlAdapter.SelectCommand.Parameters - .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al refacturar la poliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function RefacturacionProgramada(CveCompraAnterior As Integer, CveCompraActual As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RefacturacionProgramada") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompraAnterior", SqlDbType.Int).Value = CveCompraAnterior - .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - -#End Region - -#Region "Helper Methods" - Public Function ObtenerReglaFolio(Valor1 As String, Valor2 As String, CveEmpresa As Integer) As String - Dim Retorno As String = "" - - Select Case CveEmpresa - - Case 83 - If Valor1 = "1" OrElse Valor2 = "1" Then - Retorno = "CHQ" - ElseIf Valor1 = "2" OrElse Valor2 = "2" Then - Retorno = "TRAN" - End If - - End Select - - Return Retorno - End Function -#End Region - - -#Region " CANCELAR COMPRAS " - - Public Function UpdateEstatusCompra(CveCompra As Integer, CveEstatus As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasEstatusUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .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 compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function CancelarCompra(CveCompra As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasCancelar") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .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 cancelar la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - -#End Region - - -#Region " REPORTE FACTURAS PENDIENTES POR AUTORIZAR " - - Public Function GetFacturasPendientesDeAutorizar(CveEmpresa As Integer, FechaInc As Date, FechaFin As Date) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_FacturasPendientesAu") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar las facturas pendientes de autorizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - -#End Region - -#Region "Reporte Evaluación proveedores " - - - - - Public Function GetRepEvaluacionProveedores(CveEmrpresa As Integer, CveProveedor As Integer, CveProveedorClasificacion As Integer, FechaInc As Date, FechaFin As Date) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_OC_RepEvaluacionProveedor") - - - - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmrpresa - .Add("@FInicio", SqlDbType.Date).Value = FechaInc - .Add("@FFin", SqlDbType.Date).Value = FechaFin - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al consultar Rep Evaluacion Proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#End Region - - -#Region " ESTATUS ALMACEN " - - Public Function UpdateEstatusAlmacen(CveCompra As Integer, ValorEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasEstatusAlmacenUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@Estatus", SqlDbType.Int).Value = ValorEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el estatus de almacen de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateEstatusAlmacenDetalle(CveCompraDetalle As Integer, ValorEstatus As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasDetalleEstatusAlmacenUpdate") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle - .Add("@Estatus", SqlDbType.Int).Value = ValorEstatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el estatus de almacen de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + End Try + + Return OnError End Function -#End Region -#Region " DEVOLUCIONES COMPRAS - IPP FEBRERO 2018 " - Public Function ComprasDetalleDevolucionesAdd(CveCompraDetalle As Integer, CveCompraNC As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasDetalleDevolucionesAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle - .Add("@CveCompraNC", SqlDbType.Int).Value = CveCompraNC - .Add("@Cantidad", SqlDbType.Money).Value = Cantidad - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el estatus de almacén de devolución.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + Public Function AddFactura(Serie As String, Folio As String, FechaFactura As DateTime, NombreProveedor As String, RFCDe As String, SubTotal As Double, + IVA As Double, Total As Double, UUID As String, RFCPara As String, XML As String, PDF As String, + VersionCFD As String, Descuento As Double, Moneda As String, TipodeComprobante As String, TipoCambio As Double, FueValidado As Integer, + CveEmpresa As Integer, PreFijo As String) As Integer + Dim Retorno As Integer = -1 + + Dim StrSQL = New StringBuilder() + StrSQL.Append(" BEGIN ") + StrSQL.Append(" DECLARE @tTotal INT; ") + StrSQL.Append(" ") + StrSQL.Append(" SELECT @tTotal = ISNULL(MAX(CveFactura),0) FROM Comp_Facturas WHERE UUID = @UUID;") + StrSQL.Append(" IF @tTotal = 0 ") + StrSQL.Append(" BEGIN ") + StrSQL.Append(" INSERT INTO Comp_Facturas (Serie, Folio, FechaFactura, NombreProveedor, RFCDe, Total, UUID, RFCPara, XML, PDF, FueValidado, CveEmpresa, TipoFactura,Version, TipoComprobante) ") + StrSQL.Append(" VALUES (@Serie, @Folio, @FechaFactura, @NombreProveedor, @RFCDe, @Total, @UUID, @RFCPara, @XML, @PDF, @FueValidado, @CveEmpresa, @PreFijo, @Version,@TipodeComprobante); ") + StrSQL.Append(" SET @Retorno = 1; ") + StrSQL.Append(" SET @CveFactura = IDENT_CURRENT('Comp_Facturas'); ") + StrSQL.Append(" UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml'), PDF = CONCAT(@CveFactura ,'.pdf') WHERE CveFactura = @CveFactura; ") + StrSQL.Append(" END ") + StrSQL.Append(" ELSE BEGIN SET @CveFactura = @tTotal; END ") + StrSQL.Append(" END ") + + If PreFijo.ToLower() = "cfdi" Then + PreFijo = "CFDi" + ElseIf PreFijo.ToLower() = "cfd" Then + PreFijo = "CFD" + End If + + DataAdapter(StrSQL.ToString(), CommandType.Text) + With SqlAdapter.SelectCommand.Parameters + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@FechaFactura", SqlDbType.[Date]).Value = FechaFactura + .Add("@NombreProveedor", SqlDbType.VarChar).Value = NombreProveedor + .Add("@RFCDe", SqlDbType.VarChar).Value = RFCDe + .Add("@Total", SqlDbType.Money).Value = Total + .Add("@UUID", SqlDbType.VarChar).Value = UUID + .Add("@RFCPara", SqlDbType.VarChar).Value = RFCPara + .Add("@XML", SqlDbType.VarChar).Value = XML + .Add("@PDF", SqlDbType.VarChar).Value = PDF + .Add("@Version", SqlDbType.VarChar).Value = VersionCFD + .Add("@FueValidado", SqlDbType.Int).Value = FueValidado + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@PreFijo", SqlDbType.VarChar).Value = PreFijo + .Add("@TipodeComprobante", SqlDbType.VarChar).Value = TipodeComprobante.ToUpper + .Add("@CveFactura", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@Retorno", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + + Try + SqlAdapter.Fill(Data) + + Retorno = SqlAdapter.SelectCommand.Parameters("@Retorno").Value.ToString().ToEntero() + + CveFactura = SqlAdapter.SelectCommand.Parameters("@CveFactura").Value.ToString().ToEntero() + Catch ex As Exception + ModExtensiones.OnError(Me, "Ocurrió un error al intentar Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno End Function -#End Region + Public Function UpdateArchivo(CveFactura As Integer, Columna As String) As Boolean + Dim Retorno = False + Dim Str As String = "" + If Columna = "XML" Then + Str = "UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml') WHERE CveFactura = @CveFactura" + End If + If Columna = "PDF" Then + Str = "UPDATE Comp_Facturas SET PDF = CONCAT(@CveFactura,'.pdf') WHERE CveFactura = @CveFactura" + End If -#Region "TIPOS DE GASTOS" - - Public Function GetTipoGasto(CveTipoGasto As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_TiposGastosGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto - .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 tipos de gastos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + DataAdapter(Str, CommandType.Text) + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + ModExtensiones.OnError(Me, "Ocurrió un error al agregar el Tipo de Cambio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno End Function - Public Function AddTipoGasto(TipoGasto As String, Estatus As Boolean, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_TiposGastosAdd") - - With SqlAdapter.SelectCommand.Parameters +#End Region + +#Region "IDisposable Support" + + + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + ' TODO: dispose managed state (managed objects). + If Not Data Is Nothing Then Data.Dispose() + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() + End If + + ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. + ' TODO: set large fields to null. + End If + Me.disposedValue = True + End Sub + + ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources. + 'Protected Overrides Sub Finalize() + ' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + ' Dispose(False) + ' MyBase.Finalize() + 'End Sub + + ' This code added by Visual Basic to correctly implement the disposable pattern. + Public Sub Dispose() Implements IDisposable.Dispose + ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + + +#Region "Devoluciones" + + Public Function GetCompraParaDevolucion(CveProveedor As Integer, CveEmpresa As Integer, SubTotal As Double) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ParaDevolucion") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@SubTotal", SqlDbType.Float).Value = SubTotal + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las devoluciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_DetalleAlmacen") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el detalle de las devoluciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + + +#Region " REFACTURACION " + + Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RefacturacionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@SubTotal", SqlDbType.Float).Value = SubTotal + .Add("@IVA", SqlDbType.Float).Value = IVA + .Add("@Total", SqlDbType.Float).Value = Total + .Add("@Opcion", SqlDbType.Int).Value = Opcion ' 1. Exácta, 2. Con diferencia + .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 facturas para refacturación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + 'Public Function Refacturacion(CveCompraAnterior As Integer, CveCompraActual As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Comp_Refacturacion") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveCompraAnterior", SqlDbType.Int).Value = CveCompraAnterior + ' .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual + ' .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza + ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + + Public Function Refacturacion(CveCompraAnterior As Integer, CveCompraActual As Integer, CveEmpresa As Integer, Optional Tipo As Integer = 1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_Refacturacion") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompraAnterior", SqlDbType.Int).Value = CveCompraAnterior + .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RefacturacionPoliza(IdPoliza As Integer, CvePrePoliza As Integer, CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RefacturacionPoliza") + + With SqlAdapter.SelectCommand.Parameters + .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al refacturar la poliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RefacturacionProgramada(CveCompraAnterior As Integer, CveCompraActual As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RefacturacionProgramada") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompraAnterior", SqlDbType.Int).Value = CveCompraAnterior + .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + +#End Region + +#Region "Helper Methods" + Public Function ObtenerReglaFolio(Valor1 As String, Valor2 As String, CveEmpresa As Integer) As String + Dim Retorno As String = "" + + Select Case CveEmpresa + + Case 83 + If Valor1 = "1" OrElse Valor2 = "1" Then + Retorno = "CHQ" + ElseIf Valor1 = "2" OrElse Valor2 = "2" Then + Retorno = "TRAN" + End If + + End Select + + Return Retorno + End Function +#End Region + + +#Region " CANCELAR COMPRAS " + + Public Function UpdateEstatusCompra(CveCompra As Integer, CveEstatus As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasEstatusUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .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 compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function CancelarCompra(CveCompra As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasCancelar") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .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 cancelar la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + +#End Region + + +#Region " REPORTE FACTURAS PENDIENTES POR AUTORIZAR " + + Public Function GetFacturasPendientesDeAutorizar(CveEmpresa As Integer, FechaInc As Date, FechaFin As Date) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_FacturasPendientesAu") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar las facturas pendientes de autorizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + +#End Region + +#Region "Reporte Evaluación proveedores " + + + + + Public Function GetRepEvaluacionProveedores(CveEmrpresa As Integer, CveProveedor As Integer, CveProveedorClasificacion As Integer, FechaInc As Date, FechaFin As Date) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_OC_RepEvaluacionProveedor") + + + + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmrpresa + .Add("@FInicio", SqlDbType.Date).Value = FechaInc + .Add("@FFin", SqlDbType.Date).Value = FechaFin + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar Rep Evaluacion Proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + + +#Region " ESTATUS ALMACEN " + + Public Function UpdateEstatusAlmacen(CveCompra As Integer, ValorEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasEstatusAlmacenUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@Estatus", SqlDbType.Int).Value = ValorEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el estatus de almacen de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateEstatusAlmacenDetalle(CveCompraDetalle As Integer, ValorEstatus As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasDetalleEstatusAlmacenUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle + .Add("@Estatus", SqlDbType.Int).Value = ValorEstatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el estatus de almacen de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + +#Region " DEVOLUCIONES COMPRAS - IPP FEBRERO 2018 " + Public Function ComprasDetalleDevolucionesAdd(CveCompraDetalle As Integer, CveCompraNC As Integer, Cantidad As Double, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasDetalleDevolucionesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle + .Add("@CveCompraNC", SqlDbType.Int).Value = CveCompraNC + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el estatus de almacén de devolución.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region "TIPOS DE GASTOS" + + Public Function GetTipoGasto(CveTipoGasto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_TiposGastosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .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 tipos de gastos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddTipoGasto(TipoGasto As String, Estatus As Boolean, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_TiposGastosAdd") + + With SqlAdapter.SelectCommand.Parameters .Add("@TipoGasto", SqlDbType.NVarChar).Value = TipoGasto .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng .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 agregar el tipo de gasto.", 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 agregar el tipo de gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function - Public Function UpdateTipoGasto(CveTipoGasto As Integer, TipoGasto As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_TiposGastosUpdate") - - With SqlAdapter.SelectCommand.Parameters + Public Function UpdateTipoGasto(CveTipoGasto As Integer, TipoGasto As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_TiposGastosUpdate") + + With SqlAdapter.SelectCommand.Parameters .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@TipoGasto", SqlDbType.NVarChar).Value = TipoGasto .Add("@Estatus", SqlDbType.Bit).Value = Estatus .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 actualizar el tipo de gasto.", 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 actualizar el tipo de gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function - Public Function RemoveTipoGasto(CveTipoGasto As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_TiposGastosRemove") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el tipo de gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + Public Function RemoveTipoGasto(CveTipoGasto As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_TiposGastosRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el tipo de gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function -#End Region +#End Region -#Region "VINCULAR PAGO" +#Region "VINCULAR PAGO" 'Public Function GetVincularPago(CveProveedor As Integer, CveCompra As Integer, Tipo As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = -1) As Boolean ' Dim Retorno As Boolean = False ' DataAdapter("PA_Comp_VincularPagoGet") @@ -2371,671 +2371,671 @@ Public Class ClsCompras ' Return Retorno 'End Function - Public Function AddComplementoPago(CveIE As Integer, CveCompra As Integer, Importe As Decimal, CvePrePolizaDetalle As Integer, CveFactura As Integer) As Integer - Dim Retorno As Integer = 0 - DataAdapter("PA_Comp_ComplementoPagoAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@Importe", SqlDbType.Money).Value = Importe - .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle - .Add("@CveFactura", SqlDbType.Int).Value = CveFactura - .Add("@CveComplementoPagoCompra", SqlDbType.Int).Direction = ParameterDirection.Output - End With - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveComplementoPagoCompra").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error al agregar el pago a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - - Public Function AddVincularPago(CveFactura As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_VincularPagoAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFactura", SqlDbType.Int).Value = CveFactura - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el pago a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - - Public Function GetCompararComplementoPago(CveProveedor As Integer, Monto As Decimal, XMLPagos As String, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional OP As Integer = 1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_CompararComplementoPagoGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@Monto", SqlDbType.Float).Value = Monto - .Add("@XMLPagos", SqlDbType.Xml).Value = XMLPagos - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@OP", SqlDbType.Int).Value = OP - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la vinculación de complemento de pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetCompraComplementoPago(CveCompra As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_CompraComplementoPagoGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveIE", SqlDbType.Int).Value = CveIE - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener complemento de pago de compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function RemoveComplementoPagoDesVincular(CveFactura As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_CompraComplementoDesVincular") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveFactura", SqlDbType.Int).Value = CveFactura - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al realizar la des vinculación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetEstadoFoliosFiscales(FoliosFiscales As String, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_EstadoFoliosFiscalesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FoliosFiscales", SqlDbType.VarChar).Value = FoliosFiscales - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al ontener la información de los folios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - - Public Function RepComplementosPago(CveProveedor As Integer, CveCompra As Integer, Tipo As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioRegistro As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComplementosPagoRepGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los pagos a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - -#End Region - -#Region "VERIFICA PREPOLIZAS" - - Public Function VerificaPrepolizas(CveEmpresa As Integer, CveCompra As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasVerificarPrePolizas") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCompra", SqlDbType.Int).Value = CveCompra - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al verificar las prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - -#End Region - -#Region "COLUMNAS CXC" - - Public Function GetRepCxCColumnas(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepCxCColumnasGet") - With SqlAdapter.SelectCommand.Parameters - .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 columnas del reporte CxC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function RemoveRepCxCColumnas(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepCxCColumnasRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar las columnas del reporte CxC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function AddRepCxCColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepCxCColumnasAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@RangoInicial", SqlDbType.Float).Value = RangoInicial - .Add("@RangoFinal", SqlDbType.Float).Value = RangoFinal - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar las columnas del reporte CxC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - -#End Region - -#Region "COLUMNAS CXP" - - Public Function GetRepCxPColumnas(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepCxPColumnasGet") - With SqlAdapter.SelectCommand.Parameters - .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 columnas del reporte CxP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function RemoveRepCxPColumnas(CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepCxPColumnasRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar las columnas del reporte CxP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function AddRepCxPColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepCxPColumnasAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@RangoInicial", SqlDbType.Float).Value = RangoInicial - .Add("@RangoFinal", SqlDbType.Float).Value = RangoFinal - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar las columnas del reporte CxP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - -#End Region - -#Region "REPORTE DE COMPRAS PERIODO PS" - - Public Function GetRepComprasPeriodoPS(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveUsuarioCaptura As Integer, - FechaICaptura As String, FechaFCaptura As String, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, - CvesubProyecto As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As Integer = -1, - Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CveProyecto As Integer = -1, Optional CvePS As Integer = -1, - Optional CveClasificacion As Integer = -1, Optional CveCategoria As Integer = -1, Optional CveFamilia As Integer = -1, - Optional CveSubFamilia As Integer = -1, Optional CveTipoAF As Integer = -1, Optional CveSubTipoAF As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasGetRepPeriodoPS") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura - .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura - .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CvesubProyecto - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@VerEn", SqlDbType.Int).Value = VerEn - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria - .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia - .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia - .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF - .Add("@CveSubTipoAF", SqlDbType.Int).Value = CveSubTipoAF - .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compras por Periodo PS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#End Region - -#Region "REPORTE DE PAGADO" - - Public Function GetRepPagadoPeriodo(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - CveUsuario As Integer, CveEmpresa As Integer, GPO As Integer, CveResponsable As Integer, CveUsuarioConsulta As Integer, - CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, FechaICompra As Date, FechaFCompra As Date, TipoCambio As Integer, TCEspecifico As Double) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepPagadoPeriodo") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = GPO - .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveBanco", SqlDbType.Int).Value = CveBanco - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaICompra", SqlDbType.Date).Value = FechaICompra - .Add("@FechaFCompra", SqlDbType.Date).Value = FechaFCompra - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Pagado Periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetRepPagado(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - CveUsuario As Integer, CveEmpresa As Integer, GPO As Integer, CveResponsable As Integer, CveUsuarioConsulta As Integer, - CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, FechaICompra As Date, FechaFCompra As Date, Optional CveTipoProveedor As Integer = -1, Optional ConComprobacion As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepPagado") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = GPO - .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveBanco", SqlDbType.Int).Value = CveBanco - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaICompra", SqlDbType.Date).Value = FechaICompra - .Add("@FechaFCompra", SqlDbType.Date).Value = FechaFCompra - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - .Add("@ConComprobacion", SqlDbType.Int).Value = ConComprobacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Pagado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function GetRepPagadoDetalle(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - CveUsuario As Integer, CveEmpresa As Integer, GPO As Integer, CveResponsable As Integer, CveUsuarioConsulta As Integer, - CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, UsarMesSeleccionado As Boolean, Mes As String, - FechaICompra As Date, FechaFCompra As Date, Tipo As Integer, Optional CveTipoProveedor As Integer = -1, Optional ConComprobacion As Integer = -1) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepPagadoDetalle") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = GPO - .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable - .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveBanco", SqlDbType.Int).Value = CveBanco - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@UsarMesSeleccionado", SqlDbType.Bit).Value = UsarMesSeleccionado - .Add("@Mes", SqlDbType.VarChar).Value = Mes - .Add("@FechaICompra", SqlDbType.Date).Value = FechaICompra - .Add("@FechaFCompra", SqlDbType.Date).Value = FechaFCompra - .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@ConComprobacion", SqlDbType.Int).Value = ConComprobacion - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Pagado Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#End Region - -#Region "UNIFICAR COMPAS COMPROBACIONES PERSONAL" - Public Function UnificarComprasPersonal(CvePrePoliza As Integer, CvePersonal As Integer, CveCajaChica As Integer, Reembolso As String, CveEmpresa As Integer) As Boolean - - Dim Retorno As Boolean = False - - DataAdapter("PA_Comp_UnificarComprasPersonal") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@Reembolso", SqlDbType.VarChar).Value = Reembolso - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function -#End Region - -#Region "REPORTE DE GASTOS SEMANAL" - - Public Function GetRepGastosSemanal(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepGastosSemanalGet") - 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 datos del reporte de gastos semanales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetRepGastosSemanalPrestamosDeudor(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepGastosSemanalPrestamoDeudorGet") - 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 datos del reporte de gastos semanales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetRepGastosSemanalTraspasosCuenta(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Tipo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepGastosSemanalTraspasoCuentaGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Tipo", SqlDbType.Int).Value = Tipo - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos del reporte de gastos semanales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - -#End Region - - Public Function GetComprobacion(CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprobacionGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica - .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveComprobacion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los datos de la comprobacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - - Public Function AddComprobacion(CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, CvePrePoliza As Integer, CveEmpresa As Integer) As Integer - Dim Retorno As Integer = 0 - DataAdapter("PA_Comp_ComprobacionAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica - .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveComprobacion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - - Try - SqlAdapter.Fill(Data) - Retorno = SqlAdapter.SelectCommand.Parameters("@CveComprobacion").Value.ToString.ToEntero - Catch ex As Exception - OnError("Ocurrió un error al registrar la comprobacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - - Public Function GetRepComprasInventarios(FechaIC As Date, FechaFC As Date, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProveedor As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_InventariosRepGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaIC", SqlDbType.Date).Value = FechaIC - .Add("@FechaFC", SqlDbType.Date).Value = FechaFC - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .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 compras de inventario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - -#Region "REPORTE DE ANTICIPOS, NOTAS DE CREDITO Y INGRESOS X COMPROBAR" - - Public Function GetRepAnticiposNCEXC(CveProveedor As Integer, CveSubProyecto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, FechaICorte As Date, FechaFCorte As Date, TipoCambio As Integer, TCEspecifico As Double) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepAnt-NC-EXC") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@FechaICorte", SqlDbType.Date).Value = FechaICorte - .Add("@FechaFCorte", SqlDbType.Date).Value = FechaFCorte - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de anticipos - nc - exc .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - End Function - - Public Function GetRepAnticiposNCEXCDetalle(CveProveedor As Integer, CveSubProyecto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, ConSaldo As Integer, Tipo As Integer, CveMoneda As Integer, FechaICorte As Date, FechaFCorte As Date, TipoCambio As Integer, TCEspecifico As Double) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_RepAnt-NC-EXCDetalle") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@ConSaldo", SqlDbType.Int).Value = ConSaldo - .Add("@Tipo", SqlDbType.Int).Value = Tipo - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaICorte", SqlDbType.Date).Value = FechaICorte - .Add("@FechaFCorte", SqlDbType.Date).Value = FechaFCorte - .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio - .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de anticipos - nc - exc detalle .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno + Public Function AddComplementoPago(CveIE As Integer, CveCompra As Integer, Importe As Decimal, CvePrePolizaDetalle As Integer, CveFactura As Integer) As Integer + Dim Retorno As Integer = 0 + DataAdapter("PA_Comp_ComplementoPagoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@Importe", SqlDbType.Money).Value = Importe + .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle + .Add("@CveFactura", SqlDbType.Int).Value = CveFactura + .Add("@CveComplementoPagoCompra", SqlDbType.Int).Direction = ParameterDirection.Output + End With + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveComplementoPagoCompra").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al agregar el pago a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function -#End Region - Public Function GetCxPProgramado(CveCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_CxPProgramadoGet") - 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 la información de la compra programada.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno + + Public Function AddVincularPago(CveFactura As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_VincularPagoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFactura", SqlDbType.Int).Value = CveFactura + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el pago a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function - Public Function GetCancelarNC(CveCompra As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Conta_CancelarNCGet") - 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 los datos para cancelar la nc.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno + + Public Function GetCompararComplementoPago(CveProveedor As Integer, Monto As Decimal, XMLPagos As String, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional OP As Integer = 1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CompararComplementoPagoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Monto", SqlDbType.Float).Value = Monto + .Add("@XMLPagos", SqlDbType.Xml).Value = XMLPagos + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@OP", SqlDbType.Int).Value = OP + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la vinculación de complemento de pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetCompraComplementoPago(CveCompra As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CompraComplementoPagoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveIE", SqlDbType.Int).Value = CveIE + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener complemento de pago de compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveComplementoPagoDesVincular(CveFactura As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CompraComplementoDesVincular") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFactura", SqlDbType.Int).Value = CveFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al realizar la des vinculación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetEstadoFoliosFiscales(FoliosFiscales As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_EstadoFoliosFiscalesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FoliosFiscales", SqlDbType.VarChar).Value = FoliosFiscales + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al ontener la información de los folios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + Public Function RepComplementosPago(CveProveedor As Integer, CveCompra As Integer, Tipo As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioRegistro As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComplementosPagoRepGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los pagos a vincular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#End Region + +#Region "VERIFICA PREPOLIZAS" + + Public Function VerificaPrepolizas(CveEmpresa As Integer, CveCompra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasVerificarPrePolizas") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al verificar las prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#End Region + +#Region "COLUMNAS CXC" + + Public Function GetRepCxCColumnas(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepCxCColumnasGet") + With SqlAdapter.SelectCommand.Parameters + .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 columnas del reporte CxC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveRepCxCColumnas(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepCxCColumnasRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar las columnas del reporte CxC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function AddRepCxCColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepCxCColumnasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@RangoInicial", SqlDbType.Float).Value = RangoInicial + .Add("@RangoFinal", SqlDbType.Float).Value = RangoFinal + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar las columnas del reporte CxC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#End Region + +#Region "COLUMNAS CXP" + + Public Function GetRepCxPColumnas(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepCxPColumnasGet") + With SqlAdapter.SelectCommand.Parameters + .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 columnas del reporte CxP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function RemoveRepCxPColumnas(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepCxPColumnasRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar las columnas del reporte CxP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function AddRepCxPColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepCxPColumnasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@RangoInicial", SqlDbType.Float).Value = RangoInicial + .Add("@RangoFinal", SqlDbType.Float).Value = RangoFinal + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar las columnas del reporte CxP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#End Region + +#Region "REPORTE DE COMPRAS PERIODO PS" + + Public Function GetRepComprasPeriodoPS(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveUsuarioCaptura As Integer, + FechaICaptura As String, FechaFCaptura As String, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, + CvesubProyecto As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional TipoGasto As Integer = -1, + Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CveProyecto As Integer = -1, Optional CvePS As Integer = -1, + Optional CveClasificacion As Integer = -1, Optional CveCategoria As Integer = -1, Optional CveFamilia As Integer = -1, + Optional CveSubFamilia As Integer = -1, Optional CveTipoAF As Integer = -1, Optional CveSubTipoAF As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasGetRepPeriodoPS") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveUsuarioCaptura", SqlDbType.Int).Value = CveUsuarioCaptura + .Add("@FechaICaptura", SqlDbType.VarChar).Value = FechaICaptura + .Add("@FechaFCaptura", SqlDbType.VarChar).Value = FechaFCaptura + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = Gpo + .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CvesubProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@VerEn", SqlDbType.Int).Value = VerEn + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria + .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia + .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia + .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF + .Add("@CveSubTipoAF", SqlDbType.Int).Value = CveSubTipoAF + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Compras por Periodo PS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + +#Region "REPORTE DE PAGADO" + + Public Function GetRepPagadoPeriodo(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + CveUsuario As Integer, CveEmpresa As Integer, GPO As Integer, CveResponsable As Integer, CveUsuarioConsulta As Integer, + CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, FechaICompra As Date, FechaFCompra As Date, TipoCambio As Integer, TCEspecifico As Double) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepPagadoPeriodo") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = GPO + .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveBanco", SqlDbType.Int).Value = CveBanco + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaICompra", SqlDbType.Date).Value = FechaICompra + .Add("@FechaFCompra", SqlDbType.Date).Value = FechaFCompra + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Pagado Periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetRepPagado(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + CveUsuario As Integer, CveEmpresa As Integer, GPO As Integer, CveResponsable As Integer, CveUsuarioConsulta As Integer, + CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, FechaICompra As Date, FechaFCompra As Date, Optional CveTipoProveedor As Integer = -1, Optional ConComprobacion As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepPagado") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = GPO + .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveBanco", SqlDbType.Int).Value = CveBanco + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaICompra", SqlDbType.Date).Value = FechaICompra + .Add("@FechaFCompra", SqlDbType.Date).Value = FechaFCompra + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@ConComprobacion", SqlDbType.Int).Value = ConComprobacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Pagado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetRepPagadoDetalle(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveProyecto As Integer, CveSubProyecto As Integer, + CveUsuario As Integer, CveEmpresa As Integer, GPO As Integer, CveResponsable As Integer, CveUsuarioConsulta As Integer, + CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, UsarMesSeleccionado As Boolean, Mes As String, + FechaICompra As Date, FechaFCompra As Date, Tipo As Integer, Optional CveTipoProveedor As Integer = -1, Optional ConComprobacion As Integer = -1) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepPagadoDetalle") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GPO", SqlDbType.Int).Value = GPO + .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveBanco", SqlDbType.Int).Value = CveBanco + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@UsarMesSeleccionado", SqlDbType.Bit).Value = UsarMesSeleccionado + .Add("@Mes", SqlDbType.VarChar).Value = Mes + .Add("@FechaICompra", SqlDbType.Date).Value = FechaICompra + .Add("@FechaFCompra", SqlDbType.Date).Value = FechaFCompra + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@ConComprobacion", SqlDbType.Int).Value = ConComprobacion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Pagado Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + +#Region "UNIFICAR COMPAS COMPROBACIONES PERSONAL" + Public Function UnificarComprasPersonal(CvePrePoliza As Integer, CvePersonal As Integer, CveCajaChica As Integer, Reembolso As String, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_UnificarComprasPersonal") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@Reembolso", SqlDbType.VarChar).Value = Reembolso + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region + +#Region "REPORTE DE GASTOS SEMANAL" + + Public Function GetRepGastosSemanal(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepGastosSemanalGet") + 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 datos del reporte de gastos semanales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetRepGastosSemanalPrestamosDeudor(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepGastosSemanalPrestamoDeudorGet") + 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 datos del reporte de gastos semanales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetRepGastosSemanalTraspasosCuenta(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Tipo As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepGastosSemanalTraspasoCuentaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos del reporte de gastos semanales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + +#End Region + + Public Function GetComprobacion(CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprobacionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica + .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveComprobacion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de la comprobacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function AddComprobacion(CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, CvePrePoliza As Integer, CveEmpresa As Integer) As Integer + Dim Retorno As Integer = 0 + DataAdapter("PA_Comp_ComprobacionAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica + .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveComprobacion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveComprobacion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al registrar la comprobacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetRepComprasInventarios(FechaIC As Date, FechaFC As Date, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_InventariosRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaIC", SqlDbType.Date).Value = FechaIC + .Add("@FechaFC", SqlDbType.Date).Value = FechaFC + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .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 compras de inventario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#Region "REPORTE DE ANTICIPOS, NOTAS DE CREDITO Y INGRESOS X COMPROBAR" + + Public Function GetRepAnticiposNCEXC(CveProveedor As Integer, CveSubProyecto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, FechaICorte As Date, FechaFCorte As Date, TipoCambio As Integer, TCEspecifico As Double) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepAnt-NC-EXC") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaICorte", SqlDbType.Date).Value = FechaICorte + .Add("@FechaFCorte", SqlDbType.Date).Value = FechaFCorte + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de anticipos - nc - exc .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetRepAnticiposNCEXCDetalle(CveProveedor As Integer, CveSubProyecto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, ConSaldo As Integer, Tipo As Integer, CveMoneda As Integer, FechaICorte As Date, FechaFCorte As Date, TipoCambio As Integer, TCEspecifico As Double) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_RepAnt-NC-EXCDetalle") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@ConSaldo", SqlDbType.Int).Value = ConSaldo + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@FechaICorte", SqlDbType.Date).Value = FechaICorte + .Add("@FechaFCorte", SqlDbType.Date).Value = FechaFCorte + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de anticipos - nc - exc detalle .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#End Region + Public Function GetCxPProgramado(CveCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_CxPProgramadoGet") + 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 la información de la compra programada.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function GetCancelarNC(CveCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_CancelarNCGet") + 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 los datos para cancelar la nc.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function Public Function UpdateFechaVencimientoCompra(CveCompra As Integer, FechaVencimiento As Date, CveEmpresa As Integer) As Boolean @@ -3074,71 +3074,104 @@ Public Class ClsCompras Return Retorno End Function -#Region "REPORTE PUE SIN PAGO" - - Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean - Dim retorno As Boolean = False - DataAdapter("PA_Comp_PUESinPagoGet", CommandType.StoredProcedure) - With SqlAdapter.SelectCommand.Parameters - .Add("@FI", SqlDbType.DateTime).Value = FI - .Add("@FF", SqlDbType.DateTime).Value = FF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .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 compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return retorno + Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_FletesComprasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function -#End Region + Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_FletesComprasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveOC", SqlDbType.Int).Value = CveOC + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + +#Region "REPORTE PUE SIN PAGO" + + Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Comp_PUESinPagoGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@FI", SqlDbType.DateTime).Value = FI + .Add("@FF", SqlDbType.DateTime).Value = FF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .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 compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + +#End Region #Region "Reporte de REQ-OC-Compra-Inv" - Public Function GetRepReqOCCompraInv(FI As Date, FF As Date, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ReqOCCompraInvGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FI", SqlDbType.Date).Value = FI - .Add("@FF", SqlDbType.Date).Value = FF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .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 REQ-OC-Compra-Inv", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno + Public Function GetRepReqOCCompraInv(FI As Date, FF As Date, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ReqOCCompraInvGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FI", SqlDbType.Date).Value = FI + .Add("@FF", SqlDbType.Date).Value = FF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .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 REQ-OC-Compra-Inv", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function #End Region #Region "Reporte de Precios de Compras" - Public Function GetRepComprasPrecios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Comp_ComprasPreciosGet") - - 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 el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno + Public Function GetRepComprasPrecios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasPreciosGet") + + 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 el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function #End Region -End Class - - +End Class + + diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 56533019e..f27450da1 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -403,54 +403,58 @@ Partial Class Bancos_PolizaCheque CodigoCuenta = "" NombreCuenta = "" - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - - - If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - End If - EsComodin = 0 - - - ElseIf drt("CveConcepto").ToString = "30" Then - 'saco la clave de la cuenta bancaria seleccionada - If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) - If drr IsNot Nothing Then - IdCuenta = drr("Id").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - ' Cuenta = drr("Nombre").ToString() - EsComodin = 1 - Else - - ' Rad.Checked = False - If UsuarioActual.CveEmpresa <> 126 Then - Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) - GvMov.DataBind() - UPMovs.Update() - Exit Sub - End If - - End If - End If - ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then - - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) - - IdCuenta = IdCtaFondoGarantia - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - - EsComodin = 0 - - End If - + If UsuarioActual.Empresa.UsaContabilidad Then + If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + + + If drr IsNot Nothing Then + IdCuenta = drt("IdCtaContable").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + End If + EsComodin = 0 + + + ElseIf drt("CveConcepto").ToString = "30" Then + 'saco la clave de la cuenta bancaria seleccionada + If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) + If drr IsNot Nothing Then + IdCuenta = drr("Id").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + ' Cuenta = drr("Nombre").ToString() + EsComodin = 1 + Else + + ' Rad.Checked = False + If UsuarioActual.CveEmpresa <> 126 Then + Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) + GvMov.DataBind() + UPMovs.Update() + Exit Sub + End If + + End If + End If + ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then + + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) + + IdCuenta = IdCtaFondoGarantia + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + + EsComodin = 0 + + End If + End If + + + Dim dr As DataRow = DtMovimientos.NewRow dr("IdCuenta") = IdCuenta dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e37fd5697..d737eb295 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4489,7 +4489,7 @@ Partial Class Compras_Compras CveConceptoContableAlmacen = 205 End If Else - CveConceptoContableAlmacen = 225 + CveConceptoContableAlmacen = 225 End If 'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen @@ -6741,7 +6741,7 @@ Partial Class Compras_Compras End If - If UsuarioActual.CveEmpresa.Contiene(119) Then + If UsuarioActual.CveEmpresa.Contiene(119) Then Dim ContienePSNeteoBonif As Boolean = False For Each Dr As DataRow In TmpDT.Rows If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 409b4be64..482e6026a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2703,6 +2703,9 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("LogoPath", "")) End If + Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio)) + Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Salida por resguardo")) params.Add(New ReportParameter("Almacen", Almacen)) @@ -2712,12 +2715,17 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Descuentos", "")) params.Add(New ReportParameter("IVA", "")) params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) params.Add(New ReportParameter("NombreRecibio", Recibio)) params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) + If UsuarioActual.CveEmpresa = 72 Then + params.Add(New ReportParameter("Sucursal", SubProyecto)) + params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe)) + params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego)) + End If params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) params.Add(New ReportParameter("Observaciones", Observaciones)) diff --git a/Empresas/72/Formatos/Factura.rdlc b/Empresas/72/Formatos/Factura.rdlc index f55ce53db..fef85c978 100644 --- a/Empresas/72/Formatos/Factura.rdlc +++ b/Empresas/72/Formatos/Factura.rdlc @@ -787,7 +787,7 @@ Start true - 9.87049in + 9.18657in 0.06548in 1.67778in 8.23221in @@ -1367,7 +1367,7 @@ true - 7.30179in + 6.61787in 0.05817in 1.3508in 8.23035in @@ -3408,7 +3408,7 @@ Textbox54 - 6.7921in + 6.10818in 0.16632cm 0.36385in 4.94037in @@ -3444,7 +3444,7 @@ Textbox33 - 17.25192cm + 15.51477cm 12.71485cm 0.44794cm 8.33799cm @@ -3474,7 +3474,7 @@ Textbox5 - 18.31722cm + 16.58007cm 0.16632cm 0.0882cm 20.88652cm @@ -3732,7 +3732,7 @@ Textbox5 - 14.71903cm + 12.98188cm 0.14775cm 0.0882cm 20.90509cm @@ -4038,7 +4038,7 @@ DsOC - 15.01537cm + 13.27822cm 3.16661cm 1.61479cm 15.04148cm @@ -4067,7 +4067,7 @@ Textbox5 - 16.9459cm + 15.20875cm 0.22358cm 0.0882cm 20.90509cm @@ -4097,24 +4097,6 @@ - - Embedded - BannerFacturaSIG - Fit - 12.35498cm - 0.14775cm - 2.18766cm - 10.48062cm - 25 - - =iif(len(Parameters!Observaciones.Value) > 100, true,false) - - - - - true true @@ -4140,7 +4122,7 @@ 2.22035in 0.18861in 6.06817in - 26 + 25 @@ -4416,7 +4398,7 @@ 0.06548in 0.34081in 2.08542in - 27 + 26 @@ -4910,11 +4892,11 @@ true - 22.07352cm + 20.33637cm 0.14775cm 2.97096cm 20.69254cm - 28 + 27 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -4925,7 +4907,7 @@ - 29.49675cm + 27.72404cm - Culiacán, Sin. + Culiacán, Sin. Tijuana, B.C - + . - - - - - Tijuana, B.C + Aguascalientes, Ags. - . + - + - - - Aguascalientes, Ags. - - - - - - - - - - @@ -1678,21 +1647,13 @@ - + - - - - (664) - 645 1814 + 645 1814 - - - - - - - - (449) - - 1.69533cm - 6.74703cm - 0.38833cm - 0cm - 10 - - - - - - 1.72708cm - 9.41258cm - 0.38833cm - 0cm - 11 - - - - true true @@ -1907,7 +1828,7 @@ 0.48382cm 1.14285cm 4.08234cm - 12 + 10 @@ -2169,7 +2090,7 @@ 5.29091in 1.51932in 2.9844in - 13 + 11 @@ -2748,7 +2669,7 @@ 0.17067in 0.37206in 8.10465in - 14 + 12 @@ -2777,7 +2698,7 @@ 0.4335cm 0.43419cm 20.41027cm - 15 + 13 @@ -2788,21 +2709,6 @@ 2pt - - Embedded - Microsoft - Fit - 8.23074cm - 0.5393cm - 2.37313cm - 11.6363cm - 16 - - - - true true @@ -2822,7 +2728,7 @@ 14.3522cm 0.14316cm 6.66711cm - 17 + 14 @@ -2859,7 +2765,7 @@ 3.58384in 0.18861in 4.69148in - 18 + 15 @@ -2977,15 +2883,39 @@ 14.3787cm 0.48004cm 6.64061cm - 19 + 16 + + 1.53874cm + 6.09322cm + 0.38617cm + 0cm + 17 + + + + + + 1.53874cm + 8.82941cm + 0.38617cm + 0cm + 18 + + + + - 20.24114cm + 19.3151cm - Culiacán, Sin. + Culiacán, Sin. Tijuana, B.C - + . - - - - - Tijuana, B.C + Aguascalientes, Ags. - . + - + - - - Aguascalientes, Ags. - - - - - - - - - - @@ -1178,21 +1147,13 @@ - + - - - - (664) - 645 1814 + 645 1814 - - - - - - - - (449) - - Embedded - Microsoft - Fit - 8.19546cm - 0.116cm - 2.03729cm - 11.6363cm - 17 - - - - true true @@ -2308,7 +2238,7 @@ 14.54911cm 0.14316cm 6.66711cm - 18 + 17 @@ -2345,7 +2275,7 @@ 3.1938in 0.18861in 5.15904in - 19 + 18 @@ -2463,7 +2393,7 @@ 14.57561cm 0.48004cm 6.64061cm - 20 + 19 @@ -2471,7 +2401,7 @@ - 17.08592cm + 15.763cm - Culiacán, Sin. + Culiacán, Sin. Tijuana, B.C - + . - - - - - Tijuana, B.C + Aguascalientes, Ags. - . + - + - - - Aguascalientes, Ags. - - - - - - - - - - @@ -380,21 +349,13 @@ - + - - - - (664) - 645 1814 + 645 1814 - - - - - - - - (449) - =Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", "")))) + =Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ" or Parameters!Sucursal.Value = "Hermosillo", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", "")))) - Culiacán, Sin. + Culiacán, Sin. - - - - - + - + - + - + | - + | Textbox10 0.13104cm - 3.45239cm + 3.23917cm 2.14312cm - 9.51761cm + 10.69394cm 4 - - 1.69533cm - 6.87784cm - 0.38833cm - 0cm - 7 - - - - - - 1.72708cm - 9.54339cm - 0.38833cm - 0cm - 8 - - - - true true @@ -1874,7 +1842,7 @@ 9.54339cm 5.00803cm 6.98968cm - 9 + 7 @@ -1986,7 +1954,7 @@ 16.60715cm 4.98157cm 4.44569cm - 10 + 8 @@ -2569,7 +2537,7 @@ 0.06548in 0.37206in 8.22304in - 11 + 9 @@ -2595,7 +2563,7 @@ 0.16632cm 0.14316cm 20.88652cm - 12 + 10 @@ -2607,24 +2575,6 @@ 2pt - - Embedded - BannerFacturaSIG - Fit - 11.12025cm - 0.22358cm - 2.18766cm - 10.48062cm - 13 - - =iif(len(Parameters!Observaciones.Value) > 100, true,false) - - - - - true true @@ -2644,7 +2594,7 @@ 15.11602cm 0.14316cm 5.93682cm - 14 + 11 @@ -2681,7 +2631,7 @@ 1.063in 0.18861in 7.22552in - 15 + 12 @@ -2707,11 +2657,11 @@ Textbox5 - 14.44724cm + 12.31999cm 0.16632cm 0.0882cm 20.66427cm - 16 + 13 @@ -2745,7 +2695,7 @@ 0.19807cm 0.34219cm 14.74156cm - 17 + 14 @@ -2863,7 +2813,7 @@ 15.11602cm 0.48004cm 5.93682cm - 18 + 15 @@ -2895,7 +2845,7 @@ 5.58063cm 0.6cm 5.12357cm - 19 + 16 =iif(Parameters!EstatusFactura.Value<>"",False,True) @@ -2935,7 +2885,7 @@ 5.58063cm 0.6cm 5.12357cm - 20 + 17 =iif(Parameters!EstatusEntrega.Value<>"",False,True) @@ -2951,7 +2901,7 @@ - 18.76339cm + 16.69964cm