-- mejora
This commit is contained in:
@@ -652,28 +652,13 @@ Partial Class OS_OrdenesServicios
|
||||
DdlUsuarioAtendio.SelectedValueExist(CveTecnico)
|
||||
CargarEstatusDelUsuario(TipoEstatus)
|
||||
CveVenta = ObjOS.CveVenta
|
||||
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
CvePedido = ObjOS.CveCotizacion
|
||||
CveVenta = ObjOS.CveVenta
|
||||
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()
|
||||
'DdlEstatusOS.Enabled = False
|
||||
'End If
|
||||
|
||||
DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString
|
||||
|
||||
'If TipoEstatus = 2 Then
|
||||
'LnkTecnico.Visible = True
|
||||
'End If
|
||||
|
||||
If TipoEstatus = 3 Then
|
||||
'DisableAll()
|
||||
|
||||
@@ -703,14 +688,9 @@ Partial Class OS_OrdenesServicios
|
||||
DivEstatus.Visible = True
|
||||
DivMateriales.Visible = True
|
||||
ImgImprimir.Visible = True
|
||||
|
||||
|
||||
|
||||
TxtTelefono.Text = ObjOS.Telefono
|
||||
DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
|
||||
TxtAnio.Text = ObjOS.Año
|
||||
|
||||
|
||||
DdlMedico.SelectedValueExist(ObjOS.CveMedico)
|
||||
DdlProcedimiento.SelectedValueExist(ObjOS.CveProcedimiento)
|
||||
DdlTipoVenta.SelectedValueExist(ObjOS.CveTipoVenta)
|
||||
@@ -1300,10 +1280,9 @@ Partial Class OS_OrdenesServicios
|
||||
FechaCita = TxtFechaCita.Text.Replace(",", "").ToDateTime
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim ObjOrdenServicio As New ClsOS()
|
||||
Dim ObjGenerales As New ClsGenerales(ObjOrdenServicio.IniciaTransacSQL)
|
||||
Dim ObjVenta As New ClsVentas(ObjOrdenServicio.IniciaTransacSQL)
|
||||
MensajeAlert = New StringBuilder
|
||||
|
||||
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
|
||||
Errores = True
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "" Then
|
||||
@@ -1369,8 +1347,6 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
Errores = True
|
||||
End If
|
||||
@@ -1378,8 +1354,6 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
'If Not Errores Then
|
||||
|
||||
' 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 ComentarioTecnico As String = Row("ComentarioTecnico").ToString
|
||||
Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
|
||||
|
||||
|
||||
|
||||
Dim fname As String = ""
|
||||
|
||||
If File.Exists(Row("Archivo").ToString) Then
|
||||
Dim Archivo As New System.IO.FileInfo("")
|
||||
fname = Archivo.Name
|
||||
End If
|
||||
|
||||
|
||||
Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
|
||||
Dim FechaEntrega As String = If(Entregar = True, NowADS().ToString("dd/MM/yyy"), "-1")
|
||||
Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
|
||||
@@ -1457,20 +1426,15 @@ Partial Class OS_OrdenesServicios
|
||||
Else
|
||||
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
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If File.Exists(Row("Archivo").ToString) Then
|
||||
Dim Archivo As New System.IO.FileInfo("")
|
||||
If Archivo.Name <> "-1" Then
|
||||
'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)))
|
||||
|
||||
If ArchivoFinal.Exists() Then
|
||||
ArchivoFinal.Delete()
|
||||
End If
|
||||
If ArchivoFinal.Exists() Then ArchivoFinal.Delete()
|
||||
|
||||
'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)
|
||||
@@ -1481,7 +1445,6 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
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
|
||||
@@ -1512,12 +1475,21 @@ Partial Class OS_OrdenesServicios
|
||||
Next
|
||||
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
|
||||
|
||||
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
|
||||
Errores = True
|
||||
End If
|
||||
@@ -1526,7 +1498,6 @@ Partial Class OS_OrdenesServicios
|
||||
Errores = True
|
||||
End If
|
||||
|
||||
|
||||
If Not Errores Then
|
||||
|
||||
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
|
||||
Errores = True
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not Errores Then
|
||||
ObjOrdenServicio.Commit()
|
||||
|
||||
@@ -1557,6 +1524,7 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
ObjOrdenServicio.Dispose()
|
||||
ObjGenerales.Dispose()
|
||||
ObjVenta.Dispose()
|
||||
|
||||
End Sub
|
||||
Protected Sub BtnBuscarEspecificaciones_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Reference in New Issue
Block a user