From 5b6971ac9044fd68af437b0bd3161eba1970bc81 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 1 Aug 2022 21:26:25 -0700 Subject: [PATCH 01/31] -- vetas relacionadas --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 15570eddd..7b59c8ef1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4426,7 +4426,7 @@ Partial Class Ventas End If If DbRowVenta IsNot Nothing Then - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetVentasRelacionadas(CveVenta, 1, UsuarioActual.CveEmpresa) Then DtAntRelacionados = ObjVentas.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Ant','Egs','Dev')") End If From 87a1617cb89e6278cf4a0200947e27140396c49e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Aug 2022 18:03:49 -0700 Subject: [PATCH 02/31] =?UTF-8?q?--=20redondeo=20en=20liquidaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 84e10111e..0258b17f2 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -693,7 +693,7 @@ if (textBoxes[i].value != '') { idd = textBoxes[i].id.replace('C_GvCxC_TxtAbonar_', ''); Ventas = Ventas + (Importe == 0 ? '' : ', ') + $get("C_GvCxC_HplF_" + idd).innerText; - abono = parseFloat(textBoxes[i].value.split(',').join('')); + abono = ToDouble(textBoxes[i].value); moneda = $get("C_GvCxC_LtlMoneda_" + idd).innerText; if (monedaPago == 1 && moneda == 'USD') { @@ -708,7 +708,7 @@ } if (textBoxes[i].id.indexOf('C_GvCxC_TxtComision') >= 0) { if (textBoxes[i].value != '') { - abonoComision = parseFloat(textBoxes[i].value.split(',').join('')); + abonoComision = ToDouble(textBoxes[i].value); moneda = $get("C_GvCxC_LtlMoneda_" + idd).innerText; if (monedaPago == 1 && moneda == 'USD') { facDolares = true @@ -954,6 +954,7 @@ let Total = 0.0; let Anticipos = 0.0; + debugger; $( ClsSelLiqVenta).each(function () { @@ -966,11 +967,10 @@ }); - Total = Total + Anticipos; - + Total = Total + Anticipos; $(ClsSelLiqVentaTotal).each(function () { - $(this).val(Total); + $(this).val(Total.toFixed(2)); FormatoMoneda2($(this)); }); @@ -979,6 +979,7 @@ var Suma = SumaValores(pagoMultiple, monedaPago); $get('TxtImporte').value = FormatoNumero(Suma, 2); + } function disablekeys() From d90b4745f8d8dc0c1d590512ac239d170836c8ec Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 3 Aug 2022 17:30:27 -0700 Subject: [PATCH 03/31] Clientes se agrega campo Representante legal, Factura rdlc 13 se valida aplica carta porte --- App_Code/ClsClientes.vb | 12 ++++++++++-- Compras/PopUpVerFactura.aspx.vb | 10 ++++++++++ Empresas/13/Formatos/Factura.rdlc | 2 +- Ventas/Clientes.aspx | 7 +++++++ Ventas/Clientes.aspx.vb | 10 ++++++++-- 5 files changed, 36 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 3da855b93..0c3f1856e 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -172,6 +172,7 @@ Public Class ClsClientes Public Property CodigoRegimenFiscal As String Public Property RegimenFiscal As String + Public Property RepresentanteLegal As String #End Region @@ -429,6 +430,7 @@ Public Class ClsClientes _RegimenFiscal = Data(0)("RegimenFiscal").ToString _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString + _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString End If Retorno = True @@ -586,7 +588,8 @@ Public Class ClsClientes Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, - Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean + Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, + Optional RepresentanteLegal As String = "") As Boolean Dim Retorno As Boolean = False @@ -731,6 +734,9 @@ Public Class ClsClientes .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal + + @@ -782,7 +788,8 @@ Public Class ClsClientes Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", - Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean + Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, + Optional RepresentanteLegal As String = "") As Boolean Dim Retorno As Boolean = False @@ -943,6 +950,7 @@ Public Class ClsClientes .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c148ba7af..88145dd74 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3048,6 +3048,16 @@ Partial Class PopUpVerFactura CartaPorte = New Modelos.MSubReportData() CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If + Else + If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then + CartaPorte = New Modelos.MSubReportData() + CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) + End If + End If + Else + If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then + CartaPorte = New Modelos.MSubReportData() + CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If End If diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index cee486497..d10956995 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -3298,7 +3298,7 @@ 20.2229cm 47 - true + =Not Parameters!TieneCartaPorte.Value - true @@ -2442,7 +2441,7 @@ DsOC 4.59222cm - 0.11468cm + 0.45356cm 1.01949cm 20.01064cm 25 @@ -2481,7 +2480,7 @@ Textbox19 1.6173in - 5.662in + 5.79542in 0.20317in 2.26391in 26 @@ -2770,7 +2769,7 @@ DataSet3 2.54983in - 5.73412in + 5.86754in 0.34081in 2.19818in 27 @@ -2889,7 +2888,7 @@ DataSet1 5.75282cm - 14.56464cm + 14.90352cm 0.6cm 5.58343cm 28 @@ -3438,7 +3437,7 @@ DsOC 5.75282cm - 0.11468cm + 0.45356cm 5.16188cm 14.34413cm 29 @@ -3483,7 +3482,7 @@ Textbox18 4.59585in - 0.04404in + 0.17746in 0.36457in 7.87931in 30 @@ -3519,7 +3518,7 @@ Textbox1 10.95026cm - 0.13016cm + 0.46904cm 0.6cm 19.96256cm 31 @@ -3611,7 +3610,7 @@ Textbox5 12.7053cm - 10.16136cm + 10.50025cm 2.37271cm 9.55228cm 32 @@ -3702,7 +3701,7 @@ Textbox5 12.7053cm - 0.50677cm + 0.84566cm 2.37271cm 9.55228cm 33 @@ -3716,11 +3715,523 @@ 2pt + + true + true + + + + + VERSION + + + + =Parameters!CFDIVersion.Value + + + + + + + Textbox5 + 20.52317cm + 16.8018cm + 0.65292cm + 3.68516cm + 34 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.14926cm + 0.07193cm + 0.54004cm + 20.01791cm + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.78817cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 3.28643cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + 18.09605cm + 0.39712cm + 2.25247cm + 20.08984cm + 35 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + - 22.9929cm + 25.5329cm - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.28775cm - 17.08931cm - 0.6cm - 3.06609cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - true 19.72306cm 0.04112cm - 2.97096cm + 2.25247cm 20.1554cm 31 @@ -4289,11 +4252,57 @@ + + true + true + + + + + VERSION + + + + =Parameters!CFDIVersion.Value + + + + + + + Textbox5 + 22.07758cm + 16.48898cm + 0.56043cm + 3.68516cm + 36 + + + 2pt + 2pt + 2pt + 2pt + + 27.07124cm - true @@ -1869,7 +1868,6 @@ 2pt - true @@ -2224,7 +2222,6 @@ 2pt - true @@ -2579,7 +2576,6 @@ 2pt - true @@ -2934,7 +2930,6 @@ 2pt - true @@ -4948,7 +4943,7 @@ - EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. RFC: EMD950206SRA + EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V.