diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index a1ac30b08..01f705480 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -1328,14 +1328,14 @@ Public Class ClsOS Return Retorno 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 - DataAdapter("PA_OS_OrdenesServicioDevolucionMaterialGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveOS", SqlDbType.Int).Value = CveOS .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index f7ad121bc..9a19eea31 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -385,7 +385,7 @@ Partial Class OS_Asignaciones TmpDTOS = ObjOS.DtResultados End If - If ObjOS.GetDetalleMateriales(-1, CveOS) Then + If ObjOS.GetDetalleMateriales(-1, CveOS, 1, False) Then TmpDTMaterialesOS = ObjOS.DtResultados End If Dim lrds As New List(Of ReportDataSource) diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index d02d472b7..2101a511f 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1278,7 +1278,7 @@
@@ -1304,19 +1304,19 @@ Serie - + Lote - + Fecha Cad. - +
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 67d1c40fe..322193c0b 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -703,7 +703,7 @@ Partial Class OS_OrdenesServicios CargaHistorial() - If CveVenta > 0 And TipoEstatus.Contiene(1, 2, 3) Then + If TipoEstatus.Contiene(1, 2, 3) Then LnkAccionesMaterialUtilizado.Visible = True End If Else @@ -865,8 +865,8 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaMateriales() 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 End If objOS.Dispose() @@ -3036,8 +3036,6 @@ Partial Class OS_OrdenesServicios Alert("Orden Finalizada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);") RegistraScript("$('#DVModalFinalizarOrden').modal('hide');") End If - - End Sub Protected Sub LnkAccionesMaterialUtilizado_Click(sender As Object, e As EventArgs) @@ -3045,8 +3043,9 @@ Partial Class OS_OrdenesServicios LnkModalMaterialUtilizado.Visible = True GvMaterialUtilizado.DataSource = Nothing DTSolicitudDev = New DataTable + Dim Opcion As Integer = If(DdlTipoVenta.SelectedValue.Contiene("2", "3"), 2, 1) 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 GvMaterialUtilizado.DataSource = DTSolicitudDev GvMaterialUtilizado.Columns(3).Visible = DTSolicitudDev.MIN("Serie") <> "" @@ -3147,7 +3146,7 @@ Partial Class OS_OrdenesServicios For Each GvRow As GridViewRow In GvMaterialUtilizado.Rows 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 Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index a1c88c61a..94589e95c 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -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" %> @@ -12,7 +12,7 @@ - Reporte de Ordenes de Servicio Medicas + Reporte de Ordenes de Servicio Médicas @@ -169,11 +169,11 @@ <%----%> <%--1--%> - + <%--2--%> <%--3--%> - + <%--4--%> <%--5--%>