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

- OrdenesServicios.aspx,vb agregar campos Paciente, Episodio

Browse Source 
- Ventas.aspx,vb mostar ddls de medico y procedimiento en observaciones
- ClsVentas Agregar funcion UpdateVentasDetalleCantidadDevolucion
- ProductosServicios.aspx,vb agregar campos codigo alterno, descripcion alterna para empresas  hospitalarias
-
This commit is contained in:
rakcsle
2023-12-09 16:09:29 -07:00
parent f7fa1f14f5
commit b822633187
12 changed files with 222 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
OS/OrdenesServicios.aspx.vb
View File

@@ -421,7 +421,6 @@ Partial Class OS_OrdenesServicios
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
DVAMedicoProcedimiento.Visible = True
DVTipoVenta.Visible = True
DVTipoVenta.Visible = True
DvFechaRecivido1.Visible = False
DvFechaRecivido2.Visible = False
@@ -429,6 +428,8 @@ Partial Class OS_OrdenesServicios
DVFechaCita1.Visible = True
DVFechaCita2.Visible = True
DVEpisodioPaciente.Visible = True
End If
End If
@@ -671,6 +672,9 @@ Partial Class OS_OrdenesServicios
DdlProcedimiento.SelectedValueExist(ObjOS.CveProcedimiento)
DdlTipoVenta.SelectedValueExist(ObjOS.CveTipoVenta)
TxtPaciente.Text = ObjOS.Paciente
TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente
CargaEventoBitacora()
CargaHistorial()
Else
@@ -1233,7 +1237,8 @@ Partial Class OS_OrdenesServicios
If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, EstatusOrdenServicio,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero,
Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveMedico:=DdlMedico.SelectedValue.ToEntero,
CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita) Then
CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita,
Paciente:=TxtPaciente.Text.Trim, IdentificadorCliente:=TxtIdentificadorCliente.Text.Trim) Then
Errores = True
End If
CargaCliente(CveCliente)
@@ -1334,7 +1339,8 @@ Partial Class OS_OrdenesServicios
If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario,
DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text,
CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveMedico:=DdlMedico.SelectedValue.ToEntero,
CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita) Then
CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero, FechaCita:=FechaCita,
Paciente:=TxtPaciente.Text.Trim, IdentificadorCliente:=TxtIdentificadorCliente.Text.Trim) Then
For Each Row As DataRow In TmpDT.Rows
If Not Errores Then
Dim CvePS As Integer = Row("CvePS").ToString.ToEntero