diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index ee503615a..4f7dc67ac 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -119,7 +119,7 @@ - +   @@ -151,7 +151,7 @@   - +   @@ -269,9 +269,9 @@
  - general - optima - motobateria + General + Optima + Motobateria
@@ -279,14 +279,14 @@
- +
-   +   Piso - Almacen + Almacén
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 4c29e4dbe..8647f5a96 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -48,6 +48,7 @@ Partial Class Acumuladores_CatFoliosGarantia #Region "Folios Garantía" Private Sub CargaSubProyectos() CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) + GvFolioGarantia.Columns(3).HeaderText = lblSubProyecto.Text End Sub Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index ccccd30a6..a9509a624 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -363,7 +363,8 @@ Public Class CFDINominaOtrosPagos Public Property TipoOtroPago As String Public Property Clave As String Public Property Concepto As String - Public Property Importe As Double + Public Property Importe As Decimal + Public Property Subsidiocausado As Decimal End Class diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 04527b54e..41a2511cb 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3475,7 +3475,7 @@ Public Class ClsBancos #End Region #Region "PagosCajaChica" - Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1) As Boolean + Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_BancosCajaChicaPagosGet") @@ -3485,6 +3485,7 @@ Public Class ClsBancos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 9d76674c8..1a081cf99 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1068,7 +1068,7 @@ Public Class ClsClientes ' Return Retorno 'End Function Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, - LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean + LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_SucursalClienteAdd") @@ -1101,6 +1101,7 @@ Public Class ClsClientes .Add("@LT", SqlDbType.VarChar).Value = LT .Add("@LG", SqlDbType.VarChar).Value = LG + .Add("@RFC", SqlDbType.VarChar).Value = RFC End With @@ -1120,7 +1121,7 @@ Public Class ClsClientes Return Retorno End Function Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, - LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean + LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_SucursalClienteUpdate") @@ -1155,7 +1156,8 @@ Public Class ClsClientes .Add("@LT", SqlDbType.VarChar).Value = LT - .Add("@LG", SqlDbType.VarChar).Value = LG + .Add("@LG", SqlDbType.VarChar).Value = LG + .Add("@RFC", SqlDbType.VarChar).Value = RFC End With 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/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index b4e247486..d64de3153 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -56,10 +56,8 @@ Public Class ClsProductosServicios Public Property CveMetodoInventario As Integer Public Property CveTipoPS As Integer Public Property Estado2 As Integer - Public Property CveMarca As Integer - - Public Property AlmacenSeccion As String - + Public Property CveMarca As Integer + Public Property IEPSPorcentaje As Double Public Property AplicaIEPS As Boolean @@ -283,7 +281,7 @@ Public Class ClsProductosServicios Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero - 'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal + VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero RetISR = Data.Rows(0)("RetISR").ToString.ToDouble @@ -2112,13 +2110,14 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer) As Boolean + Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_ProductosServiciosSATUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index a654c7650..ee571bfd0 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -341,7 +341,7 @@ Public Class ClsVentas Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0, - Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1) As Boolean + Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -432,6 +432,7 @@ Public Class ClsVentas .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria + .Add("@FacturarSucursal", SqlDbType.Bit).Value = FacturarSucursal .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 542714a52..9e99e3c97 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -107,7 +107,7 @@ Public Class LogicNominas 'Conexiones a la Base de Datos Using objNomina As ClsNominas = New ClsNominas() Using objPersonal As ClsRH = New ClsRH() - If objNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa) AndAlso objNomina.DtResultados.Rows.Count > 0 Then + If objNomina.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa) AndAlso objNomina.DtResultados.Rows.Count > 0 Then CvePersonal = objNomina.DtResultados.Rows(0)("CvePersonal").ToString().ToEntero() CvePeriodo = objNomina.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero() Serie = objNomina.Serie @@ -116,7 +116,6 @@ Public Class LogicNominas If continuar Then GetError = "No se pudo obtener la información de la nomina" 'si continuar= true el error se origino en este nodo y se le asigno el error continuar = False End If - If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then RFC = objPersonal.RFC NombreCompleto = objPersonal.NombreCompleto @@ -143,11 +142,11 @@ Public Class LogicNominas If continuar Then GetError = "No se pudo obtener la información del empleado" 'si continuar= true el error se origino en este nodo y le asigno el error continuar = False End If - If continuar AndAlso objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then If objNomina.DtResultados.Rows.Count > 0 Then - DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ") - DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ") + DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0") + DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0") + DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'") TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal() TotalDeducciones = DtDeducciones.SUM("Importe").ToString().ToDecimal() Total = CType((Total + DtPercepciones.SUM("Importe")), Decimal) @@ -161,7 +160,6 @@ Public Class LogicNominas Else continuar = False End If - If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0) @@ -183,8 +181,6 @@ Public Class LogicNominas Else continuar = False End If - - If DiasIncapacitados > 0 Then If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then @@ -222,10 +218,11 @@ Public Class LogicNominas cfdi.Receptor.RFC = RFC cfdi.Receptor.Nombre = NombreCompleto + Dim ObjPercepciones As New List(Of CFDINominaPercepciones) + Dim ObjDeducciones As New List(Of CFDINominaDeducciones) + Dim ObjHorasExtras As New List(Of CFDINominaHorasExtras) + Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos) If DtPercepciones IsNot Nothing AndAlso DtPercepciones.Rows.Count > 0 Then - Dim ObjPercepciones As New List(Of CFDINominaPercepciones) - Dim ObjHorasExtras As New List(Of CFDINominaHorasExtras) - Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos) For Each Row As DataRow In DtPercepciones.Rows If Row("Importe").ToString().ToDecimal > 0 AndAlso Row("SATCveConcepto").ToString().ToEntero() <> 17 Then If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For @@ -248,11 +245,62 @@ Public Class LogicNominas .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal}) End If Next - If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones - If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras - If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos End If + + If DtDeducciones IsNot Nothing AndAlso DtDeducciones.Rows.Count > 0 Then + For Each Row As DataRow In DtDeducciones.Rows + If Row("Importe").ToString().ToDecimal > 0 Then + + If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For + If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 Then + + ObjPercepciones.Add(New CFDINominaPercepciones With {.TipoPercepcion = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), + .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()}) + Else + ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = Row("SATCveConcepto").ToString(), + .Clave = Row("Codigo").ToString(), + .Concepto = Row("Concepto").ToString(), + .Importe = Row("Importe").ToString().ToDecimal()} + ) + End If + + End If + + 'subsidio al empleo + 'If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio + ' ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo + ' .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal}) + 'End If + Next + End If + + If DtOtrosPagos IsNot Nothing AndAlso DtOtrosPagos.Rows.Count > 0 Then + For Each Row As DataRow In DtOtrosPagos.Rows + If (Row("Importe").ToString().ToDecimal() > 0) OrElse (Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 2 AndAlso Row("Importe").ToString().ToDecimal() < 0) Then + + If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For + + ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), + .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteGravado").ToString().ToDecimal().Abs()}) + + + If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 7 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio + ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = "002", ' codigo fijo + .Clave = Row("Codigo").ToString(), .Concepto = "ISR", .Importe = Row("Importe").ToString().ToDecimal}) + End If + If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 8 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio + ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = "071", ' codigo fijo + .Clave = Row("Codigo").ToString(), .Concepto = "(Ajuste en Subsidio para el empleo (efectivamente entregado al trabajador)", .Importe = Row("Importe").ToString().ToDecimal}) + End If + End If + + Next + End If + If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones + If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras + If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos If ObjIncapacidades IsNot Nothing AndAlso ObjIncapacidades.Count > 0 Then cfdi.Nomina.Incapacidades = ObjIncapacidades + If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones cfdi.Comprobante.Version = "3.3" @@ -301,260 +349,4 @@ Public Class LogicNominas End If End Function - Private Function PreTimbrar(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, UsuarioActual As Usuario) As CFDITimbre - - Dim cfdi As New CFDITimbre - Dim objPersonal As New ClsRH - Dim objNomina As New ClsNominas - objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) - objNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa) - Dim DtPercepciones As Data.DataTable = Nothing - Dim DtDeducciones As Data.DataTable = Nothing - Dim DtOtrosPagos As Data.DataTable = Nothing - Dim TotalPercepciones As Decimal = 0 - Dim TotalDeducciones As Decimal = 0 - Dim TotalOtrosPagos As Decimal = 0 - Dim Total As Decimal = 0 - If objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then - If objNomina.DtResultados.Rows.Count > 0 Then - DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ") - DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ") - TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal() - TotalDeducciones = DtDeducciones.SUM("Importe").ToString().ToDecimal() - Total = CType((Total + DtPercepciones.SUM("Importe")), Decimal) - End If - End If - 'nota. siempre y cuando halla concepto 19 - Dim DtHorasExtras As Data.DataTable = Nothing - If objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - DtHorasExtras = objNomina.DtResultados - End If - - Dim TotalExcento As Decimal = 0 - Dim TotalGravado As Decimal = 0 - - Dim AntiguedadSemanas As Integer = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero() - Dim FormatoReciboCFDi As String = objPersonal.FormatoReciboCFDi - - Dim FechaInicio, FechaFin, FechaPago As Date - Dim DiasPagados As Integer = 0 - Dim Msg As String = String.Empty - Dim DiasIncapacitados As Integer = 0 - Dim DrPeriodo As DataRow = Nothing - If objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) Then - If objNomina.DtResultados.Rows().Count > 0 Then - DrPeriodo = objNomina.DtResultados.Rows(0) - End If - End If - - 'Dim DrPeriodo As DataRow = GlobalDTNominasPeriodos(-1, CvePeriodo, -1).FiltroPrimero("") - If DrPeriodo IsNot Nothing Then - FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate - FechaFin = DrPeriodo("FechaFin").ToString().ToDate - FechaPago = DrPeriodo("FechaPago").ToString().ToDate - If objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then - - Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero() - Dim Vacaciones As Integer = objPersonal.DtResultados.SUM("AplicaVacacion").ToEntero() - DiasIncapacitados = objPersonal.DtResultados.SUM("AplicaIncapacidad").ToEntero() - DiasPagados = Asistencias - Vacaciones - If DiasPagados < 0 Then DiasPagados = 0 - - End If - - End If - - 'Tipo Nomina O de Ordinaria o E de extraordinaria - 'Dim FechaPago As Date = Now - Dim TotalSueldos As Decimal = 0 - Dim TotalIndemnizacion As Decimal = 0 - Dim TotalJubilacion As Decimal = 0 - - cfdi.Nomina = New CFDINomina - cfdi.Nomina.Version = "1.2" - cfdi.Nomina.TipoNomina = If(objNomina.CveTipoPeriodo = 6, "E", "O") - cfdi.Nomina.FechaPago = FechaPago - cfdi.Nomina.FechaInicio = FechaInicio.ToString() - cfdi.Nomina.FechaFin = FechaFin.ToString() - cfdi.Nomina.NumDiasPagados = DiasPagados - cfdi.Emisor.Nombre = UsuarioActual.Empresa.Empresa - cfdi.Emisor.RFC = UsuarioActual.Empresa.RFC - cfdi.Emisor.RegistroPatronal = UsuarioActual.Empresa.RegistroPatronal - cfdi.Emisor.RegimenFiscal = UsuarioActual.Empresa.CodigoRegimenFiscal - 'aplica persona fisica debe de tener CURP - If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615") Then - cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP - End If - cfdi.Nomina.CveNomina = CveNomina - - cfdi.Receptor.UsoCFDI = "P01" - cfdi.Receptor.RFC = objPersonal.RFC - cfdi.Receptor.Nombre = objPersonal.NombreCompleto - - If DtPercepciones IsNot Nothing Then - If DtPercepciones.Rows.Count > 0 Then - Dim ObjPercepciones As New List(Of CFDINominaPercepciones) - Dim ObjHorasExtras As New List(Of CFDINominaHorasExtras) - Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos) - - For Each Row As DataRow In DtPercepciones.Rows - If Row("Importe").ToString().ToDecimal > 0 AndAlso Row("SATCveConcepto").ToString().ToEntero() <> 17 Then - If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For - - ObjPercepciones.Add(New CFDINominaPercepciones With {.TipoPercepcion = Row("SATCveConcepto").ToString(), - .Clave = Row("Codigo").ToString(), - .Concepto = Row("Concepto").ToString(), - .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal, - .ImporteExento = Row("ImporteExento").ToString().ToDecimal} - ) - - End If - 'RMF, falta poner el numero de horas pagadas - If Row("CveSATConcepto").ToString().ToEntero() = 19 Then 'cuando son horas extras - - 'Obtengo el desglose de horas extras - - If DtHorasExtras IsNot Nothing Then - - Dim dr As DataRow = DtHorasExtras.FiltroPrimero("") - If dr IsNot Nothing Then - - If dr("HorasDobles").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) - If dr("HorasTriples").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) - - End If - - End If - End If - 'subsidio al empleo - If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio - - ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser refernte a subsidio al empleo - .Clave = Row("Codigo").ToString(), - .Concepto = Row("Concepto").ToString(), - .Importe = Row("Importe").ToString().ToDecimal} - ) - - End If - - Next - If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones - If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras - If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos - - End If - - End If - - 'cargo las incapacidades - If DiasIncapacitados > 0 Then - - If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - - If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then - Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades) - For Each dr As DataRow In objNomina.DtResultados.Rows - ObjIncapacidades.Add(New CFDINominaIncapacidades With {.DiasIncapacidad = dr("Dias").ToString().ToEntero().ToString(), .TipoIncapacidad = dr("ClaveTipoIncapacidad").ToString(), .Importe = dr("Descuento").ToString().ToDecimal}) - Next - If ObjIncapacidades IsNot Nothing AndAlso ObjIncapacidades.Count > 0 Then cfdi.Nomina.Incapacidades = ObjIncapacidades - End If - End If - End If - - TotalExcento = 0 - TotalGravado = 0 - - If DtDeducciones IsNot Nothing Then - If DtDeducciones.Rows.Count > 0 Then - - Dim ObjDeducciones As New List(Of CFDINominaDeducciones) - For Each Row As DataRow In DtDeducciones.Rows - - If Row("Importe").ToString().ToDecimal > 0 Then - - If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For - - ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = Row("SATCveConcepto").ToString(), - .Clave = Row("Codigo").ToString(), - .Concepto = Row("Concepto").ToString(), - .Importe = Row("Importe").ToString().ToDecimal} - ) - - End If - Next - If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones - End If - - End If - - - 'If DtOtrosPagos IsNot Nothing Then - ' If DtOtrosPagos.Rows.Count > 0 Then - ' ' Total = CType((Total - DtOtrosPagos.SUM("Importe")), Decimal) - ' Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos) - ' ' End If - - ' ' For Each Row As DataRow In DtOtrosPagos.Rows - ' ' If Row("Importe").ToString().ToDecimal > 0 Then - ' ' If Row("CveSATConcepto").ToString() = "" Then - ' ' Msg = String.Format("Concepto No registrado ({0})", Row("Concepto").ToString()) - ' ' Else - ' ' Msg = cfdi.ObjCompNomina12.AgregarOtroPago(Row("SATCveConcepto").ToString(), Row("Codigo").ToString(), Row("Concepto").ToString(), 0) - ' ' 'Msg = CFDi.ObjCompNomina12.CargarSubsidioAlEmpleo(0) - ' ' 'Msg = CFDi.ObjCompNomina12.CargarCompensacionSaldosAFavor(0, 0, 0) - ' ' End If - - ' ' If Msg <> String.Empty Then - ' ' Me.OnError("El SAT regresó el siguiente mensaje: " & Msg & ". Objeto: Otros Pagos", New Exception) - ' ' Exit For - ' ' End If - ' ' End If - ' ' Next - ' If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos - ' End If - 'End If - - cfdi.Comprobante.Version = "3.3" - cfdi.Comprobante.Serie = objNomina.Serie - cfdi.Comprobante.Folio = objNomina.Folio.ToString() - cfdi.Comprobante.Fecha = Now - cfdi.Comprobante.Subtotal = cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal() - cfdi.Comprobante.Descuentos = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal() - cfdi.Comprobante.Total = cfdi.Comprobante.Subtotal - cfdi.Comprobante.Descuentos 'cfdi.Nomina.TotalPercepciones + cfdi.Nomina.TotalOtrosPagos - cfdi.Nomina.TotalDeducciones - cfdi.Comprobante.MotivoDescuento = "" '"Deducciones nómina" - cfdi.Comprobante.Moneda = "MXN" - cfdi.Comprobante.TipoComprobante = "N" - cfdi.Comprobante.TipoDocto = "Egs" - cfdi.Comprobante.MetodoPago = "PUE" - cfdi.Comprobante.CondicionesdePago = "" '"CONTADO" - cfdi.Comprobante.FormadePago = "99" - cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL - cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta - - cfdi.Nomina.Receptor.CURP = objPersonal.CURP - cfdi.Nomina.Receptor.NSS = objPersonal.NumeroSS - cfdi.Nomina.Receptor.FechaInicioContrato = objPersonal.FechaInicioContrato.ToString() - cfdi.Nomina.Receptor.Antiguedad = $"P{AntiguedadSemanas}W" - cfdi.Nomina.Receptor.TipoContrato = objPersonal.CodigoTipoContrato - cfdi.Nomina.Receptor.CodigoTipoJornada = objPersonal.ClaveTipoJornada - cfdi.Nomina.Receptor.CodigoRegimenContratacion = objPersonal.CveRegimenContratacion - cfdi.Nomina.Receptor.CodigoEmpleado = objPersonal.Codigo - cfdi.Nomina.Receptor.Departamento = objPersonal.Departamento - cfdi.Nomina.Receptor.Puesto = objPersonal.Puesto - cfdi.Nomina.Receptor.CodigoRiesgoPuesto = objPersonal.CveSATRiesgoPuesto.ToString() - cfdi.Nomina.Receptor.TipoPeriodo = objPersonal.TipoPeriodoPago - cfdi.Nomina.Receptor.CodigoBanco = objPersonal.ClaveBanco - cfdi.Nomina.Receptor.NumeroCuenta = objPersonal.BancoNumCuenta - cfdi.Nomina.Receptor.SDI = objPersonal.SDI - cfdi.Nomina.Receptor.SBC = objPersonal.SDI - cfdi.Nomina.Receptor.Sindicalizado = "" - cfdi.Nomina.Receptor.CodigoEntidadFederativa = objPersonal.ClaveEstado - - cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()}) - - objPersonal.Dispose() - objNomina.Dispose() - - Return cfdi - End Function End Class diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index da59d111c..4ca5dafc2 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5613,6 +5613,7 @@ Namespace Modelos Public Property Pagado As Decimal Public Property DescuentoProntoPago As Decimal Public Property CveVentaRNCCargo As Integer + Public Property FacturarSucursal As Boolean = False 'Public Property Sucursal As SucursalModel Public Property SubProyecto As Modelos.SubProyectoModel @@ -9079,6 +9080,7 @@ Namespace Modelos FormatoFactura = "" Sucursal = "" CorreoSucursal = "" + RFC = "" End Sub Public Sub New() MyBase.New() @@ -9095,6 +9097,8 @@ Namespace Modelos End Get End Property Public Property CveSucursal As Integer + Public Property RFC As String + Public Property Nombre As String Public Property Calle As String Public Property Direccion As String Public Property NoExt As String @@ -9114,6 +9118,7 @@ Namespace Modelos Public Property TelefonoSucursal As String Public Property ImprimeNombreSucursal As String + End Class diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 520ae6bce..e4cda96bc 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -725,7 +725,7 @@ Public Class Timbrado If Msg = String.Empty Then 'Nodo receptor - Msg = CFDi.ReceptorCfd(Ventas.Cliente.RFC, Ventas.Cliente.Nombre, "", "", Ventas.ClaveUsoCFDI) + Msg = CFDi.ReceptorCfd(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, "", "", Ventas.ClaveUsoCFDI) If Msg = String.Empty Then 'Nodo conceptos, se agregan los PS @@ -941,7 +941,7 @@ Public Class Timbrado Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - CBB.GenerarCBB(UsuarioActual.Empresa.RFC, Ventas.Cliente.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB) + CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB) ''Genero la addenda de 7-Eleven 'If sevenElevenNumProveedor <> "" AndAlso sevenElevenFolio <> "" AndAlso sevenElevenTienda <> "" AndAlso sevenElevenFecha <> "" AndAlso sevenElevenFecha <> "__/__/____" Then @@ -2048,7 +2048,7 @@ Public Class Timbrado For Each otpag As CFDINominaOtrosPagos In ObjCFDITimbre.Nomina.OtrosPagos cfdi.Nomina12OtroPago(otpag.TipoOtroPago, otpag.Clave, otpag.Concepto, otpag.Importe) If otpag.TipoOtroPago = "002" Then - cfdi.Nomina12SubsidioAlEmpleo(otpag.Importe) + cfdi.Nomina12SubsidioAlEmpleo(otpag.Subsidiocausado) End If Next @@ -2895,10 +2895,10 @@ Public Class Timbrado Nom.OtrosPagos(i).TipoOtroPago = otpag.TipoOtroPago Nom.OtrosPagos(i).Clave = otpag.Clave Nom.OtrosPagos(i).Concepto = otpag.Concepto - Nom.OtrosPagos(i).Importe = otpag.Importe.ToDecimal + Nom.OtrosPagos(i).Importe = otpag.Importe If otpag.TipoOtroPago = "002" Then Nom.OtrosPagos(i).SubsidioAlEmpleo = New Profact.TimbraCFDI33.Complementos.Nomina12.NominaOtroPagoSubsidioAlEmpleo() - Nom.OtrosPagos(i).SubsidioAlEmpleo.SubsidioCausado = otpag.Importe.ToDecimal + Nom.OtrosPagos(i).SubsidioAlEmpleo.SubsidioCausado = otpag.Importe End If i += 1 Next diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index fe81513fa..88ad21772 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -52,7 +52,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Case "sendMail" context.Response.Write(sendMail(context)) Case "sendMailLPM" - context.Response.Write(sendMail(context)) + context.Response.Write(sendMailLPM(context)) End Select Catch ex As Exception diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 830a6df54..7742f9710 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -23,17 +23,16 @@ -
+
-
- + +
- -
+
- +
@@ -43,7 +42,7 @@
- + @@ -58,7 +57,7 @@
- + @@ -76,13 +75,24 @@ + + + +
+ +
+ +
+
+ -
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index d11da1c2f..fec2b767e 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -19,6 +19,8 @@ Partial Class Bancos_DepositosCaja If Not IsPostBack Then FacturasCheckadas = 0 TxtFecha.Text = Now.ToShortDateString + txtFechaI.Text = Now.AddDays(-1).ToShortDateString + txtFechaF.Text = Now.ToShortDateString CargaCuentas() End If End Sub @@ -29,6 +31,10 @@ Partial Class Bancos_DepositosCaja DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataBind() + + DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveEmpresa, -1, UsuarioActual.CveEmpresa) + DdlSubProyectos.DataBind() + DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click @@ -41,7 +47,7 @@ Partial Class Bancos_DepositosCaja FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero) + ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero) GvFacturas.DataSource = ObjBancos.DtResultados ObjBancos.Dispose() diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 6f116c7a2..503feacc6 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3626,7 +3626,7 @@ Partial Class Bancos_IE TipoMovimiento = False End If - If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then + If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then IDCtaBeneficiario = IdCtaAnticipoExtranjera CveCuentaConta = 0 End If @@ -3634,7 +3634,7 @@ Partial Class Bancos_IE 'MOVIMIENTOS EGRESOS If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then MsgError = "Detalle" End If diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 2edbabca2..8c1422c57 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4802,15 +4802,19 @@
- + + <%--<%#Eval("Cantidad") %>--%> - - - - + + + + + + +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e37fd5697..0cbaee78a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1145,7 +1145,7 @@ Partial Class Compras_Compras CargaDatosAgregarPS() TieneAnticiposXML = False Modalidad = "" - Version = "" + Version = "3.3" CveMetodoPago = -1 RFCProv = "" CargaDdlTipoGasto() @@ -3953,6 +3953,24 @@ Partial Class Compras_Compras End If End If + 'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT + If UsuarioActual.CveEmpresa = 72 Then + + Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ") + If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then + Dim StrNoEncontrados As New StringBuilder + StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT

") + For Each drt As DataRow In DtNoEncontrados.Rows + StrNoEncontrados.AppendFormat("{0}
", drt("CodigoPS")) + Next + Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia) + DtNoEncontrados.Dispose() + StrNoEncontrados.Clear() + Exit Sub + End If + DtNoEncontrados.Dispose() + End If + 'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle Dim GuardaNoDeducibles As Boolean = False If ChkEsNoDeducible.Checked Then @@ -4489,7 +4507,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 @@ -5027,7 +5045,7 @@ Partial Class Compras_Compras 'ACTUALIZAR PRODUCTO/SERVICIO SAT If Version = "3.3" Then - If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then + If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then ErrorSATPS = True End If End If @@ -6741,7 +6759,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 @@ -15365,11 +15383,27 @@ Partial Class Compras_Compras Dim SubTotalCompra As Decimal = Amortizacion Dim DiferenciaPermitida = 1 Dim Cont = 0 + Dim ProductosCodigoSATNoPermitidos As New StringBuilder("") For Each gvr As GridViewRow In GvOC1.Rows SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero()) Cont = 1 + If GvOC1.Columns(6).Visible Then + Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText() + Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text + If SatPS.Contains("01010101") Then + ProductosCodigoSATNoPermitidos.AppendFormat("{0}
", NombreProducto) + 'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto) + 'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia) + + End If + End If Next + If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then + Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:

{0}", ProductosCodigoSATNoPermitidos.ToString) + Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia) + Exit Sub + End If If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then LbSubTotalDif.Visible = False @@ -15973,6 +16007,46 @@ Partial Class Compras_Compras End Sub + Public Sub CargaIndirectosServicios() + If DtServicios Is Nothing Then CreaDTServicios() + DtServicios.Rows.Clear() + + Dim objps As New ClsProductosServicios + Dim dr As DataRow + dvFacturas.Visible = False + GvFacturas.Visible = False + + For Each DrGv As DataRow In TmpDT.Rows + If DrGv("CvePS").ToString.ToEntero > 0 Then + If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then + If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then + dr = DtServicios.NewRow() + dr("Consec") = DrGv("Consec").ToString.ToEntero + dr("Total") = DrGv("Total").ToString.ToDecimal + dr("CvePS") = DrGv("CvePS").ToString.ToEntero + dr("PS") = DrGv("PS").ToString + DtServicios.Rows.Add(dr) + End If + End If + End If + Next + + objps.Dispose() + + If DtServicios.Rows.Count > 0 Then + GVServicios.DataSource = DtServicios + GVServicios.DataBind() + GVServicios.Visible = True + Else + GVServicios.DataSource = Nothing + GVServicios.DataBind() + End If + + UpGVServicios.Update() + UpFacturas.Update() + UPGVFacturas.Update() + End Sub + Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click Dim ListaConsecutivas As New List(Of String) 'Almacena los consecutivos que pertenecen al almacen @@ -16025,7 +16099,7 @@ Partial Class Compras_Compras ''Marcamos todos los almacenes como check 'GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True 'cbAll_CheckedChanged(Nothing, Nothing) - + RegistraScript("$('#ModalFletesImportaciones').modal('hide');") End Sub Private Sub CargaGastosServicios(CvePS As Integer) @@ -17621,8 +17695,17 @@ Partial Class Compras_Compras ActualizaTotales = True Select Case Modalidad Case "A" 'ADD + + Dim SATClavePS = -1 + Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") + If PSRow IsNot Nothing Then + SATClavePS = PSRow("SATClavePS").ToString.ToEntero + End If + AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero, - DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked) + DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), + TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, + NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS) AddPS2() LimpiaAgregar() @@ -18157,7 +18240,7 @@ Partial Class Compras_Compras CvePS = DdlPSAlias2.SelectedValue.ToEntero tPS = DdlPSAlias2.SelectedText - If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then + If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then GlobalDTProductosServiciosAlias(-1) = PS.DtResultados TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS @@ -18504,6 +18587,14 @@ Partial Class Compras_Compras UPPSolDev.Update() End Sub + + Private Sub GvSolDev_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolDev.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Dim ExistenciasAux As Decimal = e.Row.DataKey("Cantidad").ToDecimal + e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux.ToString + End If + End Sub + Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs) Dim ObjCompras As New ClsCompras Dim TieneError As Boolean = False @@ -20058,6 +20149,9 @@ Partial Class Compras_Compras DivGastosyServicios.Visible = MostrarGastosServicios DivGastosyServiciosFooter.Visible = MostrarGastosServicios + If MostrarGastosServicios Then + CargaIndirectosServicios() + End If DivVincularCrear.Visible = Not MostrarGastosServicios DivVincularCrearFooter.Visible = Not MostrarGastosServicios 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/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index a4da96cb2..e7a5e5439 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -153,7 +153,7 @@ Partial Class Compras_RepComprasDetalle DdlGrupo.SelectedValueExist(Grupo) DdlProveedores.SelectedValue = Proveedor If DdlProveedores.SelectedValue.ToEntero > 0 Then - DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimeroValor("RazonSocial", "").ToString Else DdlProveedores.SelectedText = "Todos" End If diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index aef1158b7..3069747e7 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -216,7 +216,7 @@ - + diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs index d73aa8739..0b85ddfa4 100644 --- a/Contabilidad/ContabilizacionVentas.aspx.cs +++ b/Contabilidad/ContabilizacionVentas.aspx.cs @@ -344,7 +344,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas { e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")); } - if (CveConcepto.Contiene(2, 4, 13, 61, 38, 39, 1, 203, 207, 251)) + if (CveConcepto.Contiene(1, 2, 4, 13, 61, 38, 39, 150, 203, 207, 251)) { e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta")); } diff --git a/Empresas/1/Formatos/ResguardoAF.rdlc b/Empresas/1/Formatos/ResguardoAF.rdlc index 93ec0fd17..b6ae1303e 100644 --- a/Empresas/1/Formatos/ResguardoAF.rdlc +++ b/Empresas/1/Formatos/ResguardoAF.rdlc @@ -535,7 +535,7 @@ - 7.37187cm + 7.35216cm true true @@ -557,7 +557,7 @@ Textbox31 - 0.07053cm + 0.07054cm 0.11166cm 0.6cm 2.77516cm @@ -588,7 +588,7 @@ Textbox31 - 0.1058cm + 0.10581cm 2.9221cm 1.2cm 13.85147cm @@ -604,7 +604,7 @@ - 0.10581cm + 0.10582cm 0.05604cm 0cm 16.76689cm @@ -616,7 +616,7 @@ - 1.3058cm + 1.30581cm 0.11166cm 0cm 16.71127cm @@ -646,7 +646,7 @@ Textbox21 - 1.65886cm + 1.65887cm 0.55741cm 0.63528cm 7.11779cm @@ -692,7 +692,7 @@ Textbox21 - 2.85337cm + 2.85338cm 0.55115cm 0.90367cm 7.11779cm @@ -726,7 +726,7 @@ Textbox22 - 1.3058cm + 1.30581cm 0.56367cm 0.6cm 7.11153cm @@ -760,7 +760,7 @@ Textbox21 - 1.62358cm + 1.62359cm 9.66204cm 0.63528cm 7.11779cm @@ -806,7 +806,7 @@ Textbox21 - 2.85337cm + 2.85338cm 9.65578cm 0.90367cm 7.11779cm @@ -840,7 +840,7 @@ Textbox22 - 1.3058cm + 1.30581cm 9.66204cm 0.6cm 7.11779cm @@ -873,7 +873,7 @@ Textbox17 - 3.82759cm + 3.8276cm 0.00042cm 1.36498cm 16.77315cm @@ -888,51 +888,6 @@ 2pt - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 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