From c24fc52533bad96f7151d1cec423878e1669c173 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 2 Mar 2022 17:55:16 -0700 Subject: [PATCH] Rep Productos servicios Agrupador Cliente Sucursal --- App_Code/ClsVentas.vb | 6 +- Bancos/IE.aspx.vb | 2 +- Empresas/119/Formatos/Cotizacion.rdlc | 174 +++++++++++--------- Ventas/RepProductosServicios.aspx | 10 +- Ventas/RepProductosServicios.aspx.vb | 6 +- Ventas/RepProductosServiciosDetalle.aspx | 36 ++-- Ventas/RepProductosServiciosDetalle.aspx.vb | 59 ++++++- 7 files changed, 193 insertions(+), 100 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index eb05b55d1..7a0d213fc 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1688,7 +1688,8 @@ Public Class ClsVentas Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, - Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean + Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, + Optional CveClasificacion2 As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPSDetalle") @@ -1727,6 +1728,9 @@ Public Class ClsVentas .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + + End With Try diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index afd3989c3..96ed401a4 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5557,7 +5557,7 @@ Partial Class Bancos_IE If Banc.ExisteConexion Then Banc.Commit() - Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") + Alert($"El documento bancario quedó eliminado. {MsgEliminar}", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") End If Else diff --git a/Empresas/119/Formatos/Cotizacion.rdlc b/Empresas/119/Formatos/Cotizacion.rdlc index d17f84dd0..3bcd57f6d 100644 --- a/Empresas/119/Formatos/Cotizacion.rdlc +++ b/Empresas/119/Formatos/Cotizacion.rdlc @@ -544,10 +544,10 @@ 0.63048in - 0.55487in + 0.62063in - 0.62063in + 0.55487in 1.11998in @@ -775,6 +775,43 @@ + + + + true + true + + + + + IVA + + + + + + + Textbox5 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + @@ -812,43 +849,6 @@ - - - - true - true - - - - - IVA - - - - - - - Textbox8 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - @@ -1043,6 +1043,7 @@ Myriad Pro 9pt Normal + 0.00 @@ -1101,6 +1102,44 @@ + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA + + + 2pt + 2pt + 2pt + 2pt + + + true + + @@ -1110,7 +1149,7 @@ - =Fields!IEPS.Value + =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Fields!ImporteIEPS.Value & "(" & Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) & "%)","") - - - - - - IVA - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -2037,7 +2039,7 @@ 18.53492cm