From 7455ef3f7b08912a104902cbd35a011ebb125c4c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 29 Jan 2024 23:13:14 -0700
Subject: [PATCH] SMS - 2024.01.27 OS Folio para remision al cerrar os

---
 OS/OrdenesServicios.aspx     | 52 +++++++++++++++++++++++-------------
 OS/OrdenesServicios.aspx.vb  | 16 +++++++++++
 Ventas/RepRemisiones.aspx    |  1 +
 Ventas/RepRemisiones.aspx.vb |  5 ++--
 4 files changed, 53 insertions(+), 21 deletions(-)

diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 676c2cced..3a694320d 100644
--- a/OS/OrdenesServicios.aspx
+++ b/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>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index ad9919f31..7163e362e 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/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
 
diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx
index 4eab2a885..2f136ea49 100644
--- a/Ventas/RepRemisiones.aspx
+++ b/Ventas/RepRemisiones.aspx
@@ -229,6 +229,7 @@
                     <asp:BoundField HeaderText="Contrato" DataField="TieneContrato" Visible="false"  />                    
                     <asp:BoundField HeaderText="Médico" DataField="Medico" Visible="false"  />
                     <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" Visible="false"  /> 
+                    <asp:BoundField HeaderText="Folio Rem" DataField="Alfa1" Visible="false"  /> 
                     <asp:BoundField HeaderText="Vendedor" DataField="Vendedor" />
                     <asp:BoundField DataField="PorcentajeAvance" HeaderText="Facturado" DataFormatString="{0:F}%" HtmlEncode="false" />
                     <asp:BoundField DataField="SubTotal" HeaderText="SubTotal" DataFormatString="{0:N2}"  Visible="false" ItemStyle-HorizontalAlign="Right" />
diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb
index 5f7c92f82..a63b446de 100644
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -97,10 +97,10 @@ Partial Class RepRemisiones
         End If
 
         If DtVentas IsNot Nothing Then
-            GvDatos.Columns(10).Visible = DtVentas.SUMD("Descuento") > 0
+            GvDatos.Columns(11).Visible = DtVentas.SUMD("Descuento") > 0
         End If
 
-        GvDatos.Columns(13).Visible = chkInv.Checked 'solo se visualiza si está selccionada
+        GvDatos.Columns(14).Visible = chkInv.Checked 'solo se visualiza si está selccionada
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -143,6 +143,7 @@ Partial Class RepRemisiones
             GvDatos.Columns(3).HeaderText = "Hospital"
             GvDatos.Columns(5).Visible = True
             GvDatos.Columns(6).Visible = True
+            GvDatos.Columns(7).Visible = True
             'columna de fecha
             GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
             CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"