From d11e32f9f5de3a7245e2b4c5fa81d4116c9fd2e2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 6 Dec 2019 19:53:57 -0700 Subject: [PATCH] Correciones en cancelacion,factura bdh,formato de cliente pago --- App_Code/Modelos.vb | 9 +- Empresas/140/Formatos/Factura.rdlc | 15 +- .../Formatos/RepClientesPagosBancos.rdlc | 1937 +++++++++-------- Ventas/Clientes.aspx.vb | 20 +- 4 files changed, 986 insertions(+), 995 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 8d840b5a5..375835619 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3931,6 +3931,11 @@ Namespace Modelos Dim TotalT As Decimal = ObjFactura.Total Dim RFCReceptor As String = ObjFactura.Cliente.RFC Dim CvePACCancelacion As Integer = ObjFactura.CvePAC + + If CvePACCancelacion <= 0 Then + CvePACCancelacion = UsuarioActual.Empresa.CvePAC + End If + Dim CveEstatus As Integer = 4 Dim IDPoliza As Integer = -1 Dim CvePrePoliza As Integer @@ -4435,10 +4440,6 @@ Namespace Modelos If CveEstatus.Contiene(4, 5) Then - If CvePACCancelacion <= 0 Then - CvePACCancelacion = UsuarioActual.Empresa.CvePAC - End If - If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then ErrorCancelar = True MensajeError = "Ocurrió un error al guardar el estatus de cancelación." diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index 35ca50a70..578fd245d 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -1297,7 +1297,7 @@ - = Parameters!Fecha.Value + =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") - Textbox15 @@ -1991,7 +1993,7 @@ - =Fields!UM.Value + =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value) @@ -2015,6 +2017,7 @@ 2pt + true diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc index 5158fd16f..4ee983390 100644 --- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc +++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc @@ -1,969 +1,970 @@ - - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.15558cm - 0cm - 19.84166cm - 1 - - - - - - - - - 4.42895cm - - - 3.2021cm - - - 3.36938cm - - - 2.89562cm - - - 3.34667cm - - - 2.5cm - - - - - 0.6cm - - - - - true - true - - - - - Factura - - - - - - - Textbox3 - - - - 1pt - - - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha Venta - - - - - - - Textbox15 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha Ven. - - - - - - - Textbox13 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Movto. - - - - - - - Textbox17 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abono - - - - - - - Textbox19 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox21 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) - - - - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) - - - - - - - FechaVencimiento - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") - - - - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAbonado.Value - - - - - - - ImporteAbonado - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!MonedaIE.Value - - - - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 1.00112cm - 0.12912cm - 1.2cm - 19.74272cm - 2 - - - - - - 0.99158in - - - - - - - Textbox1 - 0.18521cm - 3.21468cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE PAGOS CLIENTES - - - - - - - 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: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 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 + + + + + + + + + 4.42895cm + + + 3.2021cm + + + 3.36938cm + + + 2.89562cm + + + 3.34667cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venta + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Ven. + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Movto. + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abono + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAbonado.Value + + + + + + + ImporteAbonado + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value) + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.74272cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE PAGOS CLIENTES + + + + + + + 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: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm +