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

-

Browse Source
This commit is contained in:
rrene
2024-12-22 09:26:38 -07:00
parent cb78c06545
commit 3da65326ba
2 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
OS/OrdenesServicios.aspx
View File

@@ -113,6 +113,7 @@
</div> </div>
<div class="col-md-3" runat="server" id="DVFechaCita2" visible="false"> <div class="col-md-3" runat="server" id="DVFechaCita2" visible="false">
<asp:TextBox ID="TxtFechaCita" type="datetime-local" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 100%" step="1"></asp:TextBox> <asp:TextBox ID="TxtFechaCita" type="datetime-local" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 100%" step="1"></asp:TextBox>
<asp:HiddenField ID="HdnFechaCita" runat="server" />
</div> </div>
</div> </div>

10
OS/OrdenesServicios.aspx.vb
View File

@@ -659,6 +659,7 @@ Partial Class OS_OrdenesServicios
TxtFechaRecibido.Text = ObjOS.FechaRecepcion.ToString("dd/MM/yyyy") TxtFechaRecibido.Text = ObjOS.FechaRecepcion.ToString("dd/MM/yyyy")
TxtFechaCita.Text = ObjOS.FechaCita.ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") TxtFechaCita.Text = ObjOS.FechaCita.ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
HdnFechaCita.Value = TxtFechaCita.Text
CveFolio = ObjOS.Folio CveFolio = ObjOS.Folio
LblFolio.Text = ObjOS.Folio.ToString LblFolio.Text = ObjOS.Folio.ToString
@@ -1510,7 +1511,7 @@ Partial Class OS_OrdenesServicios
Next Next
'ajustar 'ajustar
If UsuarioActual.Empresa.Funcionalidad(578) <> "" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
If CvePedido > 0 AndAlso Not ObjVenta.UpdateDatosMedicosVenta(CvePedido, UsuarioActual.CveEmpresa, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, If CvePedido > 0 AndAlso Not ObjVenta.UpdateDatosMedicosVenta(CvePedido, UsuarioActual.CveEmpresa, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero,
TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then
Errores = True Errores = True
@@ -1520,6 +1521,13 @@ Partial Class OS_OrdenesServicios
TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then
Errores = True Errores = True
End If End If
If HdnFechaCita.Value <> TxtFechaCita.Text Then 'notif 16/17
'si es material ya surtido
'EnviaNotificacionSMS(16, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)EnviaNotificacionSMS(16, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
'si la cirugía ya se asignó
'EnviaNotificacionSMS(17, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
End If
End If End If
Else Else
Errores = True Errores = True