-- limpieza de código de mandar idcta de contpaq

Bancos/OtrosIE.aspx.vb

@@ -203,7 +203,6 @@ Partial Class Bancos_OtrosIE
 
         Dim DT As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
         Dim Cuenta As String = ""
-        Dim IdCuenta As Integer = 0
         Dim CodigoCuenta As String = ""
         Dim EsComodin As Integer = 0
 
@@ -212,35 +211,23 @@ Partial Class Bancos_OtrosIE
         For Each DRt As DataRow In DT.Rows
 
             Cuenta = DRt("ConceptoContable").ToString
-            IdCuenta = 0
 
-            If DRt("IdCtaContable").ToString.ToEntero > 0 Then 'DTCuentasContables
-                Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", DRt("IdCtaContable").ToString))
-
-                If DRr IsNot Nothing Then
-                    IdCuenta = DRt("IdCtaContable").ToString.ToEntero
-                    CodigoCuenta = DRr("CuentaFormato").ToString()
-                End If
-                EsComodin = 0
-            Else
-                'SACO LA CLAVE DE LA CUENTA BANCARIA SELECCIONADO
-                If DdlCuenta.SelectedValue.ToEntero > 0 And DRt("CveConcepto").ToString = "30" Then 'DTCuentasContables
+            'SACO LA CLAVE DE LA CUENTA BANCARIA SELECCIONADO
+            If DdlCuenta.SelectedValue.ToEntero > 0 And DRt("CveConcepto").ToString = "30" Then 'DTCuentasContables
                     Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
-                    If DRr IsNot Nothing Then
-                        IdCuenta = DRr("Id").ToString.ToEntero
-                        CodigoCuenta = DRr("CuentaFormato").ToString()
-                        EsComodin = 1
-                    Else
-                        Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
+                If DRr IsNot Nothing Then
+                    CodigoCuenta = DRr("CuentaFormato").ToString()
+                    EsComodin = 1
+                Else
+                    Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
                         GvMov.DataBind()
                         UPMovs.Update()
                         Exit Sub
                     End If
                 End If
-            End If
 
             Dim DR As DataRow = DTMovimientos.NewRow
-            DR("IdCuenta") = IdCuenta
+            DR("IdCuenta") = 0
             DR("CodigoCuenta") = CodigoCuenta
             DR("Cuenta") = Cuenta
             DR("Referencia") = ""
@@ -252,7 +239,6 @@ Partial Class Bancos_OtrosIE
             DTMovimientos.Rows.Add(DR)
         Next
 
-
         GvMov.DataSource = DTMovimientos
         GvMov.DataBind()
         UPMovs.Update()