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/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 33dc7e050..cd1106378 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1,2334 +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 - Alert(String.Format("No se puede eliminar la compra, porque tiene movimientos de salida de Almacen relacionados."), 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 + 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 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") @@ -2368,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 @@ -3071,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/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 95962b005..4f57d07db 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4543,6 +4543,31 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetFletesRep(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, + Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, + Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesRep") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RecepcionAlmacenFleteGet") @@ -4563,6 +4588,65 @@ Public Class ClsInventarios End Function #End Region +#Region " FLETES COMPRAS " + + Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_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 + + 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_Inv_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 + + Public Function PendientesAlmacenFletesComprasGet(CveFlete As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_PendientesAlmacenFletesComprasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + +#End Region + + #Region " FLETES DETALLE " Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean Dim Retorno As Boolean = False 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/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 8a7d501e9..c1f9e640a 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -413,8 +413,125 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function + + + Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario + Dim Retorno As Usuario = Nothing + DataAdapter("PA_Sis_UsuariosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = -1 + .Add("@CveRol", SqlDbType.Int).Value = -1 + .Add("@Usuario", SqlDbType.VarChar).Value = Usuario + .Add("@Contraseña", SqlDbType.VarChar).Value = Password + .Add("@EsLogIn", SqlDbType.Bit).Value = 1 + End With + + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + Retorno = New Usuario + + Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero + Retorno.Usuario = Usuario + Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString + Retorno.Nombre = Data.Rows(0)("Nombre").ToString + Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero + Retorno.Rol = Data.Rows(0)("Rol").ToString + 'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString + Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + Retorno.CveCliente = CveCliente + Retorno.ClienteGPS = False + Retorno.Portal = True + Retorno.Referencia = Data.Rows(0)("Referencia").ToString + Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False) + 'Retorno.Liga = Data.Rows(0)("Liga").ToString + 'cargo los modulos del usuario y genero el menú + Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveCliente) + + Dim UsuariosModulos As New HybridDictionary + For Each Row As DataRow In dttmp.Rows + UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString) + Next + Retorno.Modulos = UsuariosModulos + ''cargo los procesos del usuario + dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario) + Dim UsuariosProcesos As New HybridDictionary + For Each Row As DataRow In dttmp.Rows + UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString) + Next + Retorno.Procesos = UsuariosProcesos + End If + + Catch ex As SqlException + OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex) + Retorno = Nothing + End Try + + Return Retorno + End Function + + Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario + Dim Retorno As Usuario = Nothing + + DataAdapter("PA_Sis_UsuariosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = -1 + .Add("@CveRol", SqlDbType.Int).Value = -1 + .Add("@Usuario", SqlDbType.VarChar).Value = Usuario + .Add("@Contraseña", SqlDbType.VarChar).Value = Password + .Add("@EsLogIn", SqlDbType.Bit).Value = 1 + End With + + Try + SqlAdapter.Fill(Data) + If Data.Rows.Count > 0 Then + Retorno = New Usuario + + Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero + Retorno.Usuario = Usuario + Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString + Retorno.Nombre = Data.Rows(0)("Nombre").ToString + Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero + Retorno.Rol = Data.Rows(0)("Rol").ToString + 'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString + Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + Retorno.CveProveedor = CveProveedor + Retorno.ClienteGPS = False + Retorno.Portal = True + Retorno.Referencia = Data.Rows(0)("Referencia").ToString + Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False) + 'Retorno.Liga = Data.Rows(0)("Liga").ToString + 'cargo los modulos del usuario y genero el menú + Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor) + + Dim UsuariosModulos As New HybridDictionary + For Each Row As DataRow In dttmp.Rows + UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString) + Next + + Retorno.Modulos = UsuariosModulos + ''cargo los procesos del usuario + dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario) + Dim UsuariosProcesos As New HybridDictionary + For Each Row As DataRow In dttmp.Rows + UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString) + Next + Retorno.Procesos = UsuariosProcesos + End If + + Catch ex As SqlException + OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex) + Retorno = Nothing + End Try + + Return Retorno + End Function + + #Region "U S U A R I O - I N D I C A D O R E S" Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable @@ -2671,12 +2788,84 @@ Public Class ClsSisUsuarios End Try Return Retorno - End Function + End Function + + Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_UsuariosClienteGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_UsuariosProveedoresAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar el nuevo usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_UsuariosProveedorGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region - - + + #Region "U S U A R I O S - PyME" - + Public Function AddUsuariosModulosPyMe(CveUsuario As Integer, Rol As String) As Boolean Dim Retorno As Boolean = False 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/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 31bb637fa..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 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/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 56533019e..f27450da1 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -403,54 +403,58 @@ Partial Class Bancos_PolizaCheque CodigoCuenta = "" NombreCuenta = "" - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - - - If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - End If - EsComodin = 0 - - - ElseIf drt("CveConcepto").ToString = "30" Then - 'saco la clave de la cuenta bancaria seleccionada - If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) - If drr IsNot Nothing Then - IdCuenta = drr("Id").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - ' Cuenta = drr("Nombre").ToString() - EsComodin = 1 - Else - - ' Rad.Checked = False - If UsuarioActual.CveEmpresa <> 126 Then - Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) - GvMov.DataBind() - UPMovs.Update() - Exit Sub - End If - - End If - End If - ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then - - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) - - IdCuenta = IdCtaFondoGarantia - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - - EsComodin = 0 - - End If - + If UsuarioActual.Empresa.UsaContabilidad Then + If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + + + If drr IsNot Nothing Then + IdCuenta = drt("IdCtaContable").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + End If + EsComodin = 0 + + + ElseIf drt("CveConcepto").ToString = "30" Then + 'saco la clave de la cuenta bancaria seleccionada + If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) + If drr IsNot Nothing Then + IdCuenta = drr("Id").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + ' Cuenta = drr("Nombre").ToString() + EsComodin = 1 + Else + + ' Rad.Checked = False + If UsuarioActual.CveEmpresa <> 126 Then + Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) + GvMov.DataBind() + UPMovs.Update() + Exit Sub + End If + + End If + End If + ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then + + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) + + IdCuenta = IdCtaFondoGarantia + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + + EsComodin = 0 + + End If + End If + + + Dim dr As DataRow = DtMovimientos.NewRow dr("IdCuenta") = IdCuenta dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 11a4ee92f..2aedb7722 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ 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 14d802679..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() @@ -1743,8 +1743,26 @@ Partial Class Compras_Compras Select Case TipoComprobante Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False - Case "I" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) - Case "E" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False + Case "I" + DdlTipoComprobante.SelectedValue = "Fac" + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) + DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6")) + DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11")) + Case "E" + DdlTipoComprobante.SelectedValue = "NC" + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) + ChkAplicaNotaCredito.Enabled = False + + + + DdlTipoCompra.Items.Clear() + DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1")) + DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6")) + DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11")) + + End Select 'DIV ALIAS @@ -3935,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 @@ -4471,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 @@ -4543,19 +4579,13 @@ Partial Class Compras_Compras Case 237 Select Case FleteImportacionOpcion Case 1 - Dim Dr As DataRow = Nothing - If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then - If ObjInventario.DtResultados.Rows.Count > 0 Then - Dr = ObjInventario.DtResultados.Rows(0) - End If - End If - If Dr IsNot Nothing Then - If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then - ErrorOC = True - End If - Else + If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then ErrorOC = True End If + ''actualiza la compra para que no se surta en almacen. sino por el flete o importación + 'If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then + ' ErrorOC = True + 'End If Case 2 If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then ErrorOC = True @@ -5015,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 @@ -6732,7 +6762,7 @@ Partial Class Compras_Compras 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) Then 'clasificación de Bonificación, no se incluirá en el neteo + If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo ContienePSNeteoBonif = True Exit For End If @@ -10144,7 +10174,7 @@ Partial Class Compras_Compras ' ErrorPrepoliza = True ' End If Case 6 - Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0 + Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0 Dim ConceptoPersonal As String = "", Concepto As String = "" If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then @@ -10152,9 +10182,7 @@ Partial Class Compras_Compras Else If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero - CveAcreedor = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveAcreedor").ToString.ToEntero CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero - CveColectiva = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveColectiva").ToString.ToEntero CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString End If @@ -10195,7 +10223,7 @@ Partial Class Compras_Compras End If If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then ErrorPrepoliza = True End If End If @@ -10242,7 +10270,7 @@ Partial Class Compras_Compras CveCuenta = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -10358,7 +10386,7 @@ Partial Class Compras_Compras 'AGREGA MOVIMIENTO If importeMovimiento <> 0 Then Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then ErrorPrepoliza = True End If End If @@ -10476,6 +10504,10 @@ Partial Class Compras_Compras _TipoComprobante = ValorXML(nodo, "tipoDeComprobante") TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble + + + + If Version = "3.3" Then Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago"))) If drm IsNot Nothing Then @@ -15351,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 @@ -15959,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 @@ -16011,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) @@ -16333,7 +16421,10 @@ Partial Class Compras_Compras End Sub Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs) + + If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then + If DdlTipoComprobante.SelectedValue = "NC" Then DivReembolso.Visible = False RBLPago.Items(2).Enabled = False @@ -16359,7 +16450,9 @@ Partial Class Compras_Compras End If + UPCondicionesPago.Update() + End Sub @@ -17602,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() @@ -18138,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 @@ -18485,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 @@ -19218,13 +19328,13 @@ Partial Class Compras_Compras Dr = ObjInventario.DtResultados.Rows(0) End If End If - If Dr IsNot Nothing Then - If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then - Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) - ObjInventario.Dispose() - Exit Sub - End If - End If + 'If Dr IsNot Nothing Then + ' If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then + ' Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) + ' ObjInventario.Dispose() + ' Exit Sub + ' End If + 'End If ObjInventario.Dispose() End If @@ -19247,19 +19357,13 @@ Partial Class Compras_Compras Case 237 Select Case FleteImportacionOpcion Case 1 - Dim Dr As DataRow = Nothing - If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then - If ObjInventario.DtResultados.Rows.Count > 0 Then - Dr = ObjInventario.DtResultados.Rows(0) - End If - End If - If Dr IsNot Nothing Then - If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then - ErrorTrans = True - End If - Else + If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then ErrorTrans = True End If + '''actualiza la compra para que no se surta en almacen. sino por el flete o importación + ''If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then + '' ErrorTrans = True + ''End If Case 2 If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then ErrorTrans = True @@ -20045,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 b/Compras/RepComprasDetalle.aspx index 6eb03716b..405e52e78 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -410,6 +410,7 @@ + @@ -481,7 +482,7 @@ - + diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 6c9f43f77..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 @@ -606,7 +606,8 @@ Partial Class Compras_RepComprasDetalle GvDatos.Columns(9).Visible = ChkRazon.Checked GvDatos.Columns(10).Visible = ChkFolio.Checked GvDatos.Columns(11).Visible = ChkFecha.Checked - GvDatos.Columns(12).Visible = ChkObs.Checked + GvDatos.Columns(12).Visible = ChkObs.Checked + GvDatos.Columns(13).Visible = ChkDescripcion.Checked UPDatos.Update() End Sub 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/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 734a5ec1a..c29f117a8 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -190,6 +190,7 @@

+

diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 914c95ef6..cd307959c 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -568,8 +568,18 @@ Partial Class ContabilidadC_RegPrePoliza Else TxtTC.Text = "" TxtTC.Visible = False - End If - + End If + + If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then + CargaClasificaciones() + DdlClasificaciones.Visible = True + Else + TxtTC.Text = "" + DdlClasificaciones.Visible = False + End If + + + End Sub Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged @@ -631,6 +641,12 @@ Partial Class ContabilidadC_RegPrePoliza DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlClientes.DataBind() ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) + End Sub + + Private Sub CargaClasificaciones() + DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + DdlClasificaciones.DataBind() + ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) End Sub Private Sub CargaVentas(CveCliente As Integer) @@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza 'MENSAJE PRINCIPAL MensajeAlert.AppendFormat("

Folio de Salida: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) + MensajeAlert.AppendFormat("

Prepóliza: {1}", CvePrePoliza, ObjMov.ContaFolio) 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion) Else Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") @@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero dr("CveCompra") = DdlCompras.SelectedValue.ToEntero dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero - dr("CveClasificacion") = -1 + dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero End If @@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero dr("CveCompra") = DdlCompras.SelectedValue.ToEntero dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero - dr("CveClasificacion") = -1 + dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero dr("TC") = TxtTC.Text.ToDouble diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 969d38b25..7593aa05d 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -215,9 +215,20 @@ public partial class Contabilidad_RepIVA : ClsPaginas string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt"); Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion); para.Add(new CrystalParametro("Excel", Formato)); - string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"); + System.IO.FileInfo Archivo = new System.IO.FileInfo(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato)); + string Ruta;// = (Archivo.Exists ? string.Format("{0}/{1}", UsuarioActual.Empresa.Ruta, Formato ): ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"); + + Alert(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato)); + if (Archivo.Exists) + { + Ruta = string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato); + ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + }else + { + Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"; + ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + } Ruta.GuardaLogAD(); - ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); } else diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx b/Contratos/RepPedidosDevolucionesXContrato.aspx index 834e5f7d5..335c87aea 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx @@ -140,7 +140,8 @@ - + +
@@ -180,7 +181,8 @@ - + +
diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb index dcaf3497f..0c7ce6161 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb @@ -111,7 +111,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;") e.Row.Cells(1).Text = "" e.Row.Cells(5).Text = "" - e.Row.Cells(6).Text = "" + e.Row.Cells(6).Text = "" + e.Row.Cells(7).Text = "" Dim Texto = $"Pedido: {e.Row.DBCampo("SerieFolio")} | " Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: {e.Row.DBCampo("Folio")}") @@ -134,7 +135,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;") e.Row.Cells(1).Text = "" e.Row.Cells(5).Text = "" - e.Row.Cells(6).Text = "" + e.Row.Cells(6).Text = "" + e.Row.Cells(7).Text = "" Dim Texto = $"Devolución: {e.Row.DBCampo("SerieFolio")} | " Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: {e.Row.DBCampo("Folio")}") diff --git a/Empresas/145/Formatos/NotaDevolucion.rdlc b/Empresas/145/Formatos/NotaDevolucion.rdlc index cbc676147..adb60afb9 100644 --- a/Empresas/145/Formatos/NotaDevolucion.rdlc +++ b/Empresas/145/Formatos/NotaDevolucion.rdlc @@ -3301,6 +3301,198 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/72/Formatos/Factura.rdlc b/Empresas/72/Formatos/Factura.rdlc index f55ce53db..fef85c978 100644 --- a/Empresas/72/Formatos/Factura.rdlc +++ b/Empresas/72/Formatos/Factura.rdlc @@ -787,7 +787,7 @@ Start true - 9.87049in + 9.18657in 0.06548in 1.67778in 8.23221in @@ -1367,7 +1367,7 @@ true - 7.30179in + 6.61787in 0.05817in 1.3508in 8.23035in @@ -3408,7 +3408,7 @@ Textbox54 - 6.7921in + 6.10818in 0.16632cm 0.36385in 4.94037in @@ -3444,7 +3444,7 @@ Textbox33 - 17.25192cm + 15.51477cm 12.71485cm 0.44794cm 8.33799cm @@ -3474,7 +3474,7 @@ Textbox5 - 18.31722cm + 16.58007cm 0.16632cm 0.0882cm 20.88652cm @@ -3732,7 +3732,7 @@ Textbox5 - 14.71903cm + 12.98188cm 0.14775cm 0.0882cm 20.90509cm @@ -4038,7 +4038,7 @@ DsOC - 15.01537cm + 13.27822cm 3.16661cm 1.61479cm 15.04148cm @@ -4067,7 +4067,7 @@ Textbox5 - 16.9459cm + 15.20875cm 0.22358cm 0.0882cm 20.90509cm @@ -4097,24 +4097,6 @@ - - Embedded - BannerFacturaSIG - Fit - 12.35498cm - 0.14775cm - 2.18766cm - 10.48062cm - 25 - - =iif(len(Parameters!Observaciones.Value) > 100, true,false) - - - - - true true @@ -4140,7 +4122,7 @@ 2.22035in 0.18861in 6.06817in - 26 + 25 @@ -4416,7 +4398,7 @@ 0.06548in 0.34081in 2.08542in - 27 + 26 @@ -4910,11 +4892,11 @@ true - 22.07352cm + 20.33637cm 0.14775cm 2.97096cm 20.69254cm - 28 + 27 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -4925,7 +4907,7 @@ - 29.49675cm + 27.72404cm - Culiacán, Sin. + Culiacán, Sin. Tijuana, B.C - + . - - - - - Tijuana, B.C + Aguascalientes, Ags. - . + - + - - - Aguascalientes, Ags. - - - - - - - - - - @@ -1678,21 +1647,13 @@ - + - - - - (664) - 645 1814 + 645 1814 - - - - - - - - (449) - - 1.69533cm - 6.74703cm - 0.38833cm - 0cm - 10 - - - - - - 1.72708cm - 9.41258cm - 0.38833cm - 0cm - 11 - - - - true true @@ -1907,7 +1828,7 @@ 0.48382cm 1.14285cm 4.08234cm - 12 + 10 @@ -2169,7 +2090,7 @@ 5.29091in 1.51932in 2.9844in - 13 + 11 @@ -2748,7 +2669,7 @@ 0.17067in 0.37206in 8.10465in - 14 + 12 @@ -2777,7 +2698,7 @@ 0.4335cm 0.43419cm 20.41027cm - 15 + 13 @@ -2788,21 +2709,6 @@ 2pt - - Embedded - Microsoft - Fit - 8.23074cm - 0.5393cm - 2.37313cm - 11.6363cm - 16 - - - - true true @@ -2822,7 +2728,7 @@ 14.3522cm 0.14316cm 6.66711cm - 17 + 14 @@ -2859,7 +2765,7 @@ 3.58384in 0.18861in 4.69148in - 18 + 15 @@ -2977,15 +2883,39 @@ 14.3787cm 0.48004cm 6.64061cm - 19 + 16 + + 1.53874cm + 6.09322cm + 0.38617cm + 0cm + 17 + + + + + + 1.53874cm + 8.82941cm + 0.38617cm + 0cm + 18 + + + + - 20.24114cm + 19.3151cm - Culiacán, Sin. + Culiacán, Sin. Tijuana, B.C - + . - - - - - Tijuana, B.C + Aguascalientes, Ags. - . + - + - - - Aguascalientes, Ags. - - - - - - - - - - @@ -1178,21 +1147,13 @@ - + - - - - (664) - 645 1814 + 645 1814 - - - - - - - - (449) - - Embedded - Microsoft - Fit - 8.19546cm - 0.116cm - 2.03729cm - 11.6363cm - 17 - - - - true true @@ -2308,7 +2238,7 @@ 14.54911cm 0.14316cm 6.66711cm - 18 + 17 @@ -2345,7 +2275,7 @@ 3.1938in 0.18861in 5.15904in - 19 + 18 @@ -2463,7 +2393,7 @@ 14.57561cm 0.48004cm 6.64061cm - 20 + 19 @@ -2471,7 +2401,7 @@ - 17.08592cm + 15.763cm - Culiacán, Sin. + Culiacán, Sin. Tijuana, B.C - + . - - - - - Tijuana, B.C + Aguascalientes, Ags. - . + - + - - - Aguascalientes, Ags. - - - - - - - - - - @@ -380,21 +349,13 @@ - + - - - - (664) - 645 1814 + 645 1814 - - - - - - - - (449) - =Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", "")))) + =Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ" or Parameters!Sucursal.Value = "Hermosillo", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", "")))) - Culiacán, Sin. + Culiacán, Sin. - - - - - + - + - + - + | - + | Textbox10 0.13104cm - 3.45239cm + 3.23917cm 2.14312cm - 9.51761cm + 10.69394cm 4 - - 1.69533cm - 6.87784cm - 0.38833cm - 0cm - 7 - - - - - - 1.72708cm - 9.54339cm - 0.38833cm - 0cm - 8 - - - - true true @@ -1874,7 +1842,7 @@ 9.54339cm 5.00803cm 6.98968cm - 9 + 7 @@ -1986,7 +1954,7 @@ 16.60715cm 4.98157cm 4.44569cm - 10 + 8 @@ -2569,7 +2537,7 @@ 0.06548in 0.37206in 8.22304in - 11 + 9 @@ -2595,7 +2563,7 @@ 0.16632cm 0.14316cm 20.88652cm - 12 + 10 @@ -2607,24 +2575,6 @@ 2pt - - Embedded - BannerFacturaSIG - Fit - 11.12025cm - 0.22358cm - 2.18766cm - 10.48062cm - 13 - - =iif(len(Parameters!Observaciones.Value) > 100, true,false) - - - - - true true @@ -2644,7 +2594,7 @@ 15.11602cm 0.14316cm 5.93682cm - 14 + 11 @@ -2681,7 +2631,7 @@ 1.063in 0.18861in 7.22552in - 15 + 12 @@ -2707,11 +2657,11 @@ Textbox5 - 14.44724cm + 12.31999cm 0.16632cm 0.0882cm 20.66427cm - 16 + 13 @@ -2745,7 +2695,7 @@ 0.19807cm 0.34219cm 14.74156cm - 17 + 14 @@ -2863,7 +2813,7 @@ 15.11602cm 0.48004cm 5.93682cm - 18 + 15 @@ -2895,7 +2845,7 @@ 5.58063cm 0.6cm 5.12357cm - 19 + 16 =iif(Parameters!EstatusFactura.Value<>"",False,True) @@ -2935,7 +2885,7 @@ 5.58063cm 0.6cm 5.12357cm - 20 + 17 =iif(Parameters!EstatusEntrega.Value<>"",False,True) @@ -2951,7 +2901,7 @@ - 18.76339cm + 16.69964cm @@ -430,6 +441,7 @@
+ - + + diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index c950fc162..32de18d83 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -12,37 +12,50 @@ Partial Class PopUpSeleccionarEmpresa Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CType(Me.Master, BaseMasterPage).EsPopup = True - 'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero - 'RegistraScript("alertSize();") GetEmpresas() End If End Sub Private Sub GetEmpresas() - - Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario) If Dt IsNot Nothing Then If Dt.Rows.Count > 0 Then - LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0) - GV.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa") - GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa") + Dim NumRegistros As Integer = 0 + GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa") + NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count + + GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa") + NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count + + GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa") + NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count + + GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa") + NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count + + LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0) Else LtlTotalRegistros.Text = "0" - GV.DataSource = Nothing + GvEmpresas.DataSource = Nothing + GvPortalRastreo.DataSource = Nothing + GvPortalCliente.DataSource = Nothing + GvPortalProveedor.DataSource = Nothing Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) End If End If - GV.DataBind() - GVCliente.DataBind() + GvEmpresas.DataBind() + GvPortalRastreo.DataBind() + GvPortalCliente.DataBind() + GvPortalProveedor.DataBind() + UPDatos.Update() TblBusqueda.Visible = True End Sub - Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand + Protected Sub GvEmpresas_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvEmpresas.RowCommand If e.CommandName = "Cambia" Then Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) @@ -80,35 +93,7 @@ Partial Class PopUpSeleccionarEmpresa End If End Sub - - Private Sub GuardaLogR(Mensaje As String) - Dim ArchivoW As IO.StreamWriter - Dim MensajeLog As String = "" - Dim continuar As Boolean = True - Try - If Not IsNothing(System.Web.HttpContext.Current) Then - If Not IsNothing(System.Web.HttpContext.Current.Request) Then - - MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}" - End If - End If - Catch - End Try - MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}" - - Try - ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) - Catch - Exit Sub - End Try - Try - ArchivoW.Write(MensajeLog) - Catch - End Try - ArchivoW.Close() - ArchivoW.Dispose() - End Sub - Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GVCliente.RowCommand + Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand If e.CommandName = "Cambia" Then Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) @@ -142,32 +127,89 @@ Partial Class PopUpSeleccionarEmpresa End If End If - End Sub + End Sub + Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand + If e.CommandName = "Cambia" Then + Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) + If gvr IsNot Nothing Then - Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click - RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30)) - End Sub + Dim ObjUsuario As New ClsSisUsuarios + Dim Usuario As Usuario = Nothing + Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña")) + + ObjUsuario.Dispose() - Private Sub CreaObjetoEmpresa() - Dim ObjEmpresa As New ClsSisEmpresas() - If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then - 'Session("Empresa") = ObjEmpresa - If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then - Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados + If Usuario IsNot Nothing Then + Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) + + Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion + Usuario.ModoSimulacion = ModoSimulacion + ADSSession.ADSSessionConfig.sessionUser = Usuario + ADSSession.ADSSessionConfig.sessionDpage = False + + If dt IsNot Nothing Then + If dt.Rows.Count >= 1 Then + If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True + Usuario.CvePlataforma = 6 + UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero() + ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa) + CreaObjetoEmpresa(Usuario) + 'si la contraseña es la prederminada, pide la nueva contraseña + 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False) + RegistraScript("Ir4();") + End If + End If + dt.Dispose() + End If - Dim EmpresasFuncionalidades As New HybridDictionary - For Each Row As Data.DataRow In dttmp.Rows - EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString) - Next - ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades) End If - UsuarioActual.Empresa = ObjEmpresa.Empresa - Else - Session("Empresa") = Nothing End If - ObjEmpresa.Dispose() + End Sub + Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand + If e.CommandName = "Cambia" Then + Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) + + If gvr IsNot Nothing Then + + Dim ObjUsuario As New ClsSisUsuarios + Dim Usuario As Usuario = Nothing + Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña")) + + ObjUsuario.Dispose() + + If Usuario IsNot Nothing Then + Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) + + Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion + Usuario.ModoSimulacion = ModoSimulacion + ADSSession.ADSSessionConfig.sessionUser = Usuario + ADSSession.ADSSessionConfig.sessionDpage = False + + If dt IsNot Nothing Then + If dt.Rows.Count >= 1 Then + If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True + Usuario.CvePlataforma = 7 + UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero() + ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa) + CreaObjetoEmpresa(Usuario) + 'si la contraseña es la prederminada, pide la nueva contraseña + 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False) + RegistraScript("Ir5();") + End If + End If + dt.Dispose() + End If + + End If + + End If + End Sub + +#Region "F U N C I O N E S" + Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click + RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30)) End Sub Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario) @@ -190,9 +232,34 @@ Partial Class PopUpSeleccionarEmpresa Session("Empresa") = Nothing End If ObjEmpresa.Dispose() - End Sub - - + End Sub + Private Sub GuardaLogR(Mensaje As String) + Dim ArchivoW As IO.StreamWriter + Dim MensajeLog As String = "" + Dim continuar As Boolean = True + Try + If Not IsNothing(System.Web.HttpContext.Current) Then + If Not IsNothing(System.Web.HttpContext.Current.Request) Then + MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}" + End If + End If + Catch + End Try + MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}" + Try + ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) + Catch + Exit Sub + End Try + Try + ArchivoW.Write(MensajeLog) + Catch + End Try + ArchivoW.Close() + ArchivoW.Dispose() + End Sub +#End Region + End Class \ No newline at end of file diff --git a/Site.master.vb b/Site.master.vb index a2c4eb732..f9498674c 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -122,15 +122,11 @@ Partial Class Site '2018.08.14, se movió de la linea 59 a la actual CargaTipoCambio() - + CargaUsuario() If UsuarioActual.Portal = False Then CreaMenu() 'Configuracion() - CargaUsuario() CargaBuscadores() - Else - LtMasterPerfil.Text = UsuarioActual.Rol - LtMasterUsuario.Text = UsuarioActual.Usuario End If End If diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 3801b68c5..9617b6a33 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -92,15 +92,16 @@ public class TareasJam : IHttpHandler - ////"ftp://us2.hostedftp.com/", "agrojam", "A12345678"; - //string FTPServer = "ftp://127.0.0.1/"; - //string TFPUsr = "Toor"; - //string FTPPass = "agj-3500"; + //"ftp://us2.hostedftp.com/", "agrojam", "A12345678"; + + string FTPServer = "ftp://127.0.0.1/"; + string TFPUsr = "Toor"; + string FTPPass = "agj-3500"; - string FTPServer = "ftp://us2.hostedftp.com"; - string TFPUsr = "agrojam"; - string FTPPass = "A12345678"; + //string FTPServer = "ftp://us2.hostedftp.com"; + //string TFPUsr = "agrojam"; + //string FTPPass = "A12345678"; bool ErrorProceso = false; @@ -197,8 +198,8 @@ public class TareasJam : IHttpHandler DTAlmacenes.AcceptChanges(); - DataTable dtCloned = DTVentas.Clone(); - dtCloned.Columns[3].DataType = typeof(string); + DataTable dtCloned = DTVentas.Clone(); + dtCloned.Columns[3].DataType = typeof(DateTime); foreach (DataRow row in DTVentas.Rows) { @@ -206,17 +207,17 @@ public class TareasJam : IHttpHandler } DTVentas = dtCloned; - foreach(DataRow dRow in DTVentas.Rows) + foreach (DataRow dRow in DTVentas.Rows) { - string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); - dRow[3] = tmpString; + DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate(); + dRow[3] = tmpDate; } DTVentas.AcceptChanges(); - dtCloned = DTAlmacenes.Clone(); - dtCloned.Columns[3].DataType = typeof(string); + dtCloned = DTAlmacenes.Clone(); + dtCloned.Columns[3].DataType = typeof(DateTime); foreach (DataRow row in DTAlmacenes.Rows) { @@ -224,10 +225,10 @@ public class TareasJam : IHttpHandler } DTAlmacenes = dtCloned; - foreach(DataRow dRow in DTAlmacenes.Rows) + foreach (DataRow dRow in DTAlmacenes.Rows) { - string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); - dRow[3] = tmpString; + DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate(); + dRow[3] = tmpDate; } DTAlmacenes.AcceptChanges(); @@ -251,6 +252,16 @@ public class TareasJam : IHttpHandler SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet()); + var workbookAlmacenes = new ExcelFile(); + var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes"); + worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions() + { + ColumnHeaders = true, + StartRow = 0 + }); + worksheetAlmacenes.Columns[3].Style.NumberFormat = "yyyy/MM/dd"; + workbookAlmacenes.Save(RutaAlmacenes); + var workbookProductos = new ExcelFile(); var worksheetProductos = workbookProductos.Worksheets.Add("Productos"); worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions() @@ -267,6 +278,7 @@ public class TareasJam : IHttpHandler ColumnHeaders = true, StartRow = 0 }); + worksheetVentas.Columns[3].Style.NumberFormat = "yyyy/MM/dd"; workbookVentas.Save(RutaVentas); @@ -280,14 +292,7 @@ public class TareasJam : IHttpHandler workbookClientes.Save(RutaClientes); - var workbookAlmacenes = new ExcelFile(); - var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes"); - worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions() - { - ColumnHeaders = true, - StartRow = 0 - }); - workbookAlmacenes.Save(RutaAlmacenes); + var FInfoProductos = new FileInfo(RutaProductos); @@ -321,10 +326,10 @@ public class TareasJam : IHttpHandler if (CargaProductos) { - CargaVentas = CargarArchivos(FInfoVentas, FTPServer, TFPUsr, FTPPass); + CargaVentas = CargarArchivos(FInfoVentas, $"{FTPServer}/Ventas", TFPUsr, FTPPass); if (CargaVentas) { - CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, FTPServer, TFPUsr, FTPPass); + CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, $"{FTPServer}/Ventas", TFPUsr, FTPPass); } } @@ -338,10 +343,10 @@ public class TareasJam : IHttpHandler if (CargaProductos & CargaVentas) { - CargaClientes = CargarArchivos(FInfoClientes, FTPServer, TFPUsr, FTPPass); + CargaClientes = CargarArchivos(FInfoClientes, $"{FTPServer}/Clientes", TFPUsr, FTPPass); if (CargaClientes) { - CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, FTPServer, TFPUsr, FTPPass); + CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, $"{FTPServer}/Clientes", TFPUsr, FTPPass); } } @@ -355,10 +360,10 @@ public class TareasJam : IHttpHandler if (CargaProductos & CargaVentas& CargaClientes ) { - CargaAlmacenes = CargarArchivos(FInfoAlmacenes, FTPServer, TFPUsr, FTPPass); + CargaAlmacenes = CargarArchivos(FInfoAlmacenes, $"{FTPServer}/Stock", TFPUsr, FTPPass); if (CargaClientes) { - CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, FTPServer, TFPUsr, FTPPass); + CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, $"{FTPServer}/Stock", TFPUsr, FTPPass); } } @@ -433,8 +438,8 @@ public class TareasJam : IHttpHandler ClsSisMail Correo = new ClsSisMail(); - string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; - // string Para = "oscar.irigoyen@adssistemas.mx"; + // string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; + string Para = "oscar.irigoyen@adssistemas.mx"; string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}"; Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos); @@ -446,7 +451,7 @@ public class TareasJam : IHttpHandler } - private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass) + private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass ) { bool Respuesta; //var FInfo = new FileInfo(RutaArchivo); diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 54e4822da..71dd6e415 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -1,5 +1,6 @@  Option Explicit On +Option Strict On Imports Extensiones Imports System.Data @@ -293,7 +294,7 @@ Partial Class Ventas_ActualizarPrecios #Region "C A R G A R E X C E L " Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click - Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows + Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows.Cast(Of GridViewRow) Where row.RowType = DataControlRowType.DataRow Select New With { @@ -408,7 +409,7 @@ Partial Class Ventas_ActualizarPrecios Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) For Each row As DataRow In dt.Rows Dim Correcto As Boolean = False - Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)) + Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)).ToEntero Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero() Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal() Dim Porcentaje As Decimal = -1 diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx index 08b7edadf..cb3868201 100644 --- a/Ventas/CatClientes.aspx +++ b/Ventas/CatClientes.aspx @@ -60,7 +60,7 @@ Todos Activo - Inactivo + Inactivo
diff --git a/Ventas/CatPS.aspx b/Ventas/CatPS.aspx index 932dcc77c..5e8d4df70 100644 --- a/Ventas/CatPS.aspx +++ b/Ventas/CatPS.aspx @@ -101,15 +101,19 @@
  • - Productos sin SAT + Exportar productos sin SAT
  • - Imprimir + Exportar PDF
  • - Exporta Excel + Exporta Excel +
    • + +
  • + Excel Personalizado
    • @@ -216,6 +220,10 @@     + + + +     @@ -277,11 +285,21 @@
    - +
    + + + + + +
    + + +
    +
    diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb index 584354d9e..9462aa72a 100644 --- a/Ventas/CatPS.aspx.vb +++ b/Ventas/CatPS.aspx.vb @@ -113,6 +113,11 @@ Partial Class CatPS AplicaVenta = False End If + GvDatos.Columns(10).Visible = ChkProductosServiciosSAT.Checked + GvDatos.Columns(11).Visible = ChkClasificacion2.Checked + GvDatos.Columns(12).Visible = ChkMarca.Checked + GvDatos.Columns(13).Visible = ChkVentaMinima.Checked + CargaDatos() OrdenaDatos() UPDatos.Update() @@ -255,6 +260,13 @@ Partial Class CatPS ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato) End Sub + + Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click + ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "", "", "Catálogo de Productos y Servicios", "", -1) + End Sub + + Public Overrides Sub VerifyRenderingInServerForm(control As Control) + End Sub #End Region End Class diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e81cadbb6..3c9ac4d86 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -443,14 +443,14 @@ --%>
    - + - - - + + + - +
    @@ -460,14 +460,14 @@ - +
    - +
    @@ -638,13 +638,13 @@
    -
    - +
    +
    - +
    @@ -692,7 +692,9 @@
    - Sucursales y/o Departamentos + + +
    @@ -704,7 +706,8 @@ - + @@ -787,8 +790,8 @@ - Sucursal/Depto - + +
    @@ -1008,16 +1011,16 @@
    - - - - - - - - - - + + + + + + + + + +
    @@ -1126,11 +1129,11 @@
    - +
    - + @@ -2369,7 +2372,7 @@     Archivos - + @@ -2377,7 +2380,7 @@ Reenviar Complemento - + <%-- @@ -2428,10 +2431,10 @@ - - - - + + + + @@ -4535,8 +4538,8 @@ @@ -4654,7 +4657,9 @@
    - Datos de la Sucursal + + + @@ -4670,7 +4675,9 @@
    - +
    @@ -4738,10 +4745,17 @@
    -
    - - - +
    +
    + + + +
    +
    + + + +
    @@ -7069,6 +7083,6 @@ } - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1e3cdac65..c2b28c20a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1196,15 +1196,14 @@ Partial Class Clientes End Sub - Private Sub CargaSubProyectoss() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() + Private Sub CargaSubProyectoss() + + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - 'If UsuarioActual.CveSucursal = -1 Then - ' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'Else - ' DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString - 'End If + DdlSubProyecto.DataBind() + + End Sub Private Sub CargaMetodosPago() DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ") @@ -1422,6 +1421,7 @@ Partial Class Clientes 'TxtEstado.Text = ObjClientes.Estado 'TxtPais.Text = ObjClientes.Pais TxtRFC.Text = ObjClientes.RFC + TxtCP.Text = ObjClientes.CP.ToString TxtTelefono.Text = ObjClientes.Telefono TxtContacto.Text = ObjClientes.Contacto @@ -1899,7 +1899,16 @@ Partial Class Clientes GvDireccionesEnvio.DataSource = ObjClientes.DtResultados End If ObjClientes.Dispose() - GvDireccionesEnvio.DataBind() + GvDireccionesEnvio.DataBind() + + If TxtRFC.Text = "XAXX010101000" Then + GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente" + LtlNombreSucursal.Text = "Cliente" + LtlNombreSucursalTitulo.Text = "Cliente" + LtlTituloSurcusalCliente.Text = "Datos del cliente" + LtlGvSucursalesCliente.Text = "Clientes" + End If + UpAgregarSucursal.Update() UpDatos.Update() End Sub Public Sub CargaAFAsignados() @@ -2977,15 +2986,13 @@ Partial Class Clientes Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0") Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") + Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text) If CveCliente > 0 Then If Actualizar Then - Dim Estatus As Boolean = ChkEstatusSucursal.Checked - - If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero, DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then @@ -3127,6 +3134,7 @@ Partial Class Clientes Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing Me.Actualizar = True + Me.DivRFCSucursal.Visible = False Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero @@ -3147,6 +3155,8 @@ Partial Class Clientes TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString + TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString + DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim()) TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 51997adf9..e4ea4d42e 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -821,7 +821,6 @@ Partial Class ProductosyServicios lbTitulo.Text = $"{lbTitulo.Text}{ObjProductosServicios.PS}" LtProductoUnificar.Text = ObjProductosServicios.PS ddlMetodos.SelectedValue = ObjProductosServicios.CveMetodoInventario.ToString - TxtAlmacenSeccion.Text = ObjProductosServicios.AlmacenSeccion.ToString DdlConceptoRelacionado.SelectedValueExist(ObjProductosServicios.CveConceptoContable.ToString) DdlProveedor.SelectedValue = ObjProductosServicios.CveProveedorCompra.ToString diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index c2f070605..4a73d5907 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -417,11 +417,33 @@
    + <%-- + + + --%> - - + + + @@ -6880,6 +6902,132 @@ + <%-- MODAL SUCURSAL --%> +
    Sucursal y/o Departamento + Comandos
    Facturar Sucursal : + +
    Sucursal : - - + + + : +
    +
    + + +
    +
    + +
    +
    +     		+ + + +
    + +
    +
    + + Datos del cliente +
    +
    +
    +
    +
    +
    +     + +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    +
    + + + +
    +
    +
    + + + +
    +
    + + +
    +
    +
    +
    + + + +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    + + + +
    +
    + +
    + + + +
    + +
    + + + + +
    + +
    +
    + + + +
    + +
    + + + + +
    + +
    +     +
    + +
    + + +
    + + +
    +
    @@ -7744,75 +7892,75 @@ function LimpiaModal() { $('#<%= TxtDireccion.ClientID %>').val(''); - $('#<%= TxtColonia.ClientID %>').val(''); - $('#<%= TxtCiudad.ClientID %>').val(''); - $('#<%= TxtEstado.ClientID %>').val(''); - $('#<%= TxtCP.ClientID %>').val(''); - } + $('#<%= TxtColonia.ClientID %>').val(''); + $('#<%= TxtCiudad.ClientID %>').val(''); + $('#<%= TxtEstado.ClientID %>').val(''); + $('#<%= TxtCP.ClientID %>').val(''); + } - function BtnMateriales() { - $('#BtnMateriales').click(); - } + function BtnMateriales() { + $('#BtnMateriales').click(); + } - function BtnEnviarMailCancelacion() { - $('#BtnEnviarMailCancelacion').click(); - } - function BtnRefacturacionConfirmar() { - $('#BtnRefacturacionConfirmar').click(); - } - function BtnRefacturacionConfirmarAceptacion(Liga) { - $('#BtnRefacturacionConfirmarAceptacion').click(); - } - function BtnRefrescarPagina() { - $('#BtnRefrescarPagina').click(); - } - function Recargar() { - $('#BtnRefrescarPagina').click(); - } - function BtnAplicaNuevaNC() { - $('#BtnAplicaNuevaNC').click(); - } + function BtnEnviarMailCancelacion() { + $('#BtnEnviarMailCancelacion').click(); + } + function BtnRefacturacionConfirmar() { + $('#BtnRefacturacionConfirmar').click(); + } + function BtnRefacturacionConfirmarAceptacion(Liga) { + $('#BtnRefacturacionConfirmarAceptacion').click(); + } + function BtnRefrescarPagina() { + $('#BtnRefrescarPagina').click(); + } + function Recargar() { + $('#BtnRefrescarPagina').click(); + } + function BtnAplicaNuevaNC() { + $('#BtnAplicaNuevaNC').click(); + } - $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); }); - $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); }); + $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); }); + $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); }); - $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) { - var $this = $(this); - var ind = $this.index(); - $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active'); - $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active'); - //log($this); - }); - var scrollfuncion = function () { - var stop = this.scrollTop; - $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop); - } - function CargaExistenciaAlmacenes(data, params) { - var div = $('
    '); - $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove(); - $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div); - var table = $('
    '); div.append(table); - var tbody = $(''); table.append(tbody); - $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion); - $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion); - var indexd = 0; - data.forEach(function (item) { - if (indexd == 0) { - var tr = $(''); tbody.append(tr); - var td; - for (var key in item) { - if (!(key == "text" || key == "id")) { td = $('' + key + ''); tr.append(td); } - } - } - var tr = $(''); tbody.append(tr); + $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) { + var $this = $(this); + var ind = $this.index(); + $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active'); + $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active'); + //log($this); + }); + var scrollfuncion = function () { + var stop = this.scrollTop; + $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop); + } + function CargaExistenciaAlmacenes(data, params) { + var div = $('
    '); + $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove(); + $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div); + var table = $('
    '); div.append(table); + var tbody = $(''); table.append(tbody); + $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion); + $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion); + var indexd = 0; + data.forEach(function (item) { + if (indexd == 0) { + var tr = $(''); tbody.append(tr); + var td; + for (var key in item) { + if (!(key == "text" || key == "id")) { td = $('' + key + ''); tr.append(td); } + } + } + var tr = $(''); tbody.append(tr); - var td; - for (var key in item) { - if (!(key == "text" || key == "id")) { - if ((item[key] > 0)) { - td = $('' + item[key] + ''); tr.append(td); - } else { - if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') { + var td; + for (var key in item) { + if (!(key == "text" || key == "id")) { + if ((item[key] > 0)) { + td = $('' + item[key] + ''); tr.append(td); + } else { + if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') { var buscarAlmacenes = "CargaExistenciasSucursales(" + item.id + ",'" + item.text + "');" td = $('' + item[key] + ' '); tr.append(td); } else { @@ -7951,17 +8099,17 @@ function ConvertirPesos(ChkConvertirDoctoPesos) { //LIMPIA $('#<%= LtlTotalConvertido.ClientID %>').text(''); - $("#TrConversionPesosTexto").hide(); + $("#TrConversionPesosTexto").hide(); - //CALCULA - if (ChkConvertirDoctoPesos.checked) { - ConvertirDllsPesos(); - } - } + //CALCULA + if (ChkConvertirDoctoPesos.checked) { + ConvertirDllsPesos(); + } + } - function ConvertirPesosDlls() { - var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2) - $('#<%= LblDolaresConvertidos.ClientID %>').text(totalPesos); + function ConvertirPesosDlls() { + var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2) + $('#<%= LblDolaresConvertidos.ClientID %>').text(totalPesos); $("#TrConversionDolaresTexto").show(); } @@ -8098,5 +8246,26 @@ } }; + function showDivAgregarSucursal() { + + $('#<%= TxtNombreSucursal.ClientID %>').val(''); + $('#<%= TxtDireccionSucursal.ClientID %>').val(''); + $('#<%= TxtNumExtSucursal.ClientID %>').val(''); + $('#<%= TxtNumIntSucursal.ClientID %>').val(''); + $('#<%= TxtCPSucursal.ClientID %>').val(''); + $('#<%= TxtColoniaSucursal.ClientID %>').val(''); + $('#<%= TxtTelefonoSucursal.ClientID %>').val(''); + $('#<%= TxtCiudadSucursal.ClientID %>').val(''); + $('#<%= TxtLocalidadSucursal.ClientID %>').val(''); + $('#<%= TxtEstadoSucursal.ClientID %>').val(''); + $('#<%= TxtPaisSucursal.ClientID %>').val(''); + $('#<%= TxtCorreoSucursal.ClientID %>').val(''); + $('#divAgregarSucursal').modal(); + } + + function hideDivAgregarSucursal() { + $('#divAgregarSucursal').modal('hide'); + } +     diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9d25b9949..c560d8455 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1764,6 +1764,23 @@ Partial Class Ventas ViewState("CvePrecioLista") = value End Set End Property + Private Property FacturarSucursal As Boolean + Get + Return CBool(IfNull(ViewState("FacturarSucursal"), "False", ViewState("FacturarSucursal"))) + End Get + Set(value As Boolean) + ViewState("FacturarSucursal") = value + End Set + End Property + + Private Property ClienteSucursal As Modelos.SucursalModel + Get + Return CType(ViewState("ClienteSucursal"), Modelos.SucursalModel) + End Get + Set(value As Modelos.SucursalModel) + ViewState("ClienteSucursal") = value + End Set + End Property #End Region @@ -2643,6 +2660,12 @@ Partial Class Ventas End If + 'rmf.2020.09.30, codigo de prueba + If UsuarioActual.CveEmpresa = 1 Then + DivMesesSinIntereses.Visible = True + DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") + DivContadoOtros.Visible = True + End If If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then @@ -4566,6 +4589,12 @@ Partial Class Ventas DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString()) + Me.FacturarSucursal = CBool(DbRowVenta("FacturarSucursal").ToString()) + + If Me.FacturarSucursal Then + HabilitarFacturacionSucursal() + End If + CargaPS(-1, DdlPS) 'CARGA GV DE OC RELACIONADAS @@ -4802,7 +4831,10 @@ Partial Class Ventas End Sub Private Sub CargaUsoCFDI() DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica) + DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica) + DdlUsoCFDI.DataBind() + DdlSucursalUsoCFDI.DataBind() End Sub Private Sub CargaTiposRelacion() DdlTiposRelacion.DataSource = GlobalDTVtaTiposRelacion @@ -5221,6 +5253,11 @@ Partial Class Ventas DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) DdlSucursalCliente.DataBind() + 'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL + If (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then + HabilitarFacturacionSucursal() + End If + 'CargaFolios() CargaDatosEstimaciones(CveCliente) @@ -5576,6 +5613,11 @@ Partial Class Ventas Private Sub CargaClienteSucursal(CveClienteSuc As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) + Me.ClienteSucursal = Nothing + Me.FacturarSucursal = False + LtlTitleRFCSucursal.Text = "" + LtlRFCSucursal.Text = "" + Dim ObjCliente As New ClsClientes If CveClienteSuc > 0 Then If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then @@ -5612,6 +5654,32 @@ Partial Class Ventas UpParametros.Update() End If + 'SI EL CLIENTE TIENE RFC GENERICO Y LA SUCURSAL TIENE RFC DEBE FACTURAR LA SUCURSAL + If LblRFC.Text.Trim() = "XAXX010101000" AndAlso Not String.IsNullOrEmpty(ObjCliente.DtResultados.Rows(0)("RFC").ToString()) Then + Me.FacturarSucursal = True + + LtlTitleRFCSucursal.Text = "RFC:" + LtlRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString() + + Me.ClienteSucursal = New Modelos.SucursalModel + Me.ClienteSucursal.Nombre = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString() + Me.ClienteSucursal.RFC = ObjCliente.DtResultados.Rows(0)("RFC").ToString() + Me.ClienteSucursal.NoExt = CliNoExt + Me.ClienteSucursal.NoInt = CliNoInt + Me.ClienteSucursal.Localidad = CliLocalidad + Me.ClienteSucursal.Direccion = LblDireccion.Text + Me.ClienteSucursal.Colonia = LblColonia.Text + Me.ClienteSucursal.Municipio = LblCiudad.Text + Me.ClienteSucursal.Estado = LblEstado.Text + Me.ClienteSucursal.CP = LblCP.Text + Me.ClienteSucursal.Pais = CliPais + Me.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString() + Me.ClienteSucursal.TelefonoSucursal = LblTelefono.Text + Me.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "") + Me.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString() + + End If + If CveVenta <= 0 Then CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero() @@ -5666,10 +5734,12 @@ Partial Class Ventas LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() End If + ObjCliente.Dispose() + UPPVentas.Update() UpEstatus.Update() UPCondicionesPago.Update() - ObjCliente.Dispose() + UpCliente.Update() End Sub Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal Dim Retorno As Decimal = 0 @@ -6630,6 +6700,11 @@ Partial Class Ventas DtOCTmpDT = TmpDT.Copy TmpDTError = TmpDT.Copy + If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then + Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + 'CUANDO ES PEDIDO SE DEBE ESPECIFICAR EL NUMERO DE CONTRATO If TrTipoPedido.Visible AndAlso DdlTipoPedido.SelectedIndex = 2 Then If String.IsNullOrEmpty(TxtObsFact.Text.Trim()) Then @@ -6993,6 +7068,22 @@ Partial Class Ventas Exit Sub End If dttsat.Dispose() + + If UsuarioActual.CveEmpresa = 72 Then + Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ") + 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 End If If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then @@ -7904,6 +7995,10 @@ Partial Class Ventas 'ObjFacturaDevolucion.SetSucursal(Me) ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel + If Me.ClienteSucursal IsNot Nothing Then + ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC + ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre + End If ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad @@ -8140,6 +8235,11 @@ Partial Class Ventas 'ObjFacturaBonificacion.SetSucursal(Me) ObjFacturaBonificacion.ClienteSucursal = New Modelos.SucursalModel + If Me.ClienteSucursal IsNot Nothing Then + ObjFacturaBonificacion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre + ObjFacturaBonificacion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC + End If + ObjFacturaBonificacion.ClienteSucursal.NoExt = CliNoExt ObjFacturaBonificacion.ClienteSucursal.NoInt = CliNoInt ObjFacturaBonificacion.ClienteSucursal.Localidad = CliLocalidad @@ -8371,7 +8471,6 @@ Partial Class Ventas ObjFactura = New Modelos.Factura End If - ObjFactura.Version = "3.3" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa @@ -8383,7 +8482,7 @@ Partial Class Ventas ObjFactura.Moneda = DdlMoneda.SelectedItem.Text ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}") ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue) - + ObjFactura.FacturarSucursal = (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso Not String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) 'ObjFactura.RefDocto = TxtDocto.Text.Trim 'si es cancelacion, debe de conservar el folio actual @@ -8832,8 +8931,12 @@ Partial Class Ventas 'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() ObjFactura.SetSubProyectoMatriz(Me) ObjFactura.SetSubProyecto(Me) - ObjFactura.ClienteSucursal = New Modelos.SucursalModel + ObjFactura.ClienteSucursal = New Modelos.SucursalModel() If Not CveEmpresaCRM > 0 Then + If Me.ClienteSucursal IsNot Nothing Then + ObjFactura.ClienteSucursal.RFC = Me.ClienteSucursal.RFC + ObjFactura.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre + End If ObjFactura.ClienteSucursal.NoExt = CliNoExt ObjFactura.ClienteSucursal.NoInt = CliNoInt ObjFactura.ClienteSucursal.Localidad = CliLocalidad @@ -9232,7 +9335,12 @@ Partial Class Ventas ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() ObjFacturaDevolucion.SetSubProyectoMatriz(Me) ObjFacturaDevolucion.SetSubProyecto(Me) + ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel + If Me.ClienteSucursal IsNot Nothing Then + ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC + ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre + End If ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad @@ -9245,6 +9353,7 @@ Partial Class Ventas ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString() ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "") + ObjFacturaDevolucion.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString() 'ENVIO DIRECCION ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel @@ -9292,13 +9401,18 @@ Partial Class Ventas Timbre.Comprobante.Confirmacion = "" - Timbre.Receptor.RFC = Obj.Cliente.RFC - Timbre.Receptor.Nombre = Obj.Cliente.Nombre + If Obj.FacturarSucursal Then + Timbre.Receptor.RFC = Obj.ClienteSucursal.RFC + Timbre.Receptor.Nombre = Obj.ClienteSucursal.Nombre + Else + Timbre.Receptor.RFC = Obj.Cliente.RFC + Timbre.Receptor.Nombre = Obj.Cliente.Nombre + End If + Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI - If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then Timbre.CFDIRelacionados.TipoRelacion = "07" @@ -9367,8 +9481,6 @@ Partial Class Ventas End If - - Dim totSubTotal As Decimal = Obj.SubTotal Dim totIVA As Decimal = Obj.IVA Dim totRetIVA As Decimal = Obj.RetIVA @@ -9936,7 +10048,7 @@ Partial Class Ventas CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), - Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then + Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then @@ -14980,6 +15092,10 @@ Partial Class Ventas DdlIVA.SelectedValue = "1.16" PorcentajeIVA = ViewState("IVA").ToString().ToDecimal End Select + 'SI ES COTIZACION HABILITAR EL DDL DE IVA + If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + DdlIVA.Visible = True + End If If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA() 'ViewState("SubProyectoPorcentajeIVA") = dr("IVA") ViewState("TipoFormato") = dr("TipoFormato") @@ -15027,7 +15143,11 @@ Partial Class Ventas DdlVendedor.SelectedValue = "0" DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) + + DdlVendedorSucursal.DataSource = DdlVendedor.DataSource + DdlVendedor.DataBind() + DdlVendedorSucursal.DataBind() DdlVendedor.SelectedValueExist(CveVendedorActual) @@ -15133,7 +15253,7 @@ Partial Class Ventas If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then 'VALIDA EXISTENCIA - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then + If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153}) Then If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Return False @@ -15621,6 +15741,11 @@ Partial Class Ventas MensajeCveSAT.AppendFormat("{0}-{1}: Sin Unidad Medida SAT
    ", DrPS("Codigo").ToString(), DrPS("PS").ToString()) Return False End If + + If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then + MensajeCveSAT.AppendFormat("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
    ", DrPS("Codigo").ToString(), DrPS("PS").ToString()) + Return False + End If End If End If @@ -16709,6 +16834,84 @@ Partial Class Ventas Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged ViewState("EstablecioFolio") = True End Sub + Private Sub HabilitarFacturacionSucursal() + trsucursalciente.Visible = True + LnkAgregarSucursal.Visible = True + LblSucursal.Text = "Cliente" + If (CveVenta <= 0 OrElse NuevaFactura = 1) Then + DdlSucursalCliente.Enabled = True + End If + DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty) + + UpCliente.Update() + End Sub + + Protected Sub ChkFacturarSucursal_CheckedChanged(sender As Object, e As EventArgs) + + End Sub + Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs) + RegistraScript("showDivAgregarSucursal();") + End Sub + + Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click + + Dim LT As String = "0" + Dim LG As String = "0" + + If CveCliente > 0 Then + Dim ObjCliente As New ClsClientes + Try + If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, "", "", + DdlVendedorSucursal.SelectedValue.ToEntero, "", -1, 0, -1, DdlSucursalUsoCFDI.SelectedValue.ToEntero, -1, -1, LT:=LT, LG:=LG, RFC:=TxtRFCSucursal.Text.Trim()) Then + TxtNombreSucursal.Text = "" + TxtCiudadSucursal.Text = "" + TxtColoniaSucursal.Text = "" + TxtCPSucursal.Text = "" + TxtDireccionSucursal.Text = "" + TxtEstadoSucursal.Text = "" + TxtLocalidadSucursal.Text = "" + TxtPaisSucursal.Text = "" + TxtNumExtSucursal.Text = "" + TxtNumIntSucursal.Text = "" + TxtTelefonoSucursal.Text = "" + TxtCorreoSucursal.Text = "" + + DdlVendedorSucursal.SelectedIndex = 0 + DdlSucursalUsoCFDI.SelectedIndex = 0 + + + Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion) + + 'VUELVE A CARGAR LAS SUCURSALES + DdlSucursalCliente.Items.Clear() + If ObjCliente.GetSucursales(CveCliente) Then + DdlSucursalCliente.DataSource = ObjCliente.DtResultados + If ObjCliente.DtResultados.Rows.Count > 0 Then + trsucursalciente.Visible = True + Else + trsucursalciente.Visible = False + End If + Else + trsucursalciente.Visible = False + DdlSucursalCliente.DataSource = Nothing + End If + DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) + DdlSucursalCliente.DataBind() + + End If + Catch ex As Exception + OnError("Ocurrió un error al agregar la sucursal", ex) + End Try + ObjCliente.Dispose() + + End If + + UpCliente.Update() + RegistraScript("hideDivAgregarSucursal();") + + End Sub + + Private Sub ConfiguraTipoDocto() 'Esconde Todo @@ -17824,6 +18027,11 @@ Partial Class Ventas Dim TotalT As Decimal = TxtTotal.Text.ToDecimal Dim RFCReceptor As String = LblRFC.Text.Trim + 'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA + If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then + RFCReceptor = Me.ClienteSucursal.RFC + End If + Dim SWatch As New Stopwatch SWatch.Start() @@ -18472,12 +18680,22 @@ Partial Class Ventas Select Case RBLPago.SelectedValue.ToEntero() Case 1 'CREDITO TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString + 'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD + If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then + DdlMetodoPago33.SelectedValueExist("3") + DdlMetodoPago33.Enabled = False + End If Case 2 'CONTADO If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True TxtImporteContado.Text = TxtTotal.Text End If TxtFechaPago.Text = Now.ToShortDateString + 'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE + If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then + DdlMetodoPago33.SelectedValueExist("1") + DdlMetodoPago33.Enabled = False + End If Case 3 ' TERMINAL DivTerminal.Visible = True TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString @@ -18485,6 +18703,7 @@ Partial Class Ventas LimpiaContado() UpContado.Update() + UPCondicionesPago.Update() End Sub Private Sub CargaCuentas() @@ -18497,8 +18716,8 @@ Partial Class Ventas Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) @@ -20040,6 +20259,12 @@ Partial Class Ventas Dim TotalT As Decimal = TxtTotal.Text.ToDecimal Dim RFCReceptor As String = LblRFC.Text.Trim + + 'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA + If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then + RFCReceptor = Me.ClienteSucursal.RFC + End If + Dim SWatch As New Stopwatch SWatch.Start() Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True) @@ -25953,6 +26178,12 @@ Partial Class Ventas Return Retorno End Function Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) + + If (FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then + Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) Else diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index fa5c03748..db1e9566b 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -43,6 +43,7 @@ Public Class WSApp ObjPS.Dispose() End Get End Property + Property GlobalDTMonedas() As DataTable Get GlobalDTMonedas = DirectCast(Application("GlobalDTMonedas"), DataTable) @@ -326,33 +327,42 @@ Public Class WSApp Application("GlobalDTCompProveedores") = value End Set End Property - Property GlobalDTProductosServicios(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional Estatus As Integer = 1, Optional CvePS As Integer = -1, Optional AplicaParaVenta As Integer = -1, Optional CveTipoPS As Integer = -1) As DataTable - Get - If CveEmpresa = -1 Then - GlobalDTProductosServicios = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow)).CopyToDataTable - Else - - Dim Cons = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow)) - Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) - If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) - If CveClasificacionCosto >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacionCosto) = CveClasificacionCosto)) - If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus)) - If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS)) - If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta)) - If CveTipoPS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = CveTipoPS)) - - 'Try, generado para cuando el resultado no tiene valores(The source contains no DataRows.), no detenga la ejecucion, no se le puso un count previo, porque el costo se duplica, al preguntar y luego ordenar y convertir a datatable - Try - GlobalDTProductosServicios = Cons.OrderBy(Function(a) a!PS).CopyToDataTable - Catch ex As Exception - GlobalDTProductosServicios = New DataTable - End Try - End If - - End Get - Set(value As DataTable) - Application("GlobalDTProductosServicios") = value - End Set + Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + If CveEmpresa <> -1 Then + 'sino existe, recarga los datos + If Application(AppNombre) Is Nothing Then + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetPSSimplificado(CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados.AsEnumerable() + ObjPS.Dispose() + + End If + + + Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)) + + Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) + If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) + If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo)) + If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus)) + If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta)) + If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS)) + + Try + GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable + Catch ex As Exception + GlobalDTPSSimplificado = New DataTable + End Try + + Else + GlobalDTPSSimplificado = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)).CopyToDataTable + End If + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + Application(AppNombre) = value + End Set End Property Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable Get @@ -548,15 +558,19 @@ Public Class WSApp Salida.CveSubProyecto = UsuarioActual.CveSubProyecto Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList() - If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If ObjClientes.DtResultados.Rows.Count > 0 Then Salida.Cliente = ObjClientes.Nombre Salida.CvePrecioLista = ObjClientes.CvePrecioLista - Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) - End If - End If - - retorno = JsonConvert.SerializeObject(Salida) + Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) + + retorno = JsonConvert.SerializeObject(Salida) + End If + Else + retorno = "{}" + End If + + Else retorno = "{}" End If @@ -711,26 +725,41 @@ Public Class WSApp End If If ListaPS IsNot Nothing Then Dim Continuar As Boolean = False - Dim ObjPS As New ClsProductosServicios - For Each PS In ListaPS - If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then - If ObjPS.DtResultados.Rows.Count > 0 Then - Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal() - Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero() - - Continuar = (CveTipoPS = 2 AndAlso Existencia > 0) OrElse (CveTipoPS = 1) - - If Not Continuar Then - Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.") - Exit For - End If - Else - Continuar = False - Retorno.Mensajes.Add("No se pudo comprobar la existencia.") - Exit For - End If - End If - Next + Dim ObjPS As New ClsProductosServicios + Try + For Each PS In ListaPS + Dim CveTipoPS As Integer = GlobalDTPSSimplificado(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimeroValor("CveTipoPS").ToEntero() + If CveTipoPS > 0 Then + If CveTipoPS = 2 Then + If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then + If ObjPS.DtResultados.Rows.Count > 0 Then + Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal() + 'Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero() + + Continuar = Existencia > 0 + + If Not Continuar Then + Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.") + Exit For + End If + Else + Continuar = False + Retorno.Mensajes.Add("No se pudo comprobar la existencia.") + Exit For + End If + End If + ElseIf CveTipoPS = 1 Then + Continuar = True + End If + Else + Continuar = False + Retorno.Mensajes.Add("No se pudo comprobar si es producto o servicio.") + End If + Next + Catch ex As Exception + OnError("Ocurrió un error al consultar la existencia", ex) + Continuar = False + End Try ObjPS.Dispose() If Continuar Then @@ -745,23 +774,16 @@ Public Class WSApp Dim Correo As String = If(CveSubProyecto.Contiene(11714, 11761), "mezclas.pescadito@gmail.com", "pedidosaguas@gmail.com") 'Dim Correo As String = "japmx95@gmail.com" Dim SerieFolio As String = Factura.SerieFolio - Dim DireccionEnvio As String = "" - Dim ObjClientes As New ClsClientes - If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then - If ObjClientes.DtResultados.Rows.Count > 0 Then - DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto") - End If - End If - ObjClientes.Dispose() - Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now) - Factura.Dispose() - Try - Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio) - Dim Mail As New ClsSisMail() - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body) - Catch ex As Exception - OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex) - End Try + Dim DireccionEnvio As String = "" + Using ObjClientes As New ClsClientes + If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then + If ObjClientes.DtResultados.Rows.Count > 0 Then + DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto") + End If + End If + End Using + Factura.Dispose() + EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual) Else Factura.Dispose() End If @@ -779,7 +801,26 @@ Public Class WSApp End Try Return JsonConvert.SerializeObject(Retorno) - End Function + End Function + Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario) + Try + Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)) + Hilo.Start() + Catch ex As Exception + OnError("Ocurrió error al mandar el correo de facturación", ex) + End Try + End Sub + Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario) + Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now) + Factura.Dispose() + Try + Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio) + Dim Mail As New ClsSisMail() + Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body) + Catch ex As Exception + OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex) + End Try + End Sub Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String Dim Retorno = New Modelos.Factura.MMensajeFactura() @@ -1370,8 +1411,8 @@ Public Class WSApp Row("Total") = (PS.Cantidad.Value * PS.Precio) Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2) - - Row("SATClaveProdServ") = DrPS("SATClavePS") + + Row("SATClaveProdServ") = DrPS("SATClavePS") Row("SATClaveUM") = DrPS("SATClaveUnidadMedida") Row("EntregaDirecta") = EntregaDirecta