diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 787cf4be5..7c11a3d3b 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -293,7 +293,7 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, - Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") @@ -313,6 +313,7 @@ Public Class ClsContabilidad .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index cdc27bcdb..9ea52f7d7 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -854,28 +854,9 @@ Public Class ClsMovimientos End Try Return Retorno - End Function - - Public Function GetDeudoresrXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Banc_DuedorXSaldar") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .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 ingresos por saldar del acreedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - + End Function + + Public Function GetIngresosPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -1030,7 +1011,27 @@ Public Class ClsMovimientos End Try Return Retorno - End Function + End Function + + 'Public Function GetDeudoresDetalleSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Banc_DeudoresSaldosDetalleGet") + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + ' .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + ' .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 ingresos por saldar del acreedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function Public Function GetDeudoresComisionesSaldos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index b4d3bd9eb..e315a33e6 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -35,6 +35,10 @@ Public Class ClsNominas Public Property FolioSolicitud As Integer + Public Property SalarioDiario As Double + Public Property SDI As Double + Public Property SBC As Double + Public Property RegistroPatronal As String Public Property SerieFolio As String @@ -611,7 +615,7 @@ Public Class ClsNominas End Try Return retorno End Function - + Public Function GuardarAguinaldo(CveEmpresa As Integer, CveUsuario As Integer, registros As String) As Boolean Dim retorno As Boolean = False @@ -1102,6 +1106,10 @@ Public Class ClsNominas Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero Me.Usuario = Data.Rows(0)("Usuario").ToString Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDecimal() + Me.SDI = Data.Rows(0)("SDI").ToString.ToDecimal() + Me.SBC = Data.Rows(0)("SBC").ToString.ToDecimal() + End If Retorno = True Catch ex As Exception @@ -2735,7 +2743,7 @@ Public Class ClsNominas End Try Return retorno End Function - + Public Function ReporteVacacionesCalendario(CveProyecto As Integer, CveSubProyecto As Integer, cveEmpresa As Integer, fechaInicio As String, fechaFin As String) As Boolean Dim retorno As Boolean = False Try @@ -3383,7 +3391,7 @@ Public Class ClsNominas End Function #Region "MovtosPermanentes" - Public Function GetMovtoPermanenteRepFechas(cvePersonal As Int32, cveEmpresa As Int32, cveTipo As Int32, cveSaldo As Int32, cveEstatus As Int32, cveConcepto As Int32, STRFechaInicio As String, STRFechaFin As String) As Boolean + Public Function GetMovtoPermanenteRepFechas(cvePersonal As Int32, cveEmpresa As Int32, cveTipo As Int32, cveSaldo As Int32, cveEstatus As Int32, cveConcepto As Int32, STRFechaInicio As String, STRFechaFin As String, Optional CvePeriodo As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_GetMovtoPermanenteRepFechas", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -3393,6 +3401,7 @@ Public Class ClsNominas .Add("@CveSaldo", SqlDbType.Int).Value = cveSaldo .Add("@CveEstatus", SqlDbType.Int).Value = cveEstatus .Add("@CveConcepto", SqlDbType.Int).Value = cveConcepto + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@STRFechaInicio", SqlDbType.VarChar).Value = STRFechaInicio .Add("@STRFechaFin", SqlDbType.VarChar).Value = STRFechaFin End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 8b9eb1449..4e6967359 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8587,12 +8587,10 @@ Public Class ClsPaginas Departamento = drow("NomRDepartamento").ToString() Puesto = drow("NomRPuesto").ToString() End If - RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario)) - RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI)) - RptParametro.Add(New ReportParameter("Departamento", Departamento)) - RptParametro.Add(New ReportParameter("Puesto", Puesto)) 'DATOS NOMINA If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then + SalarioDiario = ObjNomina.SalarioDiario.ToString + SDI = ObjNomina.SDI.ToString RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString)) RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie)) RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString)) @@ -8610,6 +8608,10 @@ Public Class ClsPaginas Else TieneError = True End If + RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario)) + RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI)) + RptParametro.Add(New ReportParameter("Departamento", Departamento)) + RptParametro.Add(New ReportParameter("Puesto", Puesto)) Else TieneError = True End If @@ -9541,6 +9543,14 @@ Public Class ClsPaginas Retorno.CveConcepto = 296 Retorno.CveConceptoComplementario = 227 End Select + Case 19 ' deudores + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 37 + Case 2 'dólares + Retorno.CveConcepto = 382 + Retorno.CveConceptoComplementario = 256 + End Select End Select Else 'cuando es la provisión Select Case CveTipoSaldo @@ -9600,6 +9610,14 @@ Public Class ClsPaginas Retorno.CveConcepto = 295 Retorno.CveConceptoComplementario = 226 End Select + Case 19 ' deudores + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 43 + Case 2 'dólares + Retorno.CveConcepto = 381 + Retorno.CveConceptoComplementario = 256 + End Select End Select End If diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 86c935ff1..a22fce440 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -34,6 +34,7 @@ Public Class ClsProductosServicios Public Property NumeroParte As String Public Property CodigoBarras As String Public Property PS As String + Public Property PSExtranjero As String Public Property Precio As Double Public Property PrecioMinimo As Double Public Property Oferta As Double @@ -245,6 +246,7 @@ Public Class ClsProductosServicios Me.NumeroParte = Data.Rows(0)("NumeroParte").ToString Me.CodigoBarras = Data.Rows(0)("CodigoBarras").ToString Me.PS = Data.Rows(0)("PS").ToString + Me.PSExtranjero = Data.Rows(0)("PSExtranjero").ToString Precio = Data.Rows(0)("Precio").ToString.ToDouble PrecioMinimo = Data.Rows(0)("PrecioMinimo").ToString.ToDouble Oferta = Data.Rows(0)("Oferta").ToString.ToDouble @@ -330,7 +332,6 @@ Public Class ClsProductosServicios With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With Try @@ -402,7 +403,7 @@ Public Class ClsProductosServicios Return Retorno End Function Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer, - AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, + AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, Optional PSExtranjero As String = "-1", Optional CveTipoPS As Integer = -1, Optional FuePorXML As Boolean = True, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1, Optional CveCompuesto As Integer = -1, Optional CveSATPS As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0, @@ -421,8 +422,6 @@ Public Class ClsProductosServicios DataAdapter("PA_ProductosServiciosAdd") With SqlAdapter.SelectCommand.Parameters - - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida @@ -430,6 +429,7 @@ Public Class ClsProductosServicios .Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte) .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras) .Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS) + .Add("@PSExtranjero", SqlDbType.VarChar).Value = If(PSExtranjero.Length > 845, PSExtranjero.Substring(0, 845), PSExtranjero) .Add("@Precio", SqlDbType.Float).Value = Precio .Add("@IVA", SqlDbType.Float).Value = IVA .Add("@RetIVA", SqlDbType.Float).Value = RetIVA @@ -687,7 +687,7 @@ Public Class ClsProductosServicios End Function Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer, - AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1, + AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional PSExtranjero As String = "-1", Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1, Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0, Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, @@ -713,6 +713,7 @@ Public Class ClsProductosServicios .Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte) .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras) .Add("@PS", SqlDbType.VarChar).Value = PS + .Add("@PSExtranjero", SqlDbType.VarChar).Value = PSExtranjero .Add("@Precio", SqlDbType.Float).Value = Precio .Add("@IVA", SqlDbType.Float).Value = IVA .Add("@RetIVA", SqlDbType.Float).Value = RetIVA @@ -734,7 +735,6 @@ Public Class ClsProductosServicios .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - 'Nuevo R: 26/09/2017' .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index f6abba49c..68f28fc66 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3431,7 +3431,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean + Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, CveProveedorCompra As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUtilidadGet") @@ -3447,6 +3447,7 @@ Public Class ClsVentas .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia + .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra End With Try @@ -3461,7 +3462,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean + Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, CveProveedorCompra As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUtilidadDetalleGet") With SqlAdapter.SelectCommand.Parameters @@ -3477,6 +3478,7 @@ Public Class ClsVentas .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia + .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra End With Try @@ -3495,7 +3497,7 @@ Public Class ClsVentas Return Retorno End Function Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer, - CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, EsFilial As Integer) As Boolean + CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, EsFilial As Integer, CveProveedorCompra As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepVentasUtilidadGet") @@ -3513,6 +3515,7 @@ Public Class ClsVentas .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia .Add("@EsFilial", SqlDbType.Int).Value = EsFilial + .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra End With Try SqlAdapter.SelectCommand.CommandTimeout = 0 diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 0cd9c804a..f8f22edd8 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -60,15 +60,20 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal() Dim CveVendedor As Integer = If(context.Request("CveVendedor") IsNot Nothing, context.Request("CveVendedor").ToEntero, -1) Dim CveEstatus As Integer = -1 - Dim ObjOS As New ClsOS - + Dim ObjOS As New ClsOS + + If CveVendedor > 0 AndAlso CveUsuarioPara = -1 Then + Dim tcveu As Integer = ClsPaginas.GlobalDTUsuarios(-1, CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {CveVendedor}").ToEntero + CveUsuarioPara = tcveu + End If + If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, CveVendedor, CveEstatus, CveUsuarioPara, -1, CveEmpresa, CveMedico:=-1, CveProcedimiento:=-1, CveEspecialidad:=-1, CveClienteSucursal:=CveClienteSucursal, CveUsuario:=CveUsuario) Then If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then events = New List(Of CalendarEvent) - For Each dr As DataRow In ObjOS.DtResultados.Rows + For Each dr As DataRow In ObjOS.DtResultados.FiltraParametros("CveOS > 0").Rows Dim cevent As CalendarEvent = New CalendarEvent() cevent.id = dr("CveOS").ToString.ToEntero cevent.title = $" {dr("Tecnico")}-{dr("NombreCliente")}" diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx index 2445fbc2c..6926a6820 100644 --- a/Ashx/E140.ashx +++ b/Ashx/E140.ashx @@ -178,7 +178,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Dim TieneError As Boolean = False Dim CveSubProyecto As String = "11790" Dim JsonRequest As JObject = Nothing - + Dim Bitac As New StringBuilder If context.Request.InputStream IsNot Nothing Then Using reader As New StreamReader(context.Request.InputStream) Dim json = reader.ReadToEnd @@ -190,7 +190,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState End If End Using End If - + Bitac.AppendLine("Inicio Pago ") Dim UsuarioActual As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Dim data As New JArray Dim dtt As New DataTable @@ -204,7 +204,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Dim pCveVenta As Integer = JsonRequest("cveventa").ToString.ToEntero Dim Referencia As String = "" 'validaciones - + Bitac.AppendLine("Validaciones Pago 1.0") Dim ObjVenta As New ClsVentas() Dim ObjClientes As New ClsClientes If ObjVenta.GetVenta(pCveVenta, CveEmpresa) Then @@ -228,6 +228,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState VentaRemision.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal VentaRemision.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero + Bitac.AppendLine("Crear Nueva 1.0") Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, VentaRemision.CveSubProyecto, VentaRemision.CveCliente, VentaRemision.CveMoneda, "Ing") ObjFactura.CveMoneda = VentaRemision.CveMoneda ObjFactura.CveVendedor = dr("CveVendedor").ToString.ToEntero @@ -258,15 +259,15 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState If CvePrePoliza > 0 Then 'registro de venta y pago - + Bitac.AppendLine("Emitir 1.0") Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing - Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta", MostrarURL:=True) + Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Kiosko140/GuardarVenta", MostrarURL:=True) Retorno.Factura = ObjFactura If Retorno IsNot Nothing AndAlso Retorno.CveVenta > 0 Then VentaRemision.CveVenta = ObjFactura.CveVenta 'Respuesta.data = Retorno.SerieFolio - + Bitac.AppendLine("Venta Registada") If TieneError Then Dim sb As New StringBuilder() For Each msg As String In Retorno.Mensajes @@ -274,6 +275,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Next RespuestaError.message = sb.ToString() End If + Bitac.AppendLine("Inicia Registro IE") '11- tdd, 12-tdc Dim CveIE As Integer = ObjIE.AddBancos_IE(CveCuentaBancaria, CveTipoTransaccion, FechaPago, "-1", "", ImportePago, VentaRemision.CveMoneda, VentaRemision.TC, "", "", False, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -288,20 +290,25 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Pago.ImportePago = ImportePago Pago.ImportePagoVenta = ImportePago Pago.Referencia = Referencia - + Bitac.AppendLine("IE Registrado") If MsgError = "" AndAlso ClsPaginas.AplicaPrePolizaPagoVenta(VentaRemision, Pago, CvePrePoliza, ObjConta) Then MsgError = "No se pudo insertar la póliza" End If Else MsgError = "No se pudo insertar el pago" + Bitac.AppendLine("IE NO Registrado") End If Else TieneError = True MsgError = "Falta información para completar la venta." + Bitac.AppendLine("Venta NO Registrado - ") + Bitac.AppendLine(Retorno.Mensajes(0)) End If End If + Bitac.AppendLine("Registrados") + If Not TieneError Then - Dim bytesPDF As Byte() = DescargarFactura(ObjFactura.SerieFolio, CveEmpresa, ObjFactura.CveVenta) 'ClsPaginas.PdfFactura(ObjFactura, AplicaPagare:="0", Guardar:=True, RegenerarQR:=True, EsTicket:=False) + Dim bytesPDF As Byte() = Nothing ' DescargarFactura(ObjFactura.SerieFolio, CveEmpresa, ObjFactura.CveVenta) 'ClsPaginas.PdfFactura(ObjFactura, AplicaPagare:="0", Guardar:=True, RegenerarQR:=True, EsTicket:=False) 'generar el pdf y mandarlo Dim objretorno As New JObject( @@ -313,12 +320,15 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Respuesta.data = data ObjConta.RollBack() 'ObjConta.Commit() + Bitac.AppendLine("Completado.") Else ObjConta.RollBack() + Bitac.AppendLine("NO Completado.") End If ObjConta.Dispose() ObjIE.Dispose() End If + Bitac.ToString.GuardaLog End If ObjVenta.Dispose() ObjClientes.Dispose() diff --git a/Ashx/GenerarPDFFactura.ashx b/Ashx/GenerarPDFFactura.ashx index c6d59baaf..bbd38daae 100644 --- a/Ashx/GenerarPDFFactura.ashx +++ b/Ashx/GenerarPDFFactura.ashx @@ -161,8 +161,8 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Dim rutaReporte As String = "Empresas\Grales\Formatos\FacturaSALI.rdlc" - Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar() - Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID) + ' Dim QR As Byte() 'ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar() + Dim cQr As Byte() = Nothing ' = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID) Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)() parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado)) parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago)) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 12b98c61b..7c63cd39d 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1553,6 +1553,9 @@ Partial Class Bancos_IE If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then CargaIEDevoluciones() End If + + CargaCuentasDepositos() + End Sub #End Region @@ -4084,8 +4087,13 @@ Partial Class Bancos_IE #Region " CUENTAS DEPOSITOS " 'Si la cuenta no esta activa, no la muestra. Private Sub CargaCuentasDepositos() - DdlCuentaDeposito.Items.Clear() + '¿DdlCuentaDeposito.Items.Clear() 'If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout + + DdlCuentaDeposito.ClearSelection() + DdlCuentaDeposito.SelectedValue = Nothing + DdlCuentaDeposito.Items.Clear() + trCuentaDeposito.Visible = False Dim dtc As DataTable = Nothing @@ -4099,73 +4107,165 @@ Partial Class Bancos_IE End If - ' If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then - If dtc IsNot Nothing Then - - If DdlTipoTransaccion.SelectedValue = "9" And CveIE <= -1 Then - - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") - - If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - Else - Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) - End If - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then - - If dtc.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ") - trCuentaDeposito.Visible = True - BtnGuardar.ToolTip = "" - Else - BtnGuardar.Enabled = False - Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) - BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - - End If - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - UpGuardar.Update() - - Else - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") - If dtc.Rows.Count > 0 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - - End If - End If - - Else - - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE <= -1 Then - - BtnGuardar.Enabled = False - Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) - BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - Else - trCuentaDeposito.Visible = True - BtnGuardar.Enabled = True - End If - - UpGuardar.Update() + Dim OpBanco As Integer = 1 + Dim CuentaBanco As String = DdlCuenta.SelectedItem.Text.ToUpper + If CuentaBanco.Contains("BBVA") Or CuentaBanco.Contains("BANCOMER") Then + OpBanco = 1 + 'ElseIf CuentaBanco.Contains("BAJIO") Then + ' OpBanco = 2 + ElseIf CuentaBanco.Contains("SCOTIA") Then + OpBanco = 3 End If + If DdlCuenta.SelectedValue = "-1" Then + BtnGuardar.Enabled = False + trCuentaDeposito.Visible = False + DdlCuentaDeposito.Items.Clear() + 'UpnCuentasPago.Update() + UpCuentaDeposito.Update() + Return + End If + + + '' If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then + 'If dtc IsNot Nothing Then + + ' If DdlTipoTransaccion.SelectedValue = "9" And CveIE <= -1 Then + + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + + ' If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' Else + ' Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + ' End If + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then + + ' If dtc.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ") + ' trCuentaDeposito.Visible = True + ' BtnGuardar.ToolTip = "" + ' Else + ' BtnGuardar.Enabled = False + ' Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + + ' End If + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' UpGuardar.Update() + + ' Else + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + ' If dtc.Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + + ' End If + ' End If + + 'Else + + ' If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE <= -1 Then + + ' BtnGuardar.Enabled = False + ' Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Else + ' trCuentaDeposito.Visible = True + ' BtnGuardar.Enabled = True + ' End If + + ' UpGuardar.Update() + + 'End If + 'If DdlTipoTransaccion.SelectedValue = "9" AndAlso DdlCuentaDeposito.Items.Count = 0 Then ' BtnIEGuardar.Enabled = False 'End If 'GVCuentasPago.DataBind() - DdlCuentaDeposito.DataBind() + 'DdlCuentaDeposito.DataBind() 'Else ' trCuentaDeposito.Visible = False ' DdlCuentaDeposito.Items.Clear() 'End If + + If dtc IsNot Nothing Then + + If DdlTipoTransaccion.SelectedValue = "9" Then + + If OpBanco = 1 Then + If dtc.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + End If + + If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + Else + BtnGuardar.Enabled = False + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + End If + + ElseIf OpBanco = 3 Then + If dtc.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If + + If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + Else + BtnGuardar.Enabled = False + Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + End If + End If + ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + + If OpBanco = 1 Then + If dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + trCuentaDeposito.Visible = True + BtnGuardar.ToolTip = "" + Else + BtnGuardar.Enabled = False + BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + End If + + Else + BtnGuardar.Enabled = False + BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito para layout grupos" + Alert("El proveedor no tiene cuentas deposito para layout grupos.", TipoMensaje.MsgAdvertencia) + End If + + + + Else + 'Respuesta = True + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + DdlCuentaDeposito.DataBind() + + If dtc.Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If + BtnGuardar.Enabled = True + End If + End If + + UpGuardar.Update() UpCuentaDeposito.Update() UpDatos.Update() End Sub diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 10ebf8179..4c3e2325f 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -1,10 +1,12 @@ using Extensiones; using System; +using System.Activities.Expressions; using System.Collections.Generic; using System.Text; using System.Web; using System.Web.UI.WebControls; using static Extensiones.ModExtensiones; +using static Stimulsoft.Report.Export.DeflaterHuffman; public partial class Bancos_PagoDeudor : ClsPaginas { @@ -186,12 +188,10 @@ public partial class Bancos_PagoDeudor : ClsPaginas string MsgError = ""; int CveIE = 0; - int CveConceptoContableBanco = 30; - int CveConceptoContablePrestamo = 43; + int CveConceptoContableBanco = 30; int CvePlantillaPoliza = 45; int CvePrePoliza = 0; - int FolioFijo = 0; - //int IDPoliza = 0; + int FolioFijo = 0; decimal tipoCambio = (CveMonedaPrestamo == 2) ? TxtTCDolaresPrestamo.Text.ToDecimal() : 1; StringBuilder Msg = new StringBuilder(); @@ -225,14 +225,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas { filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase: false); } - + ConceptosTipoSaldo ConPreP = ClsPaginas.get_ObtenerCveConceptoPrePoliza(19, CveMonedaPrestamo, false, -1, ""); // SI ES DOLARES if (CveMonedaPrestamo == 2) - { - // BANCOS - BANCOS COMPLEMENTARIA + { // BANCOS - BANCOS COMPLEMENTARIA if (UsaComplementaria) - { - + { // BANCOS if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(),CveConceptoContableBanco, Ref, Conc, CveIE:CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { @@ -243,7 +241,6 @@ public partial class Bancos_PagoDeudor : ClsPaginas { MsgError = "No se pudo insertar concepto de bancos complementaria"; } - } else { @@ -253,26 +250,24 @@ public partial class Bancos_PagoDeudor : ClsPaginas MsgError = "No se pudo insertar concepto de bancos"; } } - // DEUDORES - DEUDORES COMPLEMENTARIAI if (UsaComplementaria) { - // DEUDOR COMPLEMENTARIA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), 256, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) - { - MsgError = "No se pudo insertar concepto de deudor complementaria"; - } - // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), CveConceptoContablePrestamo, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), ConPreP.CveConcepto, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } + // DEUDOR COMPLEMENTARIA + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, 0, (TxtImportePrestamo.Text.ToDecimal() * tipoCambio) - TxtImportePrestamo.Text.ToDecimal(), ConPreP.CveConceptoComplementario, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + { + MsgError = "No se pudo insertar concepto de deudor complementaria"; + } } else { // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal() * tipoCambio, CveConceptoContablePrestamo, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ConPreP.CveConcepto, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -288,7 +283,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas } // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), CveConceptoContablePrestamo, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), TxtImportePrestamo.Text.ToDecimal(), ConPreP.CveConcepto, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } @@ -461,12 +456,10 @@ public partial class Bancos_PagoDeudor : ClsPaginas protected void DdlProveedores_selectedindexchange(object sender, EventArgs e) { ClsMovimientos ObjMov = new ClsMovimientos(); - ClsCompProveedores proveedores = new ClsCompProveedores(); - - + if (DdlProveedores.SelectedValue.ToEntero() > 0) { - if (ObjMov.GetDeudoresrXSaldar(DdlProveedores.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa)) + if (ObjMov.GetDeudoresSaldosDetalle(DdlProveedores.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa)) { GvMovDeudor.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0 AND Saldo > 0 ", ""); } @@ -478,8 +471,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas TxtImporte.Text = "0.00"; GvMovDeudor.DataBind(); - ObjMov.Dispose(); - proveedores.Dispose(); + ObjMov.Dispose(); UpMovDeudor.Update(); } @@ -507,9 +499,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas string MsgError = ""; int CveIE = 0; int CveConceptoContableBanco = 30; - int CveConceptoContableBancoComplementario = 204; - int CveConceptoContablePago = 37; - int CveConceptoContablePagoComplementaria = 256; + int CveConceptoContableBancoComplementario = 204; int CvePlantillaPoliza = 39; int CvePrePoliza = 0; int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); @@ -519,7 +509,6 @@ public partial class Bancos_PagoDeudor : ClsPaginas decimal importeMN = HdnImporteMN.Value.ToDecimal(); StringBuilder Msg = new StringBuilder(); - //OBTIENE COMPROBANTE !! string Comprobante = ""; List filesgral = Anexo.getfiles().Archivos; @@ -580,6 +569,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas ImporteComplementaria = 0; int tCveMoneda = gvr.DataKey("CveMoneda").ToEntero(); + int PrestamoCveIE = gvr.DataKey("CveIE").ToEntero(); if (CveMoneda == 1 && tCveMoneda == 1) { ImporteMN = Importe; @@ -618,23 +608,22 @@ public partial class Bancos_PagoDeudor : ClsPaginas ImporteMN = ImporteMN.RoundSQL(); ImporteComplementaria = ImporteComplementaria.RoundSQL(); + ConceptosTipoSaldo ConPreP = ClsPaginas.get_ObtenerCveConceptoPrePoliza(19, tCveMoneda, true, -1, ""); if (tCveMoneda != 1) - { - - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, CveConceptoContablePago, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + { + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, ConPreP.CveConcepto, Ref, Conc, CveIE: PrestamoCveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago deudor"; break; } if (UsaComplementaria) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteComplementaria, CveConceptoContablePagoComplementaria, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteComplementaria, ConPreP.CveConceptoComplementario, Ref, Conc, CveIE: PrestamoCveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor complementaria"; } } - if (TC != TCDoc) { int CveConceptoDiferenciaCambiaria = 0; @@ -652,27 +641,22 @@ public partial class Bancos_PagoDeudor : ClsPaginas Importe = (Importe * TC) - (Importe * gvr.DataKey("TipoCambio").ToDecimal()); } ImporteMN = Importe; - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, ImporteMN, CveConceptoDiferenciaCambiaria, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de diferencia cambiaria"; } } - } else { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, CveConceptoContablePago, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, ConPreP.CveConcepto, Ref, Conc, CveIE: PrestamoCveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago deudor"; break; } } - } - } - if (CveMoneda != 1) { if (UsaComplementaria) @@ -710,8 +694,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas } Usuario UA = UsuarioActual; - if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: 10)) - + if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: 10)) { if (ObjMov.ValorPolizaDescuadre > 0) { diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 5951700c0..bde6db7ea 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -569,7 +569,7 @@ Partial Class Bancos_PagoElectronico Header.Append(TipoArchivo.PadRight(2, Space)) 'TIPO ARCHIVO (2) Header.Append("HA") 'TIPO REGISTRO (2) Header.Append("JDF") 'SISTEMA-CENTRAL (3) - Header.Append(NumeroConvenio.PadLeft(7, Space)) 'NUMERO DE CONTRATO (7) ' ocupa 5 dígitos pero en el layout se usa 7 + Header.Append(NumeroConvenio.PadLeft(7, Cero)) 'NUMERO DE CONTRATO (7) ' ocupa 5 dígitos pero en el layout se usa 7 Header.Append(NowADS.ToString("yyyyMMdd")) 'FECHA-SOLICITUD (8) Header.Append("001") 'SECUENCIA (3) Header.Append("M") 'MANTENIMIENTO-O-CONSULTA (1) @@ -594,7 +594,7 @@ Partial Class Bancos_PagoElectronico Dim CuentaDestino As String = "" Dim cuentaDigitos As String = dr("CLABEDestino").ToString.Trim Dim Clabe As String = dr("CLABE").ToString.Trim - Dim limite As String = (900000000 * 100D).ToEntero.ToString("F0") + Dim limite As String = (9000000000 * 100D).ToString("F0") Dim banco As String = dr("CveBanco").ToString.PadLeft(3, Cero) If cuentaDigitos.Length = 11 AndAlso banco = "044" Then @@ -672,10 +672,10 @@ Partial Class Bancos_PagoElectronico trailer.Append(TipoArchivo.PadRight(2, Space)) 'TIPO DE ARCHIVO (2) trailer.Append("TA") 'TIPO DE REGISTRO (2) - trailer.Append(Altas.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) - trailer.Append(Cambios.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) - trailer.Append(Bajas.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS BAJAS (8) - trailer.Append(Consultas.ToString.PadLeft(8, Space)) 'CANTIDAD DE CONSULTAS (8) + trailer.Append(Altas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) + trailer.Append(Cambios.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) + trailer.Append(Bajas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS BAJAS (8) + trailer.Append(Consultas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE CONSULTAS (8) 'MOVIMIENTOS ACEPTADOS trailer.Append("0".PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) *** Respusta de ScotiaBank *** trailer.Append("0".PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) *** Respusta de ScotiaBank *** @@ -957,7 +957,7 @@ Partial Class Bancos_PagoElectronico da.Append("".PadLeft(34, CERO)) ' 105-138 Uso Futuro da.Append("".PadLeft(30, SPACE)) ' 139-168 Clave de Rastreo llenar con espacios en blanco da.Append("".PadLeft(20, SPACE)) ' 169-188 Referencia de Abono Banxico - dm.Append("01") ' 189-190 Tipo de Operación anexo G + dm.Append(" ") ' 189-190 Tipo de Operación anexo G da.Append("".PadLeft(232, SPACE)) ' 191-370 FILLER @@ -1044,35 +1044,35 @@ Partial Class Bancos_PagoElectronico Dim NombreArchivo As String = $"pagos_{NowADS.ToString("ddMMyyyy")}_001.txt" '"pagos_03062025_001.txt" - 'If InsertaEnDB Then + If InsertaEnDB Then - ' Dim ObjBancos As New ClsBancos - ' ObjBancos.IniciaTransacSQL() + Dim ObjBancos As New ClsBancos + ObjBancos.IniciaTransacSQL() - ' Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True) + Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True) - ' If CveLayoutEnvio > 0 Then - ' For Each dr As DataRow In DTPendientes.Rows - ' If dr("CveProveedor").ToString <> "" Or dr("CvePersonal").ToString <> "" Then - ' If Not ObjBancos.AddLayoutEnviosDetalle(CveLayoutEnvio, dr("CveIE").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, 1, "Observaciones") Then - ' ErrorLayout = True - ' Exit For - ' End If - ' End If - ' Next - ' Else - ' ErrorLayout = True - ' End If + If CveLayoutEnvio > 0 Then + For Each dr As DataRow In DTPendientes.Rows + If dr("CveProveedor").ToString <> "" Or dr("CvePersonal").ToString <> "" Then + If Not ObjBancos.AddLayoutEnviosDetalle(CveLayoutEnvio, dr("CveIE").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, 1, "Observaciones") Then + ErrorLayout = True + Exit For + End If + End If + Next + Else + ErrorLayout = True + End If - ' If ErrorLayout Then - ' ObjBancos.RollBack() - ' ObjBancos.Dispose() - ' Else - ' ObjBancos.Commit() - ' ObjBancos.Dispose() - ' End If + If ErrorLayout Then + ObjBancos.RollBack() + ObjBancos.Dispose() + Else + ObjBancos.Commit() + ObjBancos.Dispose() + End If - 'End If + End If Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo) Dim pathDirectorio As String = String.Format("{0}Layout\", UsuarioActual.Empresa.Ruta) @@ -1499,11 +1499,23 @@ Partial Class Bancos_PagoElectronico End If ObjBancos.Dispose() - If DtRegenerar IsNot Nothing Then - GeneraPago(DtRegenerar, CveBLE) - Else - Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError) + If OpBancos = 1 Then + If DtRegenerar IsNot Nothing Then + GeneraPago(DtRegenerar, CveBLE) + Else + Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError) + End If End If + + If OpBancos = 3 Then + If DtRegenerar IsNot Nothing Then + GeneraPagoScotiaBank(DtRegenerar, False) + Else + Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError) + End If + End If + + End Sub #End Region @@ -1900,8 +1912,9 @@ Partial Class Bancos_PagoElectronico ElseIf OpBancos = 2 Then ElseIf OpBancos = 3 Then - If DTPendientes.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND EstatusCtaDeposito = 'True'") IsNot Nothing Then - GeneraPagoScotiaBank(DTPendientes.FiltraParametros("EstatusPagoElectronico > 0 AND EstatusCtaDeposito > 0"), False) + If DTPendientes.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND EstatusCtaDeposito = 'True'") IsNot Nothing AndAlso + DTPendientes.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND EstatusCtaDeposito = 'True'").Rows.Count > 0 Then + GeneraPagoScotiaBank(DTPendientes.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND EstatusCtaDeposito = 'True'"), True) Else Alert("No hay registros para generar pagos en ScotiaBank", TipoMensaje.MsgAdvertencia) End If @@ -2370,6 +2383,8 @@ Partial Class Bancos_PagoElectronico If OpBancos = 3 Then + TextoArreglo = File.ReadAllLines(path:=NombreArchivo) ' Texto.Split(CChar(vbCrLf)) + Dim SBCuentasAltas As New StringBuilder Dim SBErrores As New StringBuilder Dim ErrorArchivoScotia As Boolean = False @@ -2399,6 +2414,7 @@ Partial Class Bancos_PagoElectronico End If Dim ObjBancos As New ClsBancos + ObjBancos.IniciaTransacSQL() For i As Integer = 1 To TextoArreglo.Length - 2 Step 1 @@ -2406,12 +2422,17 @@ Partial Class Bancos_PagoElectronico If Linea.Length = 140 Then - Dim CodigoRespuesta As String = Linea.Substring(0, 3) + Dim CodigoRespuesta As String = Linea.Substring(109, 3) + Dim DTipoArchivo As String = Linea.Substring(0, 2) Dim Cuenta As String = Linea.Substring(12, 20) - 'Dim FechaEliminacion As Date = Linea.Substring(32, 8).ToDate Dim FechaEliminacion As Date = Date.ParseExact(Linea.Substring(32, 8), "yyyyMMdd", Globalization.CultureInfo.InvariantCulture) + If DTipoArchivo <> "SP" Then + SBErrores.Append($"Error Linea {i} el tipo de archivo no es un archivo de respuesta (SP), inicia con codigo {DTipoArchivo}.
") + ErrorArchivoScotia = True + End If + If CodigoRespuesta = "000" Or CodigoRespuesta = " " Then Dim CveCuentaDeposito As Integer = Linea.Substring(40, 50).Trim.ToEntero @@ -2439,11 +2460,16 @@ Partial Class Bancos_PagoElectronico Next If ErrorArchivoScotia Then - Alert($"El archivo presento errores en su procesamiento({SBErrores.Length}). Se dieron de alta {SBCuentasAltas.Length} cuentas.
Altas:
{SBCuentasAltas.ToString}.

Errores:
{SBErrores.ToString}", TipoMensaje.MsgAdvertencia) + ObjBancos.RollBack() + Alert($"El archivo presento errores en su procesamiento({SBErrores.Length}). Correctos {SBCuentasAltas.Length} cuentas.
Altas:
{SBCuentasAltas.ToString}.

Errores:
{SBErrores.ToString}", TipoMensaje.MsgAdvertencia) Else + ObjBancos.Commit() Alert($"El archivo se analizo correctamente y se efectuaron todos los cambios en el sistema. cuentas procesadas:
{SBCuentasAltas.ToString}", TipoMensaje.MsgInformacion) End If + + + ObjBancos.Dispose() End If @@ -2944,6 +2970,8 @@ Partial Class Bancos_PagoElectronico If OpBancos = 3 Then + TextoArreglo = File.ReadAllLines(NombreArchivo) 'Texto.Split(CChar(vbCrLf)) + Dim CveIES As List(Of Integer) = New List(Of Integer) Dim LienasCount As Integer = TextoArreglo.Length Dim SBErrores As New StringBuilder @@ -2956,8 +2984,9 @@ Partial Class Bancos_PagoElectronico End If Dim Header As String = TextoArreglo(0) - Dim HCodigo As String = TextoArreglo(0).Substring(0, 3).Trim - If HCodigo <> "SVH" Then + Dim HCodigo As String = TextoArreglo(0).Substring(35, 3).Trim + Dim HTipoArchivo As String = TextoArreglo(0).Substring(0, 3).Trim + If HTipoArchivo <> "SVH" Then Alert("El archivo no es un archivo de respuesta, debe tener un encabezado con SVH.", TipoMensaje.MsgError) Exit Sub End If @@ -3130,13 +3159,14 @@ Partial Class Bancos_PagoElectronico End If Next Catch ex As Exception - Alert("Ocurrió un error al enviar los correos de notificación.", TipoMensaje.MsgError) + Alert("Ocurrió un error al enviar los correos de notificación.", TipoMensaje.MsgAdvertencia) End Try Alert(Respuesta.ToString, TipoMensaje.MsgInformacion) Else + Alert("Ocurrió un error al procesar el archivo.", TipoMensaje.MsgAdvertencia) objIE.RollBack() End If diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 94f068664..ac144efca 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -442,7 +442,7 @@ Partial Class Bancos_PagoElectronicoGrupos Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") - habilitada = (dr("EstatusPagoElectronicoGruposScotia").ToString = "True") + habilitada = (dr("EstatusPagoElectronicoScotia").ToString = "True") Case Else habilitada = False 'Otros bancos sin bandera propia @@ -689,7 +689,7 @@ Partial Class Bancos_PagoElectronicoGrupos CuentaDepositoSinAlta = True End If - If DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") AndAlso e.Row.DBCampo("EstatusPagoElectronicoGruposScotia").ToString <> "True" Then + If DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") AndAlso e.Row.DBCampo("EstatusPagoElectronicoScotia").ToString <> "True" Then CuentaDepositoSinAlta = True End If diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 5d3eb3332..ee457fcd8 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -774,73 +774,178 @@ Partial Class Bancos_PopIECompras End Sub Private Sub CargaCuentasDepositos() - DdlCuentaDeposito.Items.Clear() - If DdlTipoTransaccion.SelectedValue.Contiene("2", "9", "17") Then ' transferencias y layout - trCuentaDeposito.Visible = False - - Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + 'DdlCuentaDeposito.Items.Clear() - If dtc IsNot Nothing Then + 'If DdlTipoTransaccion.SelectedValue.Contiene("2", "9", "17") Then ' transferencias y layout + ' trCuentaDeposito.Visible = False - If DdlTipoTransaccion.SelectedValue = "9" Then - - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") - - If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - Else - BtnGuardar.Enabled = False - Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) - End If - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + ' Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + ' If dtc IsNot Nothing Then + + ' If DdlTipoTransaccion.SelectedValue = "9" Then + + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + + ' If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' Else + ' BtnGuardar.Enabled = False + ' Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + ' End If + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + + ' If dtc.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc + ' trCuentaDeposito.Visible = True + ' BtnGuardar.ToolTip = "" + ' Else + + ' BtnGuardar.Enabled = False + ' BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + + ' End If + + ' UpGuardar.Update() + + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' Else + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + ' If dtc.Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' End If + ' End If + ' Else + + ' If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then + + ' BtnGuardar.Enabled = False + ' BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Else + ' trCuentaDeposito.Visible = True + ' BtnGuardar.Enabled = True + ' BtnGuardar.ToolTip = "" + ' End If + + ' UpGuardar.Update() + + ' End If + + ' DdlCuentaDeposito.DataBind() + + 'Else + ' trCuentaDeposito.Visible = False + ' DdlCuentaDeposito.Items.Clear() + ' 'TrReferenciaCIE.Visible = False + 'End If + + 'UpCuentaDeposito.Update() + + DdlCuentaDeposito.ClearSelection() + DdlCuentaDeposito.SelectedValue = Nothing + DdlCuentaDeposito.Items.Clear() + + trCuentaDeposito.Visible = False + + + Dim OpBanco As Integer = 1 + Dim CuentaBanco As String = DdlCuenta.SelectedItem.Text.ToUpper + + If CuentaBanco.Contains("BBVA") Or CuentaBanco.Contains("BANCOMER") Then + OpBanco = 1 + 'ElseIf CuentaBanco.Contains("BAJIO") Then + ' OpBanco = 2 + ElseIf CuentaBanco.Contains("SCOTIA") Then + OpBanco = 3 + End If + + If DdlCuenta.SelectedValue = "-1" Then + BtnGuardar.Enabled = False + trCuentaDeposito.Visible = False + DdlCuentaDeposito.Items.Clear() + 'UpnCuentasPago.Update() + UpCuentaDeposito.Update() + Return + End If + + + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + + If dtc IsNot Nothing Then + + If DdlTipoTransaccion.SelectedValue = "9" Then + + If OpBanco = 1 Then If dtc.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = dtc + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + End If + + If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + Else + BtnGuardar.Enabled = False + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + End If + + ElseIf OpBanco = 3 Then + If dtc.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If + + If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + Else + BtnGuardar.Enabled = False + Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + End If + End If + ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + + If OpBanco = 1 Then + If dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) trCuentaDeposito.Visible = True BtnGuardar.ToolTip = "" Else - BtnGuardar.Enabled = False BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - + Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) End If - UpGuardar.Update() - - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - Else - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") - If dtc.Rows.Count > 0 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - End If - End If - Else - - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then - - BtnGuardar.Enabled = False - BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" Else - trCuentaDeposito.Visible = True - BtnGuardar.Enabled = True - BtnGuardar.ToolTip = "" + BtnGuardar.Enabled = False + BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito para layout grupos" + Alert("El proveedor no tiene cuentas deposito para layout grupos.", TipoMensaje.MsgAdvertencia) End If - UpGuardar.Update() - - End If - DdlCuentaDeposito.DataBind() - - Else - trCuentaDeposito.Visible = False - DdlCuentaDeposito.Items.Clear() - 'TrReferenciaCIE.Visible = False + + Else + 'Respuesta = True + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + DdlCuentaDeposito.DataBind() + + If dtc.Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If + + BtnGuardar.Enabled = True + End If End If + 'UpnCuentasPago.Update() + UpGuardar.Update() UpCuentaDeposito.Update() End Sub @@ -896,6 +1001,9 @@ Partial Class Bancos_PopIECompras Banco.Dispose() End If + + CargaCuentasDepositos() + End Sub 'Private Sub DdlOtrosPagos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlOtrosPagos.SelectedIndexChanged diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 86cad07ec..3094fe5e3 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1405,6 +1405,10 @@ Partial Class Bancos_ProveedoresAbonar TxtFolio.Text = "" End If + 'ValidaCuentasDepositoLayouts() + + CargaCuentasDepositos() + 'Dim dr2 As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue) 'If dr2 IsNot Nothing Then @@ -1416,6 +1420,106 @@ Partial Class Bancos_ProveedoresAbonar 'End If End Sub + 'Function ValidaCuentasDepositoLayouts() As Boolean + + ' Dim Respuesta As Boolean = False + ' Dim OpBanco As Integer = 1 + + ' Dim CuentaBanco As String = DdlCuenta.SelectedItem.Text.ToUpper + + ' If CuentaBanco.Contains("BBVA") Or CuentaBanco.Contains("BANCOMER") Then + ' OpBanco = 1 + ' 'ElseIf CuentaBanco.Contains("BAJIO") Then + ' ' OpBanco = 2 + ' ElseIf CuentaBanco.Contains("SCOTIA") Then + ' OpBanco = 3 + ' End If + + + ' Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + + ' If dtc IsNot Nothing Then + + ' If DdlTipoTransaccion.SelectedValue = "9" Then + + ' If OpBanco = 1 Then + ' If dtc.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' End If + + ' If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' Else + ' BtnIEGuardar.Enabled = False + ' Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + ' End If + + ' ElseIf OpBanco = 3 Then + ' If dtc.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'") + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' End If + + ' If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' Else + ' BtnIEGuardar.Enabled = False + ' Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + ' End If + ' End If + ' ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + + ' If OpBanco = 1 Then + ' If dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' Estatus ='True'").Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' Estatus ='True'") + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.ToolTip = "" + ' Else + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' End If + ' 'ElseIf OpBanco = 3 Then + ' ' If dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' Estatus ='True'").Rows.Count > 0 Then + ' ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' Estatus ='True'") + ' ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' ' trCuentaDeposito.Visible = True + ' ' BtnIEGuardar.ToolTip = "" + ' ' Else + ' ' BtnIEGuardar.Enabled = False + ' ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' ' Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' ' End If + ' Else + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito para layout grupos" + ' Alert("El proveedor no tiene cuentas deposito para layout grupos.", TipoMensaje.MsgAdvertencia) + ' End If + + + + ' Else + ' Respuesta = True + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + ' If dtc.Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' End If + ' End If + ' End If + + + + ' UpGuardar.Update() + + ' Return Respuesta + + 'End Function + 'Private Sub CargaGridTarjetas() @@ -1432,20 +1536,120 @@ Partial Class Bancos_ProveedoresAbonar #Region " CUENTAS DEPOSITOS" Private Sub CargaCuentasDepositos() + + DdlCuentaDeposito.ClearSelection() + DdlCuentaDeposito.SelectedValue = Nothing DdlCuentaDeposito.Items.Clear() trCuentaDeposito.Visible = False + 'Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + 'If dtc IsNot Nothing Then + + ' If dtc.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then + + ' If DdlTipoTransaccion.SelectedValue = "9" Then + + ' If dtc.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' End If + + ' If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' Else + ' 'BtnIEGuardar.Enabled = False + ' 'Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + ' End If + + ' ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + + ' If dtc.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.ToolTip = "" + ' Else + ' 'BtnIEGuardar.Enabled = False + ' 'BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' 'Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' End If + ' UpGuardar.Update() + ' Else + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + ' If dtc.Rows.Count > 0 Then + ' trCuentaDeposito.Visible = True + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' End If + ' End If + ' DdlCuentaDeposito.DataBind() + ' Else + + ' If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then + ' 'BtnIEGuardar.Enabled = False + ' 'BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' 'Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' Else + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.Enabled = True + ' BtnIEGuardar.ToolTip = "" + ' End If + ' UpGuardar.Update() + ' End If + 'Else + + ' If DdlTipoTransaccion.SelectedValue = "17" Then + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Else + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.Enabled = True + ' BtnIEGuardar.ToolTip = "" + ' End If + + ' UpGuardar.Update() + 'End If + + 'Else + ' trCuentaDeposito.Visible = False + ' DdlCuentaDeposito.Items.Clear() + 'End If + 'RecargaGlobalCuentasBancarias() + + + Dim OpBanco As Integer = 1 + + Dim CuentaBanco As String = DdlCuenta.SelectedItem.Text.ToUpper + + If CuentaBanco.Contains("BBVA") Or CuentaBanco.Contains("BANCOMER") Then + OpBanco = 1 + 'ElseIf CuentaBanco.Contains("BAJIO") Then + ' OpBanco = 2 + ElseIf CuentaBanco.Contains("SCOTIA") Then + OpBanco = 3 + End If + + If DdlCuenta.SelectedValue = "-1" Then + BtnIEGuardar.Enabled = False + trCuentaDeposito.Visible = False + DdlCuentaDeposito.Items.Clear() + UpnCuentasPago.Update() + UpCuentaDeposito.Update() + Return + End If + + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + If dtc IsNot Nothing Then - If dtc.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then - - If DdlTipoTransaccion.SelectedValue = "9" Then + If DdlTipoTransaccion.SelectedValue = "9" Then + If OpBanco = 1 Then If dtc.Rows.Count > 0 Then DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + DdlCuentaDeposito.DataBind() End If If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then @@ -1456,10 +1660,27 @@ Partial Class Bancos_ProveedoresAbonar Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If - ElseIf DdlTipoTransaccion.SelectedValue = "17" Then - + ElseIf OpBanco = 3 Then If dtc.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If + + If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + Else + BtnIEGuardar.Enabled = False + Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + End If + End If + ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + + If OpBanco = 1 Then + If dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataBind() DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) trCuentaDeposito.Visible = True BtnIEGuardar.ToolTip = "" @@ -1468,47 +1689,39 @@ Partial Class Bancos_ProveedoresAbonar BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) End If - UpGuardar.Update() + 'ElseIf OpBanco = 3 Then + ' If dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' Estatus ='True'").Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True' Estatus ='True'") + ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.ToolTip = "" + ' Else + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) + ' End If Else - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") - If dtc.Rows.Count > 0 Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - End If - End If - DdlCuentaDeposito.DataBind() - Else - - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then BtnIEGuardar.Enabled = False - BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) - Else - trCuentaDeposito.Visible = True - BtnIEGuardar.Enabled = True - BtnIEGuardar.ToolTip = "" + BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito para layout grupos" + Alert("El proveedor no tiene cuentas deposito para layout grupos.", TipoMensaje.MsgAdvertencia) End If - UpGuardar.Update() - End If - Else - If DdlTipoTransaccion.SelectedValue = "17" Then - BtnIEGuardar.Enabled = False - BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + + Else - trCuentaDeposito.Visible = True - BtnIEGuardar.Enabled = True - BtnIEGuardar.ToolTip = "" - End If + 'Respuesta = True + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + DdlCuentaDeposito.DataBind() - UpGuardar.Update() + If dtc.Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If + BtnIEGuardar.Enabled = True + End If End If - 'Else - ' trCuentaDeposito.Visible = False - ' DdlCuentaDeposito.Items.Clear() - 'End If - 'RecargaGlobalCuentasBancarias() + UpGuardar.Update() UpnCuentasPago.Update() UpCuentaDeposito.Update() End Sub diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 293ac5316..dc292aa46 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -17690,9 +17690,9 @@ Partial Class Compras_Compras Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ") If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles - 'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then - ' InicializaAplicaNCFact() - 'End If + If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 And CveCompra <= 0 Then + InicializaAplicaNCFact() + End If End Sub Private Sub OriginalesVisible(Accion As Boolean) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 0299d8c07..5a45b0d80 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -262,12 +262,18 @@ -
+
- - + +
+ + +
+ + + <%----%>
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index c514d4ee2..3bcd172dd 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -349,43 +349,52 @@ Partial Class Compras_ReembolsosComprobaciones DdlCuentaDeposito.SelectedValue = Nothing DdlCuentaDeposito.Items.Clear() - trCuentaDeposito.Visible = False - DdlCuentaDeposito.Enabled = False + DVValidacionesCuentaDeposito.Visible = False + 'trCuentaDeposito.Visible = False + 'DdlCuentaDeposito.Enabled = False Dim CvePersonal As Integer = DdlPersonal.SelectedValue.ToEntero - If CvePersonal > 0 Then + If CvePersonal > 0 And DdlTipoPago.SelectedValue.ToEntero = 1 Then - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then + 'If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Enabled = True + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Enabled = True - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then + Dim Dep As New ClsGenerales + If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then - If DdlTipoTransaccion.SelectedValue = "9" Then - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'") - Else - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'") - End If - - - If Dep.DtResultados.Rows.Count > 0 Then - - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - - End If + If DdlTipoTransaccion.SelectedValue = "9" Then + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'") + ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'") + Else + DdlCuentaDeposito.DataSource = Dep.DtResultados End If - Dep.Dispose() - DdlCuentaDeposito.DataBind() - + 'If Dep.DtResultados.Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + 'End If End If + Dep.Dispose() + DdlCuentaDeposito.DataBind() + + + 'End If + Else + trCuentaDeposito.Visible = False + End If + + + If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then + DVValidacionesCuentaDeposito.Visible = True + Else + End If UpCuentaDeposito.Update() diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb index 8f1a26856..9ba380fa8 100644 --- a/Contabilidad/CatCuentas.aspx.vb +++ b/Contabilidad/CatCuentas.aspx.vb @@ -740,8 +740,9 @@ Partial Class Contabilidad2_CatCuentas Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + Dim dtt As DataTable = DtDatos.Copy().FiltraParametros(" Codigo NOT IN ('_ACTIVO','_BPASIVO','_CAPITAL','_UTILIDAD','_RACREEDOR','_RDEUDOR','_CUADRE','_PASIVO','_ORDEN') ") - ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato) + ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", dtt, params, "Cuentas", Formato) 'ImprimirPDFStimul("Empresas/Grales/Formatos/Cuentas.mrt", DtDatos, params, NombreArchivo:="Cuentas", RDSName:="Cuentas", Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Contabilidad/ContabilidadElectronica.aspx b/Contabilidad/ContabilidadElectronica.aspx index bae52ac34..a07808b12 100644 --- a/Contabilidad/ContabilidadElectronica.aspx +++ b/Contabilidad/ContabilidadElectronica.aspx @@ -18,7 +18,7 @@
-
+
@@ -81,7 +81,15 @@
- +
+
+
+ + Información: + +
+
+
diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index 637c36959..e63a0d6b2 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -109,12 +109,11 @@ Partial Class Contabilidad_ContabilidadElectronica DtCuentas = ObjConpaq.DtResultados End If ObjConpaq.Dispose() - End If If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then - Dim Str As New StringBuilder + Dim Str As New StringBuilder 'CABECERA Str.Append("") Str.Append(" 0 Then - Dim Str As New StringBuilder + If UsuarioActual.CveEmpresa = 119 Then + DtCuentas = DtCuentas.FiltraParametros("Nivel IN (1,2) ") + End If + Dim Str As New StringBuilder 'CABECERA Str.Append("") Str.Append(" @@ -436,7 +436,7 @@
+ DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,CveActivoFijo,Modificado" Width="100%" > Movimiento @@ -744,6 +744,15 @@
+
+
Activo Fijo:
+
+ + + +
+
+
Venta:
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 3df41ca1e..2f2481421 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -392,6 +392,7 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("CveCompra", Type.GetType("System.Int32")) .Add("CveCliente", Type.GetType("System.Int32")) .Add("CveVenta", Type.GetType("System.Int32")) + .Add("CveActivoFijo", Type.GetType("System.Int32")) .Add("CveIE", Type.GetType("System.Int32")) .Add("CveClasificacion", Type.GetType("System.Int32")) .Add("MultipleSubProyecto", Type.GetType("System.Boolean")) @@ -1097,9 +1098,8 @@ Partial Class ContabilidadC_RegPrePolizaS CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=tCveTipoGasto, - CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then + CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveActivoFijo:=gvr.DataKey("CveActivoFijo").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then ContRegInsertados = ContRegInsertados + 1 - Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -1151,7 +1151,6 @@ Partial Class ContabilidadC_RegPrePolizaS ObjContabilidad.IniciaTransacSQL() Try - Dim Retorno As Boolean = ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) If Retorno Then @@ -1194,7 +1193,7 @@ Partial Class ContabilidadC_RegPrePolizaS CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, - TipoCambio:=row.DataKey("TC").ToDecimal, + TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then OcurrioError = True Exit For @@ -1305,6 +1304,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim Abono As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLabel("TxtAbono").Text.ToDecimal Dim PorcentajeImpuesto As Decimal = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToDecimal Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero + Dim CveActivoFijo As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveActivoFijo").ToEntero 'Dim MonedaExtr As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDecimal 'CargaConceptosContablesE() @@ -1350,6 +1350,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlTipoGastoE.SelectedValueExist(CveTipoGasto) CargaCuentasContables() DdlCuentaContableE.SelectedValueExist(CveCuenta) + DdlAF.SelectedValueExist(CveActivoFijo) If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero If Abono <> 0 Then TxtAbonoE.Text = Abono.FormatoNumero @@ -1502,6 +1503,13 @@ Partial Class ContabilidadC_RegPrePolizaS DvModalconceptoCliente.Visible = False End If + If AplicaActivoFijo Then + CargaActivosFijos() + DvModalConceptoActivoFijo.Visible = True + Else + DvModalConceptoActivoFijo.Visible = False + End If + If AplicaBancos AndAlso Not AplicaComplementaria Then TxtCargoE.AutoPostBack = True TxtAbonoE.AutoPostBack = True @@ -1530,6 +1538,8 @@ Partial Class ContabilidadC_RegPrePolizaS Else DivMonedaExtranjera.Visible = False End If + + CargaCuentaConcepto(CveConceptoContableInsertar) End If @@ -1626,6 +1636,15 @@ Partial Class ContabilidadC_RegPrePolizaS DdlClasificacionesE.DataBind() DdlClasificacionesE.Items.Insert(0, New ListItem(" - ", "-1")) End Sub + + Private Sub CargaActivosFijos() + DdlAF.Items.Clear() + DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) + DdlAF.DataBind() + 'DdlAF.setEsWebService(True) + 'DdlAF.Attributes.Add("data-metodo", "getcliente") + + End Sub Private Sub DdlProveedoresE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedoresE.SelectedIndexChanged CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero) End Sub @@ -1722,11 +1741,7 @@ Partial Class ContabilidadC_RegPrePolizaS x = x + 1 Next DtMovimientos.AcceptChanges() - - End If - - dr("CveCuenta") = DdlCuentaContableE.SelectedValue dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text @@ -1743,6 +1758,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero + dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, "")) dr("Modificado") = True dr("TC") = TxtTipoCambio.Text.ToDecimal @@ -1861,6 +1877,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveClasificacion") = -1 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero End If GvMov.DataSource = DtMovimientos GvMov.DataBind() @@ -1888,6 +1905,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero @@ -1932,6 +1950,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveClasificacion") = -1 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero + dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero @@ -1942,9 +1961,7 @@ Partial Class ContabilidadC_RegPrePolizaS GvMov.DataBind() UPMovs.Update() Actualizar = False - End If - End If TxtCargo.Text = "" @@ -2125,6 +2142,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'DdlClientes.txtText.Value = DrM("CveCliente").ToString DdlVentas.SelectedValueExist(DrM("CveVenta").ToString) + DdlAF.SelectedValueExist(DrM("CveActivoFijo").ToString) LbCancelarEdicion.Visible = True LbAgregar.Text = "Actualizar" @@ -2566,7 +2584,6 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.Clear() Exit For End If - End If If CveConceptoContable = 69 Then @@ -2596,6 +2613,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveClasificacion") = CveClasificacion dr("CveCliente") = -1 dr("CveVenta") = -1 + dr("CveActivoFijo") = -1 dr("CveCuenta") = CveCuentaExcel dr("CveTipoGasto") = -1 dr("CvePrePolizaDetalle") = -1 diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index c8b5a5d7e..59c8f5fb0 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -6,7 +6,6 @@ Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms Imports ClosedXML.Excel -Imports Profact.TimbraCFDI40 Imports System.IO Imports System.Drawing Imports System.Web.Services @@ -189,7 +188,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion End If 'Acomoda Deudor y Acreedor - If e.Row.DBCampo("CveTipo") = "1" Then + If e.Row.DBCampo("CveTipo") = "0" Then e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero) e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right") e.Row.FCLabel("LbSaldoActual").Text = " " @@ -434,12 +433,12 @@ Partial Class Contabilidad2_RepBalanzaComprobacion Dim ultimaFila As DataRow = DtDatos.Rows(DtDatos.Rows.Count - 1) - Dim LastSaldoID As Decimal = ultimaFila("SaldoID").ToString.ToDecimal - Dim LastTotalAbonos As Decimal = ultimaFila("TotalAbonos").ToString.ToDecimal - Dim LastTotalCargos As Decimal = ultimaFila("TotalCargos").ToString.ToDecimal - Dim LastSaldoAD As Decimal = ultimaFila("SaldoAD").ToString.ToDecimal - Dim LastSaldoIA As Decimal = ultimaFila("SaldoIA").ToString.ToDecimal - Dim LastSaldoAA As Decimal = ultimaFila("SaldoAA").ToString.ToDecimal + Dim LastSaldoID As Decimal = ultimaFila("SaldoICargo").ToString.ToDecimal + Dim LastTotalAbonos As Decimal = ultimaFila("Abonos").ToString.ToDecimal + Dim LastTotalCargos As Decimal = ultimaFila("Cargos").ToString.ToDecimal + Dim LastSaldoAD As Decimal = ultimaFila("SaldoFCargo").ToString.ToDecimal + Dim LastSaldoIA As Decimal = ultimaFila("SaldoIAbono").ToString.ToDecimal + Dim LastSaldoAA As Decimal = ultimaFila("SaldoFAbono").ToString.ToDecimal WSReporte.Cell(CuerrentRow, 2).Value = "Sumas Iguales" WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoID diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 679812716..9125c4783 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -393,7 +393,43 @@ public partial class Contabilidad_RepIVA : ClsPaginas if (k > 0) { bool flag = true; - excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00"; + switch (NombreHoja) + { + case "IVA Trasladado": + //FECHAS,FOLIOS, NUM CUENTA + if (!excelWorksheet.Columns[k + 1].Name.Contiene("B","L","C","P","Q")) + { + excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00"; + } + //FOLIOS + if (excelWorksheet.Columns[k + 1].Name.Contiene("C", "M")) + { + excelWorksheet.Columns[k + 1].Style.HorizontalAlignment = HorizontalAlignmentStyle.Left; + } + break; + case "IVA Acreditable": + //FECHAS,FOLIOS, NUM CUENTA + if (!excelWorksheet.Columns[k + 1].Name.Contiene("D","E","Y","Z","AA","AB")) + { + excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00"; + } + //FOLIO BANCARIO + if (excelWorksheet.Columns[k + 1].Name.Contiene("AA","AB")) + { + excelWorksheet.Columns[k + 1].Style.NumberFormat = "0"; + excelWorksheet.Columns[k + 1].Style.HorizontalAlignment = HorizontalAlignmentStyle.Left; + } + //FOLIOS + if (excelWorksheet.Columns[k + 1].Name.Contiene("E", "Z")) + { + excelWorksheet.Columns[k + 1].Style.HorizontalAlignment = HorizontalAlignmentStyle.Left; + } + break; + default: + break; + } + + try { excelWorksheet.Columns[k].AutoFit(1.0); diff --git a/General/Dashboard.aspx b/General/Dashboard.aspx index 925336a3a..ea5a5d5e3 100644 --- a/General/Dashboard.aspx +++ b/General/Dashboard.aspx @@ -22,6 +22,7 @@ } .table td, .table th { + padding: 2px; } @@ -371,7 +372,9 @@ max-height: 170px; } - + #containerC_gvResumenSucursales tr.stickyRow th{ + white-space:nowrap !important; + } /* Estilos para el header */ @@ -405,12 +408,35 @@ background-color: #f8f9fa !important; font-weight: bold; } + + .header-flex { + display: flex !important; + flex-direction: row !important; + align-items: center !important; + gap: 6px; +} + + element.style { + display: flex +; + flex-direction: row; + align-items: center; +} /* .gvMaxHeight{ max-height: 160px; overflow: auto; } */ + .thcenternowrap th{ + text-align:center; + white-space:nowrap + } + .thcenternowrap th div{ + display:inline-block !important; + text-align:center; + white-space:nowrap + } @@ -475,7 +501,7 @@
-
+
Venta Anual -
- - -
+ + <%----%> + +
@@ -514,7 +540,7 @@ -
+
Utilidad Anual
@@ -529,7 +555,7 @@ -
+
Venta Mensual
@@ -544,7 +570,7 @@ -
+
Utilidad Mensual
@@ -581,7 +607,7 @@
@@ -689,7 +715,7 @@
@@ -800,7 +826,7 @@
@@ -907,7 +933,7 @@
@@ -1016,7 +1042,7 @@
@@ -1123,7 +1149,7 @@
@@ -1233,7 +1259,7 @@
@@ -1368,7 +1394,7 @@
@@ -1456,7 +1482,7 @@
@@ -1548,7 +1574,7 @@
@@ -1618,7 +1644,7 @@
@@ -1695,7 +1721,7 @@
@@ -1801,7 +1827,7 @@
@@ -1910,7 +1936,7 @@
@@ -2016,7 +2042,7 @@
@@ -2147,7 +2173,7 @@
@@ -2233,7 +2259,7 @@
@@ -2322,7 +2348,7 @@
@@ -2390,9 +2416,9 @@ Pagos por Proveedor
-
+
@@ -2483,22 +2509,26 @@ - - diff --git a/Nomina/RepMovtosPermanentes.aspx.cs b/Nomina/RepMovtosPermanentes.aspx.cs index 81e63b937..4ce3246a7 100644 --- a/Nomina/RepMovtosPermanentes.aspx.cs +++ b/Nomina/RepMovtosPermanentes.aspx.cs @@ -8,6 +8,8 @@ using System.Web.UI; using System.Web.UI.WebControls; using ClosedXML.Excel; using Extensiones; +using Profact.TimbraCFDI40; +using static Extensiones.ModExtensiones; public partial class Nomina_RepMovtosPermanentes : ClsPaginas { @@ -70,6 +72,39 @@ public partial class Nomina_RepMovtosPermanentes : ClsPaginas } } + protected void DdlEjercicios_SelectedIndexChanged(object sender, EventArgs e) + { + cargaPeriodos(); + } + + protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e) + { + cargaPeriodos(1); + } + private void cargaPeriodos(int tipo = 0) + { + int tipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero(); + int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); + DataTable dtPeriodos = null; + if (DdlTipoPeriodo.SelectedValue.ToEntero() > 0) + { + using (ClsNominas objperiodos = new ClsNominas()) + { + if (objperiodos.GetPeriodos(tipoPeriodo, UsuarioActual.CveEmpresa, ejercicio, -1, -1)) + { + + dtPeriodos = objperiodos.DtResultados.FiltraParametros("Estatus IN (1,2,3,4,5)"); + } + } + } + DdlPeriodo.DataSource = dtPeriodos; + DdlPeriodo.DataBind(); + DdlPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1")); + if (tipo == 1 && dtPeriodos != null && dtPeriodos.Rows.Count > 0) + { + DdlPeriodo.SelectedValue = dtPeriodos.Rows[0]["CvePeriodo"].ToString(); + } + } protected void CargaCombos() { DDlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); @@ -88,6 +123,20 @@ public partial class Nomina_RepMovtosPermanentes : ClsPaginas DDLSaldo.SelectedValueExist(RcveSaldo.ToString()); DDLEstatus.SelectedValueExist(RcveEstatus.ToString()); DDLConcepto.SelectedValueExist(RcveConcepto.ToString()); + + + DataTable dtejercicio = null; + using (ClsNominas objnom = new ClsNominas()) + { + if (objnom.GetEjercicios(UsuarioActual.CveEmpresa)) + { + dtejercicio = objnom.DtResultados; + } + } + DdlEjercicios.DataSource = dtejercicio; + DdlEjercicios.DataBind(); + DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa); + DdlTipoPeriodo.DataBind(); } protected void cargardatos() { @@ -95,7 +144,8 @@ public partial class Nomina_RepMovtosPermanentes : ClsPaginas { //string fechaInicio = ""; //string fechaFin = ""; - ObjGetM.GetMovtoPermanenteRepFechas(RcvePersonal, UsuarioActual.CveEmpresa, RcveTipo, RcveSaldo, RcveEstatus, RcveConcepto, fechaInicio.ToDateTime().ToString("yyyy-MM-dd"), fechaFin.ToDateTime().ToString("yyyy-MM-dd")); + int CvePeriodo = DdlPeriodo.SelectedValue.ToEntero() > 0 ? DdlPeriodo.SelectedValue.ToEntero() : -1; + ObjGetM.GetMovtoPermanenteRepFechas(RcvePersonal, UsuarioActual.CveEmpresa, RcveTipo, RcveSaldo, RcveEstatus, RcveConcepto, fechaInicio.ToDateTime().ToString("yyyy-MM-dd"), fechaFin.ToDateTime().ToString("yyyy-MM-dd"), CvePeriodo); GVGetMovtoPermanenteRep.DataSource = ObjGetM.DtResultados; GVGetMovtoPermanenteRep.DataBind(); diff --git a/Nomina/ReportedeAcumulados.aspx b/Nomina/ReportedeAcumulados.aspx index f846f0ce2..f6af883fd 100644 --- a/Nomina/ReportedeAcumulados.aspx +++ b/Nomina/ReportedeAcumulados.aspx @@ -337,6 +337,13 @@ + + Días Pagados + + + + + Días IMSS diff --git a/Nomina/ReportedeAcumulados.aspx.cs b/Nomina/ReportedeAcumulados.aspx.cs index 76d441dfe..cb9b30d12 100644 --- a/Nomina/ReportedeAcumulados.aspx.cs +++ b/Nomina/ReportedeAcumulados.aspx.cs @@ -197,7 +197,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas //string ctipo = "P"; - int CurrentColumn = 7; + int CurrentColumn = 8; BoundField bf; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows) { diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 367f50a7d..e616d5fbc 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -343,8 +343,8 @@ Partial Class OS_OrdenesServicios CargaPS(-1, DdlPSDetalle) CargaPsMateriales() 'CargaClasificaciones() - CargaPSCaracteristicasOpciones() - CargaCuentasCaracteristicas() + 'CargaPSCaracteristicasOpciones() + 'CargaCuentasCaracteristicas() CargaAlmacen() CargaModelos() @@ -847,14 +847,13 @@ Partial Class OS_OrdenesServicios If Row("Estatus").ToString = "Activo" Then Estatus = True Else Estatus = False If Row("SeSuperviso").ToString = "Sí" Then SeSuperviso = True Else SeSuperviso = False - CargaMaterialesDetalle(CveOsDetalle, IDOSDetalle, IDOSDetalle) For Each R As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", IDOSDetalle)).Rows If Materiales = "-1" Then Materiales = "" Else Materiales = Materiales + "
" Materiales = Materiales + String.Format("{0} {1}", R("Cantidad").ToString, R("PS").ToString) Next - CargaEspecificaciones(CveOsDetalle, IDOSDetalle, IDOSDetalle) + 'CargaEspecificaciones(CveOsDetalle, IDOSDetalle, IDOSDetalle) For Each R As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", IDOSDetalle)).Rows If Especificaciones = "-1" Then Especificaciones = "" Else Especificaciones = Especificaciones + "," Especificaciones = Especificaciones + String.Format("{0}:{1}:{2}:{3}:{4}:{5}", R("CveCaracteristica").ToString, R("Caracteristica").ToString, R("CveCaracteristicaTipo"), R("CveOpcion").ToString, R("Opcion").ToString, R("Valor").ToString) @@ -3112,11 +3111,20 @@ Partial Class OS_OrdenesServicios '---------------- FIN VALIDACIONES ----------------- - Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero + 'Validación solo para que no sean uso de material + Dim ValidaPU As String = "" + If Not DdlTipoVenta.SelectedValue.Contiene("5") Then ValidaPU = "PU > 0" + + Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual", ValidaPU).ToEntero 'PU>0, para indicar que solo los productos que no se han retornado. Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero Dim CveVentaRemisionGenerada As Integer = -1 + If CveAlmacenActual <= 0 Then + Alert("No se pudo determinar el almacen del material", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim ObjV As New ClsVentas Dim ObjOS As New ClsOS(ObjV.IniciaTransacSQL()) Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL()) @@ -3774,6 +3782,11 @@ Partial Class OS_OrdenesServicios Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) + CancelarOS() + + End Sub + + Private Sub CancelarOS() Dim CveEstatusOrdenServicioCancelacion As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", " TipoEstatus = 5 ").ToEntero Dim CveAlmacenDevolucion As Integer Dim CveMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMotivoCancelacion", "CveSATMotivoCancelacion IN (3)").ToEntero @@ -3836,7 +3849,6 @@ Partial Class OS_OrdenesServicios Catch ex As Exception Alert("Se presento un error al cancelar la orden de servicio") End Try - End Sub Private Sub CancelarRemision(CveVenta As Integer, CveAlmacenDevolucion As Integer, CvePedido As Integer) @@ -3848,6 +3860,12 @@ Partial Class OS_OrdenesServicios Exit Sub End If + 'If DdlTipoVenta.SelectedValue.Contiene("5", "6") Then + ' CancelarOS() 'uso de material + ' Exit Sub + 'End If + + Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True) Try Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing @@ -3869,7 +3887,7 @@ Partial Class OS_OrdenesServicios Dim HuboError As Boolean = False If Not resp.HuboError Then - If resp.CveEstatus = 12 Then + If resp.CveEstatus.Contiene(12) Then '12 - Rem - Cancelado, 14 - Pedido - cancelado Dim cveoo As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", $" TipoEstatus = 3").ToEntero If objos.UpdateOrdenesServiciosEstatus(cveoo, UsuarioActual.CveUsuario, CveOS) Then 'retornar el estatus de la OS, @@ -3879,9 +3897,13 @@ Partial Class OS_OrdenesServicios Else HuboError = True End If + ElseIf resp.CveEstatus.Contiene(14) Then ' 14 - Pedido - cancelado + If Not ObjVenta.UpdateVentasDevolucionAlmacen(1, CvePedido) Then + HuboError = True + End If Else - 'si tiene pagos - HuboError = True + + HuboError = True 'si tiene pagos End If Else HuboError = True diff --git a/RH/CatChecadores.aspx.cs b/RH/CatChecadores.aspx.cs index 7e3ca781d..cb3c9138b 100644 --- a/RH/CatChecadores.aspx.cs +++ b/RH/CatChecadores.aspx.cs @@ -42,7 +42,10 @@ public partial class RH_CatChecadores : ClsPaginas ObjRH.Dispose(); GvDatos.DataBind(); - GvDatos.HeaderRow.Cells[1].Text = LblSubProyecto.Text; + if(GvDatos.HeaderRow != null && GvDatos.HeaderRow.Cells.Count > 0) + { + GvDatos.HeaderRow.Cells[1].Text = LblSubProyecto.Text; + } } private void CargaSubProyectos() diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 46bd7688c..ef72b2980 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -77,9 +77,6 @@ Partial Class Boletos Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then - - - If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then Response.Redirect("/Transportes/RepViajes.aspx") End If @@ -204,9 +201,7 @@ Partial Class Boletos Else ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL End If - ImporteR = If(edad <= 4 Or edad >= 60, ImporteR - 20, ImporteR) - End If If ImporteR > 0 Then @@ -256,8 +251,6 @@ Partial Class Boletos Try For Each dr As DataRow In DtPasajeros.Rows - - Dim CveViajePasajero As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, dr("CveDestinoOrigen").ToString.ToEntero, dr("CveDestinoFinal").ToString.ToEntero, UsuarioActual.CveVendedor, dr("Importe").ToString.ToDecimal, dr("Asiento").ToString.ToEntero, dr("Nombre").ToString, dr("FechaNacimiento").ToString.ToDate, dr("CveSexo").ToString.ToBool, dr("Visa").ToString, dr("Celular").ToString, dr("Observaciones").ToString, UsuarioActual.CveUsuario) If CveViajePasajero < 1 Then @@ -265,7 +258,6 @@ Partial Class Boletos SbAlert.Append("Ocurrió un error al generar el viaje") Exit For End If - dr("CveViajePasajero") = CveViajePasajero 'dr("Numero") = dr("Importe").ToString Next @@ -490,6 +482,7 @@ Partial Class Boletos ObjFactura.CveSubProyectoEjecucion = CveSubProyecto ObjFactura.SetSubProyecto() ObjFactura.SetSubProyectoMatriz() + If ObjFactura.CveMoneda >= 2 Then ObjFactura.TipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToDecimal For Each Dr As DataRow In DtPasajeros.Rows Dim Obs As String = Dr("Observaciones").ToString @@ -501,7 +494,6 @@ Partial Class Boletos End If Dim PorcentajeIVA As Decimal = 0 - Dim DrPS As DataRow = ClsPaginas.GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSBoleto).FiltroPrimero("") ' Estado = -1 If DrPS Is Nothing Then @@ -544,7 +536,4 @@ Partial Class Boletos Return Retorno End Function - - - End Class diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb index cbf1d8755..01126181c 100644 --- a/Ventas/CatMedicos.aspx.vb +++ b/Ventas/CatMedicos.aspx.vb @@ -2,6 +2,8 @@ Option Strict On Imports Extensiones +Imports ADSNetLibrary.SIGAPI.Models.CRM.Request +Imports ADSNetLibrary.SIGAPI.Services.CRM Partial Class Ventas_CatMedicos Inherits ClsPaginas @@ -18,8 +20,6 @@ Partial Class Ventas_CatMedicos End Set End Property - - Public Property CveMedicoEspecialidad As Integer Get If ViewState("CveMedicoEspecialidad") Is Nothing Then @@ -50,24 +50,49 @@ Partial Class Ventas_CatMedicos If Not Page.IsPostBack Then + If (Request("CveEmpresaCRM") IsNot Nothing) Then + ' ICRMService CRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString) + 'RequestEmpresasCRM parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM); + 'var objServicio = cRMService.GetEmpresasCRM(parametros); + 'If (objServicio.Result.Count > 0) Then + ' { + ' EsEditar = True; + ' LblEncabezadoEmpresa.Text = String.Format("Consulta de la Empresa: {0}", objServicio.Result[0].Empresa); + ' TxtNombreEmpresa.Text = objServicio.Result[0].Empresa; + ' TxtRFC.Text = objServicio.Result[0].RFC; + ' DdlTipoProceso2.SelectedValueExist(objServicio.Result[0].CveTipoProceso); + ' CargaMetodosCaptacion(); + ' TxtCorreoEmpresaCRM.Text = objServicio.Result[0].Correo; + ' DdlMedioCaptacion.SelectedValueExist(objServicio.Result[0].CveMedioCaptacion); + ' CveEncuestaAplicada = objServicio.Result[0].CveEncuestaAplicada > 0 ? objServicio.Result[0].CveEncuestaAplicada.ToEntero() : -1; + ' CveVendedor = objServicio.Result[0].CveVendedorAsignado.ToEntero(); + ' CveSubProyecto = objServicio.Result[0].CveSubProyecto.ToEntero(); + ' CveCliente = objServicio.Result[0].CveCliente.ToEntero(); + ' CveGiroClasificacion = objServicio.Result[0].CveGiroClasificacion > 0 ? objServicio.Result[0].CveGiroClasificacion.ToEntero() : -1; + ' If (!(CveCliente > 0)) Then + ' { + ' HplCrearCliente.Visible = True; + ' HplCrearCliente.NavigateUrl = String.Format("/Ventas/Clientes.aspx?CveEmpresaCRM={0}", CveEmpresaCRM); + ' If (UsuarioActual.Empresa.Funcionalidad(578) == "1") Then + ' { + ' HplCrearCliente.Text = "Crear Médico"; + ' HplCrearCliente.NavigateUrl = String.Format("/Ventas/CatMedicos.aspx?CveEmpresaCRM={0}", CveEmpresaCRM); + ' } + ' } + + RegistraScript("$('#DvModalAddMedico').modal({ backdrop: 'static', keyboard: false });") + End If CargaCombos() CargaDatos() BtnConsultar_Click(Nothing, Nothing) - - - End If - End Sub - Public Sub CargaDatos() - Dim ObjVentas As New ClsVentas - If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1) Then If UsuarioActual.CveVendedor > 0 Then @@ -75,23 +100,15 @@ Partial Class Ventas_CatMedicos Else GvDatos.DataSource = ObjVentas.DtResultados End If - - - Else GvDatos.DataSource = Nothing End If ObjVentas.Dispose() - GvDatos.DataBind() - ValidaExcelTab() - UpDatos.Update() - - End Sub 'Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click @@ -166,8 +183,6 @@ Partial Class Ventas_CatMedicos End Sub #End Region - - Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs) AddMedicoControl.CveMedico = -1 @@ -188,8 +203,6 @@ Partial Class Ventas_CatMedicos - - 'TxtMedico.Text = GvRow.DataKey("Medico") 'TxtCedulaProfecional.Text = GvRow.DataKey("CedulaProfesional") 'TxtFechaNacimiento.Text = GvRow.DataKey("FechaNacimiento").ToDate().ToString("dd/MM/yyyy") @@ -239,8 +252,6 @@ Partial Class Ventas_CatMedicos DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) End If - - txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString txtFechaF.Text = NowADS().ToShortDateString @@ -254,7 +265,6 @@ Partial Class Ventas_CatMedicos Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) - Dim objVentas As New ClsVentas Dim CveVendedor As Integer = If(UsuarioActual.CveVendedor > 0, UsuarioActual.CveVendedor, -1) Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 9fea22034..a1ac6178e 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -241,7 +241,12 @@ Partial Class Ventas_ClientesAbonar Me.CveCorte = CargaCorteCaja(-1, UsuarioActual) End If - RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy") + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToString("dd/MM/yyyy") + Else + RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy") + End If + If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then LnkAccionesModalSeleccionLayout.Visible = True End If @@ -439,7 +444,9 @@ Partial Class Ventas_ClientesAbonar TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago") - GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") + If UsuarioActual.CveEmpresa = 186 Then TmpCxCAux = TmpCxCAux.AsEnumerable.Take(200).CopyToDataTable() 'Limitar a 100 registros para evitar problemas de rendimiento + + GvCxC.DataSource = TmpCxCAux.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") CveMoneda = pCveMoneda End If @@ -698,20 +705,21 @@ Partial Class Ventas_ClientesAbonar Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click + GenerarPago() 'VERIFICA SI HAY CORTE ANTES DE HACER EL PAGO - If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then - Dim ObjPVenta As New ClsPuntoVenta - If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then - DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}") - DdlCorteCaja.DataBind() - End If - ObjPVenta.Dispose() - DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) - UpModalCorte.Update() - RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')") - Else - GenerarPago() - End If + 'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then + ' Dim ObjPVenta As New ClsPuntoVenta + ' If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then + ' DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}") + ' DdlCorteCaja.DataBind() + ' End If + ' ObjPVenta.Dispose() + ' DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' UpModalCorte.Update() + ' RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')") + 'Else + ' GenerarPago() + 'End If End Sub Protected Sub BtnGenerarPago_Click(sender As Object, e As EventArgs) Handles BtnGenerarPago.Click @@ -2893,9 +2901,13 @@ Partial Class Ventas_ClientesAbonar End Sub Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init - RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString - Calendario.EndDate = NowADS() - + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString + Calendario.EndDate = NowADS().AddDays(2) + Else + RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString + Calendario.EndDate = NowADS() + End If End Sub diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 5d6a9c720..67455a4b5 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -1358,7 +1358,6 @@ Partial Class Ventas_PVCobranza RemisionesLista.Add(VentaRemision.CveVenta) Dim DtRemisionesPS As New DataTable() - Dim DtPagosFacturaGlobal As New DataTable() If ObjClientes.GetVentasRemisionesTotales(VentaRemision.CveCliente, VentaRemision.CveVenta.ToString(), 1, UsuarioActual.CveEmpresa) Then DtRemisionesPS = ObjClientes.DtResultados.Copy() @@ -1399,6 +1398,21 @@ Partial Class Ventas_PVCobranza If GvRow.DataKey("Tipo").Contiene("NC", "IxC", "Ant") AndAlso GvRow.FCCheckBox("Chk" & GvRow.RowIndex) IsNot Nothing AndAlso GvRow.FCCheckBox("Chk" & GvRow.RowIndex).Checked Then Dim CveFormaPagoAnt = GvRow.DataKey("CveFormaPago").ToEntero() + + If GvRow.DataKey("Tipo").Contiene("Ant") Then + 'SI NO ES AMORTIZACION DE ANTICIPO + If Not CveFormaPagoAnt = 21 Then + CveFormaPagoAnt = 21 + End If + End If + + 'If GvRow.DataKey("Tipo").Contiene("NC") Then + ' 'SI NO ES AMORTIZACION DE ANTICIPO o DEVOLUCION + ' If Not CveFormaPagoAnt.Contiene(21, 11) Then + ' CveFormaPagoAnt = 21 + ' End If + 'End If + Dim Importe = GvRow.FCTextBox(String.Format("TxtAnticipo{0}", GvRow.RowIndex)).Text.ToDecimal() DtPagos.Rows.Add({CveFormaPagoAnt, Importe}) @@ -1423,17 +1437,22 @@ Partial Class Ventas_PVCobranza If TxtImporteEfectivo.Text.ToDecimal > 0 Then Dim tpag As Decimal = LtlSaldo.Text.ToDecimal - PagadoSinEfectivo If TxtImporteEfectivo.Text.ToDecimal < tpag Then tpag = TxtImporteEfectivo.Text.ToDecimal - DtPagos.Rows.Add({1, tpag}) + + If tpag > 0 Then + DtPagos.Rows.Add({1, tpag}) + End If End If Dim PagoMaximo = DtPagos.MAX("Importe") Dim CveFormaPago As Integer = DtPagos.FiltroPrimeroValor("CveFormaPago", $"Importe = {PagoMaximo}").ToEntero() + If CveFormaPago > 0 Then ObjFactura.CveFormaPago = CveFormaPago ObjFactura.CveMetodoPago = 1 ObjFactura.ClaveMetodoPagoSAT = "PUE" ObjFactura.ClaveFormaPagoSAT = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjFactura.CveFormaPago}") End If + ObjFactura.FechaPago = Now 'venta de cantado el mismo dia Else 'venta a crédito @@ -2331,19 +2350,23 @@ Partial Class Ventas_PVCobranza DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("") End If ObjVentas.Dispose() - Dim tTipoDocto As String + + Dim tTipoDocto As String = "" + Dim PorcentajeIVA As Decimal = -1 + If DbRowVenta IsNot Nothing Then CveCliente = DbRowVenta("CveCliente").ToString().ToEntero() CveVendedor = DbRowVenta("CveVendedor").ToString().ToEntero() tTipoDocto = DbRowVenta("TipoDocto").ToString() + PorcentajeIVA = DbRowVenta("PorcentajeIVA").ToString().ToDecimal() End If If CveCliente > 0 Then - CargaAnticipos(CveCliente, tTipoDocto) + CargaAnticipos(CveCliente, tTipoDocto, PorcentajeIVA) End If End Sub - Private Sub CargaAnticipos(CveCliente As Integer, TipoDocto As String) + Private Sub CargaAnticipos(CveCliente As Integer, TipoDocto As String, PorcentajeIVA As Decimal) If CveCliente > 0 Then Dim ObjMovtos As New ClsMovimientos() If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then @@ -2355,7 +2378,8 @@ Partial Class Ventas_PVCobranza If TipoDocto = "Ant" Then TipoAnticipo = " 'IxC' " If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then - GVAnticipos.DataSource = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"ISTotal = 0 AND Saldo > 0 AND Tipo IN ({TipoAnticipo}) ") + GVAnticipos.DataSource = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"ISTotal = 0 AND Saldo > 0 AND Tipo IN ({TipoAnticipo}) AND (PorcentajeIVA = {PorcentajeIVA} OR Tipo = 'IxC')") + 'GVAnticipos.DataSource = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"ISTotal = 0 AND Saldo > 0 AND Tipo IN ({TipoAnticipo})") Else GVAnticipos.DataSource = Nothing End If diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index f9011af81..1ead86d18 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -285,6 +285,17 @@
+ +
+
+
+ + + +
+
+
+
@@ -1882,15 +1893,12 @@ - - -
+   -
+ CssClass="btn btn-circle btn-sm red" Text="" />
+
+ Proveedor: +
+
+ +
@@ -256,15 +262,15 @@ - - - - - - + + + + + + - - + + diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 687557038..220472136 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/Ventas/RepVentasUtilidad.aspx.vb @@ -73,6 +73,11 @@ Partial Class Ventas_RepVentasUtilidad 'Carga Productos DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) DdlPS.SelectedText = "Todos" @@ -99,6 +104,7 @@ Partial Class Ventas_RepVentasUtilidad Dim CveCategoria As String = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString Dim CvePS As String = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS") <> "", Request("CvePS"), "-1").ToString Dim CveMarca As String = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca") <> "", Request("CveMarca"), "-1").ToString + Dim CveProveedorCompra As Integer = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra") <> "", Request("CveProveedorCompra"), "-1").ToString.ToEntero DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto) DdlVendedor.SelectedValuesIfExistM(CveVendedor) @@ -117,6 +123,11 @@ Partial Class Ventas_RepVentasUtilidad DdlMarcas.SelectedValueExist(CveMarca) + If CveProveedorCompra > 0 Then + DdlProveedores.SelectedValue = CveProveedorCompra.ToString + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorCompra).FiltroPrimeroValor("RazonSocial", "").ToString + End If + txtFechaI.Text = FechaI txtFechaF.Text = FechaF @@ -164,7 +175,7 @@ Partial Class Ventas_RepVentasUtilidad Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString - If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then + If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then DtVentas = ObjVentas.DtResultados GvDatos.DataSource = ObjVentas.DtResultados GvDatos.DataBind() @@ -244,9 +255,8 @@ Partial Class Ventas_RepVentasUtilidad e.Row.Cells(15).ToolTip = "Factura sin pago registrado" End If - - Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}", - e.Row.DBCampo("CveVenta"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("FechaI").ToDate, e.Row.DBCampo("FechaF").ToDate, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("Orden"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion")) + Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}", + e.Row.DBCampo("CveVenta"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("FechaI").ToDate, e.Row.DBCampo("FechaF").ToDate, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("Orden"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), -1, e.Row.DBCampo("CveProveedorCompra")) e.Row.FCHyperLink("HLCosto").NavigateUrl = Liga e.Row.FCHyperLink("HlGanancia").NavigateUrl = Liga e.Row.FCHyperLink("HlPorGanancia").NavigateUrl = Liga @@ -316,7 +326,7 @@ Partial Class Ventas_RepVentasUtilidad Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString - If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then + If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then Dim FechaInicio As String = txtFechaI.Text Dim FechaFin As String = txtFechaF.Text diff --git a/Ventas/RepVentasUtilidadDetalle.aspx b/Ventas/RepVentasUtilidadDetalle.aspx index dc2597cf4..0c916ed82 100644 --- a/Ventas/RepVentasUtilidadDetalle.aspx +++ b/Ventas/RepVentasUtilidadDetalle.aspx @@ -216,7 +216,12 @@
- +
+ Proveedor: +
+
+ +
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb index dda14fbed..82d5ab49d 100644 --- a/Ventas/RepVentasUtilidadDetalle.aspx.vb +++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb @@ -98,6 +98,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle Orden = IfNull(Request("Orden"), "-1").ToString.ToEntero CvePS = IfNull(Request("CvePS"), "-1").ToString.ToEntero CveClasificacion = IfNull(Request("CveClasificacion"), "-1").ToString.ToEntero + CargaCombos() CargaDatos() @@ -122,9 +123,9 @@ Partial Class Ventas_RepVentasUtilidadDetalle Private Sub CargaCombos() 'Carga Clientes - DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientes.DataBind() - If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente) + 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlClientes.DataBind() + 'If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente) 'CargaSubProyectos DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) @@ -140,6 +141,11 @@ Partial Class Ventas_RepVentasUtilidadDetalle DdlVendedor.Enabled = False End If + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + 'Carga Productos DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") @@ -158,14 +164,21 @@ Partial Class Ventas_RepVentasUtilidadDetalle DdlMarcas.DataBind() DdlMarcas.Items.Insert(0, New ListItem("Todas", "-1")) + Dim CveProveedorCompra As Integer = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra") <> "", Request("CveProveedorCompra"), "-1").ToString.ToEntero + + If CveProveedorCompra > 0 Then + DdlProveedores.SelectedValue = CveProveedorCompra.ToString + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorCompra).FiltroPrimeroValor("RazonSocial", "").ToString + End If + 'Cargo Clasificaciones DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() DdlClasificacion.SelectedValueExist(CveClasificacion) DdlPS.SelectedValue = CvePS.ToString - If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then - DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString + If CvePS.ToEntero > 0 AndAlso GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then + DdlPS.SelectedText = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString Else DdlPS.SelectedText = "Todos" End If @@ -178,7 +191,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, If(CveVenta = -1, Orden, CveVenta), DdlClientes.SelectedValue.ToEntero, Sucursales, - FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then + FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then DtVentas = ObjVentas.DtResultados GvDatos.DataSource = ObjVentas.DtResultados GvDatos.DataBind() @@ -299,7 +312,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales, - FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then + FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then Dim FechaInicio As String = txtFechaI.Text Dim FechaFin As String = txtFechaF.Text @@ -357,7 +370,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales, - FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then + FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then Dim FechaInicio As String = txtFechaI.Text Dim FechaFin As String = txtFechaF.Text diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index f46aebd0c..f73dec580 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -136,6 +136,7 @@ +
@@ -200,6 +201,12 @@
+
+ Proveedor: +
+
+ +
@@ -243,7 +250,7 @@ DataKeyNames="" CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="100%" OnRowDataBound="GvDatos_RowDataBound"> - + <%-- diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index 9b41dca55..0ca159b91 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -2,7 +2,6 @@ Option Strict On Imports System.Data -Imports System.Drawing Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Ventas_RepVentasUtilidadPadre @@ -82,6 +81,11 @@ Partial Class Ventas_RepVentasUtilidadPadre DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + 'Carga Vendedor DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() @@ -161,7 +165,7 @@ Partial Class Ventas_RepVentasUtilidadPadre If ObjVentas.GetReportePadreVentasUtilidad(If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM), DdlClientesWS.SelectedValue.ToEntero, If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM), txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, - DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero, DdlFilial.SelectedValue.ToEntero) Then + DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero, DdlFilial.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados End If @@ -276,9 +280,9 @@ Partial Class Ventas_RepVentasUtilidadPadre e.Row.CssClass = "Totales" e.Row.Cells(0).Text = "Total" Dim Css As String = "Texto" - Dim Liga As String = String.Format("/Ventas/RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}", + Dim Liga As String = String.Format("/Ventas/RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}&CveProveedorCompra={11}", e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria")) + e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveProveedorCompra")) e.Row.Cells(0).Text = String.Format("{2}", Css, Liga, e.Row.Cells(0).Text) 'e.Row.Cells(3).Text = @@ -358,7 +362,7 @@ Partial Class Ventas_RepVentasUtilidadPadre If TxtModalFechaInicio.Text = "" Then FechaI = MinFecha If TxtModalFechaFin.Text = "" Then FechaF = MaxFecha - If ObjVentas.GetReporteVentasUtilidad("-1", -1, "-1", FechaI, FechaF, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1) Then + If ObjVentas.GetReporteVentasUtilidad("-1", -1, "-1", FechaI, FechaF, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1) Then GvPorcentajes.DataSource = ObjVentas.DtResultados.FiltraParametros($" CveVenta > 0 AND PorNeto <= {TxtModalPorcentaje.Text.ToDecimal} AND TipoDocto = 'Ing' AND CveEstatusFactura IN(2,3) ") End If diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx index 9b420eaeb..1e8124359 100644 --- a/asmx/WS_PuntoVenta.asmx +++ b/asmx/WS_PuntoVenta.asmx @@ -1397,11 +1397,11 @@ Public Class WS_PuntoVenta Dim objInventario As New ClsInventarios Dim Respuesta As New RespuestaWS - If objInventario.GetConceptoSAT() Then - Respuesta.Datos = objInventario.DtResultados '.FiltraParametros(String.Format("CveVendedor={0}", CveEmpresa)) - Respuesta.Datos.TableName = "Inv_Conceptos" - Respuesta.HuboError = False - End If + 'If objInventario.GetConceptoSAT() Then + ' Respuesta.Datos = objInventario.DtResultados '.FiltraParametros(String.Format("CveVendedor={0}", CveEmpresa)) + ' Respuesta.Datos.TableName = "Inv_Conceptos" + ' Respuesta.HuboError = False + 'End If objInventario.Dispose() Return Respuesta