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

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"))