nombre de cuenta contable

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -138,9 +138,32 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
     Private Sub CargaCuenta()
         DdlCtaContable.Items.Clear()
-        DdlCtaContable.DataSource = DTCuentasContables
-        DdlCtaContable.DataBind()
+
         DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        If UsuarioActual.Empresa.TipoContabilizacion = 2 Then
+            Dim Conta As New ClsContabilidad
+            Dim dtt As New DataTable
+
+            If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                dtt = Conta.DtResultados
+            End If
+
+            Conta.Dispose()
+
+            DdlCuentas.Items.Clear()
+            DdlCuentas.DataSource = dtt
+            DdlCuentas.DataBind()
+            DdlCuentas.Visible = True
+            DdlCtaContable.Visible = False
+        Else
+
+            DdlCtaContable.DataSource = DTCuentasContables
+            DdlCtaContable.DataBind()
+        End If
+
+
+        DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
     Private Sub CargarConcepto()
@@ -229,7 +252,8 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         If HdnModalidad.Value = "I" Then
             If CvePlantillaPoliza > 0 Then
-                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
+                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal,
+CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                     TxtOrden.Text = ""
                     If Not ChkSeguirAgregando.Checked Then
                         updatatos()