-- cambios en contabilidad, partes quitar la obtencion de cvecuenta

Inventarios/CatAlmacenes.aspx.vb

@@ -99,31 +99,34 @@ Partial Class Inventarios_CatAlmacenes
     End Sub
 
     Private Sub CargaCuentasContables()
-        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-            divCuentasCompac.Visible = False
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+            divCuentasCompac.Visible = False
             pnlCuentassig.Visible = True
             Using ObjContabilidad As New ClsContabilidad
                 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-                If ObjContabilidad.CuentasContablesSigGet(UsuarioActual.CveEmpresa) Then
+                If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
                     DdlCuentasSig.DataSource = ObjContabilidad.DtResultados
                     DdlCuentasSig.DataBind()
                     DdlCuentasSig.Items.Insert(0, New ListItem("Selecione", "-1"))
                 End If
             End Using
         Else
-            divCuentasCompac.Visible = True
-            pnlCuentassig.Visible = False
-            Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-                'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-                If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
-                    DtCuentasContables = ObjContabilidad.DtResultados
-                Else
-                    DtCuentasContables = Nothing
-                End If
-            End Using
-
-            DdlCuentasContables.DataSource = DtCuentasContables
-            DdlCuentasContables.DataBind()
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                divCuentasCompac.Visible = True
+                pnlCuentassig.Visible = False
+                Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+                    'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                    If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
+                        DtCuentasContables = ObjContabilidad.DtResultados
+                    Else
+                        DtCuentasContables = Nothing
+                    End If
+                End Using
+
+                DdlCuentasContables.DataSource = DtCuentasContables
+                DdlCuentasContables.DataBind()
+            End If
+
         End If
 
         UpAddAlmacen.Update()
@@ -156,9 +159,9 @@ Partial Class Inventarios_CatAlmacenes
                 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
 
                 If e.Row.DBCampo("IdCtaContable").ToEntero > 0 Then
-                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
-                Else
-                    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
+                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
+                    'Else
+                    '    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
                 End If
             End If
 
@@ -181,15 +184,14 @@ Partial Class Inventarios_CatAlmacenes
 
                 e.Row.FCDropDownList("DdlTipoAlmacen").DataSource = GlobalDTTipoAlmacen(-1)
                 e.Row.FCDropDownList("DdlTipoAlmacen").DataBind()
-                e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen")
-
-                e.Row.FCDropDownList("DdlCuentasContables").DataSource = DtCuentasContables
-                e.Row.FCDropDownList("DdlCuentasContables").DataBind()
-                e.Row.FCDropDownList("DdlCuentasContables").Items.Add(New ListItem("Seleccione", "-1"))
-                e.Row.FCDropDownList("DdlCuentasContables").SelectedValue = e.Row.DBCampo("IdCtaContable")
-
-                'e.Row.FCDropDownList("DdlModalidad").DataSource = 
-                'e.Row.FCDropDownList("DdlModalidad").DataBind()
+                e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen")
+
+
+
+
+
+                'e.Row.FCDropDownList("DdlModalidad").DataSource = 
+                'e.Row.FCDropDownList("DdlModalidad").DataBind()
                 e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Solo Existencia", "0"))
                 e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Contable", "1"))
                 e.Row.FCDropDownList("DdlModalidad").SelectedValue = If(e.Row.DBCampo("Modalidad").ToString = "Contable", "1", "0")
@@ -197,26 +199,27 @@ Partial Class Inventarios_CatAlmacenes
             End If
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "O R D E N A M I E N T O"
-    'Private Sub OrdenaDatos()
-    '    If (GvDatos.Rows.Count > 0) Then
-    '        GvDatos.UseAccessibleHeader = True
-    '        GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
-    '        RegistraScript("OrdenarGV();")
-    '    End If
-    'End Sub
+    'Private Sub OrdenaDatos()
+    '    If (GvDatos.Rows.Count > 0) Then
+    '        GvDatos.UseAccessibleHeader = True
+    '        GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+    '        RegistraScript("OrdenarGV();")
+    '    End If
+    'End Sub
 #End Region
-
+
     Private Sub RecargaGlobalAlmacenes()
-        Dim ObjAlmacen As New ClsInventarios
-        If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
-            GlobalDTAlmacen(-1) = ObjAlmacen.DtResultados
-        End If
-        ObjAlmacen.Dispose()
+        GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjAlmacen As New ClsInventarios
+        'If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
+        '    GlobalDTAlmacen(-1) = ObjAlmacen.DtResultados
+        'End If
+        'ObjAlmacen.Dispose()
     End Sub
 
     Private Sub RecargaGlobalAlmacenesUsuarios()
@@ -238,14 +241,15 @@ Partial Class Inventarios_CatAlmacenes
         Dim CuentaContable As Integer = 0
         Dim CveCuenta As Integer = 0
 
-        If divddlcc.Visible Then
-            If pnlCuentassig.Visible Then
-                CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
-            Else
-                CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
-            End If
-        End If
-
+
+        If pnlCuentassig.Visible Then
+            CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
+        End If
+        If divCuentasCompac.Visible Then
+            CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
+        End If
+
+
         If HdnModalidad.Value = "A" Then
             If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)