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

Inventario en programacion de recursos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-02-04 09:01:56 -07:00
parent b9a23db611
commit 503d21f3c2
2 changed files with 622 additions and 586 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/RepProgramarRecursos.aspx
View File

@@ -116,6 +116,7 @@
</div> </div>
<div class="col-md-1" id="tsubprocto" style="padding-right: 2px; padding-left: 2px; display: none;"> <div class="col-md-1" id="tsubprocto" style="padding-right: 2px; padding-left: 2px; display: none;">
Proyecto: Proyecto:
</div> </div>
<div class="col-md-1" runat="server" id="Div1">Aplica NC:</div> <div class="col-md-1" runat="server" id="Div1">Aplica NC:</div>
<div class="col-md-1" id="ds" style="width: 120px;"> <div class="col-md-1" id="ds" style="width: 120px;">
@@ -463,6 +464,16 @@
<asp:Literal ID="LtlFV" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}")%>'></asp:Literal> <asp:Literal ID="LtlFV" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false">
<%-- <HeaderTemplate>
<div>
<asp:Literal ID="LtlAlm" runat="server" Text="Almacen"></asp:Literal>
</div>
</HeaderTemplate>--%>
<ItemTemplate>
<asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
<div> <div>
@@ -502,6 +513,7 @@
<HeaderTemplate> <HeaderTemplate>
<div> <div>
Sel Sel
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="Chk" runat="server" /><asp:Label ID="LblPor" runat="server" Text="" Visible="False" Font-Size="6pt"></asp:Label> <asp:CheckBox ID="Chk" runat="server" /><asp:Label ID="LblPor" runat="server" Text="" Visible="False" Font-Size="6pt"></asp:Label>

24
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -344,6 +344,8 @@ Partial Class Bancos_RepProgramarRecursos
LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero()) LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero())
End If End If
Gv.Columns(6).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
Mov.Dispose() Mov.Dispose()
CargaGrid(Orden) CargaGrid(Orden)
UPDatos.Update() UPDatos.Update()
@@ -447,6 +449,28 @@ Partial Class Bancos_RepProgramarRecursos
' e.Row.FCDropDownList("DdlMov").DataBind() ' e.Row.FCDropDownList("DdlMov").DataBind()
'End If 'End If
If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
Dim Str As New StringBuilder
Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
Select Case e.Row.DBCampo("EstatusInventario").ToEntero
Case 1
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
Case 2
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
Case 3
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
End Select
End If
End If End If
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red