diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index ef642499f..5dc62b359 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -1351,7 +1351,7 @@
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright" runat="server">
                                     <asp:TextBox ID="TxtObservacionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="250"></asp:TextBox>
-                                    <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Observaciones:</label>
+                                    <label for="<%= TxtObservacionModal.ClientID.ToString()%>">Observaciones:</label>
                                 </div>
                             </div>
                         </div>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index d116062a3..19a47c992 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3015,7 +3015,7 @@ Partial Class OS_OrdenesServicios
             TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
             TxtFolioRemisionModal.Text = TxtFolioAdicional.Text
 
-            If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
+            If DdlTipoVenta.SelectedValue = "5" Then
                 DvTxtFolioRemisionModal.Visible = False
             Else
                 DvTxtFolioRemisionModal.Visible = True
@@ -3082,7 +3082,7 @@ Partial Class OS_OrdenesServicios
                 End If
             End If
 
-            If TotalSeleccionado > 0 AndAlso Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then
+            If TotalSeleccionado > 0 AndAlso DvTxtFolioRemisionModal.Visible AndAlso TxtFolioRemisionModal.Text.Trim.Length = 0 Then
                 Alert("El campo Folio es requerido por favor ingréselo.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
@@ -3091,7 +3091,6 @@ Partial Class OS_OrdenesServicios
 
             Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero
             Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero
-
             Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero
             Dim CveVentaRemisionGenerada As Integer = -1
 
@@ -3104,7 +3103,7 @@ Partial Class OS_OrdenesServicios
             If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material
                 'genera una salida de almacen.
                 Dim Fecha As DateTime = ClsPaginas.NowADS()
-                Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
+                Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaPedido, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
                 Dim Folio As Integer = ObjInventario.Folio
 
                 If CveMovimientoSalida > 0 Then