From 9fdfbcdd7250e0f77584db3a4f69018a4bef080f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 2 Mar 2020 12:56:50 -0700 Subject: [PATCH 1/4] - checa la base de iva, para ver si lo agrega --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9ecd8ab82..bc28592cc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8803,8 +8803,8 @@ Partial Class Ventas 'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura ' If drr("ImporteIVA").ToString.ToDouble > 0 Then - 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos - If Timbre.Comprobante.Total > 0 Then + 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero + If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) End If From 91b0b7772f50cc9dce44708b6c9139ac1986c47d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Mar 2020 11:47:06 -0700 Subject: [PATCH 2/4] - cambio en dropdownlost --- CxC/RepCxC.aspx.vb | 8 +++----- CxC/RepCxCDetalle.aspx.vb | 10 ++++------ 2 files changed, 7 insertions(+), 11 deletions(-) diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 34a9b77b2..7c3b73753 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -114,13 +114,11 @@ Partial Class RepCxC #Region "CARGAS" Private Sub CargaCombos() 'CargaClientes - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else DdlClientesWS.setEsWebService(False) - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + CargaClientes() End If 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataBind() @@ -1433,7 +1431,7 @@ Partial Class RepCxC End Sub Private Sub CargaClientes() - If UsuarioActual.CveEmpresa <> 119 Then + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.ddl.Items.Clear() DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataBind() diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 9795b367f..8b2f794e6 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -205,13 +205,11 @@ Partial Class RepCxCDetalle 'CargaClientes 'CargaClientes - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else - DdlClientesWS.setEsWebService(False) - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + DdlClientesWS.setEsWebService(False) + CargaClientes() End If 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataBind() @@ -983,7 +981,7 @@ Partial Class RepCxCDetalle End Sub Private Sub CargaClientes() - If UsuarioActual.CveEmpresa <> 119 Then + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.ddl.Items.Clear() DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataBind() From 1ef03c68fbfe5495ef02b69f7b666ffacb983bb6 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 4 Mar 2020 10:43:02 -0700 Subject: [PATCH 3/4] *-ventas incluya ing, y dev, en las NC relacionadas - columnas neuvas en ingreso detalle --- Ventas/RepIngresosDetalle.aspx | 9 +++++++-- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/RepIngresosDetalle.aspx b/Ventas/RepIngresosDetalle.aspx index acc505d4d..942f7bbe0 100644 --- a/Ventas/RepIngresosDetalle.aspx +++ b/Ventas/RepIngresosDetalle.aspx @@ -188,16 +188,21 @@ - + - + + + + + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index bc28592cc..a9e07ac93 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9315,7 +9315,7 @@ Partial Class Ventas Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else - If factura.TipoDocto.Contiene("Dev") Or DtVentasNC IsNot Nothing Then + If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then If DtVentasNC IsNot Nothing Then For Each row As DataRow In DtVentasNC.Rows If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then From 1f35c6caeeecb8e77e1034fe3d7cbf2e3bd006a9 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 4 Mar 2020 11:13:40 -0700 Subject: [PATCH 4/4] agregando nueva expression con nuevo mensaje --- Empresas/141/Formatos/Factura.rdlc | 107 ++++++++++++++++++++--------- 1 file changed, 76 insertions(+), 31 deletions(-) diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 8061393f9..21039b981 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -469,11 +469,8 @@ - - Start - true - 5.84118in + 6.39118in 0.07484in 0.91543in 8.23221in @@ -910,7 +907,7 @@ - 0.14436in + 0.13436in @@ -1259,7 +1256,7 @@ DsOC 2.12778in 0.09836in - 0.34081in + 0.33081in 8.20966in 1 + + true + true + + + + + ** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA ** + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 17.16179cm + 18.7493cm