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--%>