Inventarios/CatAlmacenes.aspx.vb

@@ -84,17 +84,33 @@ Partial Class Inventarios_CatAlmacenes
     End Sub
 
     Private Sub CargaCuentasContables()
-        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-        'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-        If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
-            DtCuentasContables = ObjContabilidad.DtResultados
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            divCuentasCompac.Visible = False
+            pnlCuentassig.Visible = True
+            Using ObjContabilidad As New ClsContabilidad
+                'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                If ObjContabilidad.CuentasContablesSigGet(UsuarioActual.CveEmpresa) Then
+                    DdlCuentasSig.DataSource = ObjContabilidad.DtResultados
+                    DdlCuentasSig.DataBind()
+                    DdlCuentasSig.Items.Insert(0, New ListItem("Selecione", "-1"))
+                End If
+            End Using
         Else
-            DtCuentasContables = Nothing
+            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
-        ObjContabilidad.Dispose()
 
-        DdlCuentasContables.DataSource = DtCuentasContables
-        DdlCuentasContables.DataBind()
         UpAddAlmacen.Update()
     End Sub
 
@@ -207,12 +223,17 @@ Partial Class Inventarios_CatAlmacenes
         Dim TieneError = False
         Dim Estatus = 0
         If ChkEstatus.Checked Then Estatus = 1
-        Dim CuentaContable = DdlCuentasContables.SelectedValue.ToEntero
-        If divddlcc.Visible = False Then
-            CuentaContable = 0
+        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 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) 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) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
                 ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -222,7 +243,7 @@ Partial Class Inventarios_CatAlmacenes
             Else
                 TieneError = True
             End If
-        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero) Then
+        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
             Alert("El  Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()
             ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -280,6 +301,8 @@ Partial Class Inventarios_CatAlmacenes
         DdlModalidad.SelectedValue = If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1)
         divddlcc.Visible = If((DdlModalidad.SelectedValue) = 1, True, False)
         DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
+        DdlCuentasSig.SelectedValueExist(-1)
+        DdlCuentasSig.SelectedValueExist(GvRow.DataKey("CveCuenta"))
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
         DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
         TxtAlmacen.Text = GvRow.DataKey("Almacen")