diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 40d578ba6..aeab054b8 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1106,9 +1106,16 @@ Public Class ClsBancos dttpagosimpuestos = DtResultados End If + + Dim FechaPago As Date = dr("FechaDocumento").ToString.ToDate + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + FechaPago = dr("FechaEmision").ToString.ToDate + End If + Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago, - dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal, + FechaPago, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal, UsuarioActual.Empresa.CP, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString) @@ -1480,7 +1487,7 @@ Public Class ClsBancos Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1, - Optional AnticipoPuntual As Boolean = False) As Integer + Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1522,6 +1529,7 @@ Public Class ClsBancos .Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual + .Add("@FechaEmision", SqlDbType.Date).Value = FechaEmision End With Try diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index 5c81d9f0c..6bc2a73ac 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -273,7 +273,7 @@ Public Class ClsClasificaciones End Function Public Function AddClasificaciones(Clasificacion As String, Codigo As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False, - Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean + Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1, Optional PorMaximoDescuento As Decimal = 0) As Boolean Dim Retorno As Boolean = False Me.CveClasificacion = -1 @@ -302,6 +302,7 @@ Public Class ClsClasificaciones .Add("@TopCompras", SqlDbType.Bit).Value = TopCompras .Add("@TopVentas", SqlDbType.Bit).Value = TopVentas .Add("@PrecioBaseCosto", SqlDbType.Money).Value = PrecioBaseCosto + .Add("@PorMaximoDescuento", SqlDbType.Money).Value = PorMaximoDescuento .Add("@CveClasificacion", SqlDbType.Int).Direction = ParameterDirection.Output @@ -371,7 +372,7 @@ Public Class ClsClasificaciones End Function Public Function UpdateClasificacion(Clasificacion As String, Codigo As String, Estatus As Boolean, Afectable As Boolean, CveCategoria As Integer, CveUsuario As Integer, CveClasificacion As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True, - Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean + Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1, Optional PorMaximoDescuento As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionesUpdate") @@ -400,6 +401,7 @@ Public Class ClsClasificaciones .Add("@TopCompras", SqlDbType.Bit).Value = TopCompras .Add("@TopVentas", SqlDbType.Bit).Value = TopVentas .Add("@PrecioBaseCosto", SqlDbType.Money).Value = PrecioBaseCosto + .Add("@PorMaximoDescuento", SqlDbType.Money).Value = PorMaximoDescuento End With diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 4c914b2eb..bd34dbf6f 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -67,7 +67,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa, GenerarMenu:=False) UsuarioActual.CveEmpresa = CveEmpresa HttpContext.Current.Session("UsuarioSIG") = UsuarioActual CreaObjetoEmpresa(UsuarioActual) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index e606c32b5..dde388876 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -811,6 +811,19 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim retorno As String = "" Dim DtRetorno As DataTable = Nothing + Dim Estatus = IfNull(context.Request("estatus"), "-1").ToString.ToEntero + + Dim filtro As String = "" + + If Estatus = 1 Then + filtro = " Estatus = 'Activo' " + End If + + If Estatus = 0 Then + filtro = " Estatus = 'Inactivo' " + End If + + Dim usuario As Usuario = UsuarioActual(context) Dim CveEmpresa As Integer If IsNothing(usuario) Then @@ -819,7 +832,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa) + Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa).FiltraParametros(filtro) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then DtRetorno = dt.FiltraParametros(String.Format("NombreCortoProveedor like '%{0}%'", Name)) End If diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index e99be126b..7542fe598 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -488,7 +488,7 @@ Partial Class Bancos_DepositosCaja Private Function ValidaCobranza() As Boolean Dim Respuesta As Boolean = False - If UsuarioActual.CveEmpresa.Contiene(195) Then + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then Dim ObjMovtos As New ClsMovimientos() Dim FechaI, FechaF As Date @@ -504,7 +504,7 @@ Partial Class Bancos_DepositosCaja Respuesta = True Else Respuesta = False - Alert("Se detectaron cobros pendientes.", TipoMensaje.MsgAdvertencia) + Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia) End If Else diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 14c0c445b..3aa0660a9 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3636,9 +3636,9 @@ Partial Class Bancos_IE End If 'Apartado Nueva Modalidad de INGPC Charlie - If RBL.SelectedValue = "C" AndAlso Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("INGPC", "DEV") Then - DivIvaIxC.Visible = True - End If + 'If RBL.SelectedValue = "C" AndAlso Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("INGPC", "DEV") Then + ' DivIvaIxC.Visible = True + 'End If UpDatos.Update() diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index e2eb1826e..7326ad20b 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -7,6 +7,10 @@ .row { margin: 0 -10px; } + .calendar-extender-popup { + position: absolute; + z-index: 10000; /* Asegura que se muestre sobre otros elementos */ + } @@ -535,10 +539,44 @@ - - diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 1b32c63d8..f8f7db127 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1110,6 +1110,18 @@ Partial Class Bancos_PopIEVentas #Region "G U A R D A R" Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + Dim FechaEmision As Date = MinFecha + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + FechaEmision = TxtFechaEmision.Text.ToDate + + If FechaEmision <= MinFecha Then + Alert("Fecha de Emisión no valida", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + If ChkComplementoPago.Checked Then Dim objGral As New ClsGralFolios Dim SalirDeMetodo As Boolean = False @@ -1248,7 +1260,9 @@ Partial Class Bancos_PopIEVentas Select Case RBLContado.SelectedValue Case "1" ' Banco - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte) + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", + True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, + Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte, FechaEmision:=FechaEmision) If CveIE > 0 Then Pago.ImportePago = ImportePagado @@ -1523,4 +1537,11 @@ Partial Class Bancos_PopIEVentas End Sub + + Protected Sub ChkComplementoPago_CheckedChanged(sender As Object, e As EventArgs) + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + DvFechaEmision.Visible = ChkComplementoPago.Checked + UpGuardar.Update() + End If + End Sub End Class \ No newline at end of file diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 0143f8297..091ecb714 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -230,6 +230,13 @@ Partial Class Bancos_RepCortes If UsuarioActual.CveEmpresa.Contiene(190, 192) Then DivIVA.Visible = True GvPorIVA.DataSource = DsDatos.Tables(2) + Dim tsum As Decimal = DsDatos.Tables(2).SUMD("IVA16") + DsDatos.Tables(2).SUMD("IVA0") + If Math.Abs(tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal) > 1 Then + GvPorIVA.ForeColor = Drawing.Color.Red + GvPorIVA.ToolTip = (tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal).ToString + Else + GvPorIVA.ForeColor = Drawing.Color.Black + End If End If End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7f44dc9dc..8480b35d7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6,6 +6,7 @@ Imports System.Xml Imports System.Diagnostics Imports System.Globalization Imports System.IO +Imports System.IO Imports System.Threading.Tasks Imports Newtonsoft.Json Imports Extensiones @@ -11735,7 +11736,42 @@ Partial Class Compras_Compras End Sub Protected Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged CambiaTipoPago(True) + + ValidaRegistroSinXML() + End Sub + + Private Sub ValidaRegistroSinXML() + + If CveFactura <= 0 And CveCompra <= 0 Then + + If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then + If Not ValidaCierrePeriodo() Then + Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia) + BtnGuardar.Visible = False + UpFacturar.Update() + Exit Sub + End If + End If + + If UsuarioActual.TienePermisoProceso(365) Then + + BtnGuardar.Visible = False + + If RBLPago.SelectedValue.ToEntero = 3 Then + BtnGuardar.Visible = True + End If + + Else + BtnGuardar.Visible = True + End If + + End If + + UpFacturar.Update() + + End Sub + Private Sub CambiaTipoPago(MostrarModal As Boolean) DdlPersonalReembolso.Visible = False DdlCuentaCajaChicaReembolso.Visible = False diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 62058d6e8..ce220c9b3 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1602,6 +1602,7 @@ Partial Class PopUpVerFactura If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("CveCorte > 0") + Fecha = DtReporteCorte.FiltroPrimeroValor("FechaInicial", "") End If If ObjVenta.GetVta_MovimientosCajas(CveCorte, -1) Then diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 2182ca3a2..e253acd5f 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -1156,6 +1156,60 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1244,6 +1298,60 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1390,6 +1498,60 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1414,12 +1576,6 @@ - - - - - - diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 3b5505acb..3b821ada9 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -4,10 +4,8 @@ Option Strict On Imports System.Data Imports System.Drawing Imports System.IO -Imports DocumentFormat.OpenXml.VariantTypes Imports Extensiones Imports GemBox.Spreadsheet -Imports Microsoft.Reporting.WebForms Partial Class Contabilidad_RepEstadoResultadosHorizontal Inherits ClsPaginas @@ -2149,9 +2147,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") - - - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub diff --git a/Empresas/Grales/Formatos/RepAnt-NC-IXC.rdlc b/Empresas/Grales/Formatos/RepAnt-NC-IXC.rdlc index 8e9f7001e..af774b409 100644 --- a/Empresas/Grales/Formatos/RepAnt-NC-IXC.rdlc +++ b/Empresas/Grales/Formatos/RepAnt-NC-IXC.rdlc @@ -1,1273 +1,5 @@  - - - - - - - - - - - true - true - - - - - Cliente - - - - - - - Textbox28 - - - - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 1.4429cm - - - 1.39526cm - - - 1.23593cm - - - 1.42752cm - - - 1.53107cm - - - 1.35467cm - - - 1.34587cm - - - 1.52634cm - - - 1.22649cm - - - - - 0.46771cm - - - - - true - true - - - - - =Fields!OriginalAnticipos.Value - - - - - - - OriginalAnticipos - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!AplicadoAnticipos.Value - - - - - - - AplicadoAnticipos - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TotalAnticipos.Value - - - - - - - TotalAnticipos - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!OriginalNC.Value - - - - - - - OriginalNC - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!AplicadoNC.Value - - - - - - - AplicadoNC - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TotalNC.Value - - - - - - - TotalNC - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!OriginalIXC.Value - - - - - - - OriginalIXC - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!AplicadoIXC.Value - - - - - - - AplicadoIXC - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TotalIXC.Value - - - - - - - TotalIXC - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.46771cm - - - true - true - - - - - Original - - - - - - - Textbox6 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Aplicado - - - - - - - Textbox4 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Saldo - - - - - - - Textbox40 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Original - - - - - - - Textbox13 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Aplicado - - - - - - - Textbox15 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Saldo - - - - - - - Textbox42 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Original - - - - - - - Textbox17 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Aplicado - - - - - - - Textbox19 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - true - true - - - - - Saldo - - - - - - - Textbox44 - - - Gray - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 7.10109cm - - - true - true - - - - - =IIF(CInt(Fields!CveCliente.Value) < 1, IIF(CInt(Fields!CveMoneda.Value) = 1, "Total Pesos", "Total Dolares"), Fields!NombreComercial.Value) - - - - - - - Folio - - - =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet1 - 1.71125cm - 0.06614cm - 0.93542cm - 19.58715cm - - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - - - - - Textbox1 - 0.07056cm - 0.06614cm - 0.58236cm - 19.58715cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Anticipos - - - - - - - Textbox22 - 1.04069cm - 7.16723cm - 0.6cm - 4.03881cm - 2 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - NC X Aplicar - - - - - - - Textbox22 - 1.04069cm - 11.24132cm - 0.6cm - 4.27799cm - 3 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ingresos X Comprobar - - - - - - - Textbox22 - 1.04069cm - 15.55459cm - 0.6cm - 4.0987cm - 4 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - 1.10756in - - - - - - - Textbox1 - 2.43857cm - 0.6cm - 14.68354cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE ANTICIPOS - NC X APLICAR - INGRESOS X COMPROBAR - - - - - - - - - - - - - - - - Textbox2 - 0.63528cm - 2.40329cm - 0.52945cm - 14.68354cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 1.08126cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.40041cm - 16.97887cm - 0.68085cm - 2.06587cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Globals.PageNumber = Globals.TotalPages, "Usuario: ", "") - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Globals.PageNumber = Globals.TotalPages, Parameters!UsuarioImprimio.Value, "") - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Globals.PageNumber = Globals.TotalPages, "Fecha Impresión: ", "") - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Globals.PageNumber = Globals.TotalPages, Parameters!FechaImpresion.Value, "") - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.4429cm + + + 1.39526cm + + + 1.23593cm + + + 1.42752cm + + + 1.53107cm + + + 1.35467cm + + + 1.34587cm + + + 1.52634cm + + + 1.22649cm + + + + + 0.46771cm + + + + + true + true + + + + + =Fields!OriginalAnticipos.Value + + + + + + + OriginalAnticipos + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AplicadoAnticipos.Value + + + + + + + AplicadoAnticipos + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TotalAnticipos.Value + + + + + + + TotalAnticipos + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!OriginalNC.Value + + + + + + + OriginalNC + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AplicadoNC.Value + + + + + + + AplicadoNC + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TotalNC.Value + + + + + + + TotalNC + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!OriginalIXC.Value + + + + + + + OriginalIXC + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AplicadoIXC.Value + + + + + + + AplicadoIXC + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TotalIXC.Value + + + + + + + TotalIXC + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.46771cm + + + true + true + + + + + Original + + + + + + + Textbox6 + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Aplicado + + + + + + + Textbox4 + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Saldo + + + + + + + Textbox40 + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Original + + + + + + + Textbox13 + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Aplicado + + + + + + + Textbox15 + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Saldo + + + + + + + Textbox42 + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Original + + + + + + + Textbox17 + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Aplicado + + + + + + + Textbox19 + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Saldo + + + + + + + Textbox44 + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 7.10109cm + + + true + true + + + + + =IIF(CInt(Fields!CveCliente.Value) < 1, IIF(CInt(Fields!CveMoneda.Value) = 1, "Total Pesos", "Total Dolares"), Fields!NombreComercial.Value) + + + + + + + Folio + + + =IIF(CInt(Fields!CveCliente.Value) < 1, "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet1 + 1.71125cm + 0.06614cm + 0.93542cm + 19.58714cm + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + + Textbox1 + 0.07056cm + 0.06614cm + 0.58236cm + 19.58715cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Ingresos X Comprobar + + + + + + + Textbox22 + 1.04069cm + 15.55459cm + 0.6cm + 4.0987cm + 2 + + =IIF(Parameters!MostarIngresosxComprobar.Value = "0",True,False) + + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + true + + + + + Anticipos + + + + + + + Textbox22 + 0.6cm + 4.03881cm + + =IIF(Parameters!MostarAnticipos.Value = "0",True,False) + + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + true + 1.04069cm + 7.20603cm + 0.6cm + 4.03881cm + 3 + + + + + + + + true + + + + + NC X Aplicar + + + + + + + Textbox22 + 0cm + 0.6cm + 4.27799cm + + =IIF(Parameters!MostarNCxAplicar.Value = "0",True,False) + + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + true + 1.04069cm + 11.26954cm + 0.6cm + 4.27799cm + 4 + + + + + + 1.46173in + + + + + + + Textbox1 + 2.43857cm + 0.6cm + 14.68354cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE ANTICIPOS - NC X APLICAR - INGRESOS X COMPROBAR + + + + + + + + + + + + + + + + Textbox2 + 0.63528cm + 2.40329cm + 0.52945cm + 14.68354cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 1.08126cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.40041cm + 16.97887cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, "Usuario: ", "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, Parameters!UsuarioImprimio.Value, "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, "Fecha Impresión: ", "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, Parameters!FechaImpresion.Value, "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + @@ -29,7 +35,7 @@ - +
@@ -125,6 +131,15 @@
+
+ +
+
+ +
+
+ +
diff --git a/Ventas/RepAnticipo-NC-IXC.aspx.cs b/Ventas/RepAnticipo-NC-IXC.aspx.cs index 2cd819006..021cee834 100644 --- a/Ventas/RepAnticipo-NC-IXC.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXC.aspx.cs @@ -146,7 +146,14 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); para.Add(new ReportParameter("FechaImpresion", NowADS().ToString())); - para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Sucursal}{FechaI}{FechaF}{FechaICorte}{FechaFCorte}")); + para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Sucursal}{FechaI}{FechaF}{FechaICorte}{FechaFCorte}")); + + + + para.Add(new ReportParameter("MostarAnticipos", ChkAnticipos.Checked ?"1":"0" )); + para.Add(new ReportParameter("MostarNCxAplicar", ChkNCxAplicar.Checked ? "1" : "0")); + para.Add(new ReportParameter("MostarIngresosxComprobar", ChkIngresosxComprobar.Checked ? "1" : "0")); + if (Imagen.Exists) { para.Add(new ReportParameter("LogoPath", logouri)); diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index 0b3c08446..c3d496d27 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -233,6 +233,9 @@ + + + diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index ebf3144c8..2e58d4ef0 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -252,7 +252,7 @@ Partial Class Ventas_RepVentasUtilidadPadre 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.Cells(0).Text = String.Format("{2}", Css, Liga, e.Row.Cells(0).Text) Else - e.Row.Cells(10).BackColor = Drawing.Color.LightGray + e.Row.Cells(12).BackColor = Drawing.Color.LightGray End If
- + + + + + + +
+ + + +
+ + + +
Fecha Emisión: +
+ + + + +
+ + + + + + +
+
+
+ + + + + 		+ +