-- se depuró/limpió la variables idctaXXX

Bancos/IE.aspx.vb

@@ -1517,7 +1517,6 @@ Partial Class Bancos_IE
             Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero)
             Banco.Dispose()
             TxtFolio.Text = Folio.ToString
-
             Dim drI As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
 
             If drI IsNot Nothing Then
@@ -1525,11 +1524,12 @@ Partial Class Bancos_IE
             Else
                 CargaNotas(-1)
             End If
-
-
         Else
             TxtFolio.Text = ""
         End If
+        If UsuarioActual.CveEmpresa = 140 AndAlso Request("Opcion").ToString = "INGPC" Then
+            CargaFolioAdicional()
+        End If
 
         Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
         If dr IsNot Nothing Then
@@ -1707,7 +1707,6 @@ Partial Class Bancos_IE
         If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
             dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1")
             LtlTitulo.Text = "Egreso  Por Comprobar"
-
             RBL.Items.Remove(RBL.Items.FindByValue("C"))
         ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "DEV" Then
             dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ")
@@ -3809,7 +3808,6 @@ Partial Class Bancos_IE
             DdlPersonal.Visible = False
             DdlProveedores.Visible = True
             DdlCliente.Visible = False
-            CargaFolioAdicional()
         ElseIf RBL.SelectedValue = "C" Then
             DdlPersonal.Visible = False
             DdlProveedores.Visible = False