From 6b3426c45b5df806c8e4b4baa1b8dd1ad14435c8 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 20 Jul 2023 13:10:40 -0700 Subject: [PATCH] eFacturas registrar compras --- AC/Reportes/NoIncluir.rdlc | 3083 +++++++++++++++++++ App_Code/ClsRH.vb | 8 +- Bancos/IE.aspx.vb | 4 + Compras/eFacturas.aspx | 154 +- Compras/eFacturas.aspx.vb | 672 ++-- Empresas/119/Formatos/RepIVAAcreditable.rpt | Bin 131072 -> 131072 bytes OC/OC.aspx | 13 +- RH/CatAsistenciasInasistencias.aspx | 4 +- RH/CatAsistenciasInasistencias.aspx.vb | 6 +- RH/Personal.aspx | 39 +- 10 files changed, 3613 insertions(+), 370 deletions(-) create mode 100644 AC/Reportes/NoIncluir.rdlc diff --git a/AC/Reportes/NoIncluir.rdlc b/AC/Reportes/NoIncluir.rdlc new file mode 100644 index 000000000..418752c04 --- /dev/null +++ b/AC/Reportes/NoIncluir.rdlc @@ -0,0 +1,3083 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 3560db3f-20af-4776-9f09-85925745c52f + + + + + + DataSet1 + /* Local Query */ + + + + Nombre + System.String + + + ImporteActual + System.Int16 + + + ImporteAnterior + System.Int16 + + + CtaMayor + System.Int16 + + + Orden + System.String + + + Tipo + System.String + + + Sup + System.String + + + Level + System.Int16 + + + TipoCuenta + System.Int16 + + + + DataSet1 + c:\users\caudillo\documents\visual studio 2013\Projects\WebApplication1\WebApplication1\DataSet1.xsd + ActivoCirculante + + + + + + + + + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + + + + + TOTAL ACTIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00011*", "011*") + + + + =Fields!Nombre.Value + NotEqual + + ACTIVO CIRCULANTE + + + + 2.6512cm + 0.06568cm + 1.65cm + 10.70896cm + + + Verdana + 8pt + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00012*", "012*") + + + + =Fields!Nombre.Value + NotEqual + + ACTIVO NO CIRCULANTE + + + + 4.74417cm + 0.06568cm + 1.65cm + 10.70896cm + 1 + + + Verdana + 8pt + + + + + + + 5.10007cm + + + 2.1825cm + + + 2.17523cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!Nombre.Value + NotEqual + + PASIVO CIRCULANTE + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*") + + + + 2.6512cm + 10.88047cm + 1.65cm + 9.4578cm + 2 + + + Verdana + 8pt + + + + + + + 5.14411cm + + + 2.1825cm + + + 2.13119cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!Nombre.Value + NotEqual + + PASIVO NO CIRCULANTE + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00022*", "022*") + + + + 4.74417cm + 10.88047cm + 1.65cm + 9.4578cm + 3 + + + Verdana + 8pt + + + + true + true + + + + + ACTIVO + + + + + + + Textbox28 + 1.84891cm + 0.27028cm + 0.6cm + 9.7954cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PASIVO + + + + + + + Textbox28 + 1.91009cm + 10.88047cm + 0.6cm + 8.40286cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.18815cm + + + 2.13846cm + + + 2.13119cm + + + + + 0.6cm + + + + + true + true + + + + + CAPITAL CONTABLE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL CAPITAL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + F + + + + =Fields!Nombre.Value + NotEqual + + PATRIMONIO GENERADO + + + + =Fields!Nombre.Value + NotEqual + + PATRIMONIO CONTRIBUIDO + + + + 8.30193cm + 10.88047cm + 1.65cm + 9.4578cm + 6 + + + Verdana + 8pt + + + + true + true + + + + + CAPITAL + + + + + + + Textbox28 + 7.52554cm + 10.92451cm + 0.6cm + 9.41376cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Activo + + + + + + + Textbox45 + 11.31317cm + 0.27027cm + 0.6cm + 4.34021cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total CAPITAL + + + + + + + Textbox45 + 10.22837cm + 10.88047cm + 0.6cm + 3.1816cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total Pasivo y Patrimonio + + + + + + + Textbox45 + 11.31317cm + 10.26312cm + 0.6cm + 4.61265cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Pasivo: + + + + + + + Textbox45 + 6.57056cm + 10.88047cm + 0.6cm + 3.1816cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Iif(round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2) <.005 AND Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2) <.005,"" ,"La suma de los totales estan descuadradas." & round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.03141cm + 0.31432cm + 1.5cm + 1.5cm + 21 + + + + + + true + true + + + + + =Parameters!pEmp.Value + + + + + + + + + + + Textbox1 + 0.03141cm + 3.40996cm + 0.81167cm + 12.91455cm + 22 + + = IIF(First(Fields!Nombre.Value, "DataSet1"),True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado de Situación Financiera al + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 0.89924cm + 3.40996cm + 0.6cm + 12.91455cm + 23 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.03141cm + 16.58113cm + 0.81167cm + 3.49249cm + 24 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO DIFERIDO + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO DIFERIDO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + 6.92554cm + 0.06568cm + 1.65cm + 10.70896cm + 25 + + =IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,True,False) + + + + Verdana + 8pt + + + + 5.1587in + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 3.454cm + 0.6cm + 12.91455cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.02088cm + 16.62517cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 2.27541cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + . + + + + + + + Textbox3 + 1.41083cm + 16.37931cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma2.Value + + + + Textbox2 + 0.10583cm + 1.71666cm + 0.99688cm + 8.02269cm + 1 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma1.Value + + + + Textbox2 + 0.07056cm + 10.88047cm + 0.99688cm + 8.02269cm + 2 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm +