-- epsacios

OS/OrdenesServicios.aspx.vb

@@ -3090,9 +3090,7 @@ Partial Class OS_OrdenesServicios
 
     Protected Sub LnkModalMaterialUtilizado_Click(sender As Object, e As EventArgs)
 
-
         If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-
             If TxtPacienteModal.Text.Trim.Length = 0 Then
                 Alert("Debe de proporcionar el paciente.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -3102,7 +3100,6 @@ Partial Class OS_OrdenesServicios
                 Alert("Debe de proporcionar el episodio.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-
         End If
 
         Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero
@@ -3117,7 +3114,6 @@ Partial Class OS_OrdenesServicios
             For Each GVRow As GridViewRow In GvMU.Rows
                 TotalSeleccionado = TotalSeleccionado + GVRow.FCTextBox("TxtUtilizado").Text.ToDecimal
             Next
-
             If TotalSeleccionado = 0 Then
                 Alert("No se selecciono ningun material", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -3128,7 +3124,6 @@ Partial Class OS_OrdenesServicios
                 Alert("No se encontró almacen de entrega por adelantado", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-
         End If
 
         Dim ProcesoOK As Boolean = True
@@ -3145,7 +3140,6 @@ Partial Class OS_OrdenesServicios
                 Dim CvePS As Integer = GVRow.DataKey("CvePS").ToEntero
 
                 If CantidadRegistro > 0 Then
-
                     Dim Serie As String = If(GVRow.DataKey("Serie") = "", "-1", GVRow.DataKey("Serie"))
                     Dim Lote As String = If(GVRow.DataKey("Lote") = "", "-1", GVRow.DataKey("Lote"))
                     Dim FechaCaducidad As DateTime = If(GVRow.DataKey("FechaCaducidad") = "", MinFecha, GVRow.DataKey("FechaCaducidad").ToDate)
@@ -3316,22 +3310,17 @@ Partial Class OS_OrdenesServicios
                 Else
                     ProcesoOK = False
                 End If
-
                 If ProcesoOK Then
                     If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then
                         ProcesoOK = False
                     End If
                 End If
             End If
-
-
             If ProcesoOK Then
                 If Not ObjOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa, Observaciones:=TxtObservacionModal.Text.Trim) Then
                     ProcesoOK = False
                 End If
             End If
-
-
         End If
 
 
@@ -3428,7 +3417,6 @@ Partial Class OS_OrdenesServicios
         Else
             ProcesoOK = False
         End If
-
         Return Respuesta
 
     End Function
@@ -3440,15 +3428,11 @@ Partial Class OS_OrdenesServicios
 
         End Sub
     End Class
-
-
     Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs)
 
         Dim ObjOs As New ClsOS
         Dim ProcesoOk As Boolean = True
 
-
-
         If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then
             For Each GvRow As GridViewRow In GvPS.Rows
                 If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then
@@ -3463,8 +3447,6 @@ Partial Class OS_OrdenesServicios
         Else
             Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia)
         End If
-
-
         ObjOs.Dispose()
 
     End Sub