SMS - 2024.01.27 OS Folio para remision al cerrar os

OS/OrdenesServicios.aspx

@@ -1285,27 +1285,37 @@
                     </div>
                     <div class="modal-body">                        
     
-                         <div class="row">
+                        <div class="row">
 
-                             <div class="col-md-6">
-                                 <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtPacienteModal" >
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtPacienteModal">
                                     <asp:TextBox ID="TxtPacienteModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvTxtPacienteModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPacienteModal" 
+                                    <asp:RequiredFieldValidator ID="RfvTxtPacienteModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPacienteModal"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paciente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtPacienteModal.ClientID.ToString()%>">Paciente:</label>
                                 </div>
                             </div>
 
-                            <div class="col-md-6">
-                                   <div class="form-group form-md-line-input input-iconright"  runat="server" visible="false" id="DvTxtEpisodioModal">
-                                       <asp:TextBox ID="TxtEpisodioModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
-                                       <asp:RequiredFieldValidator ID="RfvTxtEpisodioModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEpisodioModal" 
-                                           ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Episodio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
-                                       <label for="<%= TxtEpisodioModal.ClientID.ToString()%>">Episodio:</label>
-                                   </div>
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtEpisodioModal">
+                                    <asp:TextBox ID="TxtEpisodioModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtEpisodioModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEpisodioModal"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Episodio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtEpisodioModal.ClientID.ToString()%>">Episodio:</label>
                                 </div>
-                            </div>                      
+                            </div>
 
+
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtFolioRemisionModal">
+                                    <asp:TextBox ID="TxtFolioRemisionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtFolioRemisionModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFolioRemisionModal"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Folio:</label>
+                                </div>
+                            </div>
+                        </div>                                                       
+                        <br />
                         <div class="row">
                             <div class="col-md-12">
 
@@ -1357,16 +1367,20 @@
 
                             </div>
                         </div>
- 
-
-
                     </div>
+
                     <div class="modal-footer">
 
-                        <asp:LinkButton ID="LnkModalMaterialUtilizado" runat="server" CssClass="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="El material definido es el correcto?" data-btn-ok-label="si" 
-                            ValidationGroup="GrpMaterialUtilizado" CausesValidation="true"
-                            OnClick="LnkModalMaterialUtilizado_Click" >Guardar</asp:LinkButton>
-                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:LinkButton ID="LnkModalMaterialUtilizado" runat="server" CssClass="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="El material definido es el correcto?" data-btn-ok-label="si" 
+                                    ValidationGroup="GrpMaterialUtilizado" CausesValidation="true"
+                                    OnClick="LnkModalMaterialUtilizado_Click" >Guardar</asp:LinkButton>
+                                <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </div>
+
+                        
 
                     </div>
                 </ContentTemplate>

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