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

-- mejora

Browse Source
This commit is contained in:
rrene
2024-07-06 10:01:27 -07:00
parent 3d81e3afe3
commit 019b9a48d8
1 changed files with 17 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
OS/OrdenesServicios.aspx.vb
View File

@@ -652,28 +652,13 @@ Partial Class OS_OrdenesServicios
DdlUsuarioAtendio.SelectedValueExist(CveTecnico) DdlUsuarioAtendio.SelectedValueExist(CveTecnico)
CargarEstatusDelUsuario(TipoEstatus) CargarEstatusDelUsuario(TipoEstatus)
CveVenta = ObjOS.CveVenta CveVenta = ObjOS.CveVenta
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
CvePedido = ObjOS.CveCotizacion CvePedido = ObjOS.CveCotizacion
CveVenta = ObjOS.CveVenta
End If End If
'Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count
'If validacionTieneEstatus > 0 Then
' DdlEstatusOS.Items.Clear()
' DdlEstatusOS.DataSource = EstatusOSDelUsuario
' DdlEstatusOS.DataBind()
'Else
CargaEstatusOS() CargaEstatusOS()
'DdlEstatusOS.Enabled = False
'End If
DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString
'If TipoEstatus = 2 Then
'LnkTecnico.Visible = True
'End If
If TipoEstatus = 3 Then If TipoEstatus = 3 Then
'DisableAll() 'DisableAll()
@@ -703,14 +688,9 @@ Partial Class OS_OrdenesServicios
DivEstatus.Visible = True DivEstatus.Visible = True
DivMateriales.Visible = True DivMateriales.Visible = True
ImgImprimir.Visible = True ImgImprimir.Visible = True
TxtTelefono.Text = ObjOS.Telefono TxtTelefono.Text = ObjOS.Telefono
DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto) DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
TxtAnio.Text = ObjOS.Año TxtAnio.Text = ObjOS.Año
DdlMedico.SelectedValueExist(ObjOS.CveMedico) DdlMedico.SelectedValueExist(ObjOS.CveMedico)
DdlProcedimiento.SelectedValueExist(ObjOS.CveProcedimiento) DdlProcedimiento.SelectedValueExist(ObjOS.CveProcedimiento)
DdlTipoVenta.SelectedValueExist(ObjOS.CveTipoVenta) DdlTipoVenta.SelectedValueExist(ObjOS.CveTipoVenta)
@@ -1300,10 +1280,9 @@ Partial Class OS_OrdenesServicios
FechaCita = TxtFechaCita.Text.Replace(",", "").ToDateTime FechaCita = TxtFechaCita.Text.Replace(",", "").ToDateTime
End If End If
Dim ObjOrdenServicio As New ClsOS() Dim ObjOrdenServicio As New ClsOS()
Dim ObjGenerales As New ClsGenerales(ObjOrdenServicio.IniciaTransacSQL) Dim ObjGenerales As New ClsGenerales(ObjOrdenServicio.IniciaTransacSQL)
Dim ObjVenta As New ClsVentas(ObjOrdenServicio.IniciaTransacSQL)
MensajeAlert = New StringBuilder MensajeAlert = New StringBuilder
Dim Errores As Boolean = False Dim Errores As Boolean = False
@@ -1354,7 +1333,6 @@ Partial Class OS_OrdenesServicios
If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveOSDetalle:=CveOsDetalle, CvePs:=CvePS) Then If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveOSDetalle:=CveOsDetalle, CvePs:=CvePS) Then
Errores = True Errores = True
End If End If
Next Next
If UsuarioActual.Empresa.Funcionalidad(578) = "" Then If UsuarioActual.Empresa.Funcionalidad(578) = "" Then
@@ -1369,8 +1347,6 @@ Partial Class OS_OrdenesServicios
End If End If
Next Next
End If End If
Else Else
Errores = True Errores = True
End If End If
@@ -1378,8 +1354,6 @@ Partial Class OS_OrdenesServicios
End If End If
Next Next
'If Not Errores Then 'If Not Errores Then
' Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero ' Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
@@ -1434,17 +1408,12 @@ Partial Class OS_OrdenesServicios
Dim Especificaciones As String = Row("Especificaciones").ToString Dim Especificaciones As String = Row("Especificaciones").ToString
Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString
Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
Dim fname As String = "" Dim fname As String = ""
If File.Exists(Row("Archivo").ToString) Then If File.Exists(Row("Archivo").ToString) Then
Dim Archivo As New System.IO.FileInfo("") Dim Archivo As New System.IO.FileInfo("")
fname = Archivo.Name fname = Archivo.Name
End If End If
Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1) Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
Dim FechaEntrega As String = If(Entregar = True, NowADS().ToString("dd/MM/yyy"), "-1") Dim FechaEntrega As String = If(Entregar = True, NowADS().ToString("dd/MM/yyy"), "-1")
Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
@@ -1457,20 +1426,15 @@ Partial Class OS_OrdenesServicios
Else Else
CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=fname) CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=fname)
If Not CveOSDetalle > 0 Then Errores = True If Not CveOSDetalle > 0 Then Errores = True
End If End If
If File.Exists(Row("Archivo").ToString) Then If File.Exists(Row("Archivo").ToString) Then
Dim Archivo As New System.IO.FileInfo("") Dim Archivo As New System.IO.FileInfo("")
If Archivo.Name <> "-1" Then If Archivo.Name <> "-1" Then
'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext 'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext
Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension))) Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension)))
If ArchivoFinal.Exists() Then If ArchivoFinal.Exists() Then ArchivoFinal.Delete()
ArchivoFinal.Delete()
End If
'Mover el archivo de los temporales a OS 'Mover el archivo de los temporales a OS
System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name) System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name)
@@ -1481,7 +1445,6 @@ Partial Class OS_OrdenesServicios
End If End If
End If End If
If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then
For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows
@@ -1512,12 +1475,21 @@ Partial Class OS_OrdenesServicios
Next Next
End If End If
End If End If
End If
Next
'ajustar
If UsuarioActual.Empresa.Funcionalidad(578) <> "" Then
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
Errores = True
End If End If
Next If CveVenta > 0 AndAlso Not ObjVenta.UpdateDatosMedicosVenta(CveVenta, UsuarioActual.CveEmpresa, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero,
TxtPaciente.Text.Trim, TxtIdentificadorCliente.Text.Trim, TxtFolioAdicional.Text.Trim, TxtFechaCita.Text.ToDateTime) Then
Errores = True
End If
End If
Else Else
Errores = True Errores = True
End If End If
@@ -1526,7 +1498,6 @@ Partial Class OS_OrdenesServicios
Errores = True Errores = True
End If End If
If Not Errores Then If Not Errores Then
Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
@@ -1537,13 +1508,9 @@ Partial Class OS_OrdenesServicios
If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
Errores = True Errores = True
End If End If
End If End If
End If End If
If Not Errores Then If Not Errores Then
ObjOrdenServicio.Commit() ObjOrdenServicio.Commit()
@@ -1557,6 +1524,7 @@ Partial Class OS_OrdenesServicios
End If End If
ObjOrdenServicio.Dispose() ObjOrdenServicio.Dispose()
ObjGenerales.Dispose() ObjGenerales.Dispose()
ObjVenta.Dispose()
End Sub End Sub
Protected Sub BtnBuscarEspecificaciones_Click(sender As Object, e As EventArgs) Protected Sub BtnBuscarEspecificaciones_Click(sender As Object, e As EventArgs)