From 7b383e30c1b1fb4ddbdd48a70247f98763e686f0 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 8 Oct 2019 12:27:29 -0700 Subject: [PATCH 1/4] DdlPlantillas cargar todo en 120 --- Contabilidad/RegPrePoliza.aspx.vb | 160 ++++++++++++++++-------------- 1 file changed, 84 insertions(+), 76 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 0d3eefe4f..c7290769b 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -165,9 +165,9 @@ Partial Class ContabilidadC_RegPrePoliza Set(value As Integer) ViewState("IdPoliza") = value End Set - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -186,79 +186,80 @@ Partial Class ContabilidadC_RegPrePoliza Dim dt As DataTable = Nothing ' If UsuarioActual.Empresa.UsaContabilidad Then - Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) - - If Conta.GetCuentas(-1, "-1", 1) Then - dt = Conta.DtResultados - DtCuentasContables = Conta.DtResultados - Session("DtCuentas") = Conta.DtResultados - End If - Conta.Dispose() - - If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then - DivTipoGasto.Visible = True - ThTipoGasto.Visible = True - CargaTiposGasto() - End If - - If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then - ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero - CreaDT() - CargaPrePoliza() - If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then - GvPrePoliza.Columns(4).Visible = False - GvConcepto.Columns(4).Visible = False - GvMov.Columns(5).Visible = False - End If - Exit Sub - Else - CreaDT() - BtnEliminar.Visible = False - End If - - - TipoPlantilla = 0 - If IfNull(Request("Tipo"), "").ToString = "Ing" Then - TipoPlantilla = 1 - LblEncabezado.Text = "Otros Ingresos" - End If - - CargaPlantillas(TipoPlantilla) - - If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True - - CargaConceptos() - CargaSubProyectos() - CargaCuentasContables() - - 'crea tabla temporal - ArregloMovs = New ArrayList - - CargaCuentas() - - If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then - ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero - ViewState("CveProyecto") = Request("CveProyecto").ToEntero - ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero - ViewState("CveTurno") = Request("CveTurno").ToEntero - - DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61")) - DdlPlantilla.SelectedValue = "61" - DdlPlantilla.Enabled = False - DivAgregarConceptos.Visible = False - - CargaNomina() - - RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1) - RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2) - RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3) - End If - - If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then - GvPrePoliza.Columns(3).Visible = False - GvConcepto.Columns(3).Visible = False - GvMov.Columns(4).Visible = False - End If + Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) + + If Conta.GetCuentas(-1, "-1", 1) Then + dt = Conta.DtResultados + DtCuentasContables = Conta.DtResultados + Session("DtCuentas") = Conta.DtResultados + End If + Conta.Dispose() + + If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then + DivTipoGasto.Visible = True + ThTipoGasto.Visible = True + CargaTiposGasto() + End If + + If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then + ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero + CreaDT() + CargaPrePoliza() + If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then + GvPrePoliza.Columns(4).Visible = False + GvConcepto.Columns(4).Visible = False + GvMov.Columns(5).Visible = False + End If + Exit Sub + Else + CreaDT() + BtnEliminar.Visible = False + End If + + + TipoPlantilla = 0 + + If IfNull(Request("Tipo"), "").ToString = "Ing" Then + TipoPlantilla = 1 + LblEncabezado.Text = "Otros Ingresos" + End If + + CargaPlantillas(TipoPlantilla) + + If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True + + CargaConceptos() + CargaSubProyectos() + CargaCuentasContables() + + 'crea tabla temporal + ArregloMovs = New ArrayList + + CargaCuentas() + + If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then + ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero + ViewState("CveProyecto") = Request("CveProyecto").ToEntero + ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero + ViewState("CveTurno") = Request("CveTurno").ToEntero + + DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61")) + DdlPlantilla.SelectedValue = "61" + DdlPlantilla.Enabled = False + DivAgregarConceptos.Visible = False + + CargaNomina() + + RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1) + RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2) + RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3) + End If + + If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then + GvPrePoliza.Columns(3).Visible = False + GvConcepto.Columns(3).Visible = False + GvMov.Columns(4).Visible = False + End If 'Else ' Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) @@ -271,6 +272,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub + Private Sub CreaDT() DtMovimientos = New DataTable("Movimientos") Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True @@ -502,7 +504,13 @@ Partial Class ContabilidadC_RegPrePoliza 'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) 'GvPlantillas.DataBind() - DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) + If UsuarioActual.CveEmpresa.Contiene(120) Then + DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1) + Else + DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) + End If + + DdlPlantilla.DataBind() DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53")) End Sub From ebf65180cb22288981ad906512da36f054194cd5 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 8 Oct 2019 13:40:45 -0700 Subject: [PATCH 2/4] Formatos de Grids en Proveedores --- .../RepProveedoresComprasPagadas.rdlc | 1195 +++++++++++++++ .../Formatos/RepProveedoresCtasBancarias.rdlc | 1341 +++++++++++++++++ .../Formatos/RepProveedoresCxPActivas.rdlc | 1277 ++++++++++++++++ .../RepProveedoresHistorialCompras.rdlc | 1188 +++++++++++++++ .../Formatos/RepProveedoresNCxAplicar.rdlc | 867 +++++++++++ 5 files changed, 5868 insertions(+) create mode 100644 Empresas/Grales/Formatos/RepProveedoresComprasPagadas.rdlc create mode 100644 Empresas/Grales/Formatos/RepProveedoresCtasBancarias.rdlc create mode 100644 Empresas/Grales/Formatos/RepProveedoresCxPActivas.rdlc create mode 100644 Empresas/Grales/Formatos/RepProveedoresHistorialCompras.rdlc create mode 100644 Empresas/Grales/Formatos/RepProveedoresNCxAplicar.rdlc diff --git a/Empresas/Grales/Formatos/RepProveedoresComprasPagadas.rdlc b/Empresas/Grales/Formatos/RepProveedoresComprasPagadas.rdlc new file mode 100644 index 000000000..7bb6af778 --- /dev/null +++ b/Empresas/Grales/Formatos/RepProveedoresComprasPagadas.rdlc @@ -0,0 +1,1195 @@ + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.93848cm + + + 2.03567cm + + + 2.05941cm + + + 1.81083cm + + + 2.57937cm + + + 2.63993cm + + + 1.15279cm + + + 2.12518cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Días Venc + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Orig + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % Pagado + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cheque + + + + + + + Textbox6 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!Original.Value + + + + + + + Original + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abonado.Value + + + + + + + Abonado1 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorPagado.Value + + + + + + + Textbox5 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioPago.Value + + + + + + + FolioPago + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + HISTORIAL DE COMPRAS PAGADAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.19765cm + + + 1.45359cm + + + 2.05941cm + + + 1.81083cm + + + 1.65333cm + + + 2.15604cm + + + 1.28417cm + + + 2.19105cm + + + 1.83854cm + + + 1.54967cm + + + 1.67385cm + + + + + 0.6cm + + + + + true + true + + + + + Banco + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + # Suc. + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Num. Cuenta + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLABE + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SWIFT + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Plaza + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CIE + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Referencia + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cred. Prov. + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!BancoNombre.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Sucursal.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cuenta.Value + + + + + + + Cuenta + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CLABE.Value + + + + + + + CLABE + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SWIFT.Value + + + + + + + SWIFT + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Plaza.Value + + + + + + + Plaza + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CIE.Value + + + + + + + CIE + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Referencia.Value + + + + + + + Referencia + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RefCrediProveedor.Value + + + + + + + RefCrediProveedor + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Estatus.Value + + + + + + + Estatus + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.86813cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CUENTAS BANCARIAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 2.19765cm + + + 2.03567cm + + + 2.05941cm + + + 1.81083cm + + + 2.15604cm + + + 2.28833cm + + + 2.05146cm + + + 2.19105cm + + + 1.15279cm + + + 1.89843cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venc + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Días Venc + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Orig + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % Abonado + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % A Pagar + + + + + + + Textbox20 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!Original.Value + + + + + + + Original + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abonado.Value + + + + + + + Abonado1 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!PorPagado.Value + + + + + + + PorPagado + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo1 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorXPagar.Value + + + + + + + PorXPagar + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CXP ACTIVAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 1.53744cm + + + 2.19765cm + + + 3.74229cm + + + 2.05941cm + + + 2.23416cm + + + 2.15604cm + + + 2.5cm + + + 2.28834cm + + + 1.15279cm + + + + + 0.6cm + + + + + true + true + + + + + Tipo + + + + + + + Textbox6 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox14 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Total + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descuento + + + + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Amortización + + + + + + + Textbox24 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( Fields!SubTotal.Value = 0, "",Fields!SubTotal.Value) + + + + + + + FolioCobro + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + = IIF( Fields!Descuento.Value = 0, "",Fields!Descuento.Value) + + + + + + + Textbox23 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + = IIF( Fields!Amortizacion.Value = 0, "",Fields!Amortizacion.Value) + + + + + + + Textbox25 + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + true + + + + + + true + true + + + + + = IIF( Fields!Total.Value = 0, "",Fields!Total.Value) + + + + + + + Abonado + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.86812cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE HISTORIAL DE COMPRAS + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 5.2227cm + + + 3.89002cm + + + 4.04001cm + + + 4.18893cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + NC/Anticipo + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =IIf(Fields!SerieFolio.Value = "", Fields!TipoDocto.Value, Fields!SerieFolio.Value) + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Original.Value + + + + + + + Original + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + true + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.84166cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOTAS DE CRÉDITO POR APLICAR / ANTICIPOS POR COMPROBAR + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + @@ -754,7 +754,9 @@ - Textbox10 @@ -780,14 +782,16 @@ - =Parameters!FechaImpresion.Value + =Globals!ExecutionTime - Textbox11 @@ -964,6 +968,7 @@ ReportParameter1 + es-MX Cm 40c94aad-a12a-44fb-ab0d-ea36a9656792 \ No newline at end of file From 4a3c288410ea4036360db499f2c00690d9a1c703 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 8 Oct 2019 14:11:12 -0700 Subject: [PATCH 4/4] Se agregaron campos para registrar el descuento por marca --- App_Code/ClsProductosServicios.vb | 8 ++++++-- Ventas/Clientes.aspx | 6 +++--- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index f32ed4378..43926b628 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1858,7 +1858,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer) As Boolean + Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PorcentajeMarcasAdd") @@ -1870,6 +1870,8 @@ Public Class ClsProductosServicios .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2 .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3 .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago + .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo End With Try @@ -1881,7 +1883,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal) As Boolean + Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PorcentajeMarcasUpdate") @@ -1892,6 +1894,8 @@ Public Class ClsProductosServicios .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2 .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3 + .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago + .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo End With Try diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 71d0fff76..c6897ef00 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -5501,9 +5501,9 @@ Marca <%-- Precio
General --%> - % - % - % + DCTO COM + DCTO ADIC 1 + DCTO ADIC 2 <%-- Precio
Aplicado --%>