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 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
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