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

-- en el listado de productos del calendario, que se visualicen los solicitados. no solo los entregados y usados

Browse Source
This commit is contained in:
rrene
2024-09-18 19:16:42 -07:00
parent 0032645355
commit 3c962444e5
2 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
OS/RepServiciosMedicos.aspx
View File

@@ -468,9 +468,10 @@
<div class="col-md-12" > <div class="col-md-12" >
<asp:GridView ID="GvPS" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" OnRowDataBound="GvPS_RowDataBound" > <asp:GridView ID="GvPS" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" OnRowDataBound="GvPS_RowDataBound" >
<Columns> <Columns>
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-Width="60px" DataFormatString="{0:#,###.##}" /> <asp:BoundField HeaderText="Solicitado" DataField="CantidadSolicitada" ItemStyle-Width="60px" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Entregado" DataField="Cantidad" ItemStyle-Width="60px" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Producto" DataField="PS" /> <asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Utilizado" DataField="CantidadRemision" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Utilizado" DataField="CantidadRemision" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Center" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

16
OS/RepServiciosMedicos.aspx.vb
View File

@@ -609,18 +609,24 @@ Partial Class OS_RepServiciosMedicos
Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión
If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido
If tCve > 0 Then If tCve > 0 Then
'Dim objv As New ClsVentas
Dim dttps As New DataTable Dim dttps As New DataTable
If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then
dttps = ObjOS.DtResultados dttps = ObjOS.DtResultados
End If End If
'If objv.GetVentaDetalle(tCve) Then
' dttps = objv.DtResultados
'End If
'objv.Dispose()
GvPS.DataSource = dttps GvPS.DataSource = dttps
GvPS.DataBind() GvPS.DataBind()
'sino hay información, cargamos los productos a surtir
'If dttps IsNot Nothing AndAlso dttps.Rows.Count > 0 AndAlso ObjOS.CveCotizacion > 0 Then
' Dim objv As New ClsVentas
' If objv.GetVentaDetalle(tCve) Then
' dttps = objv.DtResultados
' End If
' objv.Dispose()
'End If
End If End If
Dim TipoEstatus As Integer = 0 Dim TipoEstatus As Integer = 0
TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero