detalles faltantes en los checadores
This commit is contained in:
Antonio Gonzalez
@@ -63,19 +63,19 @@ Partial Class Inventarios_CatAlmacenes
|
||||
End If
|
||||
GvDatos.DataBind()
|
||||
ObjAlmacen.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaAlmacenVirtual()
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
divAlmacenesVirtuales.Visible = True
|
||||
DdlAlmacenesVirtuales.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24)
|
||||
DdlAlmacenesVirtuales.DataBind()
|
||||
DdlAlmacenesVirtuales.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaAlmacenVirtual()
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
divAlmacenesVirtuales.Visible = True
|
||||
DdlAlmacenesVirtuales.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24)
|
||||
DdlAlmacenesVirtuales.DataBind()
|
||||
DdlAlmacenesVirtuales.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "C O M B O S"
|
||||
|
||||
|
||||
Private Sub CargaSubProyectos()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
@@ -92,23 +92,23 @@ Partial Class Inventarios_CatAlmacenes
|
||||
DdlTipoAlmacen.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaUsuarios()
|
||||
|
||||
Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
|
||||
|
||||
DT.DefaultView.Sort = "Nombre ASC"
|
||||
DT = DT.DefaultView.ToTable
|
||||
|
||||
DdlUsuariosAutoriza.DataSource = DT
|
||||
DdlUsuariosAutoriza.DataBind()
|
||||
|
||||
DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
Private Sub CargaUsuarios()
|
||||
|
||||
Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
|
||||
|
||||
DT.DefaultView.Sort = "Nombre ASC"
|
||||
DT = DT.DefaultView.ToTable
|
||||
|
||||
DdlUsuariosAutoriza.DataSource = DT
|
||||
DdlUsuariosAutoriza.DataBind()
|
||||
|
||||
DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentasContables()
|
||||
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
|
||||
divCuentasCompac.Visible = False
|
||||
divCuentasCompac.Visible = False
|
||||
pnlCuentassig.Visible = True
|
||||
Using ObjContabilidad As New ClsContabilidad
|
||||
'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
|
||||
@@ -119,22 +119,22 @@ Partial Class Inventarios_CatAlmacenes
|
||||
End If
|
||||
End Using
|
||||
Else
|
||||
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
|
||||
|
||||
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()
|
||||
@@ -167,9 +167,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
|
||||
|
||||
@@ -192,14 +192,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("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")
|
||||
@@ -207,20 +207,20 @@ 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()
|
||||
GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
|
||||
'Dim ObjAlmacen As New ClsInventarios
|
||||
@@ -247,19 +247,19 @@ Partial Class Inventarios_CatAlmacenes
|
||||
Dim Estatus = 0
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
Dim CuentaContable As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
|
||||
|
||||
If pnlCuentassig.Visible Then
|
||||
CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
|
||||
End If
|
||||
If divCuentasCompac.Visible Then
|
||||
CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
|
||||
End If
|
||||
|
||||
|
||||
Dim CveCuenta As Integer = 0
|
||||
|
||||
|
||||
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,
|
||||
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,
|
||||
CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero()) Then
|
||||
Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
@@ -288,7 +288,7 @@ Partial Class Inventarios_CatAlmacenes
|
||||
End Sub
|
||||
|
||||
Public Sub Agregar()
|
||||
HdnModalidad.Value = "A"
|
||||
HdnModalidad.Value = "A"
|
||||
UpDatos.Update()
|
||||
If DdlModalidad.SelectedValue = 1 Then
|
||||
DdlCuentasContables.Visible = True
|
||||
@@ -337,17 +337,17 @@ Partial Class Inventarios_CatAlmacenes
|
||||
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
|
||||
DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
|
||||
TxtAlmacen.Text = GvRow.DataKey("Almacen")
|
||||
TxtOrden.Text = GvRow.DataKey("Orden")
|
||||
DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
|
||||
DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual"))
|
||||
|
||||
|
||||
TxtOrden.Text = GvRow.DataKey("Orden")
|
||||
DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
|
||||
DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual"))
|
||||
|
||||
|
||||
divEstatus.Visible = True
|
||||
ChkEstatus.Checked = If((GvRow.DataKey("Estatus")) = "Activo", True, False)
|
||||
UpAddAlmacen.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
|
||||
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub LnkAlmacen_Click(sender As Object, e As EventArgs) Handles LnkAlmacen.Click
|
||||
Agregar()
|
||||
|
||||
Reference in New Issue
Block a user