AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SMS - 2024.02.22

Browse Source
This commit is contained in:
rakcsle
2024-02-23 08:38:28 -07:00
parent 28215a387e
commit 85a65dd637
8 changed files with 181 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OS/Asignaciones.aspx
View File

@@ -234,6 +234,8 @@
</cc1:TimeSelector>
</ItemTemplate>
</asp:TemplateField>
<%--11--%>
<asp:BoundField DataField="SerieFolio" HeaderText="Folio Ped" ItemStyle-HorizontalAlign="Left" Visible="false" />
</Columns>
</asp:GridView>
</div>

1
OS/Asignaciones.aspx.vb
View File

@@ -100,6 +100,7 @@ Partial Class OS_Asignaciones
GvNA.Columns(7).Visible = True
GvNA.Columns(8).Visible = True
GvNA.Columns(11).Visible = True
GvNA.Columns(2).HeaderText = "Hospital"

22
OS/OrdenesServicios.aspx
View File

@@ -290,6 +290,27 @@
</div>
<div class="row" id="DivFolioAdicional" runat="server" visible="false">
<div class="col-md-2" style="margin-top: 5px">
<b>Folio Adicional:</b>
</div>
<div class="col-md-4" style="margin-top: 5px; text-align: left">
<asp:Label runat="server" ID="LblFolioAdicional"></asp:Label>
</div>
<div class="col-md-2" style="margin-top: 5px">
</div>
<div class="col-md-3" style="margin-top: 5px; text-align: left">
</div>
</div>
</div>
</div>
@@ -1321,6 +1342,7 @@
</div>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">

6
OS/OrdenesServicios.aspx.vb
View File

@@ -733,6 +733,10 @@ Partial Class OS_OrdenesServicios
TxtPaciente.Text = ObjOS.Paciente
TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente
LblFolioAdicional.Text = ObjOS.FolioAdicional
DivFolioAdicional.Visible = If(ObjOS.FolioAdicional.Trim.Length > 0, True, False)
CargaEventoBitacora()
CargaHistorial()
@@ -3314,7 +3318,7 @@ Partial Class OS_OrdenesServicios
ProcesoOK = False
End If
If ProcesoOK Then
If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then
If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
ProcesoOK = False
End If
End If