Cambios OS, Compras anticipos comisiones
This commit is contained in:
rakcsle
@@ -66,6 +66,10 @@ Partial Class OS_Asignaciones
|
||||
End If
|
||||
End If
|
||||
ObjEstatusPermisos.Dispose()
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -241,12 +245,20 @@ Partial Class OS_Asignaciones
|
||||
|
||||
End If
|
||||
|
||||
Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero).Rows(0)("Correo").ToString
|
||||
|
||||
If Not TieneError Then
|
||||
MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
If contadorOrdenesAsignadas > 0 Then
|
||||
|
||||
If Not TieneError Then
|
||||
@@ -265,6 +277,171 @@ Partial Class OS_Asignaciones
|
||||
UpAsignacionPersona.Update()
|
||||
UpOS.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
|
||||
|
||||
|
||||
|
||||
Dim ObjOS As New ClsOS()
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim CveFolio = ""
|
||||
|
||||
Dim TmpDTOS = New DataTable
|
||||
TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
||||
|
||||
TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("Clasificacion", GetType(String))
|
||||
TmpDTOS.Columns.Add("CvePS", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("CveUM", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("UM", GetType(String))
|
||||
TmpDTOS.Columns.Add("Cantidad", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("PS", GetType(String))
|
||||
TmpDTOS.Columns.Add("Especificaciones", GetType(String))
|
||||
TmpDTOS.Columns.Add("Materiales", GetType(String))
|
||||
TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("Observaciones", GetType(String))
|
||||
TmpDTOS.Columns.Add("FechaAtencion", GetType(String))
|
||||
TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String))
|
||||
TmpDTOS.Columns.Add("FechaTermino", GetType(String))
|
||||
TmpDTOS.Columns.Add("FechaEntrega", GetType(String))
|
||||
TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer))
|
||||
TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String))
|
||||
TmpDTOS.Columns.Add("SeFacturara", GetType(String))
|
||||
TmpDTOS.Columns.Add("SeSuperviso", GetType(String))
|
||||
TmpDTOS.Columns.Add("Estatus", GetType(String))
|
||||
TmpDTOS.Columns.Add("Archivo", GetType(String))
|
||||
TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String))
|
||||
|
||||
|
||||
Dim TmpDTMaterialesOS = New DataTable
|
||||
TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
||||
TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
|
||||
TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
|
||||
TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer))
|
||||
TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer))
|
||||
TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer))
|
||||
TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String))
|
||||
TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String))
|
||||
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
|
||||
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
|
||||
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
|
||||
|
||||
Dim FolioOS As String = ""
|
||||
|
||||
Dim RutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjOS.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim dtOS As DataTable = ObjOS.DtResultados
|
||||
Dim dr As DataRow = dtOS.Rows(0)
|
||||
params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
|
||||
params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
|
||||
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
||||
params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
|
||||
params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
|
||||
FolioOS = dr("Folio").ToString
|
||||
params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
|
||||
params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
|
||||
params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
|
||||
params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
|
||||
params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
|
||||
CveFolio = dr("Folio").ToString
|
||||
|
||||
If RutaReporte.Exists Then
|
||||
params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
|
||||
params.Add(New ReportParameter("RFC", dr("RFC").ToString))
|
||||
params.Add(New ReportParameter("Vendedor", " "))
|
||||
params.Add(New ReportParameter("Correo", dr("Correo").ToString))
|
||||
params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
|
||||
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
|
||||
params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
|
||||
params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
|
||||
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
||||
params.Add(New ReportParameter("Copia", "Copia: Original"))
|
||||
params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
If Not RutaReporte.Exists Then
|
||||
|
||||
RutaReporte = New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\OrdenServicio.rdlc", ModExtensiones.DirectorioBaseEmpresas))
|
||||
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
|
||||
TmpDTOS = ObjOS.DtResultados
|
||||
End If
|
||||
|
||||
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
|
||||
TmpDTMaterialesOS = ObjOS.DtResultados
|
||||
End If
|
||||
Dim lrds As New List(Of ReportDataSource)
|
||||
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
|
||||
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
|
||||
|
||||
lrds.Add(rds)
|
||||
lrds.Add(rds2)
|
||||
ObjOS.Dispose()
|
||||
|
||||
Dim ReporteByte As Byte() = StreamPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
||||
|
||||
If ReporteByte IsNot Nothing Then
|
||||
Try
|
||||
ViewState("Para") = CorreoUsuarioAsignado
|
||||
ViewState("ArrayCC") = ""
|
||||
ViewState("Asunto") = "Asinación Orden de Servicio"
|
||||
ViewState("FolioOSMail") = FolioOS
|
||||
ViewState("Body") = "Asinación Orden de Servicio"
|
||||
|
||||
|
||||
ViewState("bytesOS") = ReporteByte
|
||||
Dim Hilo As New Threading.Thread(AddressOf SendmailOS)
|
||||
Hilo.Start()
|
||||
Catch ex As Exception
|
||||
GuardaLogAD($"Error al enviar correo de OS {ex.StackTrace}")
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SendmailOS()
|
||||
|
||||
Dim Asunto, Para, ArrayCC, Body As String
|
||||
Asunto = If(IsNothing(ViewState("Asunto")), "", ViewState("Asunto").ToString)
|
||||
Para = If(IsNothing(ViewState("Para")), "", ViewState("Para").ToString)
|
||||
ArrayCC = If(IsNothing(ViewState("ArrayCC")), "", ViewState("ArrayCC").ToString)
|
||||
|
||||
Body = If(IsNothing(ViewState("Body")), "", ViewState("Body").ToString)
|
||||
|
||||
|
||||
Dim Mail As New ClsSisMail()
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.NombreArchivo = $"OS_{ViewState("FolioOSMail") }.pdf", .ArchivoBinario = DirectCast(ViewState("bytesOS"), Byte())})
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC, LSRutasMail)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user