-- correción de cuenta

Bancos/PolizaCheque.aspx.vb

@@ -203,8 +203,6 @@ Partial Class Bancos_PolizaCheque
 
 
     Private Sub CargaPlantillas(TipoPlantilla As Integer)
-
-
 
         DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
         DdlPlantilla.DataBind()
@@ -263,9 +261,7 @@ Partial Class Bancos_PolizaCheque
                 Banco.Dispose()
                 TxtFolio.Text = Folio.ToString
             End If
-        End If
-
-
+        End If
         Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -368,10 +364,10 @@ Partial Class Bancos_PolizaCheque
         For Each drt As DataRow In Dt.Rows
 
             Cuenta = drt("ConceptoContable").ToString
-            IdCuenta = 0
+            IdCuenta = drt("IdCtaContable").ToString.ToEntero
             CveCuenta = 0
-            CodigoCuenta = ""
-            NombreCuenta = ""
+            CodigoCuenta = drt("Codigo").ToString
+            NombreCuenta = drt("Nombre").ToString
 
             If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then
                 Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))