From 5565150f33dd82978ff6e55edf35c5e50dcd3dad Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 8 Mar 2022 13:10:03 -0700
Subject: [PATCH] Ie correcion concepto 3 sin venta, se cambia por 66,
 RepOrigen aplicaion cambios columnas de ejercicios.

---
 Bancos/IE.aspx.vb                        |  2 +-
 Contabilidad/RepOrigenAplicacion.aspx    | 16 ++++++++++++++++
 Contabilidad/RepOrigenAplicacion.aspx.vb | 14 ++++++++++++++
 3 files changed, 31 insertions(+), 1 deletion(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 8be4b0926..cb9885c32 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2613,7 +2613,7 @@ Partial Class Bancos_IE
 
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "ANTC" Then
                 If CveCliente > 0 Then
-                    CveConceptoCompra = 3 'Clientes
+                    CveConceptoCompra = 66 'Clientes
                     CveConceptoContable = 30 'Bancos
                     CvePlantillaPoliza = 12
                 End If
diff --git a/Contabilidad/RepOrigenAplicacion.aspx b/Contabilidad/RepOrigenAplicacion.aspx
index 68b37fb1b..5e47e1b03 100644
--- a/Contabilidad/RepOrigenAplicacion.aspx
+++ b/Contabilidad/RepOrigenAplicacion.aspx
@@ -243,6 +243,22 @@
                                             </ItemTemplate>
                                             <ItemStyle Width="400" HorizontalAlign="Left" />
                                         </asp:TemplateField>
+
+                                         <asp:TemplateField HeaderText="" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:Label ID="LblImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>'  ></asp:Label>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+
+                                         <asp:TemplateField HeaderText="" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:Label ID="ImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'  ></asp:Label>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+
+
                                         <asp:TemplateField HeaderText="Origen">
                                             <ItemTemplate>
                                                 <asp:HyperLink ID="HLOrigen" runat="server" Text='<%# Eval("Origen", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb
index b5b3bf848..857ac42b4 100644
--- a/Contabilidad/RepOrigenAplicacion.aspx.vb
+++ b/Contabilidad/RepOrigenAplicacion.aspx.vb
@@ -153,7 +153,21 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
         LnkExcel.Visible = False
 
+
+
+
         If UsuarioActual.Empresa.UsaContabilidadSIG Then
+
+            Dim AnioActual As Integer = TxtFechaAl.Text.ToDate.Year
+            Dim AnioAnteior As Integer = AnioActual - 1
+
+
+            GvDatos.Columns(1).Visible = True
+            GvDatos.Columns(2).Visible = True
+
+            GvDatos.Columns(1).HeaderText = AnioAnteior.ToString
+            GvDatos.Columns(2).HeaderText = AnioActual.ToString
+
             Dim ObjConta As New ClsContabilidad
 
             If ObjConta.GetRepOrigenAplicacion(TxtFechaAl.Text.ToDate, UsuarioActual.CveEmpresa) Then