From 62c46183f5713bd11326bf5c306d479e8e1ccb5c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Jun 2022 06:46:15 -0700 Subject: [PATCH 01/16] =?UTF-8?q?--=20actualizaci=C3=B3n=20precios=20jun22?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inicio.aspx | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Inicio.aspx b/Inicio.aspx index f4aa36e37..1beef0b6d 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -618,6 +618,20 @@ + +
+
+
+ ALCALINAS PISOS + +
+
+
+
+ ALCALINAS MAYOREO + +
+
From 6bec2f9a8a0d96074fac09b1e0319d33be021520 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 8 Jun 2022 11:30:32 -0700 Subject: [PATCH 02/16] Compras, tipo de operacion no definida cargar todas las retenciones --- Compras/Compras.aspx.vb | 11 ++- Compras/Proveedores.aspx.vb | 6 +- Empresas/13/Formatos/Factura.rdlc | 134 +++++++++++++++++++++++++++++- 3 files changed, 142 insertions(+), 9 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 879a4635a..d024dcd69 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2205,12 +2205,13 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion = 3 Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) End If + ElseIf RFCProv.Length = 12 Then If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) @@ -2220,12 +2221,14 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion = 3 Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) End If + + End If End If @@ -2251,12 +2254,14 @@ Partial Class Compras_Compras DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) End If - If DIOTCveTipoOperacion = 3 Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) End If + + End If UpPS.Update() End Sub diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 226553921..7c5ce2a0e 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -750,9 +750,11 @@ Partial Class Compras_Proveedores TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre")) ChkEstado.Checked = True - If Version = "4.0" Then + Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal") + + If Version = "4.0" Or CodigoRegimenFiscal.Trim.Length > 0 Then + - Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal") Dim CveRegimenFiscal As Integer = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CveRegimenFiscal", $" CodigoRegimenFiscal = '{ CodigoRegimenFiscal }'").ToEntero DdlRegimenFiscal.SelectedValueExist(CveRegimenFiscal) diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index e2a9d6c67..29bca9e44 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -89,7 +89,16 @@ - Régimen Fiscal: 601 - General de Ley Personas Morales + Régimen Fiscal: + + + + =IIF(Parameters!RegimenFiscalCodigo.Value="ND-","601 - General de Ley Personas Morales",Parameters!RegimenFiscalCodigo.Value) + + + + + + Textbox7 + + + + Black + + + + Black + + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -834,6 +892,43 @@ + + + + true + true + + + + + =Fields!CodigoObjetoImpuesto.Value + + + + + + + CodigoObjetoImpuesto + + + + #4f81bd + + 2pt + 2pt + 2pt + 2pt + + + + @@ -960,6 +1055,7 @@ + @@ -976,7 +1072,7 @@ 6.28717cm 0.08756cm 1.2353cm - 20.06999cm + 20.20228cm 4 + + + =Parameters!CFDIVersion.Value + + + + @@ -64,7 +64,7 @@ - 0.6cm + 0.36188cm @@ -78,7 +78,7 @@ =Fields!UnidadMedida.Value @@ -112,7 +112,7 @@ =Fields!Descripcion.Value @@ -146,7 +146,7 @@ =Fields!CveMaterialPeligroso.Value @@ -180,7 +180,7 @@ =Fields!Embalaje.Value @@ -214,7 +214,7 @@ =Fields!PesoEnKg.Value @@ -244,7 +244,7 @@ - 0.52062cm + 0.36187cm true @@ -256,7 +256,7 @@ Unidad @@ -282,7 +282,7 @@ - 0.52062cm + 0.36187cm true @@ -294,7 +294,7 @@ Producto @@ -320,7 +320,7 @@ - 0.52062cm + 0.36187cm true @@ -329,21 +329,13 @@ - Cod. Material + Cod. Material Peligroso - - Peligroso - - @@ -404,7 +396,7 @@ - 0.52062cm + 0.36187cm true @@ -416,7 +408,7 @@ Peso (KG) @@ -459,7 +451,7 @@ =Fields!Cantidad.Value @@ -488,9 +480,9 @@ true true DataSet3 - 6.6164cm + 4.93365cm 0.06623cm - 1.12062cm + 0.72375cm 20.36729cm @@ -521,8 +513,8 @@ Textbox3 - 6.1004cm - 0.06623cm + 4.4494cm + 0.0927cm 0.50189cm 8.01543in 1 @@ -553,7 +545,7 @@ Distancia @@ -601,7 +593,7 @@ - 0.6cm + 0.46771cm @@ -615,7 +607,7 @@ =Fields!TipoUbicacion.Value @@ -663,7 +655,7 @@ =Fields!RFC.Value @@ -711,7 +703,7 @@ =Fields!Nombre.Value @@ -751,7 +743,7 @@ =Fields!FechaHoraSalida.Value @@ -792,7 +784,7 @@ =Fields!Direccion.Value @@ -832,7 +824,7 @@ - 0.52062cm + 0.44125cm true @@ -844,7 +836,7 @@ Ubicación @@ -872,7 +864,7 @@ - 0.52062cm + 0.44125cm true @@ -884,7 +876,7 @@ RFC @@ -912,7 +904,7 @@ - 0.52062cm + 0.44125cm true @@ -924,7 +916,7 @@ Nombre @@ -952,7 +944,7 @@ - 0.52062cm + 0.44125cm true @@ -964,7 +956,7 @@ Fecha @@ -992,7 +984,7 @@ - 0.52062cm + 0.44125cm true @@ -1004,7 +996,7 @@ Dirección @@ -1049,7 +1041,7 @@ =Fields!Distancia.Value @@ -1092,9 +1084,9 @@ true true DataSet2 - 9.1543cm + 6.1698cm 0.06623cm - 1.12062cm + 0.90895cm 20.38566cm 2 @@ -1125,9 +1117,9 @@ Textbox3 - 8.56422cm + 5.77022cm 0.06623cm - 0.5cm + 0.41369cm 8.01861in 3 @@ -1196,7 +1188,7 @@ - 0.6cm + 0.41479cm @@ -1210,7 +1202,7 @@ =Fields!NumLicencia.Value @@ -1258,7 +1250,7 @@ =Fields!NombreOperador.Value @@ -1298,7 +1290,7 @@ - 0.52062cm + 0.41479cm true @@ -1310,7 +1302,7 @@ LICENCIA @@ -1338,7 +1330,7 @@ - 0.52062cm + 0.41479cm true @@ -1350,7 +1342,7 @@ NOMBRE OPERADOR @@ -1395,7 +1387,7 @@ =Fields!RFC.Value @@ -1438,9 +1430,9 @@ true true DataSet4 - 11.8213cm + 7.59855cm 0.06623cm - 1.12062cm + 0.82958cm 20.36724cm 4 @@ -1471,9 +1463,9 @@ Textbox3 - 11.23122cm + 7.18459cm 0.06623cm - 0.5cm + 0.41396cm 8.01861in 5 - - - : - @@ -1513,7 +1497,7 @@ =Parameters!MedioTransporte.Value @@ -1528,7 +1512,7 @@ Transporte Internacional: @@ -1536,7 +1520,7 @@ =Parameters!TransporteInternacional.Value @@ -1551,7 +1535,7 @@ Permiso SCT: @@ -1559,7 +1543,7 @@ @@ -1567,7 +1551,7 @@ =Parameters!PermisoSTCC.Value @@ -1579,83 +1563,13 @@ - Numero de Permiso + - - : - - - - =Parameters!NumPermiso.Value - - - - - - - - - Placa: - - - - =Parameters!PlacaVM.Value - - - - - - - - - Año: - - - - =Parameters!AnioVM.Value - - - - - - @@ -1719,75 +1633,6 @@ true true - - - - Aseguradora Responsabilidad Civil: - - - - =Parameters!Aseguradora.Value - - - - - - - - - Número de Póliza: - - - - =Parameters!NumPoliza.Value - - - - - - - - - Aseguradora Medio Ambiente: - - - - =Parameters!NombreAseguradoraMedioAmbiente.Value - - - - - @@ -1874,10 +1719,10 @@ Textbox2 - 1.09361in - 9.72269cm - 0.95951in - 4.21685in + 1.07972in + 14.61748cm + 0.48798in + 2.26893in 8 Placa: =Parameters!RemolquePlaca1.Value Tipo Rem: =Parameters!RemolqueSubtimo1.Value @@ -1931,9 +1776,9 @@ Textbox38 - 5.28548cm + 4.01548cm 0.06623cm - 0.45862cm + 0.35631cm 9.62118cm 9 @@ -1958,32 +1803,32 @@ Remolque 2 Placa: =Parameters!RemolquePlaca2.Value Tipo Rem: =Parameters!RemolqueSubtimo2.Value @@ -1991,9 +1836,9 @@ Textbox38 - 5.28548cm + 4.01548cm 9.72269cm - 0.45862cm + 0.35631cm 10.7292cm 10 @@ -2381,7 +2226,7 @@ true - 13.15006cm + 8.48281cm 0.06623cm 1.78092cm 20.36726cm @@ -3585,7 +3430,7 @@ true - 15.01212cm + 10.34487cm 0.0743cm 7.44771cm 20.42542cm @@ -3609,14 +3454,14 @@ Pesto Neto Total (KG): =Parameters!PesoNetoTotal.Value @@ -3624,9 +3469,9 @@ Textbox46 - 7.86463cm - 0.10048cm - 0.56201cm + 5.70563cm + 0.06623cm + 0.3768cm 8.87863cm 14 =Parameters!DistanciaTotal.Value @@ -3664,10 +3509,10 @@ Textbox46 - 10.43366cm + 7.18459cm 0.0743cm - 0.6cm - 8.90481cm + 0.37869cm + 6.32091cm 15 + + true + true + + + + + Numero de Permiso: + + + + =Parameters!NumPermiso.Value + + + + + + + =Parameters!PlacaVM.Value + + + + + + + + + Año: + + + + =Parameters!AnioVM.Value + + + + + + + + + + + Textbox53 + 2.77933cm + 5.36787cm + 1.20263cm + 3.86975cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Aseguradora Responsabilidad Civil: + + + + =Parameters!Aseguradora.Value + + + + + + + =Parameters!NumPoliza.Value + + + + + + + + + Aseguradora Medio Ambiente: + + + + =Parameters!NombreAseguradoraMedioAmbiente.Value + + + + + + + Textbox57 + 2.77778cm + 9.30817cm + 1.20419cm + 5.25306cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + - 8.84245in + 7.00495in - - - - - - - - DE C.V. RFC: EMD950206SRA + EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. RFC: EMD950206SRA @@ -121,9 +109,9 @@ Embedded Logo1 FitProportional - 0.92917cm - 2.88998cm - 3.84225cm + 1.06146cm + 1.91102cm + 2.76081cm 1 @@ -150,8 +138,8 @@ Textbox19 - 1.88777in - 0.1441cm + 1.43777in + 0.27639cm 0.17222in 0.81128in 2 @@ -191,10 +179,10 @@ Textbox19 - 1.88777in - 0.86801in + 1.43777in + 0.93398in 0.17222in - 4.18029in + 3.24868in 3 @@ -305,7 +293,7 @@ Codigo @@ -351,7 +339,7 @@ C.U. SAT @@ -394,26 +382,10 @@ - Clave + Clave Prod. - - - - - - - - Producto - @@ -458,7 +430,7 @@ Descripción @@ -503,7 +475,7 @@ P.U. @@ -549,7 +521,7 @@ Impuestos @@ -594,7 +566,7 @@ Importe @@ -973,15 +945,16 @@ DsOC - 6.28717cm - 0.08756cm - 1.2353cm + 4.63617cm + 0.21985cm + 0.97072cm 20.06999cm 4 + 8pt @@ -1002,8 +975,8 @@ Textbox1 - 8.59672cm - 14.50693cm + 7.70772cm + 14.63922cm 0.54708cm 5.65062cm 5 @@ -1040,7 +1013,7 @@ =Fields!Importe.Value @@ -1082,7 +1055,7 @@ =Replace(Parameters!Moneda.Value,"Pesos","Peso mexicano") @@ -1135,7 +1108,7 @@ =Fields!ImpuestoLocal.Value @@ -1174,7 +1147,7 @@ Moneda @@ -1203,8 +1176,8 @@ DataSet1 - 7.71422cm - 14.47478cm + 7.14272cm + 14.60707cm 0.65551cm 5.68277cm 6 @@ -1224,7 +1197,7 @@ Folio Factura @@ -1234,8 +1207,8 @@ Textbox2 - 2.79612cm - 14.15252cm + 1.84362cm + 14.28481cm 0.41303cm 2.08346cm 7 @@ -1259,7 +1232,7 @@ =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) @@ -1269,8 +1242,8 @@ Textbox3 - 2.79612cm - 17.03869cm + 1.84362cm + 17.17098cm 0.41303cm 3.066cm 8 @@ -1294,7 +1267,7 @@ Fecha @@ -1304,8 +1277,8 @@ Textbox2 - 3.22326cm - 14.15252cm + 2.27076cm + 14.28481cm 0.42714cm 2.08346cm 9 @@ -1329,7 +1302,7 @@ =Parameters!Fecha.Value @@ -1339,8 +1312,8 @@ Textbox12 - 3.22326cm - 17.03869cm + 2.27076cm + 17.17098cm 0.42714cm 3.066cm 10 @@ -1364,7 +1337,7 @@ Lugar de Expedición @@ -1374,8 +1347,8 @@ Textbox2 - 3.75976cm - 14.14208cm + 2.77551cm + 14.27437cm 0.46681cm 2.86133cm 11 @@ -1400,6 +1373,7 @@ @@ -1447,8 +1421,8 @@ Textbox2 - 3.0229cm - 0.1441cm + 1.8799cm + 0.27639cm 0.42944cm 3.80164cm 13 @@ -1472,7 +1446,7 @@ =Parameters!FormaPago.Value @@ -1482,8 +1456,8 @@ Textbox3 - 3.0229cm - 4.12213cm + 1.8799cm + 4.25442cm 0.42944cm 6.76133cm 14 @@ -1507,7 +1481,7 @@ Método de Pago @@ -1517,8 +1491,8 @@ Textbox2 - 3.46293cm - 0.1441cm + 2.28818cm + 0.27639cm 0.40122cm 3.80164cm 15 @@ -1542,7 +1516,7 @@ =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) @@ -1552,8 +1526,8 @@ Textbox3 - 3.46998cm - 4.12213cm + 2.29523cm + 4.25442cm 0.40122cm 6.76133cm 16 @@ -1577,7 +1551,7 @@ Moneda @@ -1587,8 +1561,8 @@ Textbox2 - 3.94529cm - 0.17938cm + 2.73879cm + 0.27639cm 0.39417cm 3.80164cm 17 @@ -1612,21 +1586,21 @@ =Parameters!Moneda.Value Tipo de Cambio @@ -1635,21 +1609,21 @@ =Parameters!TipoCambio.Value @@ -1659,8 +1633,8 @@ Textbox3 - 3.95234cm - 4.12213cm + 2.74584cm + 4.25442cm 0.43297cm 6.76133cm 18 @@ -1684,7 +1658,7 @@ Datos del Cliente @@ -1694,8 +1668,8 @@ Textbox2 - 4.41707cm - 0.1441cm + 3.14707cm + 0.27639cm 0.44708cm 3.80164cm 19 @@ -1719,7 +1693,7 @@ R.F.C.: @@ -1728,10 +1702,10 @@ Textbox19 - 2.05999in - 0.1441cm - 0.19861in - 0.81128in + 1.43777in + 10.65925cm + 0.1875in + 0.36336in 20 @@ -1813,10 +1787,10 @@ Textbox19 - 2.03499in - 6.65114cm - 0.19861in - 0.81128in + 1.43777in + 14.44108cm + 0.17222in + 0.63582in 22 @@ -1899,8 +1873,8 @@ Textbox19 - 2.2586in - 0.1441cm + 1.62527in + 0.27639cm 0.15972in 0.81128in 24 @@ -1940,8 +1914,8 @@ Textbox19 - 2.2586in - 0.86801in + 1.62527in + 0.92009in 0.15972in 4.18029in 25 @@ -1975,7 +1949,7 @@ OBSERVACIONES GENERALES: @@ -1984,8 +1958,8 @@ Textbox19 - 2.97039in - 0.06399cm + 2.77039in + 0.19628cm 0.17324in 1.7828in 26 @@ -2018,7 +1992,7 @@ =Parameters!Observaciones.Value @@ -2028,8 +2002,8 @@ Textbox3 - 7.54478cm - 4.69815cm + 7.03678cm + 4.83044cm 0.44003cm 9.60024cm 27 @@ -2052,7 +2026,7 @@ =Parameters!ImporteLetra.Value @@ -2060,8 +2034,8 @@ Textbox19 - 3.13113in - 1.10063in + 2.93113in + 1.15271in 0.44842cm 4.52866in 28 @@ -2095,7 +2069,7 @@ Importe Con Letra: @@ -2105,8 +2079,8 @@ Textbox2 - 7.95306cm - 0.08756cm + 7.44506cm + 0.21985cm 0.44842cm 2.5581cm 29 @@ -2124,10 +2098,10 @@ External =Parameters!QR.Value FitProportional - 3.40943in - 0.08769in - 1.14694in - 1.34784in + 3.05943in + 0.13977in + 0.68104in + 0.78032in 30 @@ -2155,8 +2129,8 @@ Textbox2 - 9.29495cm - 9.45782cm + 7.89591cm + 3.36322cm 0.35889cm 4.93935cm 31 @@ -2180,7 +2154,7 @@ Folio Fiscal @@ -2190,8 +2164,8 @@ Textbox2 - 9.67148cm - 9.45782cm + 8.29008cm + 3.36322cm 0.40122cm 4.93935cm 32 @@ -2215,7 +2189,7 @@ No. de Serie del Certificado de l SAT @@ -2225,8 +2199,8 @@ Textbox2 - 10.05859cm - 9.45782cm + 8.72658cm + 3.36322cm 0.3536cm 4.93935cm 33 @@ -2250,7 +2224,7 @@ Fecha y Hora de Certificación @@ -2260,8 +2234,8 @@ Textbox2 - 10.41395cm - 9.45782cm + 9.12251cm + 3.36322cm 0.31479cm 4.93935cm 34 @@ -2285,7 +2259,7 @@ =Parameters!CertificadoContribuyente.Value @@ -2295,8 +2269,8 @@ Textbox2 - 9.29495cm - 14.46772cm + 7.89591cm + 8.37312cm 0.35889cm 5.62289cm 35 @@ -2320,7 +2294,7 @@ =Parameters!FolioFiscal.Value @@ -2330,8 +2304,8 @@ Textbox2 - 9.67148cm - 14.46772cm + 8.29008cm + 8.37312cm 0.40122cm 5.62289cm 36 @@ -2355,7 +2329,7 @@ =Parameters!SerieCertificadoSAT.Value @@ -2365,8 +2339,8 @@ Textbox2 - 10.05859cm - 14.46772cm + 8.72658cm + 8.37312cm 0.3536cm 5.62289cm 37 @@ -2390,7 +2364,7 @@ =Parameters!FechaCertificacion.Value @@ -2400,8 +2374,8 @@ Textbox2 - 10.41395cm - 14.46772cm + 9.12251cm + 8.37312cm 0.31479cm 5.62289cm 38 @@ -2422,23 +2396,9 @@ - Este documento es una representación impresa de un CFDI + Este documento es una representación impresa de un CFDI Version 3.3 - - - - - - - - Version 3.3 - @@ -2449,10 +2409,10 @@ Textbox19 - 4.27878in - 9.45782cm - 0.34009in - 4.18614in + 3.26381in + 14.1724cm + 0.47666in + 2.40844in 39 @@ -2537,10 +2497,10 @@ Textbox2 - 11.78131cm - 0.10785cm + 9.55881cm + 0.25897cm 0.44842cm - 8.9127cm + 8.89387cm 41 @@ -2615,8 +2575,8 @@ Textbox2 - 12.74125cm - 0.12668cm + 10.4235cm + 0.25897cm 0.33552cm 8.89387cm 43 @@ -2648,8 +2608,8 @@ Textbox19 - 5.57948in - 0.05673in + 4.55448in + 0.09839in 0.11805in 7.86825in 44 @@ -2683,7 +2643,7 @@ Cadena Original del Complemento del Certificación Digital del SAT @@ -2693,8 +2653,8 @@ Textbox2 - 13.72346cm - 0.12669cm + 11.157cm + 0.20606cm 0.34259cm 8.89387cm 45 @@ -3159,7 +3119,7 @@ true - 14.54249cm + 12.06599cm 2.28935cm 20.28984cm 46 @@ -3172,203 +3132,167 @@ - + - - true - true - - - - - CARTA PORTE - TRASLADO - - - - - - - Textbox6 - 0.12917cm - 0.06399cm - 0.6cm - 20.02662cm + + CartaPorteTimbrado + + + =Parameters!SRP_LogoPath.Value + + + =Parameters!SRP_RFC.Value + + + =Parameters!SRP_SerieFolio.Value + + + =Parameters!SRP_DomicilioFiscal.Value + + + =Parameters!SRP_RegimenFiscal.Value + + + =Parameters!SRP_DomicilioExpedicion.Value + + + =Parameters!SRP_ClienteDireccion.Value + + + =Parameters!SRP_ClienteNombre.Value + + + =Parameters!SRP_ClienteRFC.Value + + + =Parameters!SRP_MedioTransporte.Value + + + =Parameters!SRP_TransporteInternacional.Value + + + =Parameters!SRP_FolioFiscal.Value + + + =Parameters!SRP_FechaCertificacion.Value + + + =Parameters!SRP_CertificadoContribuyente.Value + + + =Parameters!SRP_SerieCertificadoSAT.Value + + + =Parameters!SRP_SelloCFDI.Value + + + =Parameters!SRP_CadenaOriginal.Value + + + =Parameters!SRP_SelloSAT.Value + + + =Parameters!SRP_QR.Value + + + =Parameters!SRP_PermisoSTCC.Value + + + =Parameters!SRP_NumPermiso.Value + + + =Parameters!SRP_Aseguradora.Value + + + =Parameters!SRP_NumPoliza.Value + + + =Parameters!SRP_PlacaVM.Value + + + =Parameters!SRP_AnioVM.Value + + + =Parameters!SRP_TipoTI.Value + + + =Parameters!SRP_ViaTI.Value + + + =Parameters!SRP_UsoCFDi.Value + + + =Parameters!SRP_SubTotal.Value + + + =Parameters!SRP_Total.Value + + + =Parameters!SRP_Descuentos.Value + + + =Parameters!SRP_NombreAseguradoraMedioAmbiente.Value + + + =Parameters!SRP_NumPolizaSeguroMedioAmbiente.Value + + + =Parameters!SRP_NombreAseguradoraCarga.Value + + + =Parameters!SRP_NumPolizaSeguroCarga.Value + + + =Parameters!SRP_RemolquePlaca1.Value + + + =Parameters!SRP_RemolqueSubtimo1.Value + + + =Parameters!SRP_RemolquePlaca2.Value + + + =Parameters!SRP_RemolqueSubtimo2.Value + + + =True + + + =Parameters!SRP_PesoNetoTotal.Value + + + =Parameters!SRP_DistanciaTotal.Value + + + 0.06863cm + 1.11461cm + 20.12945cm - 2pt - 2pt - 2pt - 2pt - + - - Start - true - 16.87906cm - 0.80985cm - 20.28984cm + 5.71625cm + 1.2341cm + 20.2229cm 47 + + =Not Parameters!TieneCartaPorte.Value + - - CartaPorteTimbrado - - - =Parameters!SRP_LogoPath.Value - - - =Parameters!SRP_RFC.Value - - - =Parameters!SRP_SerieFolio.Value - - - =Parameters!SRP_DomicilioFiscal.Value - - - =Parameters!SRP_RegimenFiscal.Value - - - =Parameters!SRP_DomicilioExpedicion.Value - - - =Parameters!SRP_ClienteDireccion.Value - - - =Parameters!SRP_ClienteNombre.Value - - - =Parameters!SRP_ClienteRFC.Value - - - =Parameters!SRP_MedioTransporte.Value - - - =Parameters!SRP_TransporteInternacional.Value - - - =Parameters!SRP_FolioFiscal.Value - - - =Parameters!SRP_FechaCertificacion.Value - - - =Parameters!SRP_CertificadoContribuyente.Value - - - =Parameters!SRP_SerieCertificadoSAT.Value - - - =Parameters!SRP_SelloCFDI.Value - - - =Parameters!SRP_CadenaOriginal.Value - - - =Parameters!SRP_SelloSAT.Value - - - =Parameters!SRP_QR.Value - - - =Parameters!SRP_PermisoSTCC.Value - - - =Parameters!SRP_NumPermiso.Value - - - =Parameters!SRP_Aseguradora.Value - - - =Parameters!SRP_NumPoliza.Value - - - =Parameters!SRP_PlacaVM.Value - - - =Parameters!SRP_AnioVM.Value - - - =Parameters!SRP_TipoTI.Value - - - =Parameters!SRP_ViaTI.Value - - - =Parameters!SRP_UsoCFDi.Value - - - =Parameters!SRP_SubTotal.Value - - - =Parameters!SRP_Total.Value - - - =Parameters!SRP_Descuentos.Value - - - =Parameters!SRP_NombreAseguradoraMedioAmbiente.Value - - - =Parameters!SRP_NumPolizaSeguroMedioAmbiente.Value - - - =Parameters!SRP_NombreAseguradoraCarga.Value - - - =Parameters!SRP_NumPolizaSeguroCarga.Value - - - =Parameters!SRP_RemolquePlaca1.Value - - - =Parameters!SRP_RemolqueSubtimo1.Value - - - =Parameters!SRP_RemolquePlaca2.Value - - - =Parameters!SRP_RemolqueSubtimo2.Value - - - =True - - - =Parameters!SRP_PesoNetoTotal.Value - - - =Parameters!SRP_DistanciaTotal.Value - - - 17.78979cm - 1.77607cm - 20.12945cm - 48 - - - - - 19.56586cm + 14.35534cm + 4 + + + @@ -689,7 +702,7 @@ - 0.44125cm + 0.54021cm @@ -721,8 +734,12 @@ 2pt + 4 + + + @@ -924,6 +941,2793 @@ + + 0.07938cm + + + + + true + true + + + + + Impuesto + + + + + + + Textbox108 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo + + + + + + + Textbox109 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Base + + + + + + + Textbox110 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo Factor + + + + + + + Textbox111 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa/Cuota + + + + + + + Textbox112 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox113 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra001TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra001TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra001ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox4 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox13 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra002TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra002TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra002ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox67 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox68 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox61 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra003TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra003TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra003ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox51 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret001TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret001TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret001ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox75 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox76 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret002TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret002TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret002ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox85 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox86 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox59 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret003TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret003TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret003ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox95 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox96 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + @@ -935,6 +3739,9 @@ + + + @@ -944,13 +3751,23 @@ + + + + + + + + + + DataSet2 4.62704cm - 0.93125cm - 20.53564cm + 1.66521cm + 20.53139cm 1 + + + + = IIF( Parameters!RegimenFiscalCodigo.Value <> "ND-", "<b>Reg. Fiscal:</b> " & Parameters!RegimenFiscalCodigo.Value,"") + + + + + Textbox2 0.03528cm @@ -2060,7 +4892,7 @@ Textbox45 - 7.94284cm + 8.92709cm 3.30199cm 16.51971cm 5 @@ -2089,7 +4921,7 @@ Textbox5 - 7.67825cm + 8.6625cm 0.0882cm 20.53564cm 6 @@ -2108,7 +4940,7 @@ External =Parameters!QR.Value FitProportional - 3.1271in + 3.5146in 6.51771in 1.3in 1.5in @@ -2134,7 +4966,7 @@ Textbox5 - 11.36179cm + 12.34604cm 0.11466cm 20.5314cm 8 @@ -2150,7 +4982,7 @@ - 11.47645cm + 13.54549cm - 0.41981cm + 0.45509cm true true @@ -2429,6 +5261,7 @@ Textbox35 + 0cm 17.09769cm 0.41981cm 2.94979cm @@ -2475,6 +5308,7 @@ Textbox29 + 0.03528cm 0.31132cm 0.41981cm 6.8491cm @@ -2523,6 +5357,7 @@ Textbox31 + 0cm 9.1611cm 0.41981cm 6.02198cm @@ -2657,6 +5492,110 @@ TipoCambioDR System.String + + RetIVA + System.Float + + + RetISR + System.Float + + + Tra001ImpuestoDR + System.String + + + Tra001TipoFactorDR + System.String + + + Tra001TasaOCuotaDR + System.String + + + Tra001ImporteDR + System.Float + + + Tra002ImpuestoDR + System.String + + + Tra002TipoFactorDR + System.String + + + Tra002TasaOCuotaDR + System.String + + + Tra002ImporteDR + System.Float + + + Tra003ImpuestoDR + System.String + + + Tra003TipoFactorDR + System.String + + + Tra003TasaOCuotaDR + System.String + + + Tra003ImporteDR + System.Float + + + Ret001ImpuestoDR + System.String + + + Ret001TipoFactorDR + System.String + + + Ret001TasaOCuotaDR + System.String + + + Ret001ImporteDR + System.Float + + + Ret002ImpuestoDR + System.String + + + Ret002TipoFactorDR + System.String + + + Ret002TasaOCuotaDR + System.String + + + Ret002ImporteDR + System.Float + + + Ret003ImpuestoDR + System.String + + + Ret003TipoFactorDR + System.String + + + Ret003TasaOCuotaDR + System.String + + + Ret003ImporteDR + System.Float + DataSet @@ -2963,6 +5902,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/Grales/Formatos/ReciboDePago.rdlc b/Empresas/Grales/Formatos/ReciboDePago.rdlc index d38828fdb..b1728529d 100644 --- a/Empresas/Grales/Formatos/ReciboDePago.rdlc +++ b/Empresas/Grales/Formatos/ReciboDePago.rdlc @@ -398,7 +398,7 @@ DataSet2 - 2.55889cm + 2.78114cm 0.30837cm 1.09cm 20.35756cm @@ -715,7 +715,7 @@ - 0.6cm + 0.54708cm @@ -979,6 +979,303 @@ + + 0.46771cm + + + + + true + true + + + + + Ret IVA: + + + + + + + Textbox2 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RetIVA.Value + + + + + + + Textbox4 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Ret. ISR: + + + + + + + Textbox7 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RetISR.Value + + + + + + + Textbox15 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + @@ -1000,13 +1297,17 @@ + + + + DataSet2 - 4.59176cm + 4.65526cm 0.30837cm - 1.09cm + 1.50479cm 20.32362cm 1 + + + + = IIF( Parameters!RegimenFiscalCodigo.Value <> "ND-", "<b>Reg. Fiscal:</b> " & Parameters!RegimenFiscalCodigo.Value,"") + + + + + Textbox2 0.30837cm - 0.99355in + 0.98591in 5.35046in 4 - - - 11.92271cm + 11.71431cm + + Black + + 1pt + 2pt 2pt 2pt @@ -126,6 +131,11 @@ + + Black + + 1pt + 2pt 2pt 2pt @@ -160,6 +170,11 @@ + + Black + + 1pt + 2pt 2pt 2pt @@ -194,6 +209,11 @@ + + Black + + 1pt + 2pt 2pt 2pt @@ -228,6 +248,11 @@ + + Black + + 1pt + 2pt 2pt 2pt @@ -466,6 +491,11 @@ + + Black + + 1pt + 2pt 2pt 2pt @@ -627,6 +657,7 @@ + Black 1pt @@ -675,6 +706,7 @@ + Black 1pt @@ -720,6 +752,7 @@ 5pt + Black 1pt @@ -761,6 +794,7 @@ 5pt + Black 1pt @@ -801,6 +835,7 @@ 5pt + Black 1pt @@ -1062,6 +1097,7 @@ + Black 1pt @@ -1086,7 +1122,7 @@ DataSet2 6.1698cm 0.06623cm - 0.90895cm + 0.90896cm 20.38566cm 2 + Black 1pt @@ -1267,6 +1304,7 @@ 5pt + Black 1pt @@ -1408,6 +1446,7 @@ + Black 1pt From 62ad28120dba7a02c1c13f8dc8ae13f97a5d0cf7 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Jun 2022 15:56:40 -0700 Subject: [PATCH 12/16] =?UTF-8?q?--=20no=20carga=20informaci=C3=B3n=20al?= =?UTF-8?q?=20inciiar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/RepComplementoPago.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index 3e3926d25..e085cea94 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -98,7 +98,7 @@ Partial Class Bancos_RepComplementoPago End If End If - CargaDatos() + 'CargaDatos() End If End Sub @@ -171,7 +171,7 @@ Partial Class Bancos_RepComplementoPago MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo")) End If Else - Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje) + Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}
", gvr.DataKey("Folio"), Banco.Mensaje) Banco.RollBack() End If Catch ex As Exception From 05272c0c4b6fde7fcacb17cf73620483f716248b Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Jun 2022 15:57:15 -0700 Subject: [PATCH 13/16] =?UTF-8?q?--=20cancelaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx | 9 ++ Bancos/IE.aspx.vb | 219 +++++----------------------------------------- 2 files changed, 32 insertions(+), 196 deletions(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 768a9a830..4fbf00ce7 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -1248,6 +1248,15 @@
+
+
+ Cuenta Devolución: + + - + + +
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index e845a08e3..3a6231c59 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -6,6 +6,7 @@ Imports Extensiones Imports System.Web.Services Imports System.IO Imports Microsoft.Reporting.WebForms +Imports System.Xml Partial Class Bancos_IE Inherits ClsPaginas @@ -629,6 +630,13 @@ Partial Class Bancos_IE Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + + 'PDFReciboDePagos(-1, 1336198, 87212, False) '--pago20 + 'PDFReciboDePagos(-1, 1361624, 87916, False) '--pago20 + + ''PDFReciboDePagos(-1, 1304037, 87219, False) + 'Exit Sub + Me.CveCorte = -1 Folio = "" IDCtaBeneficiario = 0 @@ -1833,7 +1841,6 @@ Partial Class Bancos_IE dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas End If - If pCveMoneda > 0 Then dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", pCveMoneda)) End If @@ -4226,191 +4233,6 @@ Partial Class Bancos_IE #End Region - ''[IPP] IFs REEMPLAZADOS - MIRAS DE ELIMINAR 2018/08/15 - 'If Not Opcion.Contiene("DEV", "INGPC", "DevDinV") AndAlso MsgError = "" Then - - 'Dim TipoMovimiento As Boolean = True - - 'If Opcion.Contiene("ANTC") Then - ' TipoMovimiento = False - ' End If - - ''MOVIMIENTOS EGRESOS - 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then - 'Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDouble - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then - 'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then - ' MsgError = "Detalle" - ' End If - ''intereses pagados - 'If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then - ' MsgError = "Detalle" - ' End If - 'Else - ' MsgError = "no se pudo insertar el detalle de la póliza2" - ' End If - 'Else - ' MsgError = "no se pudo insertar el detalle de la póliza" - ' End If - - - 'If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then - 'If Not ObjIE.UpdateSolicitudesViaticosIE(CveSolicitudViatico, CveIE) Then - ' MsgError = "Ocurrió un Error al vincular el egreso con la solicitud de viatico." - ' End If - 'End If - - ''MOVIMIENTOS INGRESOS - DEVOLUCIONES - 'ElseIf Opcion.Contiene("DEV") AndAlso MsgError = "" Then - 'Dim CveIEOtro As Integer = If(CveProveedor > 0 Or CvePersonal > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE) - - 'If CveCliente > 0 AndAlso Not DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDouble = 0 Then - ''RMF- CASO DONDE HAY UNA DEVOLUCION Y TENGO QUE AFECTAR LAS FACTURAS QUE SE HABIAN MARCADO COMO PAGADAS TENGO QUE REGRESARLAS A PENDIENTES - 'Dim Mov As New ClsMovimientos - 'If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, Now, Now, 1, 0, UsuarioActual.CveEmpresa) Then - 'Dim DtIE As DataTable = Mov.DtResultados - 'For Each dr As DataRow In DtIE.Rows - - 'If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, dr("Importe").ToString.ToDouble), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, -dr("Importe").ToString.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then - ' MsgError = "no se pudo insertar el detalle de la póliza 2" - ' End If - 'Next - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) - - ' End If - ' Mov.Dispose() - - ' 'Devolucion de INGxC Formato Charlie - ' ElseIf CveCliente > 0 AndAlso DivIvaIxC.Visible Then - - 'Dim Mov As New ClsMovimientos - ' 'INGxC - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) - - ' If TxtIvaIxC.Text.ToDouble > 0 Then - ' 'Iva - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDouble, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) - ' End If - - ' 'Bancos - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDouble, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) - ' Mov.Dispose() - - ' Else - 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then - ' MsgError = "no se pudo insertar el detalle de la póliza 2" - ' End If - 'Else - ' MsgError = "no se pudo insertar el detalle de la póliza" - ' End If - - 'End If - - ''Nuevo INGxC Formato Charlie - 'ElseIf Opcion.Contiene("INGPC") AndAlso MsgError = "" Then - - 'Dim ConceptoContable As Integer - 'Dim TipoMovimiento As Boolean - 'Dim importeMovimiento As Decimal - 'Dim FechaMovimiento As Date = Now - 'Dim Concepto As String = "" - 'Dim Referencia As String = TxtPagueseA.Text - - 'Dim importeMX As Decimal - 'Dim Multiplicador As Integer - - 'If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then - 'For Each Row As DataRow In ObjMov.DtResultados.Rows - - ' ConceptoContable = Row("CveConcepto").ToString.ToEntero - ' TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) - ' importeMovimiento = 0 - ' Multiplicador = (Row("Multiplicador").ToString.ToEntero) - ' Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, TxtPagueseA.Text, "", TxtFolio.Text) - - ' Select Case ConceptoContable - - 'Case 10 - 'If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 28 - 'If RBL.SelectedValue = "FE" AndAlso CvePersonal > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 37 - 'If RBL.SelectedValue = "DD" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 41 - 'If RBL.SelectedValue = "AC" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 50 - 'If RBL.SelectedValue = "DP" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 66 - 'If RBL.SelectedValue = "C" AndAlso CveCliente > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal - ' importeMX = importeMovimiento - - ' 'Agregamos el IVA - ' If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - 'End If - 'If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then - ''Agregamos complementaria - 'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=0) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - - 'End If - - 'End If - - 'Case 30 - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - - ' If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then - ''Agregamos complementaria - 'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - - 'End If - - 'End Select - - 'If importeMovimiento <> 0 Then - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - 'End If - - 'Next - - 'End If - 'End If - Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click Dim IE As New ClsBancos @@ -4496,7 +4318,7 @@ Partial Class Bancos_IE End If Try - If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC)) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC)) Then If ObjAC Is Nothing Then ErrorCancelar = True @@ -4592,8 +4414,9 @@ Partial Class Bancos_IE Dim TipoMovimiento As Integer = 1 Dim CveTipoTransaccionCancelacion As Integer = DdlTipoTransaccionCancelacion.SelectedValue.ToEntero + Dim CveCuentaDevolucion As Integer = DdlDevolucionCuenta.SelectedValue.ToEntero - If ChkGeneraCancelacion.Checked AndAlso GeneraCancelacionEnCero Then + If ChkGeneraCancelacion.Checked Then GeneraCancelacionEnCero = False TipoMovimiento = 2 @@ -4608,7 +4431,7 @@ Partial Class Bancos_IE If Not GeneraCancelacionEnCero Then 'CANCELA IE MES ANTERIOR CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento, - CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion) + CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion, CveCuentaDevolucion:=CveCuentaDevolucion) If CvePrePolizaCancelacion <= 0 Then ErrorCancelar = True MensajeError = "Error al cancelar IE MES ANTERIOR" @@ -4624,7 +4447,7 @@ Partial Class Bancos_IE Else 'CANCELA IE MES ACTUAL CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, - CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion) + CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion, CveCuentaDevolucion:=CveCuentaDevolucion) If CvePrePolizaCancelacion <= 0 Then ErrorCancelar = True MensajeError = "Error al cancelar IE MES ACTUAL" @@ -4681,7 +4504,7 @@ Partial Class Bancos_IE Dim ObjCancelacion As New Timbrado If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then - If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then + If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then CargaComplementosPago() RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") ErrorCancelarComplemento = False @@ -4692,7 +4515,7 @@ Partial Class Bancos_IE Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) If respCancelacion.Verificado Then - If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then CargaComplementosPago() RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") ErrorCancelarComplemento = False @@ -6758,7 +6581,7 @@ Partial Class Bancos_IE If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then - If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then + If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then CargaComplementosPago() Alert("El complemento se cancelo correctamente.") End If @@ -6768,7 +6591,7 @@ Partial Class Bancos_IE Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) If resp.Verificado Then - If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then Alert("El complemento se cancelo correctamente.") End If @@ -6969,17 +6792,21 @@ Partial Class Bancos_IE TipoMovto = "Egs" End If - GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'") - DdlTipoTransaccionCancelacion.Items.Clear() DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}' AND Estatus = 1") DdlTipoTransaccionCancelacion.DataBind() DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1")) + DdlDevolucionCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlDevolucionCuenta.DataBind() + DdlDevolucionCuenta.Items.Insert(0, New ListItem("-", "-1")) + If ChkGeneraCancelacion.Checked Then DVTipoTransacciónCancelar.Visible = True + DVTipoTransacciónCancelar2.Visible = True Else DVTipoTransacciónCancelar.Visible = False + DVTipoTransacciónCancelar2.Visible = False End If UpEliminarCotizacion.Update() From 0ccdd7504a8f004e80ffc801c12d8e85fc995b93 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Jun 2022 20:17:01 -0700 Subject: [PATCH 14/16] Crear a partir de cuando tiene carta porte --- Ventas/Ventas.aspx | 1383 +++++++++++++++++++++-------------------- Ventas/Ventas.aspx.vb | 323 +++++----- 2 files changed, 876 insertions(+), 830 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index e11a85891..a079de52a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2218,328 +2218,332 @@ - + <%--
- + + + +
-
-
-
-
-
- - CARTA PORTE -
-
-
-
-
- -
- +
--%> +
+
+
+
+
+
+
+ + CARTA PORTE +
+
+
-
-
- - -
- -
- -
-
-
-
- -
- - - - <%----%> -
-
-
-
- -
- - - - <%----%> -
-
-
-
- -
-
    -
  • -
    - -
    -
  • -
-
- -
-
    -
  • -
    - -
    -
  • -
-
-
-
-
-
-
- -
- - - -
-
-
-
- -
- - - - -
-
-
-
- -
- -
-
-
-
-
- -
- - - -
-
-
-
- -
- -
-
-
-
- -
- -
-
-
-
-
-
-
-
-
-
- - Mercancias -
-
-
- -
-
-
- -
-
-
-
- - - - -   - - - - - - - - - - - -
-
-
-
-
-
-
-
+
+ +
+
+
+
+ + +
+ +
+ +
+
+
+
+ +
+ + + +
+
+
+
+ +
+ + + +
+
+
+
+ +
+
    +
  • +
    + +
    +
  • +
+
+ +
+
    +
  • +
    + +
    +
  • +
+
+
+
+
+
+
+ +
+ + + +
+
+
+
+ +
+ + + + +
+
+
+
+ +
+ +
+
+
+
+
+ +
+ + + +
+
+
+
+ +
+ +
+
+
+
+ +
+ +
+
+
+
+
+
+
+
+
+
+ + Mercancias +
+
+
+ +
+
+
+ +
+
+
+
+ + + + +   + + + + + + + + + + + +
+
+
+
+
+
+
+
-
-
-
-
-
- - COMERCIO EXTERIOR -
-
-
-
-
- -
- +
+
+
+
+
+
+ + COMERCIO EXTERIOR +
+
+
- - - -
-
-
- - FEMSA - -
-
-
-
-
- -
- -
-
- - -
-
-
-
-
-
-
-
- - FORD - -
-
-
-
-
- -
- + + + + + + + + + + + +
-
-
-
- -
-
-
- - 7Eleven +
+
+
+
+
+
+ + 7Eleven +
+
+
-
-
+
+ +
+ +
+
+ + +
+
+
+
+
+
+
+
+
+
+
+
+ + Detallista +
+
+
+
+
+ +
+ +
+
+ +
- - -
-
-
-
-
- - Detallista - -
-
-
-
-
- -
- +
+
+
+
+
+
+ + Complementos INE +
+
+
- - -
-
-
-
-
-
-
- - Complementos INE -
-
-
-
-
-
- -
-
-