Editar IE CArgar Tipos de transacciones se gun naturaleza de la transacción

App_Code/ClsContabilidad.vb

@@ -324,6 +324,8 @@ Public Class ClsContabilidad
         Catch ex As Exception
             If ex.Message.Contains("CuentasResultados_SubProyectos") Then
                 OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex.Message.Contains("50015") Then
+                OnError("No se puede eliminar una póliza en un ejercicio Cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 If ex.Message.Contains("concepto de bancos con un importe diferente") Then
                     OnError("No se puede editar el valor del bancos con un valor diferente a movimiento registrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

Bancos/IE.aspx.vb

@@ -886,6 +886,10 @@ Partial Class Bancos_IE
                 RegistraScript("if($get('imgBuscarProveedor')) $get('imgBuscarProveedor').style.display='none';")
                 'DdlBanco.SelectedValue = ObjIE.CveBanco.ToString
 
+                'Abono  es Egreso Egs
+
+
+                CargaTipoTransaccion(If(Tipo = "Abono", "Egs", "Ing"))
                 DdlTipoTransaccion.SelectedValue = ObjIE.CveTipoTransaccion.ToString
 
 
@@ -1823,7 +1827,7 @@ Partial Class Bancos_IE
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
-    Private Sub CargaTipoTransaccion()
+    Private Sub CargaTipoTransaccion(Optional Tipo As String = "")
         Dim dt As DataTable
         If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
             dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
@@ -1869,6 +1873,11 @@ Partial Class Bancos_IE
             DdlTipoTransaccion.DataSource = dt
         End If
 
+        If Tipo.Length > 0 Then
+            DdlTipoTransaccion.Items.Clear()
+            DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ")
+        End If
+
 
         DdlTipoTransaccion.DataBind()
         DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))

Compras/Compras.aspx.vb

@@ -6289,6 +6289,7 @@ Partial Class Compras_Compras
                                                                     importeMovimiento = importeRetIVAxAcreditar
                                                                     importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
                                                                     If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+
                                                                     If CtaProveedorRetIVA > 0 Then
                                                                         IdCtaContable = CtaProveedorRetIVA
                                                                     ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then

Contabilidad/RepOrigenAplicacion.aspx

@@ -235,7 +235,7 @@
                         <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
 
-                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None">
+                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta"> 
                                     <Columns>
                                         <asp:TemplateField HeaderText="Concepto">
                                             <ItemTemplate>
@@ -246,14 +246,14 @@
 
                                          <asp:TemplateField HeaderText="" Visible="false">
                                             <ItemTemplate>
-                                                <asp:Label ID="LblImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>'  ></asp:Label>
+                                                <asp:HyperLink ID="HLlImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
                                             </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>
+                                                <asp:HyperLink ID="HLImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"  ></asp:HyperLink>
                                             </ItemTemplate>
                                             <ItemStyle Width="100" HorizontalAlign="Right" />
                                         </asp:TemplateField>

Contabilidad/RepOrigenAplicacion.aspx.vb

@@ -82,7 +82,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
             TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
 
 
-            If UsuarioActual.Empresa.UsaContabilidadSIG Then
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
                 TabMensual.Enabled = False
                 TabAnual.Enabled = False
@@ -156,7 +156,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
 
 
-        If UsuarioActual.Empresa.UsaContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
             Dim AnioActual As Integer = TxtFechaAl.Text.ToDate.Year
             Dim AnioAnteior As Integer = AnioActual - 1
@@ -234,6 +234,21 @@ Partial Class Contabilidad_RepOrigenAplicacion
                 e.Row.FCLabel("LbNombre").Text = "TOTAL"
             End If
 
+
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+                'Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta=55274&FF=31/12/2021
+                Dim FechaFinBase As Date = New Date(TxtFechaAl.Text.ToDate.Year - 1, 12, 31)
+
+                If e.Row.DataKey("CveCuenta").ToEntero > 0 Then
+                    e.Row.FCHyperLink("HLlImporteBase").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={FechaFinBase.ToString("dd/MM/yyyy")}"
+                    e.Row.FCHyperLink("HLImporteActual").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
+                    e.Row.FCHyperLink("HLOrigen").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
+                    e.Row.FCHyperLink("HLAplicacion").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
+                End If
+
+            End If
+
         End If
     End Sub
 #End Region