-- 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

@@ -41,9 +41,8 @@ Partial Class Bancos_CuentasBancariasDetalle
                 ViewState("CveCuenta") = Request("CveCuenta")
 
 
-                If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
-                    trCuentaContable.Visible = True
-                    trCuentaContableComplementaria.Visible = True
+                If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+
                     CargaCuentasContables()
                 End If
 
@@ -60,9 +59,8 @@ Partial Class Bancos_CuentasBancariasDetalle
                 ViewState("CveCuenta") = -1
                 BtnEliminar.Visible = False
                 CreaDTUsuarios()
-                If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
-                    trCuentaContable.Visible = True
-                    trCuentaContableComplementaria.Visible = True
+                If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+
                     CargaCuentasContables()
                 End If
                 'LbAgregarSucursal.Enabled = False
@@ -98,37 +96,69 @@ Partial Class Bancos_CuentasBancariasDetalle
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
     End Sub
-    Private Sub CargaCuentasContables()
-        Dim IdPadre As Integer
-        Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-        If DdlTipoCuenta.SelectedValue.ToEntero = 1 Then 'Caja Chica
-            IdPadre = UsuarioActual.Empresa.Funcionalidad(218).ToEntero
-        Else
-            Dim tesstr = UsuarioActual.Empresa.Funcionalidad(209)
-            IdPadre = UsuarioActual.Empresa.Funcionalidad(209).ToEntero
-        End If
-
-        If IdPadre = 0 Then IdPadre = -1
+    Private Sub CargaCuentasContables()
         Dim dt As DataTable = Nothing
-        If Conta.GetCuentasRecursiva(IdPadre, 1) Then
-            dt = Conta.DtResultados
-        End If
 
-        Conta.Dispose()
-        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()
-    End Sub
+        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)
+
+                If DdlTipoCuenta.SelectedValue.ToEntero = 1 Then 'Caja Chica
+                    IdPadre = UsuarioActual.Empresa.Funcionalidad(218).ToEntero
+                Else
+                    Dim tesstr = UsuarioActual.Empresa.Funcionalidad(209)
+                    IdPadre = UsuarioActual.Empresa.Funcionalidad(209).ToEntero
+                End If
+
+                If IdPadre = 0 Then IdPadre = -1
+
+                If Conta.GetCuentasRecursiva(IdPadre, 1) Then
+                    dt = Conta.DtResultados
+                End If
+
+                Conta.Dispose()
+                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
+            End If
+        End If
+
+
+    End Sub
 #End Region
-
+
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
     Private Sub CargaDatos()
         Dim ObjCuentasBancariasDetalle As New ClsBancos()
@@ -164,8 +194,14 @@ Partial Class Bancos_CuentasBancariasDetalle
                 DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString
 
                 DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
-                DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
-                DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
+                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