From 33eec22d4719708cf5333b784f792fed643179d1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 5 Apr 2023 14:33:18 -0700 Subject: [PATCH 01/24] -- que no muestre alert a U100 --- Sistemas/UsuarioDetalle.aspx.vb | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 8f39f2c0a..8cdcf4ad9 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1383,14 +1383,12 @@ Partial Class Sistemas_UsuarioDetalle GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing - GlobalDTUsuarios(CveEmpresa:=-1) = Nothing - If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then - Alert("Globals Recargados " & UsuarioActual.CveEmpresa) - End If - 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then - ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - 'End If + GlobalDTUsuarios(CveEmpresa:=-1) = Nothing + + 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If End Sub Private Sub EnviaCorreo() From 0aa9622e22d5e68f4fbc1fb1e6a94484639cfad1 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 10 Apr 2023 18:28:31 -0700 Subject: [PATCH 02/24] =?UTF-8?q?--=20correcci=C3=B3n=20en=20otros=20ingre?= =?UTF-8?q?sos,=20en=20d=C3=B3lares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index eb20408ad..ce0647911 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7772,9 +7772,10 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True End If End If + 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL Dim tOtCveCon As Integer = 211 Dim tOtTipoMovto As Boolean = False Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0) @@ -8283,8 +8284,9 @@ Public Class ClsPaginas End If End If 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL Dim tOtCveCon As Integer = 78 Dim tOtTipoMovto As Boolean = True If ImporteMovimiento < 0 Then From 9078f9881c7a5a99495a313821a20e5c4d4cdb0e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 12 Apr 2023 09:46:33 -0700 Subject: [PATCH 03/24] --Cambios en formatos de factura de franquicias de econo --- Empresas/141/Formatos/Factura.rdlc | 932 +++++++++++++++-------------- Empresas/152/Formatos/Factura.rdlc | 545 ++++++++++++----- Empresas/159/Formatos/Factura.rdlc | 838 ++++++++++++-------------- Empresas/160/Formatos/Factura.rdlc | 840 ++++++++++++-------------- Empresas/161/Formatos/Factura.rdlc | 830 ++++++++++++------------- Empresas/162/Formatos/Factura.rdlc | 834 ++++++++++++-------------- Empresas/163/Formatos/Factura.rdlc | 830 ++++++++++++------------- Empresas/166/Formatos/Factura.rdlc | 908 +++++++++++++--------------- 8 files changed, 3169 insertions(+), 3388 deletions(-) diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 67cb0f92c..17121cd74 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -505,7 +505,7 @@ true - 6.32868in + 6.61175in 0.06752in 1.42169in 8.23953in @@ -2228,116 +2228,6 @@ 2pt - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.20293cm - 0.22108cm - 2.03224cm - 20.79751cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2353,11 +2243,11 @@ Textbox5 - 13.27434cm - 0.24983cm + 14.04286cm + 0.30274cm 0.05496cm 20.88652cm - 16 + 15 @@ -2369,57 +2259,6 @@ 2pt - - Embedded - ID3 - FitProportional - 24.6983cm - 0.28014cm - 0.93046cm - 5.37042cm - 17 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.36352cm - 0.28014cm - 0.6882cm - 20.71217cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2462,7 +2301,7 @@ 17.11694cm 0.64028cm 3.90165cm - 19 + 16 @@ -2625,11 +2464,11 @@ Textbox4 - 13.43513cm - 0.16383cm + 14.20365cm + 0.21674cm 2.44366cm 15.51057cm - 20 + 17 @@ -2660,11 +2499,11 @@ Textbox19 - 5.27553in - 6.21617in + 5.5781in + 6.237in 0.17608in 0.94607in - 21 + 18 @@ -2695,11 +2534,11 @@ Textbox19 - 5.4305in - 6.21616in + 5.73307in + 6.23699in 0.17608in 0.94607in - 22 + 19 @@ -2730,11 +2569,11 @@ Textbox19 - 5.59199in - 6.21616in + 5.89456in + 6.23699in 0.17608in 0.94607in - 23 + 20 @@ -2765,11 +2604,11 @@ Textbox19 - 5.76074in - 6.22658in + 6.06331in + 6.24741in 0.17608in 0.94607in - 24 + 21 @@ -2801,11 +2640,11 @@ Textbox19 - 5.92637in - 6.237in + 6.22894in + 6.25783in 0.19596in 0.94607in - 25 + 22 @@ -2837,11 +2676,11 @@ Textbox42 - 5.27553in - 7.16224in + 5.5781in + 7.18307in 0.17608in 0.98426in - 26 + 23 @@ -2872,11 +2711,11 @@ Textbox42 - 5.4305in - 7.16224in + 5.73307in + 7.18307in 0.17608in 0.98425in - 27 + 24 @@ -2907,11 +2746,11 @@ Textbox42 - 5.59199in - 7.17266in + 5.89456in + 7.19349in 0.17608in 0.98425in - 28 + 25 @@ -2943,11 +2782,11 @@ Textbox42 - 5.76074in - 7.17266in + 6.06331in + 7.19349in 0.17608in 0.98425in - 29 + 26 @@ -2979,11 +2818,11 @@ Textbox42 - 5.92637in - 7.18308in + 6.22894in + 7.20391in 0.19596in 0.98425in - 30 + 27 @@ -3018,7 +2857,7 @@ 7.90108cm 0.78cm 4.3635cm - 31 + 28 @@ -3044,11 +2883,11 @@ Textbox5 - 15.94935cm - 0.10579cm + 16.71787cm + 0.1587cm 0.05496cm 20.88652cm - 32 + 29 @@ -3095,7 +2934,7 @@ 1.15361cm 1.32415cm 19.15078cm - 33 + 30 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true) @@ -3109,110 +2948,6 @@ 2pt - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.3435in - 6.67743in - 0.6035in - 0.78275in - 34 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 22.8083cm - 0.28014cm - 1.49135cm - 5.37042cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - true true @@ -3228,11 +2963,11 @@ Textbox5 - 25.69578cm - 0.28014cm + 20.40466cm + 0.15401cm 0.05496cm 20.88652cm - 37 + 31 @@ -3244,138 +2979,6 @@ 2pt - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 22.8083cm - 7.45145cm - 2.45709cm - 6.56105cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 22.79852cm - 14.67145cm - 1.46939cm - 6.32076cm - 39 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -3404,7 +3007,7 @@ 1.15361cm 1.05791cm 19.15078cm - 40 + 32 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") > 0),false,true) @@ -3442,7 +3045,7 @@ Textbox5 - 0.14926cm + 0.16514cm 0.07193cm 0.54004cm 20.7077cm @@ -3478,7 +3081,7 @@ Textbox29 - 0.83025cm + 0.84613cm 4.78817cm 0.41981cm 5.31841cm @@ -3511,7 +3114,7 @@ Textbox29 - 0.83025cm + 0.84613cm 10.10658cm 0.41981cm 7.14985cm @@ -3856,7 +3459,7 @@ DataSet4 - 1.39643cm + 1.41231cm 3.28643cm 0.85604cm 15.30142cm @@ -3867,13 +3470,44 @@ + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + true - 19.97297cm - 0.13424cm - 2.25247cm + 20.4949cm + 0.16383cm + 2.26835cm 20.89818cm - 41 + 33 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3925,7 +3559,7 @@ 13.59221cm 0.54281cm 7.38429cm - 42 + 34 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3941,13 +3575,13 @@ Embedded - LogoLlantas1 + logoLlantas21 FitProportional - 12.27878cm - 0.20617cm + 13.24423cm + 0.25908cm 0.85359cm 20.86494cm - 43 + 35 @@ -3982,7 +3616,7 @@ 0.20617cm 0.44183cm 20.83436cm - 44 + 36 @@ -3993,11 +3627,281 @@ 2pt + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.24923cm + 0.15557cm + 2.92445cm + 20.98078cm + 37 + + + + - 25.75074cm + 22.76324cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.55218cm - 0.28679cm - 2.03224cm - 20.79751cm - 13 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2251,11 +2141,11 @@ Textbox5 - 14.13159cm + 14.60784cm 0.31554cm 0.05496cm 20.88652cm - 14 + 13 @@ -2309,7 +2199,7 @@ 17.15637cm 0.64028cm 3.90165cm - 15 + 14 @@ -2472,11 +2362,11 @@ Textbox4 - 14.29238cm + 14.76863cm 0.22954cm 2.44366cm 15.5106cm - 16 + 15 @@ -2507,11 +2397,11 @@ Textbox19 - 5.61303in + 5.80053in 6.24204in 0.17708in 0.94607in - 17 + 16 @@ -2542,11 +2432,11 @@ Textbox19 - 5.8055in + 5.993in 6.24203in 0.17966in 0.94607in - 18 + 17 @@ -2577,11 +2467,11 @@ Textbox19 - 6.00449in + 6.19199in 6.24203in 0.18819in 0.94607in - 19 + 18 @@ -2612,11 +2502,11 @@ Textbox19 - 6.21074in + 6.39824in 6.25245in 0.17119in 0.94607in - 20 + 19 @@ -2648,11 +2538,11 @@ Textbox19 - 6.40137in + 6.58887in 6.26287in 0.19596in 0.94607in - 21 + 20 @@ -2684,11 +2574,11 @@ Textbox42 - 5.61303in + 5.79903in 7.18811in 0.17708in 0.98426in - 22 + 21 @@ -2719,11 +2609,11 @@ Textbox42 - 5.8055in + 5.9915in 7.18811in 0.17966in 0.98425in - 23 + 22 @@ -2754,11 +2644,11 @@ Textbox42 - 6.00449in + 6.19049in 7.19853in 0.18819in 0.98425in - 24 + 23 @@ -2790,11 +2680,11 @@ Textbox42 - 6.21074in + 6.39674in 7.19853in 0.17119in 0.98425in - 25 + 24 @@ -2826,11 +2716,11 @@ Textbox42 - 6.40137in + 6.58737in 7.20895in 0.19596in 0.98425in - 26 + 25 @@ -2856,11 +2746,11 @@ Textbox5 - 16.93361cm + 17.40986cm 0.1428cm 0.05496cm 20.88652cm - 27 + 26 @@ -2880,7 +2770,7 @@ 1.21932cm 2.413cm 2.75323cm - 28 + 27 @@ -2937,7 +2827,7 @@ 1.22666cm 0.62233cm 9.17089cm - 29 + 28 @@ -2974,11 +2864,11 @@ Textbox1 - 9.92663cm - 10.53866cm + 9.72009cm + 10.83734cm 0.64039cm 9.53276cm - 30 + 29 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3027,7 +2917,7 @@ 1.21932cm 1.32415cm 19.15078cm - 31 + 30 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20774,1,0), "DsOC") > 0),false,true) @@ -3069,7 +2959,7 @@ 1.21932cm 1.05791cm 19.15078cm - 32 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") > 0),false,true) @@ -3106,11 +2996,11 @@ Textbox4 - 13.6904cm + 14.16665cm 0.20852cm 0.40655cm 12.88812cm - 33 + 32 @@ -3121,21 +3011,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.6957cm - 0.22461cm - 0.85359cm - 20.86494cm - 34 - - - - @@ -3587,11 +3462,11 @@ true - 20.69313cm + 21.16938cm 0.1428cm 2.25247cm 20.89818cm - 35 + 33 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3601,14 +3476,299 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.40145cm + 0.1258cm + 2.92445cm + 20.98078cm + 34 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.33295cm + 0.22931cm + 0.85359cm + 20.86494cm + 35 + + + + - 22.9456cm + 23.5806cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.55218cm - 0.22108cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1400,11 +1290,11 @@ Textbox5 - 14.19509cm + 15.05234cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1458,7 +1348,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1621,11 +1511,11 @@ Textbox4 - 14.35588cm + 15.21313cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1656,11 +1546,11 @@ Textbox19 - 5.63803in + 5.97553in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1691,11 +1581,11 @@ Textbox19 - 5.8305in + 6.168in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1726,11 +1616,11 @@ Textbox19 - 6.02949in + 6.36699in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1761,11 +1651,11 @@ Textbox19 - 6.23574in + 6.57324in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1797,11 +1687,11 @@ Textbox19 - 6.42637in + 6.76387in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1833,11 +1723,11 @@ Textbox42 - 5.66303in + 5.97553in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1868,11 +1758,11 @@ Textbox42 - 5.8555in + 6.168in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1903,11 +1793,11 @@ Textbox42 - 6.05449in + 6.36699in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1939,11 +1829,11 @@ Textbox42 - 6.26074in + 6.57324in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1975,11 +1865,11 @@ Textbox42 - 6.45137in + 6.76387in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2016,7 +1906,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2042,11 +1932,11 @@ Textbox5 - 16.8701cm + 17.72735cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2093,7 +1983,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21083,1,0), "DsOC") > 0),false,true) @@ -2130,11 +2020,11 @@ Textbox4 - 13.71798cm + 14.57523cm 0.19008cm 0.40655cm 12.88812cm - 29 + 28 @@ -2152,137 +2042,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.46336cm - 0.26815cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 23.12858cm - 0.26815cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.6447in - 6.67271in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.57336cm - 0.26815cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2298,11 +2064,11 @@ Textbox5 - 23.11271cm - 0.16383cm + 21.48334cm + 0.10579cm 0.05496cm - 20.88652cm - 35 + 21.03056cm + 30 @@ -2314,169 +2080,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.57336cm - 7.43946cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.56358cm - 14.65946cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2505,7 +2108,7 @@ 1.10319cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") > 0),false,true) @@ -2569,7 +2172,7 @@ 1.16095cm 0.62233cm 9.17089cm - 40 + 32 @@ -2610,7 +2213,7 @@ 10.47295cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2624,21 +2227,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.78697cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3509,7 +3097,7 @@ 0.07079in 0.36206in 8.23497in - 43 + 34 @@ -3967,11 +3555,11 @@ true - 20.80555cm + 21.6628cm 0.16383cm 2.25247cm 20.89818cm - 44 + 35 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3981,8 +3569,293 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.62436cm + 0.17236cm + 2.92445cm + 20.98078cm + 36 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.55586cm + 0.27587cm + 0.85359cm + 20.86494cm + 37 + + + + - 26.54755cm + 24.02492cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.36168cm - 0.18933cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1387,11 +1277,11 @@ Textbox5 - 13.87759cm + 14.76659cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1445,7 +1335,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1608,11 +1498,11 @@ Textbox4 - 14.03838cm + 14.92738cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1643,11 +1533,11 @@ Textbox19 - 5.51303in + 5.86303in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1678,11 +1568,11 @@ Textbox19 - 5.7055in + 6.0555in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1713,11 +1603,11 @@ Textbox19 - 5.90449in + 6.25449in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1748,11 +1638,11 @@ Textbox19 - 6.11074in + 6.46074in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1784,11 +1674,11 @@ Textbox19 - 6.30137in + 6.65137in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1820,11 +1710,11 @@ Textbox42 - 5.53803in + 5.88803in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1855,11 +1745,11 @@ Textbox42 - 5.7305in + 6.0805in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1890,11 +1780,11 @@ Textbox42 - 5.92949in + 6.27949in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1926,11 +1816,11 @@ Textbox42 - 6.13574in + 6.48574in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1962,11 +1852,11 @@ Textbox42 - 6.32637in + 6.67637in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2003,7 +1893,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2029,11 +1919,11 @@ Textbox5 - 16.5526cm + 17.4416cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2080,7 +1970,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21092,1,0), "DsOC") > 0),false,true) @@ -2117,11 +2007,11 @@ Textbox4 - 13.40048cm + 14.28948cm 0.19008cm 0.40655cm 12.88812cm - 29 + 28 @@ -2139,137 +2029,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.23024cm - 0.15211cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.89546cm - 0.15211cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.55292in - 6.62703in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.34024cm - 0.15211cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2285,11 +2051,11 @@ Textbox5 - 22.87959cm + 23.76859cm 0.18789cm 0.05496cm 20.88652cm - 35 + 30 @@ -2301,169 +2067,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.34024cm - 7.32342cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.33046cm - 14.54342cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2492,7 +2095,7 @@ 1.00794cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") > 0),false,true) @@ -2556,7 +2159,7 @@ 1.16095cm 0.62233cm 9.17089cm - 40 + 32 @@ -2593,11 +2196,11 @@ Textbox1 - 9.73614cm + 9.62688cm 10.47295cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2611,21 +2214,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.46153cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3496,7 +3084,7 @@ 0.08272in 0.36206in 8.23497in - 43 + 34 @@ -3954,11 +3542,11 @@ true - 20.48601cm + 21.37501cm 0.16383cm 2.25247cm 20.89818cm - 44 + 35 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3983,11 +3571,11 @@ Textbox5 - 20.40392cm + 21.29292cm 0.18789cm 0.05496cm 20.88652cm - 45 + 36 @@ -3999,8 +3587,293 @@ 2pt + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.37311cm + 0.06799cm + 2.92445cm + 20.98078cm + 37 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.30461cm + 0.1715cm + 0.85359cm + 20.86494cm + 38 + + + + - 26.31443cm + 23.82355cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.42623cm - 0.22908cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1865,11 +1755,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.25783cm 0.05496cm 20.88652cm - 13 + 12 @@ -1923,7 +1813,7 @@ 17.09866cm 0.64028cm 3.90165cm - 14 + 13 @@ -2086,11 +1976,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.17183cm 2.44366cm 15.5106cm - 15 + 14 @@ -2121,11 +2011,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21932in 0.17708in 0.94607in - 16 + 15 @@ -2156,11 +2046,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21931in 0.17966in 0.94607in - 17 + 16 @@ -2191,11 +2081,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21931in 0.18819in 0.94607in - 18 + 17 @@ -2226,11 +2116,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22973in 0.17119in 0.94607in - 19 + 18 @@ -2262,11 +2152,11 @@ Textbox19 - 6.30137in + 6.55137in 6.24015in 0.19596in 0.94607in - 20 + 19 @@ -2298,11 +2188,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16539in 0.17708in 0.98426in - 21 + 20 @@ -2333,11 +2223,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16539in 0.17966in 0.98425in - 22 + 21 @@ -2368,11 +2258,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17581in 0.18819in 0.98425in - 23 + 22 @@ -2404,11 +2294,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17581in 0.17119in 0.98425in - 24 + 23 @@ -2440,11 +2330,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18623in 0.19596in 0.98425in - 25 + 24 @@ -2481,7 +2371,7 @@ 6.75922cm 0.82021cm 5.51336cm - 26 + 25 @@ -2507,11 +2397,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.11379cm 0.05496cm 20.88652cm - 27 + 26 @@ -2558,7 +2448,7 @@ 1.16161cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21074,1,0), "DsOC") > 0),false,true) @@ -2595,11 +2485,11 @@ Textbox4 - 13.40048cm + 14.03548cm 0.19808cm 0.40655cm 12.88812cm - 29 + 28 @@ -2617,137 +2507,13 @@ 0.28814cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.06207cm - 0.25386cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.72729cm - 0.25386cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.48671in - 6.66708in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.17207cm - 0.25386cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2763,11 +2529,11 @@ Textbox5 - 22.71142cm + 23.34642cm 0.11379cm 0.05496cm 20.88652cm - 35 + 30 @@ -2779,169 +2545,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.17207cm - 7.42517cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.16229cm - 14.64517cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2970,7 +2573,7 @@ 1.01594cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") > 0),false,true) @@ -3034,7 +2637,7 @@ 1.16895cm 0.62233cm 9.17089cm - 40 + 32 @@ -3075,7 +2678,7 @@ 10.48095cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3089,21 +2692,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.55413cm - 0.15886cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3974,15 +3562,300 @@ 0.07394in 0.36206in 8.23497in - 43 + 34 + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.29195cm + 0.04403cm + 2.92445cm + 20.98078cm + 35 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.22345cm + 0.14754cm + 0.85359cm + 20.86494cm + 36 + + + + - 26.14626cm + 23.40138cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.36168cm - 0.22108cm - 2.03224cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1400,11 +1290,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1458,7 +1348,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1621,11 +1511,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1656,11 +1546,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1691,11 +1581,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1726,11 +1616,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1761,11 +1651,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1797,11 +1687,11 @@ Textbox19 - 6.30137in + 6.55137in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1833,11 +1723,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1868,11 +1758,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1903,11 +1793,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1939,11 +1829,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1975,11 +1865,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2016,7 +1906,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2042,11 +1932,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2093,7 +1983,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21101,1,0), "DsOC") > 0),false,true) @@ -2130,11 +2020,11 @@ Textbox4 - 13.40048cm + 14.03548cm 0.19008cm 0.40655cm 12.88812cm - 29 + 28 @@ -2152,137 +2042,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 29 - - Embedded - ID3 - FitProportional - 25.12654cm - 0.15086cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.79176cm - 0.15086cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.5121in - 6.62653in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.23654cm - 0.15086cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2298,11 +2064,11 @@ Textbox5 - 22.77589cm + 23.41089cm 0.04654cm 0.05496cm 20.88652cm - 35 + 30 @@ -2314,169 +2080,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.23654cm - 7.32217cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.22676cm - 14.54217cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2505,7 +2108,7 @@ 1.00794cm 1.05791cm 19.15078cm - 39 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") > 0),false,true) @@ -2569,7 +2172,7 @@ 1.15361cm 0.62233cm 9.17089cm - 40 + 32 @@ -2610,7 +2213,7 @@ 10.46561cm 0.64039cm 9.53276cm - 41 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2624,21 +2227,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.48799cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3509,7 +3097,7 @@ 0.11029in 0.36206in 8.23497in - 43 + 34 @@ -3967,11 +3555,11 @@ true - 20.28961cm + 20.92461cm 0.12291cm 2.25247cm 20.89818cm - 44 + 35 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3981,8 +3569,293 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.30922cm + 0.02823cm + 2.92445cm + 20.98078cm + 36 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.24072cm + 0.13174cm + 0.85359cm + 20.86494cm + 37 + + + + - 26.21073cm + 23.46585cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.32993cm - 0.22908cm - 2.03224cm - 20.79751cm - 13 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2149,11 +2039,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.25783cm 0.05496cm 20.88652cm - 14 + 13 @@ -2207,7 +2097,7 @@ 17.09866cm 0.64028cm 3.90165cm - 15 + 14 @@ -2370,11 +2260,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.17183cm 2.44366cm 15.5106cm - 16 + 15 @@ -2405,11 +2295,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21932in 0.17708in 0.94607in - 17 + 16 @@ -2440,11 +2330,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21931in 0.17966in 0.94607in - 18 + 17 @@ -2475,11 +2365,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21931in 0.18819in 0.94607in - 19 + 18 @@ -2510,11 +2400,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22973in 0.17119in 0.94607in - 20 + 19 @@ -2546,11 +2436,11 @@ Textbox19 - 6.30137in + 6.55137in 6.24015in 0.19596in 0.94607in - 21 + 20 @@ -2582,11 +2472,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16539in 0.17708in 0.98426in - 22 + 21 @@ -2617,11 +2507,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16539in 0.17966in 0.98425in - 23 + 22 @@ -2652,11 +2542,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17581in 0.18819in 0.98425in - 24 + 23 @@ -2688,11 +2578,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17581in 0.17119in 0.98425in - 25 + 24 @@ -2724,11 +2614,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18623in 0.19596in 0.98425in - 26 + 25 @@ -2765,7 +2655,7 @@ 6.75922cm 0.82021cm 5.51336cm - 27 + 26 @@ -2791,11 +2681,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.11379cm 0.05496cm 20.88652cm - 28 + 27 @@ -2842,7 +2732,7 @@ 1.16161cm 1.32415cm 19.15078cm - 29 + 28 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true) @@ -2879,11 +2769,11 @@ Textbox4 - 13.40048cm + 14.03548cm 0.19808cm 0.40655cm 12.88812cm - 30 + 29 @@ -2901,309 +2791,7 @@ 0.28814cm 2.81551cm 3.93968cm - 31 - - - - - - Embedded - ID3 - FitProportional - 25.48712cm - 0.11379cm - 0.93046cm - 5.37042cm - 32 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 23.15234cm - 0.11379cm - 0.6882cm - 20.71217cm - 33 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.65406in - 6.61194in - 0.6035in - 0.78275in - 34 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.59712cm - 0.11379cm - 1.49135cm - 5.37042cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.59712cm - 7.2851cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.58734cm - 14.5051cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - logosmarcaseconollantas - FitProportional - 12.46377cm - 0.19258cm - 0.81208cm - 20.79751cm - 39 + 30 @@ -3238,7 +2826,7 @@ 1.01594cm 1.05791cm 19.15078cm - 40 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") > 0),false,true) @@ -3302,7 +2890,7 @@ 1.16895cm 0.62233cm 9.17089cm - 41 + 32 @@ -3343,7 +2931,7 @@ 10.48095cm 0.64039cm 9.53276cm - 42 + 33 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3839,11 +3427,11 @@ true - 20.74389cm + 21.37889cm 0.13824cm 2.29928cm 20.95845cm - 43 + 34 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3853,14 +3441,299 @@ + + Embedded + logoLlantas21 + FitProportional + 13.19686cm + 0.14754cm + 0.85359cm + 20.86494cm + 35 + + + + + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.26536cm + 0.04403cm + 2.92445cm + 20.98078cm + 36 + + + + - 26.54309cm + 23.67817cm - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.36168cm - 0.18933cm - 2.08516cm - 20.79751cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1400,11 +1290,11 @@ Textbox5 - 13.87759cm + 14.51259cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -1458,7 +1348,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -1621,11 +1511,11 @@ Textbox4 - 14.03838cm + 14.67338cm 0.16383cm 2.44366cm 15.5106cm - 15 + 14 @@ -1656,11 +1546,11 @@ Textbox19 - 5.51303in + 5.76303in 6.21617in 0.17708in 0.94607in - 16 + 15 @@ -1691,11 +1581,11 @@ Textbox19 - 5.7055in + 5.9555in 6.21616in 0.17966in 0.94607in - 17 + 16 @@ -1726,11 +1616,11 @@ Textbox19 - 5.90449in + 6.15449in 6.21616in 0.18819in 0.94607in - 18 + 17 @@ -1761,11 +1651,11 @@ Textbox19 - 6.11074in + 6.36074in 6.22658in 0.17119in 0.94607in - 19 + 18 @@ -1797,11 +1687,11 @@ Textbox19 - 6.30137in + 6.55137in 6.237in 0.19596in 0.94607in - 20 + 19 @@ -1833,11 +1723,11 @@ Textbox42 - 5.53803in + 5.78803in 7.16224in 0.17708in 0.98426in - 21 + 20 @@ -1868,11 +1758,11 @@ Textbox42 - 5.7305in + 5.9805in 7.16224in 0.17966in 0.98425in - 22 + 21 @@ -1903,11 +1793,11 @@ Textbox42 - 5.92949in + 6.17949in 7.17266in 0.18819in 0.98425in - 23 + 22 @@ -1939,11 +1829,11 @@ Textbox42 - 6.13574in + 6.38574in 7.17266in 0.17119in 0.98425in - 24 + 23 @@ -1975,11 +1865,11 @@ Textbox42 - 6.32637in + 6.57637in 7.18308in 0.19596in 0.98425in - 25 + 24 @@ -2016,7 +1906,7 @@ 6.75122cm 0.82021cm 5.51336cm - 26 + 25 @@ -2042,11 +1932,11 @@ Textbox5 - 16.5526cm + 17.1876cm 0.10579cm 0.05496cm 20.88652cm - 27 + 26 @@ -2093,7 +1983,7 @@ 1.15361cm 1.32415cm 19.15078cm - 28 + 27 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21669,1,0), "DsOC") > 0),false,true) @@ -2107,44 +1997,6 @@ 2pt - - true - true - true - - - - - < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > - - - - - - 2pt - 2pt - 2pt - 2pt - - Embedded LogoEditado @@ -2152,137 +2004,13 @@ 0.28014cm 2.81551cm 3.93968cm - 30 + 28 - - Embedded - ID3 - FitProportional - 25.88698cm - 0.10579cm - 0.93046cm - 5.37042cm - 31 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 23.5522cm - 0.10579cm - 0.6882cm - 20.71217cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.81148in - 6.60879in - 0.6035in - 0.78275in - 33 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 23.99698cm - 0.10579cm - 1.49135cm - 5.37042cm - 34 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2298,11 +2026,11 @@ Textbox5 - 20.94197cm + 21.57697cm 0.10579cm 0.05496cm 20.88652cm - 35 + 29 @@ -2314,169 +2042,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 23.99698cm - 7.2771cm - 2.45709cm - 6.56105cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 23.9872cm - 14.4971cm - 1.46939cm - 6.32076cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2505,7 +2070,7 @@ 1.00794cm 1.05791cm 19.15078cm - 39 + 30 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") > 0),false,true) @@ -2569,7 +2134,7 @@ 1.16095cm 0.62233cm 9.17089cm - 40 + 31 @@ -2606,11 +2171,11 @@ Textbox1 - 9.73614cm + 9.70439cm 10.47295cm 0.64039cm 9.53276cm - 41 + 32 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -2624,21 +2189,6 @@ 2pt - - Embedded - LogoLlantas1 - FitProportional - 12.49328cm - 0.15086cm - 0.85359cm - 20.86494cm - 42 - - - - @@ -3509,7 +3059,7 @@ 0.11029in 0.36206in 8.23497in - 43 + 33 @@ -3967,11 +3517,11 @@ true - 21.10276cm + 21.73776cm 0.14939cm 2.25247cm 20.89818cm - 44 + 34 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3981,8 +3531,331 @@ + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 0cm + 0.01593cm + 0.58237cm + 20.96485cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Puedes encontrarla en Appstore o Google play + + + + + + + + + como Econollantas: + + + + + + + Textbox60 + 0cm + 0.0506cm + 1.49135cm + 5.37042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Con tu aplicación el beneficio más + + + + + + + + + importante es poder escanear el código QR de tu póliza y siempre traerla contigo para + + + + + + + + + atenderte + + + + + + + + + MÁS RÁPIDO Y MEJOR. + + + + + + + Textbox60 + 0.6882cm + 7.25125cm + 1.98084cm + 6.56105cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Una vez descargada la App, podras agregar tu póliza escaneando el código QR + + + + + + + Textbox60 + 0cm + 14.64769cm + 1.46939cm + 6.32076cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Database + =System.Convert.FromBase64String(Parameters!QRDescarga.Value) + image/png + FitProportional + 0.43341in + 6.67293in + 0.6035in + 0.78275in + 4 + + + + + + Embedded + ID3 + FitProportional + 1.7033cm + 0.09579cm + 0.93046cm + 5.37042cm + 5 + + + + + + true + 10.38711cm + 0.10809cm + 2.92445cm + 20.98078cm + 35 + + + + + + Embedded + logoLlantas21 + FitProportional + 13.28686cm + 0.2116cm + 0.85359cm + 20.86494cm + 36 + + + + + + true + true + true + + + + + < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > + + + + + + 2pt + 2pt + 2pt + 2pt + + - 26.97823cm + 23.99023cm - - - - - - Textbox24 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UM - - - - - - - Textbox27 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox26 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P. Unitario - - - - - - - Textbox36 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox38 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!Cantidad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UnidadMedida.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Descripcion.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!PU.Value - - - - - - - Textbox37 - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Parameters!Importe.Value - - - - - - - Textbox39 - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - - - - - - - - - - - - - - - - - DataSet2 - 3.35585cm - 0.01844cm - 1.09cm - 20.53564cm - - - - - - - - - 4.5cm - - - 1.74905cm - - - 1.5cm - - - 2.96606cm - - - 6.82934cm - - - 2.98695cm - - - - - 0.49cm - - - - - true - true - - - - - Fecha y hora de pago - - - - - - - Textbox45 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Moneda - - - - - - - Textbox21 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TC - - - - - - - Textbox5 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cta Ordenante - - - - - - - Textbox12 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Forma de Pago - - - - - - - Textbox48 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total de Pago - - - - - - - Textbox50 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - - - true - true - - - - - =CDate(Fields!FechaPago.Value).ToString("dd-MM-yyyy") & "T12:00:00" - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!MonedaP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TipoCambioP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!CtaOrdenante.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FormaDePagoP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Monto.Value - - - - - - - Monto - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad con letra: - - - - =Parameters!CantidadLetra.Value - - - - - - - Textbox16 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet1 - 7.05357cm - 0.01844cm - 1.61062cm - 20.5314cm - 1 - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 4.71462cm - 0.01844cm - 0.49cm - 20.5314cm - 2 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 3.60753in - 0.00726in - 1.3in - 1.5in - 3 - - - - - - true - true - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CadenaOriginal.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. Certificado: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - UUID: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Sello.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SelloSAT.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!NoCertificado.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UUIDPago.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Regímen: Regímen General de Ley Personas Morales - - - - - - - - - Éste documento es una representación impresa de un CFDi - - - - - - - Textbox171 - 15.46313cm - 4.02751cm - 0.89979cm - 16.53791cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Datos del Cliente: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cliente: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cliente.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteDireccion.Value - - - - , - - - - =Parameters!ClienteColonia.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ciudad: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteCiudad.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteCP.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - CP: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - RFC Ordenante: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RFCOrdenante.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sello digital del SAT: - - - - - - - White - - 1pt - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Reg. Fiscal: - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RegimenFiscalCodigo.Value - - - - - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - - #4f81bd - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.13038cm - - - 1.64459cm - - - 1.80415cm - - - 1.76995cm - - - 1.8cm - - - 1.8cm - - - 1.8cm - - - 1.99576cm - - - 2.49576cm - - - 3.2908cm - - - - - 0.56938cm - - - - - true - true - - - - - UUID - - - - - - - Textbox6 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - SERIE - - - - - - - Textbox3 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - FOLIO - - - - - - - Textbox9 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - MONEDA - - - - - - - Textbox31 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - NO.PARC. - - - - - - - Textbox8 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SALDO ANT. - - - - - - - Textbox19 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - MONTO PAGADO - - - - - - - Textbox25 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.42016cm - - - - - true - true - - - - - =Fields!IdDocumento.Value - - - - - - - - 4 - - - - - - - - - true - true - - - - - =Fields!Serie.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!MonedaDR.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!NumParcialidad.Value - - - - - - - NumParcialidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImpSaldoAnt.Value - - - - - - - ImpSaldoAnt - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.07938cm - - - - - true - true - - - - - Impuesto - - - - - - - Textbox108 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Tipo - - - - - - - Textbox109 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Base - - - - - - - Textbox110 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Tipo Factor - - - - - - - Textbox111 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Tasa/Cuota - - - - - - - Textbox112 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox113 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - - - - - - - - Textbox114 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - - - - - - - - Textbox115 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) - - - - Top - - - - - - - - true - true - - - - - - - - - - - Top - - - - - - - - true - true - - - - - - - - - - - Top - - - - - - - - 0.07938cm - - - - - true - true - - - - - ISR - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Traslado - - - - - - - Textbox204 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra001TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra001TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra001ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox4 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox13 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IVA - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Traslado - - - - - - - Textbox204 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra002TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra002TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra002ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox67 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox68 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IEPS - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Traslado - - - - - - - Textbox204 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra003TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra003TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Tra003ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox51 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox55 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - ISR - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Retención - - - - - - - Textbox207 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret001TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret001TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret001ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox75 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox76 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IVA - - - - - - - Textbox61 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Retención - - - - - - - Textbox207 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret002TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret002TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret002ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox85 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox86 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - 0.07938cm - - - - - true - true - - - - - IEPS - - - - - - - Textbox59 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - Retención - - - - - - - Textbox207 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!ImpPagado.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret003TipoFactorDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret003TasaOCuotaDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - =Fields!Ret003ImporteDR.Value - - - - - - - ImpPagado - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - es-MX - - - - - - - - true - true - - - - - - - - - - - - Textbox95 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox96 - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - - - - - - - - - - - DataSet2 - 5.31865cm - 0.03403cm - 1.5452cm - 20.53139cm - 28 - - - - - - 16.36292cm - - - - - 20.56542cm - - - 2.96202cm - true - true - - - true - - - - - COMPLEMENTO PARA LA RECEPCIÓN DE PAGO - - - - - - - Textbox3 - 0.16028cm - 5.70051in - 0.8175cm - 2.38885in - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox3 - 0.39643in - 5.70051in - 0.60856cm - 2.38885in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Fecha Timbre - - - - - - - - - - - - - - - - Textbox3 - 0.63602in - 5.70051in - 0.5cm - 2.38885in - 2 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!FechaTimbre.Value - - - - - - - Textbox3 - 0.83287in - 5.70051in - 0.25114in - 2.38885in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo2 - FitProportional - 0.01134cm - 2.88998cm - 4.56434cm - 4 - - - - - - true - - - - - VSH Proteccion, S.A. DE C.V. - - - - - - - - - R.F.C VPR091222R63 | Permiso SSP: LSP-R-2012-M-310 - - - - - - - Textbox4 - 0.01318cm - 2.00721in - 0.50583in - 3.62386in - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Domicilio Fiscal - - - - - - - - - Calle Benito Juarez #32, Local 4, Col.: Hermosillo Centro C.P 83000 Hermosillo, Sonora, México Tel.:(662)210-64-00 - - - - - - - Textbox10 - 0.49713in - 2.92105in - 0.65513in - 1.79619in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.84667cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.21343cm - 17.10903cm - 0.41981cm - 2.94979cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 1.27cm - + + + + + + Textbox24 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UM + + + + + + + Textbox27 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox26 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. Unitario + + + + + + + Textbox36 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox38 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Cantidad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UnidadMedida.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PU.Value + + + + + + + Textbox37 + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Parameters!Importe.Value + + + + + + + Textbox39 + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + + + + + + DataSet2 + 4.3401cm + 0.01844cm + 1.09cm + 20.53564cm + + + + + + + + + 4.5cm + + + 1.74905cm + + + 1.5cm + + + 2.96606cm + + + 6.82934cm + + + 2.98695cm + + + + + 0.49cm + + + + + true + true + + + + + Fecha y hora de pago + + + + + + + Textbox45 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TC + + + + + + + Textbox5 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cta Ordenante + + + + + + + Textbox12 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Forma de Pago + + + + + + + Textbox48 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total de Pago + + + + + + + Textbox50 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + =CDate(Fields!FechaPago.Value).ToString("dd-MM-yyyy") & "T12:00:00" + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MonedaP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TipoCambioP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!CtaOrdenante.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FormaDePagoP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Monto.Value + + + + + + + Monto + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad con letra: + + + + =Parameters!CantidadLetra.Value + + + + + + + Textbox16 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet1 + 8.03782cm + 0.01844cm + 1.61062cm + 20.5314cm + 1 + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 5.69887cm + 0.01844cm + 0.49cm + 20.5314cm + 2 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 3.99503in + 0.00726in + 1.3in + 1.5in + 3 + + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Certificado: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + UUID: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Sello.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NoCertificado.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UUIDPago.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales + + + + + + + + + Éste documento es una representación impresa de un CFDi + + + + + + + Textbox171 + 16.44738cm + 4.02751cm + 0.89979cm + 16.53791cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Datos del Cliente: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Cliente: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Cliente.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + , + + + + =Parameters!ClienteColonia.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Dirección: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Ciudad: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteCiudad.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteCP.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + CP: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + RFC Ordenante: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!RFCOrdenante.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello digital del SAT: + + + + + + + White + + 1pt + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Reg. Fiscal: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.13038cm + + + 1.64459cm + + + 1.80415cm + + + 1.76995cm + + + 1.8cm + + + 1.8cm + + + 1.8cm + + + 1.99576cm + + + 2.49576cm + + + 3.2908cm + + + + + 0.56938cm + + + + + true + true + + + + + UUID + + + + + + + Textbox6 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + SERIE + + + + + + + Textbox3 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + FOLIO + + + + + + + Textbox9 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MONEDA + + + + + + + Textbox31 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + NO.PARC. + + + + + + + Textbox8 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SALDO ANT. + + + + + + + Textbox19 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MONTO PAGADO + + + + + + + Textbox25 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.42016cm + + + + + true + true + + + + + =Fields!IdDocumento.Value + + + + + + + + 4 + + + + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MonedaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NumParcialidad.Value + + + + + + + NumParcialidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpSaldoAnt.Value + + + + + + + ImpSaldoAnt + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + Impuesto + + + + + + + Textbox108 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Tipo + + + + + + + Textbox109 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Base + + + + + + + Textbox110 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Tipo Factor + + + + + + + Textbox111 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Tasa/Cuota + + + + + + + Textbox112 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox113 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0 Or Fields!Tra002BaseDR.Value > 0 Or Fields!Tra003BaseDR.Value > 0 Or Fields!Ret001BaseDR.Value > 0 Or Fields!Ret002BaseDR.Value > 0 Or Fields!Ret003BaseDR.Value > 0, False, True) + + + + Top + + + + + + + + true + true + + + + + + + + + + + Top + + + + + + + + true + true + + + + + + + + + + + Top + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra001TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra001TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra001ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox4 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox13 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra002TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra002TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra002ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox67 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox68 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra003TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra003TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Tra003ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox51 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret001TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret001TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret001ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox75 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox76 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret002TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret002TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret002ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox85 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox86 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox59 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret003TipoFactorDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret003TasaOCuotaDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + =Fields!Ret003ImporteDR.Value + + + + + + + ImpPagado + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + es-MX + + + + + + + + true + true + + + + + + + + + + + + Textbox95 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + Textbox96 + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003BaseDR.Value > 0, False, True) + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + + + + + + + + + + + DataSet2 + 6.3029cm + 0.03403cm + 1.5452cm + 20.53139cm + 28 + + + + + + true + true + + + + + Intermediario: + + + + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Proveedor: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ProveedorIntermediario.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 17.34717cm + + + + + 20.56542cm + + + 2.96202cm + true + true + + + true + + + + + COMPLEMENTO PARA LA RECEPCIÓN DE PAGO + + + + + + + Textbox3 + 0.16028cm + 5.70051in + 0.8175cm + 2.38885in + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.39643in + 5.70051in + 0.60856cm + 2.38885in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha Timbre + + + + + + + + + + + + + + + + Textbox3 + 0.63602in + 5.70051in + 0.5cm + 2.38885in + 2 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FechaTimbre.Value + + + + + + + Textbox3 + 0.83287in + 5.70051in + 0.25114in + 2.38885in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo2 + FitProportional + 0.01134cm + 2.88998cm + 4.56434cm + 4 + + + + + + true + + + + + VSH Proteccion, S.A. DE C.V. + + + + + + + + + R.F.C VPR091222R63 | Permiso SSP: LSP-R-2012-M-310 + + + + + + + Textbox4 + 0.01318cm + 2.00721in + 0.50583in + 3.62386in + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Calle Benito Juarez #32, Local 4, Col.: Hermosillo Centro C.P 83000 Hermosillo, Sonora, México Tel.:(662)210-64-00 + + + + + + + Textbox10 + 0.49713in + 2.92105in + 0.65513in + 1.79619in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.84667cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.21343cm + 17.10903cm + 0.41981cm + 2.94979cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 1.27cm + '); + } + + let myTick = 0; + let textoOld = ''; + let LimpiarAlmacen = function () { + divAlmacen.empty(); + } + let Limpiarresultado = function () { + divPS.empty(); + LimpiarAlmacen(); + } + let buscaPSTimer = function (texto) { + let Tick = myTick + 1; + myTick = Tick; + setTimeout( + function () { + if (myTick == Tick) { + if (textoOld != texto) { + buscaPS(texto); + } + textoOld = texto + } + }, 500); + }; + let buscaPS = function (texto) { + myTick = 0; + if (datos == null) { + datos = { Name: texto, metodo: 'getps' } + } + let sdata = datos; + sdata.Name = texto; + sdata.metodo = 'getps'; + Limpiarresultado(); + if (texto.length > 0) { + $.ajax({ + url: "/Ashx/SIGWeb.ashx", + data: sdata + }).done(function (data) { + //console.log(data) + if (data.length > 0) { + data = JSON.parse(data) + let dul = $('
    ') + for (i = 0; i < data.length; i++) { + dul.append('
  • ' + data[i].text + '
    • '); + } + divPS.append(dul); + } + }); + + } + textoOld = texto; + + }; + let GETPSALMACEN = function () { + PSModal.empty(); + buscador.empty(); + divResult.empty(); + Mbody.empty(); + content.append(Mheader); + content.append(Mbody); + content.append(MFotter); + buscador.append(Minput); + buscador.append($('').append(lupa)); + divResult.append('
    Productos
    Existencia
    Almacen
    ') + divResult.append($('
    ').append($('
    ').append(divPS)).append($('
    ').append(divAlmacen))) + Mbody.append($('
    ').append(buscador)); + Mbody.append(divResult); + + PSModal.append($('
    ').append(content)); + PSModal.modal(); + }; + lupa.bind("click", function () { + buscaPS(Minput.val()); + }); + Minput.bind("copy paste cut", function () { + buscaPS(Minput.val()); + }); + Minput.bind("keyup ", function (e) { + if (e.keyCode == 13) { + buscaPS(Minput.val()); + e.preventDefault(); + } else { + buscaPSTimer(Minput.val()); + } + }); + + PSModal.on('click', '.list-group-item ', function (e) { + let $this = $(this).hasClass('list-group-item') ? $(this) : $(this).closest('.list-group-item'); + let cve = $this.data('cve'); + let text = $this.text(); + let datos = { cveps: cve, metodo: 'getpsalmacen' } + $(PSModal.find('.active')).removeClass('active') + $this.addClass('active'); + //console.log('' + cve + ' : ' + text) + LimpiarAlmacen(); + $.ajax({ + url: "/Ashx/SIGWeb.ashx", + data: datos + }).done(function (data) { + //console.log(data) + LimpiarAlmacen(); + if (data.length > 0) { + data = JSON.parse(data) + for (i = 0; i < data.length; i++) { + divAlmacen.append('
    ' + data[i].existencia + '
    ' + data[i].almacen + '
    '); + } + } + }); + }); + PSModal.on('shown.bs.modal', function () { + Minput.focus(); + }); + PSModal.on('click', '.item-almacen', function (e) { + let $this = $(this).hasClass('item-almacen') ? $(this) : $(this).closest('.item-almacen'); + let cveps = $(PSModal.find('.active')).data('cve'); + let cveAlmacen = $this.data('cve'); + if ($(inputProducto).length > 0) { $(inputProducto).val(cveps) } + if ($(inputAlmace).length > 0) { $(inputAlmace).val(cveAlmacen) } + PSModal.modal('hide'); + }); + $('body').append(PSModal); + $('head').append($(style)); + $("body").keyup(function (e) { + if (e.keyCode == 113) { + GETPSALMACEN(); + } + }); + + + * + * + * + * + * + * + * + * + * + */ \ No newline at end of file diff --git a/Site.master b/Site.master index 7101ccf0b..171b0707d 100644 --- a/Site.master +++ b/Site.master @@ -15,7 +15,7 @@ <%: Scripts.Render("~/bundles/modernizr") %> @@ -346,8 +346,8 @@
    -
    -
    +
    +
      @@ -356,28 +356,28 @@
      - - - <%--
    • - -
      -
      -
      - - - -
      +
      +
      + + + + + +
      - - -
      • --%> - - - +
    +
    +
    +
    +
      + +
    +
    +
    diff --git a/Site.master.vb b/Site.master.vb index 531d5b740..f00b5f222 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -321,7 +321,8 @@ Partial Class Site estilo = If(drP("Estilo").ToString() <> "", String.Format("", drP("Estilo")), "") If menuobj.CveModuloSeleccionado = cveModuloActual Then - menuobj.HeaderBar.AppendFormat("
  • {1}
    • ", liga, modulo) + 'menuobj.HeaderBar.AppendFormat("
  • {1}
    • ", liga, modulo) + menuobj.headerstr.Add(String.Format("
  • {1}
    • ", liga, modulo)) menuobj.CveModuloSeleccionadoPadre = CveModulo menuobj.ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero()) End If @@ -345,8 +346,8 @@ Partial Class Site 'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", cveModuloActual), String.Format("id='m{0}' class='active open'", cveModuloActual)) 'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", cveModuloActual), String.Format("id='j{0}' class='selected'", cveModuloActual)) - - menuobj.HeaderBar.AppendFormat("
  • {1}
    • ", liga, modulo) + menuobj.headerstr.Insert(0, String.Format("
  • {1}
    • ", liga, modulo)) + 'menuobj.HeaderBar.AppendFormat("
  • {1}
    • ", liga, modulo) menuobj.CveModuloSeleccionadoPadre = CveModulo End If menuobj.MenuHTML.Append("") @@ -397,7 +398,9 @@ Partial Class Site menuobj.strdomain = menuobj.strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj) - + For Each stritem As String In menuobj.headerstr + menuobj.HeaderBar.Append(stritem) + Next 'Dim MenuHTML As New StringBuilder 'For Each drP As DataRow In Inicio From 802f450ea00c5c4667438ad9adbb782195f3fddd Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sun, 16 Apr 2023 12:14:31 -0700 Subject: [PATCH 12/24] Parametros de cliente regimen fiscal para stimulsoft,productos relacionados web service E141, cambios visuales en prestamo personal, correciones en ventas, precio de usados en devolucion en base al documento original, permiso para regenerar pdf --- App_Code/ClsPaginas.vb | 4 ++++ Ashx/E141.ashx | 3 ++- Bancos/PrestamoPersonal.aspx | 16 ++++++++-------- Ventas/Ventas.aspx.vb | 14 ++++++++++---- 4 files changed, 24 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 83cb1872b..d66ba6161 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6326,6 +6326,10 @@ Public Class ClsPaginas Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(Vta.DtDocumentosRelacionados IsNot Nothing, Vta.DtDocumentosRelacionados, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte lrds.Add(rds4) If UsuarioActual.Empresa.Funcionalidad(707) = "1" OrElse UsarStimulsoft Then + If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then + params.Add(New ReportParameter("ClienteRegimenFiscal", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}")) + End If + If Vta.DtDocumentosRelacionados IsNot Nothing AndAlso Vta.DtDocumentosRelacionados.Rows.Count > 0 Then params.Add(New ReportParameter("TieneDocumentosRelacionados", "True")) Else diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 0bfb003be..7f6bf47cb 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -1851,7 +1851,8 @@ Public Class E141 : Implements IHttpHandler New JProperty("short_description", ""), New JProperty("description", ""), New JProperty("currency", 1), - New JProperty("promo_price", RowPS("PrecioPromocion")) + New JProperty("promo_price", RowPS("PrecioPromocion")), + New JProperty("product_related", RowPS("CodigosRelacionados")) ) ArrayPS.Add(producto) diff --git a/Bancos/PrestamoPersonal.aspx b/Bancos/PrestamoPersonal.aspx index 332b6e4ad..10daa5b36 100644 --- a/Bancos/PrestamoPersonal.aspx +++ b/Bancos/PrestamoPersonal.aspx @@ -115,18 +115,18 @@
    -
    +
    -
    +
    -
    +
    -
    +
    <%-- @@ -137,18 +137,18 @@
    -
    +
    -
    +
    -
    +
    -
    +
    0 Then HplDownPDF.Visible = True HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))) - If UsuarioActual.CveRol = 1 Then + + If UsuarioActual.TienePermisoProceso(359) Then HplRenerarPDF.Visible = True HplRenerarPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1®ENERAR=1", CveVenta))) + End If + If UsuarioActual.CveRol = 1 Then HplImprimirPDFStimulsoft.Visible = True HplImprimirPDFStimulsoft.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=0&STIMULSOFT=1", CveVenta))) End If @@ -25278,9 +25281,9 @@ Partial Class Ventas ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion - 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then - ' ChkDevAlm.Checked = True - 'End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then + ChkDevAlm.Checked = True + End If If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then ChkDevAlm.Checked = True @@ -33429,6 +33432,9 @@ Partial Class Ventas Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal + If DtUsadosDevolucion IsNot Nothing Then + Cargo = DtUsadosDevolucion.FiltroPrimeroValor("PU", $"CvePS = {CvePsTemp}").ToString().ToDecimal() + End If If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then From f4324245098211719ba7cebcc4786a35a6c7c5dd Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 16 Apr 2023 16:17:45 -0700 Subject: [PATCH 13/24] -- cambio a dropdownlost de clentes --- Inventarios/EntradasSalidas.aspx | 3 ++- Inventarios/EntradasSalidas.aspx.vb | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 0f41c1d1d..6005f6427 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -696,7 +696,8 @@
    - + <%-- --%> +
    diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 499a811e2..41ec07a45 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5955,10 +5955,10 @@ Partial Class Inventarios_EntradasSalidas End Sub Private Sub CargaClientesCarta() - DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClienteCarta.DataBind() + 'DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlClienteCarta.DataBind() - DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClienteCarta.SelectedValue = "-1" End Sub From 115362be49c5fc0a3d8cf5b7304a4eb33f61ba03 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 16 Apr 2023 16:18:07 -0700 Subject: [PATCH 14/24] -- mejora en recarga de global de cuentas bancos --- Compras/Proveedores.aspx.vb | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 15dc5bff8..17f4b9ac2 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1823,11 +1823,8 @@ Partial Class Compras_Proveedores If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() 'ACTUALIZAR GLOBAL - 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing - 'Else - ' ErrorBancos = True - 'End If + GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing Alert("El Proveedor se guardó correctamente. " & "
    " & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")) RecargaGlobalCuentasBancarias() @@ -3416,7 +3413,9 @@ Partial Class Compras_Proveedores If CveProveedor > 0 Then If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DTCuentasBancos.Clear() - DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) + 'recargar las cuentas + GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing + DTCuentasBancos = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) Else @@ -3430,12 +3429,11 @@ Partial Class Compras_Proveedores CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) ObjCuentasBancos.Dispose() - RecargaGlobalCuentasBancarias() + End Sub Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) If CveProveedor > 0 Then GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing - End If End Sub From fe6c3022653c2270b214266cad3db7c1603477b2 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 16 Apr 2023 16:18:26 -0700 Subject: [PATCH 15/24] -- columna %impuestos en globales --- Contabilidad2/CatCuentasAsignaciones.aspx | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 59e0d8c68..685958e85 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -105,7 +105,8 @@ - + + From 9eef6932b9e781349d7e5294c1a0a50b743707b0 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 16 Apr 2023 16:23:33 -0700 Subject: [PATCH 16/24] -- egxc a acreeedor --- Bancos/IE.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index a707d96a5..f7095185e 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -265,6 +265,7 @@ Clientes Proveedor Viáticos + Acreedor From 1a161a8f919d5ac9215185be0b2a8571ebb902ec Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 16 Apr 2023 16:23:44 -0700 Subject: [PATCH 17/24] -- columna de contabilizable --- Nomina/CatConceptos.aspx | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Nomina/CatConceptos.aspx b/Nomina/CatConceptos.aspx index 112457d79..b7807d8bc 100644 --- a/Nomina/CatConceptos.aspx +++ b/Nomina/CatConceptos.aspx @@ -81,6 +81,11 @@ + + + + + From b32016c46bb8a62d06172682c2aa232f93e366ec Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 16 Apr 2023 18:05:28 -0700 Subject: [PATCH 18/24] eliminar --- Contabilidad/DIOTChilo.aspx | 29 -------- Contabilidad/DIOTChilo.aspx.vb | 121 --------------------------------- 2 files changed, 150 deletions(-) delete mode 100644 Contabilidad/DIOTChilo.aspx delete mode 100644 Contabilidad/DIOTChilo.aspx.vb diff --git a/Contabilidad/DIOTChilo.aspx b/Contabilidad/DIOTChilo.aspx deleted file mode 100644 index abe8b969a..000000000 --- a/Contabilidad/DIOTChilo.aspx +++ /dev/null @@ -1,29 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DIOTChilo.aspx.vb" Inherits="Contabilidad_DIOTChilo" %> - - - - - - - - - - - - - - - - -
    -
    - - -
    -
    - - -     - - - diff --git a/Contabilidad/DIOTChilo.aspx.vb b/Contabilidad/DIOTChilo.aspx.vb deleted file mode 100644 index bd0ee463a..000000000 --- a/Contabilidad/DIOTChilo.aspx.vb +++ /dev/null @@ -1,121 +0,0 @@ -Imports System.Data -Imports Extensiones - -Partial Class Contabilidad_DIOTChilo - Inherits Page - - Private Sub Contabilidad_DIOTChilo_Load(sender As Object, e As EventArgs) Handles Me.Load - - End Sub - - - - Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click - Dim ObjContabilidad As New ClsContabilidad - Dim ObjConta As ClsContPAQi = Nothing - Dim ObjEmpres As New Empresa() - - ObjEmpres.Empresa = "EXPLORACIONES MINERAS DEL DESIERTO S.A DE C.V" - ObjEmpres.ServerContPAQi = "192.168.0.2\COMPAC,1430" - ObjEmpres.BDContPAQi = "ctEMD" - ObjEmpres.UsrContPAQi = "sa" - ObjEmpres.PwdContPAQi = "AsS151026r37" - - Dim OcurrioError = False - Dim Mensaje = "" - - If ObjConta Is Nothing Then - ObjConta = New ClsContPAQi(ObjEmpres) - ObjConta.IniciaTransacSQL() - End If - - Dim tIdPoliza As Integer - Dim Fecha As Date - Dim ContaFolio As Integer - - If ObjContabilidad.GetPrePoliza(TxtPoliza.Text.ToEntero, 13) Then - tIdPoliza = ObjContabilidad.DtResultados(0)("IdPoliza").ToString.ToEntero - Fecha = ObjContabilidad.DtResultados(0)("Fecha").ToString.ToDate - ContaFolio = ObjContabilidad.DtResultados(0)("FolioPoliza").ToString.ToEntero - End If - - - If ObjContabilidad.GetDIOTValores(TxtPoliza.Text.ToEntero) Then - - If ObjContabilidad.DtResultados.Rows.Count.ToEntero > 0 Then - Dim IdProveedor As Integer - - Dim RFC As String = "" - Dim RazonSocial As String = "" - Dim IdCtaContProveedores As Integer - - - For Each dr As DataRow In ObjContabilidad.DtResultados.Rows - RFC = dr("RFC").ToString - RazonSocial = dr("RazonSocial").ToString - IdCtaContProveedores = dr("IdCtaContProveedores").ToString.ToEntero - - If IdCtaContProveedores > 0 Then - - 'busco la clave del proveedor en la contabilidad por su cuenta contable - If ObjConta.GetProveedores(IdCuentaContable:=IdCtaContProveedores) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - Dim drt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drt("Id").ToString.ToEntero - End If - End If - Else - 'busco la clave del proveedor en la contabilidad por su cuenta contable - If ObjConta.GetProveedores(RFC:=RFC) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - Dim drtt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drtt("Id").ToString.ToEntero - End If - Else - 'registro el proveedor generico - Select Case 13 - Case Else : IdProveedor = 0 - End Select - End If - - End If - - - If IdProveedor <= 0 Then - IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "") - If IdProveedor <= 0 Then - OcurrioError = True - End If - End If - - If Not OcurrioError Then - If dr("Total").ToString.ToDecimal <> 0.00 Then - If Not ObjConta.AddDevolucionesIVA(tIdPoliza, dr("CuentaBancos").ToString.ToEntero, - IdProveedor, - 16, - dr("SubTotal").ToString.ToDecimal, - dr("IvaAcreditable").ToString.ToDecimal, - dr("IVARetenido").ToString.ToDecimal, - dr("ISRRetenido").ToString.ToDecimal, - Fecha, - ContaFolio, - dr("Serie").ToString.ToString, - dr("Folio").ToString.StrToNum, dr("FolioFiscal").ToString, 13) Then - OcurrioError = True - Mensaje = "La Poliza o la Cuenta no son válidas" - Exit For - End If - End If - End If - Next - - - If OcurrioError Then - ObjConta.RollBack() - Else - 'Alert(String.Format("{1}
    ", tIdPoliza, ObjConta.Folio)) - ObjConta.Commit() - End If - - End If - End If - End Sub -End Class From 473f4428e0a53aeffedf762e2c896e4ba5634cc1 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 17 Apr 2023 09:28:27 -0700 Subject: [PATCH 19/24] -- quitar mensaje --- Bancos/PolizaCheque.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 33211d3ff..b56cc2f54 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -431,12 +431,12 @@ Partial Class Bancos_PolizaCheque Else ' Rad.Checked = False - If UsuarioActual.CveEmpresa <> 126 Then - Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) - GvMov.DataBind() - UPMovs.Update() - Exit Sub - End If + 'If us Then + ' Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) + ' GvMov.DataBind() + ' UPMovs.Update() + ' Exit Sub + 'End If End If End If From 645f086df3358a12cc01fb76e67b3a67fd48c748 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 17 Apr 2023 09:37:03 -0700 Subject: [PATCH 20/24] =?UTF-8?q?--=20visualizaci=C3=B3n=20de=20la=20cuent?= =?UTF-8?q?a=20si=20es=20tipoconta=3D1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PolizaCheque.aspx.vb | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index b56cc2f54..80c29bf88 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -108,7 +108,7 @@ Partial Class Bancos_PolizaCheque DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True Dim dt As DataTable = Nothing - If UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) If Conta.GetCuentas(-1, "-1", 1) Then @@ -118,6 +118,17 @@ Partial Class Bancos_PolizaCheque End If Conta.Dispose() + End If + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + Dim Conta As New ClsContabilidad + + If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then + dt = Conta.DtResultados + DtCuentasContables = Conta.DtResultados + Session("DtCuentas") = Conta.DtResultados + End If + Conta.Dispose() + End If TipoPlantilla = 0 @@ -405,6 +416,18 @@ Partial Class Bancos_PolizaCheque NombreCuenta = "" If UsuarioActual.Empresa.UsaContabilidad Then + If drt("CveCuenta").ToString.ToEntero > 0 Then + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) + + + If drr IsNot Nothing Then + IdCuenta = drt("IdCtaContable").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + End If + EsComodin = 0 + End If If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) From 3732dde1b1441aa140caff54e4348f65cf2a6577 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 18 Apr 2023 18:09:11 -0700 Subject: [PATCH 21/24] -- aumentar longitud a nombre del cliente --- Ventas/Clientes.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e9a1071eb..d72745756 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -378,7 +378,7 @@
    - + @@ -419,7 +419,7 @@
    - + From 2db9d3828aae400db03a1a7e9fb518582147be38 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 18 Apr 2023 20:16:00 -0700 Subject: [PATCH 22/24] --- App_Code/LogicNominas.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 640d0d915..7033ba0c5 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -158,8 +158,13 @@ Public Class LogicNominas Dim drow As DataRow = objNomina.DtResultados.Rows(0) CvePersonal = drow("CvePersonal").ToString().ToEntero() CvePeriodo = drow("CvePeriodo").ToString().ToEntero() - totalDb = drow("Total").ToString().ToDecimal() - subTotalDb = drow("SubTotal").ToString().ToDecimal() + If TimbreIndemnizacion Then + totalDb = drow("TotalFin").ToString().ToDecimal() + subTotalDb = drow("SubTotalFin").ToString().ToDecimal() + Else + totalDb = drow("Total").ToString().ToDecimal() + subTotalDb = drow("SubTotal").ToString().ToDecimal() + End If cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero() cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie From 860b14e7dc8c697e2f98614a6231bb4204e113ad Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Apr 2023 06:11:06 -0700 Subject: [PATCH 23/24] =?UTF-8?q?--=20se=20quitaron=20propiedades=20de=20e?= =?UTF-8?q?mpresa=20=20idcuenta,=20perdida,ganancia,ieps,iva=20--=20se=20q?= =?UTF-8?q?uit=C3=B3=20globaldtclasificaci=C3=B3n=20porcentaje?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 74 ++++----- App_Code/ClsSisEmpresas.vb | 31 ++-- App_Code/Empresa.vb | 30 ++-- App_Code/Modelos.vb | 67 ++++---- Bancos/DepositoTerminal.aspx.vb | 6 - Bancos/Devoluciones.aspx.cs | 4 +- Bancos/FluctuacionCambiaria.aspx.vb | 39 ++--- Bancos/IE.aspx.vb | 36 ++--- Bancos/PagoAcreedor.aspx.cs | 2 - Bancos/PagoDeudor.aspx.cs | 3 - Bancos/PolizaCheque.aspx.vb | 73 ++++----- Bancos/PopIEVentas.aspx.vb | 18 +-- Bancos/ProveedoresAbonar.aspx.vb | 12 +- Compras/Compras.aspx.vb | 14 +- Compras/RepNotasCredito.aspx.vb | 2 - .../CatClasificacionPorcentaje.aspx.vb | 18 +-- Contabilidad/DiarioAmortizaciones.aspx.vb | 26 ++-- Contabilidad/DiarioCompras.aspx.vb | 2 +- Contabilidad/DiarioPagos.aspx.vb | 10 +- .../Reportes/RepCuadreContaAdmon.aspx.vb | 13 -- .../RepCuadreContaAdmonDetalle.aspx.vb | 12 -- GPS/FacturacionMasiva.aspx.vb | 5 - Inventarios/Remanufactura.aspx.vb | 1 - Nomina/ReportePTU.aspx.vb | 2 +- PortalCliente/PortalCliente.aspx.vb | 6 - Sistemas/Empresa.aspx.vb | 144 +++++++++--------- Ventas/CatMetasVendedores.aspx.vb | 2 +- Ventas/ClientesAbonar.aspx.vb | 14 +- Ventas/Ventas.aspx.vb | 125 +++++++-------- 29 files changed, 325 insertions(+), 466 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3d40cef7d..b2883361f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4002,28 +4002,28 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable - Get - Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" - If HttpContext.Current.Application(AppNombre) Is Nothing Then - Using ObjVenta As New ClsGenerales - If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados - End Using - End If + 'Public Shared Property GlobalDTClasificacionPorcentaje2(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable + ' Get + ' Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + ' If HttpContext.Current.Application(AppNombre) Is Nothing Then + ' Using ObjVenta As New ClsGenerales + ' If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados + ' End Using + ' End If - Dim Str As StringBuilder = New StringBuilder() - If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) - If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) - If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTClasificacionPorcentaje = Dv.ToTable - Dv.Dispose() - End Get - Set(value As DataTable) - Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" - HttpContext.Current.Application(AppNombre) = value - End Set - End Property + ' Dim Str As StringBuilder = New StringBuilder() + ' If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) + ' If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) + ' If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) + ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + ' GlobalDTClasificacionPorcentaje2 = Dv.ToTable + ' Dv.Dispose() + ' End Get + ' Set(value As DataTable) + ' Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + ' HttpContext.Current.Application(AppNombre) = value + ' End Set + 'End Property Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTPaqueterias-{CveEmpresa}" @@ -7842,10 +7842,10 @@ Public Class ClsPaginas Dim Diferencia As Decimal = 0 If tImporteCompra <> tImportePago Then If tImporteCompra > tImportePago Then - ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria + ConceptoContable = 64 TipoMovimiento = True Else - ConceptoContable = 65 : IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + ConceptoContable = 65 TipoMovimiento = False End If Diferencia = (tImporteCompra - tImportePago).Abs.RoundSQL @@ -7921,18 +7921,18 @@ Public Class ClsPaginas Ret.CveConceptoAcreditable = 19 Ret.CveConceptoxAcreditar = 14 End If - If UsuarioActual.Empresa.TipoContabilidad = 2 Then - Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable As Integer - Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA) - If dt.Rows.Count > 0 Then - IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero - End If - Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable - Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar - Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable - End If + 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then + ' Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable As Integer + ' Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA) + ' If dt.Rows.Count > 0 Then + ' IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + ' IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero + ' End If + ' Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable + ' Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar + ' Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable + 'End If Return Ret End Get End Property @@ -8309,10 +8309,10 @@ Public Class ClsPaginas tImportePago += Pago.ImporteFluctuacionAdicional 'para los casos de aplicación de If tImporteVenta <> tImportePago Then If tImporteVenta < tImportePago Then - ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria + ConceptoContable = 64 TipoMovimiento = True Else - ConceptoContable = 65 : IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + ConceptoContable = 65 TipoMovimiento = False End If Diferencia = (tImporteVenta - tImportePago).Abs.RoundSQL diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 2ca94fb56..97542eac4 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -404,18 +404,18 @@ Public Class ClsSisEmpresas 'Nuevos Datos _Empresa.AreaGeografica = Data.Rows(0)("AreaGeografica").ToString - _Empresa.IdCuentaIVAxAcreditar = Data.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - _Empresa.IdCuentaIVAAcreditable = Data.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - _Empresa.IdCuentaIVAxTrasladar = Data.Rows(0)("IdCuentaIVAxTrasladar").ToString.ToEntero - _Empresa.IdCuentaIVATrasladado = Data.Rows(0)("IdCuentaIVATrasladado").ToString.ToEntero - _Empresa.IdCuentaRetIVACirculacion = Data.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - _Empresa.IdCuentaRetISRCirculacion = Data.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - _Empresa.IdCuentaDSV = Data.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero - _Empresa.IdCuentaImpuestosLocales = Data.Rows(0)("Conta_IdCuentaImpuestosLocales").ToString.ToEntero - _Empresa.IdCuentaIEPSxAcreditar = Data.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - _Empresa.IdCuentaIEPSAcreditable = Data.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero - _Empresa.IdCuentaIEPSxTrasladar = Data.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero - _Empresa.IdCuentaIEPSTrasladado = Data.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero + '_Empresa.IdCuentaIVAxAcreditar = Data.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero + '_Empresa.IdCuentaIVAAcreditable = Data.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero + '_Empresa.IdCuentaIVAxTrasladar = Data.Rows(0)("IdCuentaIVAxTrasladar").ToString.ToEntero + '_Empresa.IdCuentaIVATrasladado = Data.Rows(0)("IdCuentaIVATrasladado").ToString.ToEntero + '_Empresa.IdCuentaRetIVACirculacion = Data.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero + '_Empresa.IdCuentaRetISRCirculacion = Data.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + '_Empresa.IdCuentaDSV = Data.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero + '_Empresa.IdCuentaImpuestosLocales = Data.Rows(0)("Conta_IdCuentaImpuestosLocales").ToString.ToEntero + '_Empresa.IdCuentaIEPSxAcreditar = Data.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero + '_Empresa.IdCuentaIEPSAcreditable = Data.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero + '_Empresa.IdCuentaIEPSxTrasladar = Data.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero + '_Empresa.IdCuentaIEPSTrasladado = Data.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero _Empresa.IdCuentaOtrosIngresos = Data.Rows(0)("Conta_IdCuentaOtrosIngresos").ToString.ToEntero '_Empresa.IdCtaProveedor = Data.Rows(0)("IdCtaProveedor").ToString.ToEntero @@ -428,7 +428,7 @@ Public Class ClsSisEmpresas '_Empresa.IdCtaAnticipoProveedores = Data.Rows(0)("IdCtaAnticipoProveedores").ToString.ToEntero _Empresa.Buzon_Tipo = Data.Rows(0)("Buzon_Tipo").ToString - _Empresa.ContaContabilizacionNC = Data.Rows(0)("Conta_ContabilizacionNC").ToString.ToEntero + '_Empresa.ContaContabilizacionNC = Data.Rows(0)("Conta_ContabilizacionNC").ToString.ToEntero '_Empresa.Ruta = String.Format("{0}Empresas\{1}\", ModExtensiones.DirectorioBaseEmpresas, _Empresa.CveEmpresa) _Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero _Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero @@ -437,8 +437,8 @@ Public Class ClsSisEmpresas _Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero _Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero _Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No" - _Empresa.IdCuentaPerdidaCambiaria = Data.Rows(0)("IdCuentaPerdidaCambiaria").ToString.ToEntero - _Empresa.IdCuentaGananciaCambiaria = Data.Rows(0)("IdCuentaGananciaCambiaria").ToString.ToEntero + '_Empresa.IdCuentaPerdidaCambiaria = Data.Rows(0)("IdCuentaPerdidaCambiaria").ToString.ToEntero + '_Empresa.IdCuentaGananciaCambiaria = Data.Rows(0)("IdCuentaGananciaCambiaria").ToString.ToEntero _Empresa.Tipo_CentroCosto = Data.Rows(0)("Tipo_CentroCosto").ToString.ToEntero _Empresa.GrupoEmpresa = Data.Rows(0)("GrupoEmpresa").ToString.ToEntero _Empresa.PlantillaMailVenta = Data.Rows(0)("PlantillaMailVenta").ToString @@ -467,7 +467,6 @@ Public Class ClsSisEmpresas _Empresa.RutaArchivos = Data.Rows(0)("RutaArchivos").ToString - Else 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia) End If diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 666880f07..de0648139 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -53,7 +53,6 @@ Public Class Empresa Public CvePAC As Integer Public CveRegimenFiscal As Integer - Public Property Tipo_CentroCosto As Integer Public Property MostrarRetISR As Boolean Public Property Regimen As String @@ -63,7 +62,6 @@ Public Class Empresa Public Property RegistroCompleto As Integer Public Property Importe As Decimal Public Property CveMetodoPago As Integer - Public Property CodigoRegimenFiscal As String Public Property RegimenFiscal As String Public Property EstatusFacturacion As Boolean @@ -108,23 +106,23 @@ Public Class Empresa Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) End If End Get - End Property - Public Property IdCuentaIVAxTrasladar As Integer - Public Property IdCuentaIVATrasladado As Integer - Public Property IdCuentaPerdidaCambiaria As Integer - Public Property IdCuentaGananciaCambiaria As Integer - Public Property ContaContabilizacionNC As Integer + End Property + 'Public Property IdCuentaIVAxTrasladar As Integer + 'Public Property IdCuentaIVATrasladado As Integer + 'Public Property IdCuentaPerdidaCambiaria As Integer + 'Public Property IdCuentaGananciaCambiaria As Integer + ' Public Property ContaContabilizacionNC As Integer Public Property PV_TerminalTipo As Integer Public Property PlantillaMailVenta As String Public Property AsuntoPlantillaMailVenta As String 'Nuevas - Public Property IdCuentaIVAxAcreditar As Integer - Public Property IdCuentaIVAAcreditable As Integer - Public Property IdCuentaRetIVACirculacion As Integer - Public Property IdCuentaRetISRCirculacion As Integer - Public Property IdCuentaDSV As Integer - Public Property IdCuentaImpuestosLocales As Integer + 'Public Property IdCuentaIVAxAcreditar As Integer + 'Public Property IdCuentaIVAAcreditable As Integer + 'Public Property IdCuentaRetIVACirculacion As Integer + 'Public Property IdCuentaRetISRCirculacion As Integer + 'Public Property IdCuentaDSV As Integer + 'Public Property IdCuentaImpuestosLocales As Integer Public Property IdCtaProveedor As Integer Public Property IdCtaCliente As Integer Public Property IdCtaDeudores As Integer @@ -134,10 +132,6 @@ Public Class Empresa Public Property IdCtaAnticipoProveedores As Integer 'Nuevos Datos - Public Property IdCuentaIEPSxAcreditar As Integer - Public Property IdCuentaIEPSAcreditable As Integer - Public Property IdCuentaIEPSxTrasladar As Integer - Public Property IdCuentaIEPSTrasladado As Integer Public Property PorDepreciacion As Decimal Public Property CvePlataforma As Integer Public Property CveDistribuidor As Integer diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 888460422..26c66ef60 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2421,10 +2421,10 @@ Namespace Modelos SeContabiliza = False End If - If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=ObjFactura.DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - IdCtaIVAXTrasladar = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - IdCtaIVATrasladado = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero - End If + 'If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=ObjFactura.DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero + ' IdCtaIVATrasladado = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero + 'End If Dim UsaComplementariaClientes As Boolean = True 'If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True @@ -2491,11 +2491,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimiento * difFluctuacion).RoundSQL) @@ -2798,11 +2796,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador @@ -2889,11 +2885,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) * ValorMultiplicador @@ -3183,11 +3177,9 @@ Namespace Modelos If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador @@ -3332,20 +3324,20 @@ Namespace Modelos CveVentaAmortizacionAplicar = ObjFactura.CveVenta End If - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + ''código fijo en base el porcentaje iva, que se afecten las clasificaciones + 'For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then - 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva - If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString - End If + ' 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva + ' If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString + ' End If - End If + ' End If - Next + 'Next DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -3396,23 +3388,23 @@ Namespace Modelos CveVentaAmortizacionAplicar = ObjFactura.CveVenta End If - If UsuarioActual.CveEmpresa = 119 Then + 'If UsuarioActual.CveEmpresa = 119 Then - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + ' 'código fijo en base el porcentaje iva, que se afecten las clasificaciones + ' For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then - If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString - End If + ' If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString + ' End If - End If + ' End If - Next + ' Next - End If + 'End If DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -3583,9 +3575,6 @@ Namespace Modelos importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - Else - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) End If CveSubProyectoContabilizar = CveSubProyectoVenta @@ -3693,7 +3682,6 @@ Namespace Modelos End If 'IVA X TRASLADAR - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -3701,7 +3689,6 @@ Namespace Modelos End If 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -3710,14 +3697,14 @@ Namespace Modelos 'IEPS X TRASLADAR Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index 1a4095086..aea73499c 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -345,7 +345,6 @@ Partial Class Bancos_DepositoTerminal ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioVenta, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}" Case 62 'Ret IVA Trasladado @@ -387,7 +386,6 @@ Partial Class Bancos_DepositoTerminal ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioManual, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVATrasladado If tipoCambioManual > 1 Then ConceptoMovimiento += $" TC:{tipoCambioManual} ${ImporteMovimiento.FormatoNumero(2)}" Case 38 'IEPS por trasladar @@ -395,14 +393,10 @@ Partial Class Bancos_DepositoTerminal ImporteMovimiento = gvr.DataKey("IEPS").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioVenta, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar - Case 39 'IEPS Trasladado ImporteMovimiento = gvr.DataKey("IEPS").ToDecimal * PorcentajePago importeMX = Math.Round(ImporteMovimiento * tipoCambioManual, 2) - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado - Case 78 'Otros Ingresos If ChkAjusteOI.Checked Then ImporteMovimiento = gvr.FCTextBox("TxtComision").Text.ToDecimal diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 9bcabe81d..a3bf3ec35 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -540,12 +540,12 @@ public partial class Bancos_Devoluciones : ClsPaginas } //IVA - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 13, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 13, Conc, DateTime.Now, 0, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) { MsgError = "No se pudo insertar concepto de IVA"; } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 61, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 61, Conc, DateTime.Now,0, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal())) { MsgError = "No se pudo insertar concepto de IVA"; } diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index e4a771d37..ec1245098 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -294,8 +294,9 @@ Partial Class Bancos_FluctuacionCambiaria HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 + HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString - HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + HplAcreedorAntLiga.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvAcreedoresAnt.DataSource = ObjBancos.DtResultados LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero @@ -427,9 +428,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotal.ToDecimal @@ -507,9 +506,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotal.ToDecimal @@ -591,9 +588,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal() @@ -688,9 +683,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal() @@ -794,9 +787,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotalAcreedores.Text.ToDecimal @@ -883,9 +874,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotalAcreedoresAnt.Text.ToDecimal @@ -966,9 +955,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CveCuentaPerdida = 0 ' 55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Total = LblTotalBancos.Text.ToDecimal @@ -1052,9 +1039,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal @@ -1130,9 +1115,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim ErrorRegistrar As Boolean = False CveCuentaPerdida = 0 '55379 - CveCuentaGanancia = 0 ' 55382 - idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227 - IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230 + CveCuentaGanancia = 0 ' 55382 Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index d887529d1..a1c19340e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2818,7 +2818,7 @@ Partial Class Bancos_IE If TxtIvaIxC.Text.ToDouble > 0 Then Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) 'Iva - ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, 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.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0)) + ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, 0, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0)) End If 'Bancos @@ -2935,7 +2935,7 @@ Partial Class Bancos_IE Dim CveConIVA As Integer = 61 If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299 Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2) - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, 0, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If @@ -3244,14 +3244,14 @@ Partial Class Bancos_IE If DiferenciaTC < 0 Then '64 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria" Exit Select End If Else '65 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" Exit Select End If @@ -3282,9 +3282,9 @@ Partial Class Bancos_IE Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal - Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) - Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) + 'Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + 'Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero Dim IVADevMN As Decimal = 0 Dim IEPSDevMN As Decimal = 0 Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2) @@ -3305,11 +3305,11 @@ Partial Class Bancos_IE If IVADev > 0 Then - IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC + ' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then - IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC + ' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" @@ -3453,14 +3453,14 @@ Partial Class Bancos_IE If DiferenciaTC < 0 Then '64 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria" Exit Select End If Else '65 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" Exit Select End If @@ -3489,17 +3489,17 @@ Partial Class Bancos_IE Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal - Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) + 'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC) Dim IdCtaIVAXAcreditarDevDinC As Integer Dim IdCtaIVAAcreditableDevDinC As Integer - If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then - IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - Else - MsgError = "Sin Registros de porcentaje impuesto" - End If + 'If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then + ' IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'Else + ' MsgError = "Sin Registros de porcentaje impuesto" + 'End If Dim IVADevMN As Decimal = 0 Dim IEPSDevMN As Decimal = 0 diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 5dbf0ec6c..d7fb87350 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -409,13 +409,11 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (TCPago > TC) { CveConceptoDiferenciaCambiaria = 65; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; TipoMovto = false; } else if (TCPago < TC) { CveConceptoDiferenciaCambiaria = 64; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; } Importe = ((Importe * TCPago) - (Importe * TC)).Abs(); diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 3a210032b..df9520fbd 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -780,16 +780,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (TC < TCDoc) { CveConceptoDiferenciaCambiaria = 65; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; TipoMovto = false; Importe = (Importe * gvr.DataKey("TipoCambio").ToDecimal()) - (Importe * TC); } else if (TC > TCDoc) { CveConceptoDiferenciaCambiaria = 64; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; TipoMovto = true; - Importe = (Importe * TC) - (Importe * gvr.DataKey("TipoCambio").ToDecimal()); } ImporteMN = Importe; diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 80c29bf88..0b28dc305 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -416,10 +416,9 @@ Partial Class Bancos_PolizaCheque NombreCuenta = "" If UsuarioActual.Empresa.UsaContabilidad Then - If drt("CveCuenta").ToString.ToEntero > 0 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) - If drr IsNot Nothing Then IdCuenta = drt("IdCtaContable").ToString.ToEntero CodigoCuenta = drr("CuentaFormato").ToString() @@ -428,52 +427,42 @@ Partial Class Bancos_PolizaCheque End If EsComodin = 0 End If - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + + If drr IsNot Nothing Then + IdCuenta = drt("IdCtaContable").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + 'Cuenta = drr("Nombre").ToString() + End If + EsComodin = 0 - If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero + ElseIf drt("CveConcepto").ToString = "30" Then + 'saco la clave de la cuenta bancaria seleccionada + If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) + If drr IsNot Nothing Then + IdCuenta = drr("Id").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + ' Cuenta = drr("Nombre").ToString() + EsComodin = 1 + End If + End If + ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then + + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) + + IdCuenta = IdCtaFondoGarantia CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() 'Cuenta = drr("Nombre").ToString() + + EsComodin = 0 End If - EsComodin = 0 - - - ElseIf drt("CveConcepto").ToString = "30" Then - 'saco la clave de la cuenta bancaria seleccionada - If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) - If drr IsNot Nothing Then - IdCuenta = drr("Id").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - ' Cuenta = drr("Nombre").ToString() - EsComodin = 1 - Else - - ' Rad.Checked = False - 'If us Then - ' Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) - ' GvMov.DataBind() - ' UPMovs.Update() - ' Exit Sub - 'End If - - End If - End If - ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then - - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) - - IdCuenta = IdCtaFondoGarantia - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - - EsComodin = 0 - End If End If diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 0ee519115..28ee2316a 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1122,7 +1122,7 @@ Partial Class Bancos_PopIEVentas trCuentaDeposito.Visible = False Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then + If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveEmpresa:=UsuarioActual.CveEmpresa) Then If DdlTipoTransaccion.SelectedValue = "9" Then DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") @@ -1905,13 +1905,6 @@ Partial Class Bancos_PopIEVentas PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA - Dim IdCtaIVAXTrasladar As Integer = 0 - - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - End If - - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Case 61 'Iva Trasladado If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -1937,13 +1930,7 @@ Partial Class Bancos_PopIEVentas If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA - Dim IdCtaIVATrasladado As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero - End If - - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Case 38 'IEPS por trasladar If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -2078,7 +2065,6 @@ Partial Class Bancos_PopIEVentas Case 64 'Ganancia If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria Dim tImporteVenta, tImportePago, Diferencia As Decimal ImporteMovimiento = 0 @@ -2100,11 +2086,9 @@ Partial Class Bancos_PopIEVentas If tImporteVenta <> tImportePago Then If tImporteVenta < tImportePago Then ConceptoContable = 64 - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria TipoMovimiento = True Else ConceptoContable = 65 - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria TipoMovimiento = False End If Diferencia = Math.Abs(tImporteVenta - tImportePago) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 2cdd0c17f..186558956 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1877,10 +1877,10 @@ Partial Class Bancos_ProveedoresAbonar Dim IdCtaIVAXAcreditar As Integer = 0 Dim IdCtaIVAAcreditable As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'End If Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal @@ -1930,11 +1930,11 @@ Partial Class Bancos_ProveedoresAbonar End If If TCCompra > TCPago Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 99e104462..9bd4ce5fc 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5907,10 +5907,10 @@ Partial Class Compras_Compras ' Dim IdCtaIVAAcreditable As Integer = 0 Dim GuardoConcepto18 As Boolean = False - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then - IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then + ' IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero + ' ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero + 'End If '********************** Variables '********************** @@ -6362,11 +6362,9 @@ Partial Class Compras_Compras If TipoCambioCompra > TCPago Then ConceptoContable = 64 - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria TipoMovimiento = True Else ConceptoContable = 65 - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria TipoMovimiento = False End If If TCPago <> TipoCambioCompra Then @@ -6827,10 +6825,8 @@ Partial Class Compras_Compras If diferenciaTransito <> 0 Then Dim tCveCon As Integer = 65 - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria If diferenciaTransito < 0 Then tCveCon = 64 - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If diferenciaTransito = Math.Abs(diferenciaTransito) @@ -7367,11 +7363,9 @@ Partial Class Compras_Compras If importeMovimiento > 0 Then ConceptoContable = 64 TipoMovimiento = True - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria ElseIf importeMovimiento < 0 Then ConceptoContable = 65 TipoMovimiento = False - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria End If importeMovimiento = importeMovimiento.Abs.RoundSQL() diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index b06371f16..0b7e4d24c 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/Compras/RepNotasCredito.aspx.vb @@ -181,11 +181,9 @@ Partial Class Compras_RepNotasCredito If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe * difFluctuacion).RoundSQL) diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb index 4c7f79bc3..fa155e307 100644 --- a/Contabilidad/CatClasificacionPorcentaje.aspx.vb +++ b/Contabilidad/CatClasificacionPorcentaje.aspx.vb @@ -93,9 +93,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) Alert("Clasificación porcentaje agregado correctamente") - If ObjGenerales.GetClasificacionPorcentaje(-1) Then - GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - End If + 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then + ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados + 'End If CargaDatos() CargaContPaq() UpDatos.Update() @@ -105,9 +105,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) Alert("Clasificación porcentaje actualizado correctamente") - If ObjGenerales.GetClasificacionPorcentaje(-1) Then - GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - End If + 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then + ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados + 'End If CargaDatos() CargaContPaq() UpDatos.Update() @@ -120,9 +120,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje Dim objgenerales As New ClsGenerales If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then Alert("la clasificación porcentaje se eliminó correctamente") - If objgenerales.GetClasificacionPorcentaje(-1) Then - GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados - End If + 'If objgenerales.GetClasificacionPorcentaje(-1) Then + ' GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados + 'End If CargaDatos() CargaContPaq() UpDatos.Update() diff --git a/Contabilidad/DiarioAmortizaciones.aspx.vb b/Contabilidad/DiarioAmortizaciones.aspx.vb index c3d194a80..433b55244 100644 --- a/Contabilidad/DiarioAmortizaciones.aspx.vb +++ b/Contabilidad/DiarioAmortizaciones.aspx.vb @@ -810,9 +810,9 @@ Partial Class Contabilidad_DiarioAmortizaciones FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -823,9 +823,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) @@ -858,9 +858,9 @@ Partial Class Contabilidad_DiarioAmortizaciones FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -871,9 +871,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) @@ -1123,7 +1123,7 @@ Partial Class Contabilidad_DiarioAmortizaciones IVAxAcreditar = IVAAcreditable IVAAcreditable = 0 - If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then + If 1 = 1 Then TipoCambioCompra = TipoCambioCompra * -1 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores TipoCambioPago = TipoCambioPago * -1 TipoCambioFechaCompra = TipoCambioFechaCompra * -1 @@ -1301,9 +1301,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If UsuarioActual.CveEmpresa = 66 Then FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -1320,9 +1320,9 @@ Partial Class Contabilidad_DiarioAmortizaciones If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) diff --git a/Contabilidad/DiarioCompras.aspx.vb b/Contabilidad/DiarioCompras.aspx.vb index 8f3e2ebeb..b199e4ac2 100644 --- a/Contabilidad/DiarioCompras.aspx.vb +++ b/Contabilidad/DiarioCompras.aspx.vb @@ -344,7 +344,7 @@ Partial Class Contabilidad_DiarioCompras If gvr.DataKey("TipoDocto") = "NC" Then - If UsuarioActual.Empresa.ContaContabilizacionNC <> 0 Then + If 1 <> 0 Then 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores MultNC = -1 Else diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index ec96f64eb..f6e19b1f6 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -697,7 +697,7 @@ Partial Class Contabilidad_DiarioPagos If gvrc.FCHiddenField("HdnTipoDocto").Value = "NC" Then - If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then + If 1 = 1 Then TipoCambioCompra = TipoCambioCompra * -1 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores TipoCambioPago = TipoCambioPago * -1 TipoCambioFechaCompra = TipoCambioFechaCompra * -1 @@ -1054,9 +1054,9 @@ Partial Class Contabilidad_DiarioPagos If UsuarioActual.CveEmpresa = 66 Then FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA If FluctuacionCambiariaIVA < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, IdSegNeg, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera @@ -1073,9 +1073,9 @@ Partial Class Contabilidad_DiarioPagos If Dif < 0 Then - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria + tempMovto = True ' ganancia cambiaria Else - CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria + tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero) diff --git a/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb b/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb index afaa68d82..d4c2d6f79 100644 --- a/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb +++ b/Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb @@ -74,19 +74,6 @@ Partial Class RepCuadreContaAdmon Case 8 'Ant Proveedores Return 204 - - Case 9 'IVA x Acreditar - Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar - - Case 10 'IVA Acreditado - Return UsuarioActual.Empresa.IdCuentaIVAAcreditable - - Case 11 'IVA x Trasladar - Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar - - Case 12 'IVA Trasladado - Return UsuarioActual.Empresa.IdCuentaIVATrasladado - Case 13 'Ingresos Return 222 diff --git a/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb b/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb index 4b711bc3a..42d35bd3f 100644 --- a/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb +++ b/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb @@ -83,18 +83,6 @@ Partial Class RepCuadreContaAdmonDetalle Case 8 'Ant Proveedores Return 204 - Case 9 'IVA x Acreditar - Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar - - Case 10 'IVA Acreditado - Return UsuarioActual.Empresa.IdCuentaIVAAcreditable - - Case 11 'IVA x Trasladar - Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar - - Case 12 'IVA Trasladado - Return UsuarioActual.Empresa.IdCuentaIVATrasladado - Case 13 'Ingresos Return 222 diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb index 9c4d12d65..18c9736c5 100644 --- a/GPS/FacturacionMasiva.aspx.vb +++ b/GPS/FacturacionMasiva.aspx.vb @@ -790,17 +790,12 @@ Partial Class Contratos_FacturacionMasiva End If importeMovimiento = 0 - - Case 13 'Iva por Trasladar importeMovimiento = ObjFactura.IVA * ValorMultiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - - End Select If importeMovimiento <> 0 Then diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb index cd1c6528e..7d2996a1b 100644 --- a/Inventarios/Remanufactura.aspx.vb +++ b/Inventarios/Remanufactura.aspx.vb @@ -867,7 +867,6 @@ Partial Class Inventarios_Remanufactura importeMovimiento = ObjFactura.IVA * ValorMultiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" Case 38 'IEPS por Trasladar diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb index 5fbbcfe24..41c1920f5 100644 --- a/Nomina/ReportePTU.aspx.vb +++ b/Nomina/ReportePTU.aspx.vb @@ -156,7 +156,7 @@ Partial Class Nomina_ReportePTU If Not IsNothing(rowc) Then CveConcepto = rowc("CveConcepto").ToString().ToEntero() Else - CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1) + CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1, -1) End If If CveConcepto < 1 Then continuar = False diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index e5ff1a56f..7dd41fd4d 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -888,7 +888,6 @@ Partial Class Ventas_PortalCliente importeMX = importeMX.RoundSQL() TCGeneral = TCVenta - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar If TCVenta > 1 Then ConceptoMovimiento += $" TC:{TCVenta} ${ImporteMovimiento.FormatoNumero(2)}" Case 61 'IVA TRASLADADO @@ -905,7 +904,6 @@ Partial Class Ventas_PortalCliente importeMX = importeMX.RoundSQL() TCGeneral = TCFluctuacion - IdCtaContable = UsuarioActual.Empresa.IdCuentaIVATrasladado If TCFluctuacion > 1 Then ConceptoMovimiento += $" TC:{TCFluctuacion} ${ImporteMovimiento.FormatoNumero(2)}" Case 8 'RETIVA X TRASLADAR @@ -1024,7 +1022,6 @@ Partial Class Ventas_PortalCliente importeMX = importeMX.RoundSQL() TCGeneral = TCVenta - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar If TCVenta > 1 Then ConceptoMovimiento += $" TC:{TCVenta} ${ImporteMovimiento.FormatoNumero(2)}" Case 39 'IEPS TRASLADADO @@ -1041,13 +1038,11 @@ Partial Class Ventas_PortalCliente importeMX = importeMX.RoundSQL() TCGeneral = TCFluctuacion - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado If TCFluctuacion > 1 Then ConceptoMovimiento += $" TC:{TCFluctuacion} ${ImporteMovimiento.FormatoNumero(2)}" Case 64 'GANANCIA Continue For 'SKIPEA If CveMonedaVenta <> 1 Then - IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria If TCPago > TCVenta AndAlso CveMonedaVenta = 2 Then ImporteMovimiento = (ImportePago * TCPago) - (ImportePago * TCVenta) ImporteMovimiento -= ((IVAVenta * PorcentajePago) * TCFluctuacion) - ((IVAVenta * PorcentajePago) * TCVenta) @@ -1062,7 +1057,6 @@ Partial Class Ventas_PortalCliente Case 65 'PERDIDA Continue For 'SKIPEA If CveMonedaVenta <> 1 Then - IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria If TCPago < TCVenta AndAlso CveMonedaVenta = 2 Then ImporteMovimiento = (ImportePago * TCPago) - (ImportePago * TCVenta) ImporteMovimiento -= ((IVAVenta * PorcentajePago) * TCFluctuacion) - ((IVAVenta * PorcentajePago) * TCVenta) diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 601001c2d..c980a831c 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -340,93 +340,93 @@ Partial Class Sistemas_Empresa CargaCuentasContables() CargaDDLs() - Dim Row As DataRow - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString)) - If Not IsNothing(Row) Then - DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString)) - DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString - End If + 'Dim Row As DataRow + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString)) + ' DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString)) - If Not IsNothing(Row) Then - DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString)) - DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString)) + ' ' DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString)) - If Not IsNothing(Row) Then - DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString)) - DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString)) + ' DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString)) - If Not IsNothing(Row) Then - DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString)) - DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString)) + ' DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString)) - If Not IsNothing(Row) Then - DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString)) - DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString)) + ' DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString)) - If Not IsNothing(Row) Then - DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString)) - DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString)) + 'If Not IsNothing(Row) Then + ' DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString)) + ' DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString)) - If Not IsNothing(Row) Then - DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString)) - DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString)) + 'If Not IsNothing(Row) Then + ' DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString)) + ' DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString)) - If Not IsNothing(Row) Then - DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString)) - DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString)) + 'If Not IsNothing(Row) Then + ' DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString)) + ' DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString)) - If Not IsNothing(Row) Then - DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString)) - DdlDSV.SelectedValue = .IdCuentaDSV.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString)) + 'If Not IsNothing(Row) Then + ' DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString)) + ' DdlDSV.SelectedValue = .IdCuentaDSV.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString)) - If Not IsNothing(Row) Then - DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString)) - DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString)) + 'If Not IsNothing(Row) Then + ' DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString)) + ' DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString + 'End If 'NUEVOS DATOS - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString)) - If Not IsNothing(Row) Then - DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString)) - DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString)) + ' DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString)) - If Not IsNothing(Row) Then - DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString)) - DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString)) + ' DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString)) - If Not IsNothing(Row) Then - DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString)) - DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString)) + ' DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString + 'End If - Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString)) - If Not IsNothing(Row) Then - DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString)) - DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString - End If + 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString)) + 'If Not IsNothing(Row) Then + ' DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString)) + ' DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString + 'End If End If @@ -665,7 +665,7 @@ Partial Class Sistemas_Empresa Next End If - GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing + ' GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing End If diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index ffc9ae574..ebd33afe3 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -193,7 +193,7 @@ Partial Class CatMetasVendedores DtExcel.Rows.Add(dr) Next - + SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim FileExcel As New ExcelFile() Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index e6ab3292d..1d4659597 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2504,11 +2504,11 @@ Partial Class Ventas_ClientesAbonar End If If TCPago > TCVenta Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If @@ -2525,12 +2525,11 @@ Partial Class Ventas_ClientesAbonar Dim IdCtaIVAXTrasladar As Integer = 0 Dim CveCuentaIVAxTrasladar As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero + ' CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero + 'End If - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" @@ -2540,7 +2539,6 @@ Partial Class Ventas_ClientesAbonar MsgError = "Ocurrio un error al saldar el movimiento" End If - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 12349087c..70a4480dd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13863,10 +13863,10 @@ Partial Class Ventas SeContabiliza = False End If - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + ' IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() + 'End If Dim UsaComplementariaClientes As Boolean = True @@ -14237,14 +14237,12 @@ Partial Class Ventas If IngresoIVA > 0 Then - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -14256,14 +14254,14 @@ Partial Class Ventas If IngresoIEPS > 0 Then 'IEPS X TRASLADAR Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) - If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, Dr("Folio").ToString, FolioIE.ToString()) - If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If @@ -14320,11 +14318,9 @@ Partial Class Ventas If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) @@ -14430,11 +14426,9 @@ Partial Class Ventas If difFluctuacion < 0 Then CveConceptoFluctua = 65 TipoMovtoFluctua = False - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Else CveConceptoFluctua = 64 TipoMovtoFluctua = True - IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) @@ -14791,30 +14785,30 @@ Partial Class Ventas ' If UsuarioActual.CveEmpresa = 119 Then 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + 'For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097", "24479") Then - 'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then - ' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then - ' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8% - ' Else - ' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16% - ' End If + ' 'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then + ' ' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then + ' ' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8% + ' ' Else + ' ' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16% + ' ' End If - ' Else - ' TmpDTDetalle(i)("CveClasificacion") = 19930 'clasif: ventas tasa 0% - ' End If + ' ' Else + ' ' TmpDTDetalle(i)("CveClasificacion") = 19930 'clasif: ventas tasa 0% + ' ' End If - 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString() - End If + ' 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva + ' If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString() + ' End If - End If + ' End If - Next + 'Next ' End If @@ -14864,23 +14858,23 @@ Partial Class Ventas Dim CveVentaAplicar = ObjFactura.CveVenta Dim CveVentaAmortizacionAplicar = -1 - If UsuarioActual.CveEmpresa = 119 Then + 'If UsuarioActual.CveEmpresa = 119 Then - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 + ' 'código fijo en base el porcentaje iva, que se afecten las clasificaciones + ' For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then + ' 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso + ' If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString() - End If + ' If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + ' TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString() + ' End If - End If + ' End If - Next + ' Next - End If + 'End If DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -15091,13 +15085,8 @@ Partial Class Ventas ConceptoContable = 61 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 - - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - Else - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) End If - CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" End If @@ -15246,13 +15235,10 @@ Partial Class Ventas End If - - If ObjFactura.IVA <> 0 Then Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal 'IVA X TRASLADAR - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -15260,7 +15246,6 @@ Partial Class Ventas End If 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True @@ -15268,21 +15253,19 @@ Partial Class Ventas End If End If - - If ObjFactura.IEPS <> 0 Then Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIEPS").ToDecimal 'IEPS X TRASLADAR Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If @@ -16969,17 +16952,17 @@ Partial Class Ventas Dim FechaMovimiento As Date = Now Dim Concepto As String = ViewState("VentaFolio").ToString() Dim PrePolizaCorrecta = True - Dim PorcentajeImpuesto As Decimal = 0 + ' Dim PorcentajeImpuesto As Decimal = 0 Dim IdCtaIVAXTrasladar As Integer = 0 '13 Iva x Trasladar ImporteMovimiento = Importe13 * PorcentajeAmortizacion ImporteMX = Math.Round(ImporteMovimiento, 2) * TipoCambio - PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() - End If - IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) + 'PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + 'End If + 'IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) ' CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) If ImporteMovimiento > 0 Then @@ -16989,7 +16972,7 @@ Partial Class Ventas End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then PrePolizaCorrecta = False End If End If @@ -17066,11 +17049,10 @@ Partial Class Ventas ImporteMovimiento = TxtIVA.Text.ToDecimal * PorcentajeAmortizacion ImporteMX = Math.Round(ImporteMovimiento * TipoCambio, 2) PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() - CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() - End If - IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() + ' CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() + 'End If 'CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) If ImporteMovimiento > 0 Then @@ -27397,11 +27379,11 @@ Partial Class Ventas Dim ImporteFluctuacion As Decimal = 0 ImporteFluctuacion = Saldo * (TCPago - TCVenta) If TCPago > TCVenta Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), SerieFolio, 64, ConceptoPartida, FechaPago, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), SerieFolio, 64, ConceptoPartida, FechaPago, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), SerieFolio, 65, ConceptoPartida, FechaPago, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), SerieFolio, 65, ConceptoPartida, FechaPago, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If @@ -27413,15 +27395,14 @@ Partial Class Ventas Dim IdCtaIVAXTrasladar As Integer = 0 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() - End If + 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then + ' IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + 'End If If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, SerieFolio, 13, ConceptoPartida, FechaPago, IdCtaIVAXTrasladar, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=If(tCveMoneda = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If - IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, SerieFolio, 38, ConceptoPartida, FechaPago, IdCtaContable, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=If(tCveMoneda = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then MsgError = "Ocurrio un error al saldar el movimiento" End If From 7d1885fd201b6f9c050be9254bc0b7c9146bcda4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 Apr 2023 11:02:24 -0700 Subject: [PATCH 24/24] nominas en reporte de presupuestos, correciones de reporte af,correciones en traspasos y ventas --- App_Code/ClsContratos.vb | 13 +- Compras/RepComprasAF.aspx | 614 ++++++++++--------- Compras/RepComprasAF.aspx.vb | 10 +- Contratos/Presupuestos.aspx | 720 ++++++++++++----------- Contratos/Presupuestos.aspx.vb | 87 ++- Contratos/RepPresupuestos.aspx | 2 +- Contratos/RepPresupuestos.aspx.vb | 51 +- Contratos/RepPresupuestosDetalle.aspx | 2 +- Contratos/RepPresupuestosDetalle.aspx.vb | 13 +- Empresas/141/Formatos/Factura.rdlc | 163 ++--- Inventarios/TraspasoAlmacen.aspx | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- 12 files changed, 875 insertions(+), 804 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 5b34123a5..8540c06cf 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -2985,7 +2985,7 @@ Public Class ClsContratos End Function - Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String) As Boolean + Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosDetalleAdd") @@ -2996,6 +2996,7 @@ Public Class ClsContratos .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@Observacion", SqlDbType.VarChar).Value = Observacion .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom End With Try @@ -3029,7 +3030,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String) As Boolean + Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosDetalleUpdate") @@ -3039,6 +3040,7 @@ Public Class ClsContratos .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@ImporteVigente", SqlDbType.Money).Value = ImporteVigente .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom End With Try @@ -3068,7 +3070,7 @@ Public Class ClsContratos End Try Return Retorno End Function - Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveClasificacion As Integer) As Boolean + Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveAgrupador As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosRep") @@ -3082,7 +3084,7 @@ Public Class ClsContratos .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveAgrupador", SqlDbType.Int).Value = CveAgrupador End With Try @@ -3121,7 +3123,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosRepDetalle") @@ -3129,6 +3131,7 @@ Public Class ClsContratos .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@Agrupador", SqlDbType.Int).Value = Agrupador .Add("@Gpo", SqlDbType.Int).Value = Gpo diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx index 20b3912ae..41d634712 100644 --- a/Compras/RepComprasAF.aspx +++ b/Compras/RepComprasAF.aspx @@ -1,330 +1,326 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasAF.aspx.vb" Inherits="Compras_RepComprasAF" %> - - - - - - - - Reporte de Compras Activo Fijo - - - - -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • -
  • - Ver Dlls en pesos -
    • -
  • -   -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - - - - -
    -
    -
    - - -
    -
    -
    -
    Fecha Inicio:
    -
    -
    - - - - - - - - - - -
    -
    -
    Fecha Fin:
    -
    -
    - - - - - - - - - - -
    -
    -
    Grupo:
    -
    - - - - - - - - - - - - - -
    -
    -
    -
    - -
    -     -     -
    -
    - - - - - - - - - - - - - - - - - - - - - - - -
    - - - + + + +     + + + + + + + - - + + + diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index fbd61c616..781f65a9a 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -59,16 +59,20 @@ Partial Class Compras_RepComprasAF txtFechaI.Text = $"01/{Now.Month}/{Now.Year}" DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedores.DataBind() + DdlProveedores.DataBind() + DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMonedas.DataSource = GlobalDTMonedas() - DdlMonedas.DataBind() + DdlMonedas.DataBind() + DdlMonedas.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() + DdlTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() + DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) Dim ObjClasificacion As New ClsClasificaciones @@ -81,9 +85,11 @@ Partial Class Compras_RepComprasAF ObjClasificacion.Dispose() DdlClasificacion2.DataBind() + DdlClasificacion2.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() + DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx index bfb6aca06..073d6cec2 100644 --- a/Contratos/Presupuestos.aspx +++ b/Contratos/Presupuestos.aspx @@ -1,318 +1,342 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %> - - - - - - - - Presupuestos - - - - - - -
  • - Autorizar -
    • -
  • - Cargar Presupuesto -
    • -
  • - Modificar Presupuesto -
    • -     -     -     - - - -
    -
    -
    -
    -
    +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %> + + + + + + + + Presupuestos + + + + + + +
  • + Autorizar +
    • +
  • + Cargar Presupuesto +
    • +
  • + Modificar Presupuesto +
    • +     +     +     + + + +
    +
    +
    +
    +
    Datos Generales -
    -
    - - -
    -
    -
    - - -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -     -     -
    -
    -
    -
    - - -
    -
    -

    Estatus: -

    -
    -
    -
    -
    -
    -
    -
    -

    - $ - - -

    - IMPORTE -
    + +
    +
    + + +
    +
    +
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    +     +     +
    +
    +
    +
    +
    +
    +
    + Configuración + +
    +
    + + +
    +
    +
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +     +     +
    +
    +
    +
    + + +
    +
    +

    Estatus: +

    +
    +
    +
    +
    +
    +
    +
    +

    + $ + + +

    + IMPORTE +
    <%--
    -
    --%> -
    -
    -
    - -
    -
    -
    -
    -

    - $ - - -

    - EJERCIDO -
    +
    --%> +
    +
    +
    + +
    +
    +
    +
    +

    + $ + + +

    + EJERCIDO +
    <%--
    -
    --%> -
    -
    -
    - - - - -
    -
    -
    Porcentaje Ejercido
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    -

    - $ - - -

    - POR EJERCER -
    +
    --%> +
    +
    +
    + + + + +
    +
    +
    Porcentaje Ejercido
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +

    + $ + + +

    + POR EJERCER +
    <%--
    -
    --%> -
    -
    -
    - - - - -
    -
    -
    Porcentaje Por Ejercer
    -
    - -
    -
    -
    -
    -
    - -
    - - -
    -
    -
    -
    -
    -
    -
    -
    +
    --%> +
    +
    +
    + + + + +
    +
    +
    Porcentaje Por Ejercer
    +
    + +
    +
    +
    +
    +
    + +
    + + +
    +
    +
    +
    +
    +
    +
    +
    Presupuestos -
    -
    - - -
    -
    -
    -
    - - - - - - - - - - - - - Total : - - - - - - - - - - - - - - -
    -
    -
    -
    -
    - - -
    -
    -
    - -
    -
    -
    -     -     - + + +
    +
    +
    + +
    +
    +
    +     +     + - - + --> + +
    +
    +
    + +
    + + + Procesar + + +
    +
    + + + + + +
    + + - - + + + diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index dc344f772..15b704ed9 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -5,10 +5,10 @@ Imports System.Data Imports Extensiones Partial Class Contratos_Presupuestos - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" - + Public Property CvePresupuesto() As Integer Get Return ViewState("CvePresupuesto").ToString.ToEntero @@ -37,10 +37,10 @@ Partial Class Contratos_Presupuestos Set(ByVal value As DataTable) ViewState("DtClasificaciones") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CvePresupuesto = IfNull(Request("CvePresupuesto"), -1).ToString.ToEntero @@ -56,8 +56,8 @@ Partial Class Contratos_Presupuestos UpGvClasificaciones.Update() UpIndicadores.Update() End If - End Sub - + End Sub + #Region "I N I C I A L I Z A - V A L O R E S" Private Sub InicializaValores() TxtFechaI.Text = $"01/01/{Now.Year}" @@ -125,13 +125,13 @@ Partial Class Contratos_Presupuestos End Select End If If e.Row.RowType = DataControlRowType.Footer Then - Dim Importe = DtClasificaciones.SUM("Importe", "CveClasificacion IS NOT NULL") + Dim Importe = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe) End If - End Sub - + End Sub + #End Region - + #Region "C A R G A - D A T O S" Private Sub CargaDatos() CargaMoneda() @@ -245,9 +245,9 @@ Partial Class Contratos_Presupuestos HlModificar.Visible = True HlModificar.NavigateUrl = $"/Contratos/ModificarPresupuesto.aspx?CvePresupuesto={CvePresupuesto}" End If - End Sub + End Sub #End Region - + #Region "G U A R D A R " Private Function ValidaDatos() As Boolean If String.IsNullOrEmpty(TxtPresupuesto.Text.Trim) Then @@ -327,23 +327,39 @@ Partial Class Contratos_Presupuestos For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - Dim CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero - Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero + + Dim CveTipoGasto = -1 + Dim CveClasificacion As Integer = -1 + Dim CveConceptoContableNom As Integer = -1 + + If Tipo = 1 Then + CveClasificacion = CveAgrupador + CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + End If + + If Tipo = 2 Then + CveConceptoContableNom = CveAgrupador + End If + + Dim CvePresupuestoDetalle = GvRow.DataKey("CvePresupuestoDetalle").ToEntero Dim Importe = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal Dim Obs = GvRow.FCTextBox("TxtObservacion").Text.Trim + 'ACTUALIZA EL REGISTRO EXISTENTE If CvePresupuestoDetalle > 0 Then - TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs) + TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If 'AGREGA LA CLASIFICACION SI NO EXISTE EN EN EL DT DETALLE Else - If Importe > 0 And CveClasificacion > 0 Then - TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs) + If Importe > 0 And CveAgrupador > 0 Then + TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If @@ -385,18 +401,33 @@ Partial Class Contratos_Presupuestos If CvePresupuestoNuevo > 0 Then Dim ImporteClasi = 0.0D - Dim CveClasificacion = -1 Dim ObsDetalle = "" For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal - CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero - Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal + ObsDetalle = GvRow.FCTextBox("TxtObservacion").Text.Trim + + Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero + + Dim CveClasificacion As Integer = -1 + Dim CveConceptoContableNom As Integer = -1 + Dim CveTipoGasto As Integer = -1 + + If Tipo = 1 Then + CveClasificacion = CveAgrupador + CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + End If + + If Tipo = 2 Then + CveConceptoContableNom = CveAgrupador + End If + If CveClasificacion > 0 Then If ImporteClasi > 0 Then - TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle) + TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If @@ -427,11 +458,11 @@ Partial Class Contratos_Presupuestos Alert("Se agregó el presupuesto correctamente.", TipoMensaje.MsgInformacion, Liga) End If - End Sub + End Sub #End Region - - - + + + Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Handles LnkAutorizar.Click If ValidaDatos() Then If ActualizarPresupuesto() Then diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index ba7cfd71f..500e6ef34 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -233,7 +233,7 @@
    Clasificacion:
    - +
    Tipo Gasto:
    diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 07cfc6d1f..4800f3850 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -8,9 +8,9 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contratos_RepPresupuestos - Inherits ClsPaginas + Inherits ClsPaginas #Region "P R O P I E D A D E S" - + Public Property DtPresupuestos() As DataTable Get Return DirectCast(ViewState("DtPresupuestos"), DataTable) @@ -18,15 +18,15 @@ Partial Class Contratos_RepPresupuestos Set(ByVal value As DataTable) ViewState("DtPresupuestos") = value End Set - End Property - + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then InicializaValores() End If - End Sub - + End Sub + #Region " INICIALIZA VALORES " Private Sub InicializaValores() @@ -36,9 +36,14 @@ Partial Class Contratos_RepPresupuestos DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()} + ).Union(From dr In GlobalDTContaConceptosContables(-1) + Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True) + + DdlClasificacion.DataSource = dtAgrupador + DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) - DdlClasificacion.DataBind() DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) @@ -46,12 +51,12 @@ Partial Class Contratos_RepPresupuestos CargaSubProyecto() UpFiltros.Update() - End Sub + End Sub #End Region - - + + #Region " CARGA DATOS " - + Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then @@ -362,15 +367,15 @@ Partial Class Contratos_RepPresupuestos EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If - End Sub + End Sub #End Region - - - + + + Protected Sub ChkMensual_CheckedChanged(sender As Object, e As EventArgs) Handles ChkMensual.CheckedChanged DivRepDatos.Visible = Not ChkMensual.Checked @@ -492,7 +497,7 @@ Partial Class Contratos_RepPresupuestos Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If Else @@ -506,7 +511,7 @@ Partial Class Contratos_RepPresupuestos Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If @@ -515,8 +520,8 @@ Partial Class Contratos_RepPresupuestos End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) CargaSubProyecto() - End Sub - + End Sub + #Region " IMPRESION - NUEVO " Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click GenerarPDF("EXCEL") @@ -555,7 +560,7 @@ Partial Class Contratos_RepPresupuestos Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If - End Sub + End Sub #End Region - + End Class diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 05b3668d8..35ed80fe3 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -226,7 +226,7 @@
    Clasificacion:
    - +
    Tipo Gasto:
    diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 75fdbd48b..af74319ad 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -45,9 +45,14 @@ Partial Class Contratos_RepPresupuestosDetalle TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}" TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}" - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()} + ).Union(From dr In GlobalDTContaConceptosContables(-1) + Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True) + + DdlClasificacion.DataSource = dtAgrupador + DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1")) - DdlClasificacion.DataBind() DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() @@ -181,7 +186,7 @@ Partial Class Contratos_RepPresupuestosDetalle EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If @@ -302,7 +307,7 @@ Partial Class Contratos_RepPresupuestosDetalle EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 17121cd74..09de3e8e3 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -346,8 +346,9 @@ =Parameters!QR.Value FitProportional 0.04167in + 0.04352in 1.37377in - 1.7524in + 1.73969in @@ -489,7 +490,7 @@ Textbox88 0.07057cm - 4.6275cm + 4.54701cm 2.25463cm 16.27211cm 1 @@ -506,9 +507,9 @@ true 6.61175in - 0.06752in + 0.09419in 1.42169in - 8.23953in + 8.20784in @@ -519,34 +520,34 @@ - 0.54014in + 0.5387in - 0.59111in + 0.58967in - 0.80359in + 0.80215in - 0.66404in + 0.64011in - 2.11562in + 2.06124in - 0.6863in + 0.68486in - 0.69852in + 0.69708in - 0.6403in + 0.63886in - 0.67895in + 0.67751in - 0.80447in + 0.80303in @@ -1384,9 +1385,9 @@ DsOC 1.75278in - 0.09836in + 0.13771in 0.36206in - 8.22304in + 8.13325in 1 - 22.76324cm + 22.76325cm