-- mejora en manejo de SMS

OS/OrdenesServicios.aspx.vb

@@ -443,7 +443,6 @@ Partial Class OS_OrdenesServicios
                     DdlPsModalFinalizar.ddl.DataBind()
                     DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
                 End If
-
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -452,8 +451,10 @@ Partial Class OS_OrdenesServicios
                 DVTipoVenta1.Visible = True
                 DVTipoVenta2.Visible = True
 
-                DvFechaRecivido1.Visible = False
-                DvFechaRecivido2.Visible = False
+                DvFechaRecibido1.Visible = False
+                DvFechaRecibido2.Visible = False
+                divTipoOrden.Visible = False
+                divTipoOrden2.Visible = False
 
                 DVFechaCita1.Visible = True
                 DVFechaCita2.Visible = True
@@ -468,11 +469,8 @@ Partial Class OS_OrdenesServicios
                     DdlUsuarioAtendio.Enabled = True
                     DVUsuarioAtendio3.Visible = True
                 End If
-
             End If
-
         End If
-
     End Sub
 
     Private Sub CargaTiposVenta()
@@ -3206,6 +3204,12 @@ Partial Class OS_OrdenesServicios
                             Dim CveVentaDetalle As Integer = DtVentaDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePadre = {GvRow.DataKey("CveVentaDetalle")}").ToEntero
                             Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
 
+                            If CveVentaDetalle <= 0 Then
+                                Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
+                                ProcesoOK = False
+                                Exit For
+                            End If
+
                             Dim Serie As String = GvRow.DataKey("Serie")
                             Dim Lote As String = GvRow.DataKey("Lote")
                             Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate