diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 05494dc3e..287c33d28 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -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)