AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- siempre activo subproyecto cuando es consumo interno

Browse Source
This commit is contained in:
rrene
2024-04-24 12:23:45 -07:00
parent 47b9a1fdda
commit c4d4a672e3
2 changed files with 10 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/EntradasSalidas.aspx
View File

@@ -295,7 +295,7 @@
<asp:Literal ID="LtTipo" runat="server"></asp:Literal> <asp:Literal ID="LtTipo" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false"> <div class="row" runat="server" id="TrSubProyecto" visible="false">
<asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label> <asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label>
<div class="col-md-5"> <div class="col-md-5">
<asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 100%"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 100%"></asp:DropDownList>

26
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -460,7 +460,7 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
BloqueaEdicionEncabezado() BloqueaEdicionEncabezado()
If UsuarioActual.CveEmpresa.Contiene(66, 13) Then If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
TrSubProyectoActivoFijo.Visible = True TrSubProyecto.Visible = True
VisualizaAF(True) VisualizaAF(True)
CargaSubProyectos() CargaSubProyectos()
End If End If
@@ -605,7 +605,7 @@ Partial Class Inventarios_EntradasSalidas
Sub AsignacionOpcion() Sub AsignacionOpcion()
DdlConcepto.SelectedValueExist("-1") DdlConcepto.SelectedValueExist("-1")
If UsuarioActual.CveEmpresa.Contiene(66, 13) Then If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
TrSubProyectoActivoFijo.Visible = True TrSubProyecto.Visible = True
VisualizaAF(True) VisualizaAF(True)
CargaSubProyectos() CargaSubProyectos()
End If End If
@@ -1024,7 +1024,7 @@ Partial Class Inventarios_EntradasSalidas
End If End If
DdlSubProyecto.SelectedValue = Mov.CveSubProyecto.ToString DdlSubProyecto.SelectedValue = Mov.CveSubProyecto.ToString
TrSubProyectoActivoFijo.Visible = True TrSubProyecto.Visible = True
End If End If
'LblCodigo.Text = If(Mov.CodigoAF = 0, "-1", Mov.CodigoAF.ToString) 'LblCodigo.Text = If(Mov.CodigoAF = 0, "-1", Mov.CodigoAF.ToString)
@@ -2551,7 +2551,7 @@ Partial Class Inventarios_EntradasSalidas
TrPersonal.Visible = False TrPersonal.Visible = False
TrResponsable.Visible = True TrResponsable.Visible = True
If UsuarioActual.CveEmpresa.Contiene(66, 13) Then If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
TrSubProyectoActivoFijo.Visible = True TrSubProyecto.Visible = True
VisualizaAF(True) VisualizaAF(True)
CargaSubProyectos() CargaSubProyectos()
End If End If
@@ -2562,7 +2562,7 @@ Partial Class Inventarios_EntradasSalidas
TrPersonal.Visible = False TrPersonal.Visible = False
TrResponsable.Visible = True TrResponsable.Visible = True
If UsuarioActual.CveEmpresa.Contiene(66, 13) Then If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
TrSubProyectoActivoFijo.Visible = True TrSubProyecto.Visible = True
VisualizaAF(True) VisualizaAF(True)
CargaSubProyectos() CargaSubProyectos()
End If End If
@@ -2574,7 +2574,7 @@ Partial Class Inventarios_EntradasSalidas
Case "7" Case "7"
VisualizaPU(False) VisualizaPU(False)
TrSubProyectoActivoFijo.Visible = False TrSubProyecto.Visible = False
TrResponsable.Visible = False TrResponsable.Visible = False
CargaPersonal() CargaPersonal()
If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = False If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = False
@@ -2587,7 +2587,7 @@ Partial Class Inventarios_EntradasSalidas
DdlProveedor.DataBind() DdlProveedor.DataBind()
Case Else Case Else
TrSubProyectoActivoFijo.Visible = False TrSubProyecto.Visible = False
VisualizaAF(False) VisualizaAF(False)
If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = True If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = True
TrPersonal.Visible = False TrPersonal.Visible = False
@@ -3553,6 +3553,8 @@ Partial Class Inventarios_EntradasSalidas
divMonedaSeccion.Visible = False divMonedaSeccion.Visible = False
divGuia.Visible = False divGuia.Visible = False
TrResponsable.Visible = False TrResponsable.Visible = False
TrSubProyecto.Visible = True
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
CargaPersonal() CargaPersonal()
LtlTitulo.Text = "Consumo Interno" LtlTitulo.Text = "Consumo Interno"
@@ -3572,19 +3574,9 @@ Partial Class Inventarios_EntradasSalidas
End If End If
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
TrSubProyectoActivoFijo.Visible = True
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
DVCultivosCuadro.Visible = True DVCultivosCuadro.Visible = True
CargaCultivos() CargaCultivos()
End If End If
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'citrícola
TrSubProyectoActivoFijo.Visible = True
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
End If
TrActivoFijo.Visible = True TrActivoFijo.Visible = True
DdlActivoFijo.Items.Clear() DdlActivoFijo.Items.Clear()
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ") DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ")