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

-- mejoras OS - SMS

Browse Source
This commit is contained in:
rrene
2023-12-22 15:26:55 -07:00
parent 21e90c5c65
commit 82c28ad093
5 changed files with 17 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsOS.vb
View File

@@ -1328,14 +1328,14 @@ Public Class ClsOS
Return Retorno Return Retorno
End Function End Function
Public Function GetOrdenesServicioDevolucionMaterial(CveOS As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean Public Function GetOrdenesServicioDevolucionMaterial(CveOS As Integer, CveVenta As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServicioDevolucionMaterialGet") DataAdapter("PA_OS_OrdenesServicioDevolucionMaterialGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveOS", SqlDbType.Int).Value = CveOS .Add("@CveOS", SqlDbType.Int).Value = CveOS
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With

2
OS/Asignaciones.aspx.vb
View File

@@ -385,7 +385,7 @@ Partial Class OS_Asignaciones
TmpDTOS = ObjOS.DtResultados TmpDTOS = ObjOS.DtResultados
End If End If
If ObjOS.GetDetalleMateriales(-1, CveOS) Then If ObjOS.GetDetalleMateriales(-1, CveOS, 1, False) Then
TmpDTMaterialesOS = ObjOS.DtResultados TmpDTMaterialesOS = ObjOS.DtResultados
End If End If
Dim lrds As New List(Of ReportDataSource) Dim lrds As New List(Of ReportDataSource)

8
OS/OrdenesServicios.aspx
View File

@@ -1278,7 +1278,7 @@
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvMaterialUtilizado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado Historial" <asp:GridView ID="GvMaterialUtilizado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado Historial"
DataKeyNames="CveVentaDetalle,Cantidad,CveAlmacenActual,CvePS,CveUM,PU,CveMovimientoDetalle,Lote,Serie,FechaCaducidad,AplicaSerie,AplicaLote,AplicaCaducidad,CodigoPS" DataKeyNames="CveVentaDetalle,Cantidad,CveAlmacenActual,CvePS,CveUM,PU,CveMovimientoDetalle,Lote,Serie,FechaCaducidad,CodigoPS"
CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMaterialUtilizado_RowDataBound"> CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMaterialUtilizado_RowDataBound">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
@@ -1304,19 +1304,19 @@
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Serie</HeaderTemplate> <HeaderTemplate>Serie</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="TxtSerie" runat="server" Width="50px" Text='<%# Eval("Serie") %>' Visible="false" ></asp:Label> <asp:Label ID="TxtSerie" runat="server" Text='<%# Eval("Serie") %>' ></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Lote</HeaderTemplate> <HeaderTemplate>Lote</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="TxtLote" runat="server" Width="50px" Text='<%# Eval("Lote") %>' Visible="false"></asp:Label> <asp:Label ID="TxtLote" runat="server" Text='<%# Eval("Lote") %>' ></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Fecha Cad.</HeaderTemplate> <HeaderTemplate>Fecha Cad.</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="TxtFechaCaducidad" runat="server" Width="70px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>' ></asp:Label> <asp:Label ID="TxtFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Label>
</div> </div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

13
OS/OrdenesServicios.aspx.vb
View File

@@ -703,7 +703,7 @@ Partial Class OS_OrdenesServicios
CargaHistorial() CargaHistorial()
If CveVenta > 0 And TipoEstatus.Contiene(1, 2, 3) Then If TipoEstatus.Contiene(1, 2, 3) Then
LnkAccionesMaterialUtilizado.Visible = True LnkAccionesMaterialUtilizado.Visible = True
End If End If
Else Else
@@ -865,8 +865,8 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Private Sub CargaMateriales() Private Sub CargaMateriales()
Dim objOS As New ClsOS Dim objOS As New ClsOS
Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1)
If objOS.GetDetalleMateriales(-1, CveOS, Opcion, True) Then If objOS.GetDetalleMateriales(-1, CveOS, 1, True) Then
GvMateriales.DataSource = objOS.DtResultados GvMateriales.DataSource = objOS.DtResultados
End If End If
objOS.Dispose() objOS.Dispose()
@@ -3036,8 +3036,6 @@ Partial Class OS_OrdenesServicios
Alert("Orden Finalizada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);") Alert("Orden Finalizada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);")
RegistraScript("$('#DVModalFinalizarOrden').modal('hide');") RegistraScript("$('#DVModalFinalizarOrden').modal('hide');")
End If End If
End Sub End Sub
Protected Sub LnkAccionesMaterialUtilizado_Click(sender As Object, e As EventArgs) Protected Sub LnkAccionesMaterialUtilizado_Click(sender As Object, e As EventArgs)
@@ -3045,8 +3043,9 @@ Partial Class OS_OrdenesServicios
LnkModalMaterialUtilizado.Visible = True LnkModalMaterialUtilizado.Visible = True
GvMaterialUtilizado.DataSource = Nothing GvMaterialUtilizado.DataSource = Nothing
DTSolicitudDev = New DataTable DTSolicitudDev = New DataTable
Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1)
Dim ObjOS As New ClsOS Dim ObjOS As New ClsOS
If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, Opcion, UsuarioActual.CveEmpresa) Then
DTSolicitudDev = ObjOS.DtResultados DTSolicitudDev = ObjOS.DtResultados
GvMaterialUtilizado.DataSource = DTSolicitudDev GvMaterialUtilizado.DataSource = DTSolicitudDev
GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> "" GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> ""
@@ -3147,7 +3146,7 @@ Partial Class OS_OrdenesServicios
For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows
Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtDev").Text.ToDecimal
If CantidadDev > 0 Then If CantidadDev > 0 Then
If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then

8
OS/RepOSMedicas.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="Reporte de Ordenes de Servicio Medicas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOSMedicas.aspx.vb" Inherits="OS_RepOSMedicas" %> <%@ Page Title="Reporte de Ordenes de Servicio Médicas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOSMedicas.aspx.vb" Inherits="OS_RepOSMedicas" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
@@ -12,7 +12,7 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte de Ordenes de Servicio Medicas Reporte de Ordenes de Servicio Médicas
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones"> <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones">
@@ -169,11 +169,11 @@
<asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOS" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataTextField="Folio" Target="_blank" /> <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOS" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataTextField="Folio" Target="_blank" />
<%--<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-HorizontalAlign="Left" />--%> <%--<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-HorizontalAlign="Left" />--%>
<%--1--%> <%--1--%>
<asp:BoundField DataField="FechaCita" HeaderText="Fech aCita" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" /> <asp:BoundField DataField="FechaCita" HeaderText="Fecha Cita" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" />
<%--2--%> <%--2--%>
<asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-HorizontalAlign="Left" />
<%--3--%> <%--3--%>
<asp:BoundField HeaderText="Medico" DataField="Medico" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Médico" DataField="Medico" ItemStyle-HorizontalAlign="Left" />
<%--4--%> <%--4--%>
<asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" ItemStyle-HorizontalAlign="Left" />
<%--5--%> <%--5--%>