SMS - 2024.01.27 OS Folio para remision al cerrar os

OS/OrdenesServicios.aspx.vb

@@ -10,6 +10,7 @@ Imports Stimulsoft.Report.StiOptions.Export
 Imports Modelos
 Imports System.Runtime.InteropServices.ComTypes
 Imports APP_Code_CSharp
+Imports System.ComponentModel.Design
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
@@ -475,6 +476,7 @@ Partial Class OS_OrdenesServicios
 
                 DvTxtPacienteModal.Visible = True
                 DvTxtEpisodioModal.Visible = True
+                DvTxtFolioRemisionModal.Visible = True
 
                 If CveOS > 0 And TipoEstatus >= 3 Then
                     DdlUsuarioAtendio.Enabled = True
@@ -3067,7 +3069,12 @@ Partial Class OS_OrdenesServicios
         If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
             TxtPacienteModal.Text = TxtPaciente.Text
             TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
+        End If
 
+        If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
+            DvTxtFolioRemisionModal.Visible = False
+        Else
+            DvTxtFolioRemisionModal.Visible = True
         End If
 
         UpModalMaterialUtilizado.Update()
@@ -3198,6 +3205,14 @@ Partial Class OS_OrdenesServicios
             Dim ImporteAlmacen As Decimal
             Dim Fecha As DateTime = ClsPaginas.NowADS()
 
+            If GenrarRemisionMovimientos AndAlso ProcesoOK Then
+                If Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then
+                    Alert("El campo Folio es requerido por favor ingreselo.", TipoMensaje.MsgAdvertencia)
+                    ProcesoOK = False
+                    GenrarRemisionMovimientos = False
+                End If
+            End If
+
             If GenrarRemisionMovimientos AndAlso ProcesoOK Then
                 Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
 
@@ -3378,6 +3393,7 @@ Partial Class OS_OrdenesServicios
             ObjFactura.CveVentaRelacion = CveVentaPedido
             ObjFactura.Paciente = TxtPacienteModal.Text.Trim
             ObjFactura.Episodio = TxtEpisodioModal.Text.Trim
+            ObjFactura.Alfa1 = TxtFolioRemisionModal.Text.Trim
 
             For Each GvRow As GridViewRow In GvMU.Rows