-- cambios de contabilidad

App_Code/ClsBancos.vb

@@ -417,8 +417,8 @@ Public Class ClsBancos
                 Me.FFinal = Data.Rows(0)("FFinal").ToString.ToEntero
                 Me.IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero
                 Me.IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero
-                Me.CveCuentaConta = Data.Rows(0)("IdCtaContableSIG").ToString.ToEntero
-                Me.CveCuentaContaComplementaria = Data.Rows(0)("IdCtaContableComplementariaSIG").ToString.ToEntero
+                Me.CveCuentaConta = Data.Rows(0)("CveCuentaContable").ToString.ToEntero
+                Me.CveCuentaContaComplementaria = Data.Rows(0)("CveCuentaComplementaria").ToString.ToEntero
                 Me.FormatoCheque = Data.Rows(0)("FormatoCheque").ToString
                 Me.Estatus = Data.Rows(0)("Estatus").ToString
                 Me.Fecha = Data.Rows(0)("Fecha").ToString.ToDate

App_Code/ClsContabilidad.vb

@@ -62,7 +62,7 @@ Public Class ClsContabilidad
     Public Property CveEmpresa As Integer
     Public Property CveTipoPlantillaPoliza As Integer
 
-    Public Property ContaIdPoliza As Integer
+    Public Property ContaIdPoliza As Integer = 0
     Public Property ContaFolio As Integer
 
     Public Property ValorPolizaDescuadre As Integer

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -42,8 +42,7 @@ Partial Class Bancos_CuentasBancariasDetalle
 
 
                 If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
-                    trCuentaContable.Visible = True
-                    trCuentaContableComplementaria.Visible = True
+
                     CargaCuentasContables()
                 End If
 
@@ -61,8 +60,7 @@ Partial Class Bancos_CuentasBancariasDetalle
                 BtnEliminar.Visible = False
                 CreaDTUsuarios()
                 If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
-                    trCuentaContable.Visible = True
-                    trCuentaContableComplementaria.Visible = True
+
                     CargaCuentasContables()
                 End If
                 'LbAgregarSucursal.Enabled = False
@@ -99,6 +97,32 @@ Partial Class Bancos_CuentasBancariasDetalle
         DdlMoneda.DataBind()
     End Sub
     Private Sub CargaCuentasContables()
+        Dim dt As DataTable = Nothing
+
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+            Using ObjContabilidad As New ClsContabilidad
+                'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                    DDlCuentaContable.DataSource = ObjContabilidad.DtResultados
+                    DDlCuentaContable.DataBind()
+                    DDlCuentaContable.Items.Insert(0, New ListItem("Selecione", "-1"))
+                    DDlCuentaContable.DataTextField = "Cuenta"
+                    DDlCuentaContable.DataValueField = "CveCuenta"
+                End If
+            End Using
+
+            DDlCuentaContable.DataSource = dt
+            DDlCuentaContable.DataBind()
+            DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
+            DdlCuentaContableComplementaria.DataSource = dt
+            DdlCuentaContableComplementaria.DataBind()
+            DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
+            If dt IsNot Nothing Then dt.Dispose()
+            trCuentaContable.Visible = True
+            trCuentaContableComplementaria.Visible = True
+
+        Else
+            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
                 Dim IdPadre As Integer
                 Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
@@ -110,7 +134,7 @@ Partial Class Bancos_CuentasBancariasDetalle
                 End If
 
                 If IdPadre = 0 Then IdPadre = -1
-        Dim dt As DataTable = Nothing
+
                 If Conta.GetCuentasRecursiva(IdPadre, 1) Then
                     dt = Conta.DtResultados
                 End If
@@ -123,6 +147,12 @@ Partial Class Bancos_CuentasBancariasDetalle
                 DdlCuentaContableComplementaria.DataBind()
                 DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
                 If dt IsNot Nothing Then dt.Dispose()
+                trCuentaContable.Visible = True
+                trCuentaContableComplementaria.Visible = True
+            End If
+        End If
+
+
     End Sub
 #End Region
 
@@ -164,8 +194,14 @@ Partial Class Bancos_CuentasBancariasDetalle
                 DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString
 
                 DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
+                If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                    DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString)
+                    DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
+                Else
                     DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
+                End If
+
             Else
                 Alert("El Banco Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnGuardar.Enabled = False