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))
|
||||
|
||||
|
||||
@@ -156,6 +156,17 @@
|
||||
<ajax:ValidatorCalloutExtender ID="VCETipoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOS" Width="100px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-2">
|
||||
<b>Drección:</b>
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="300" CssClass="form-control" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -487,6 +487,8 @@ Partial Class OS_OrdenesServicios
|
||||
DdlTipoOrdenOS.SelectedValueExist(ObjOS.CveOSTipo)
|
||||
DdlSucursalCliente.SelectedValueExist(ObjOS.CveClienteSucursal)
|
||||
|
||||
TxtDireccion.Text = ObjOS.DtResultados.Rows(0)("DireccionOS").ToString
|
||||
|
||||
TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
|
||||
SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo))
|
||||
CveTecnico = ObjOS.CveUsuarioAtendio
|
||||
@@ -1030,7 +1032,7 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
If Not CveOS > 0 Then
|
||||
Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero
|
||||
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) Then
|
||||
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) Then
|
||||
Errores = True
|
||||
End If
|
||||
CargaCliente(CveCliente)
|
||||
@@ -1067,6 +1069,7 @@ Partial Class OS_OrdenesServicios
|
||||
If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveOSDetalle:=CveOsDetalle, CvePs:=CvePS) Then
|
||||
Errores = True
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
For Each RowM As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows
|
||||
@@ -1126,7 +1129,7 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
Else
|
||||
If CveTecnico = UsuarioActual.CveUsuario Then
|
||||
If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
|
||||
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) Then
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
If Not Errores Then
|
||||
Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
|
||||
|
||||
@@ -138,6 +138,45 @@
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" />
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
</div>
|
||||
<div class="titlefiltros caption">
|
||||
<div class="row">
|
||||
|
||||
<label class="col-md-1 ">Técnico:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlTecnico" ClientIDMode="Static" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" Visible="true" DataValueField="CveUsuario"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1 "><asp:Label runat="server" ID="LblSubProyectoFiltro"></asp:Label>:</label>
|
||||
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyecto" ClientIDMode="Static" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12 col-sm-12">
|
||||
|
||||
@@ -207,6 +246,11 @@
|
||||
<label for="<%= TxtDescripcionAgenda.ClientID.ToString()%>" style="height: 60px;">Descripción:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:Label runat="server" ClientIDMode="Static" ID="LblDireccion" CssClass="form-control"></asp:Label>
|
||||
<label for="<%= LblDireccion.ClientID.ToString()%>" style="height: 60px;">Dirección:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:Label runat="server" ClientIDMode="Static" ID="LblSubProyecto" CssClass="form-control"></asp:Label>
|
||||
<label for="<%= LblSubProyecto.ClientID.ToString()%>" style="height: 60px;"><asp:Label runat="server" ID="LblSubProyectoEtiqueta"></asp:Label>:</label>
|
||||
@@ -465,8 +509,9 @@
|
||||
$("#TxtDescripcionAgenda").val("-1");
|
||||
|
||||
$("#DdlAgedaTipo").val(event.cveagendatipo);
|
||||
$("#DdlPrioridad").val(event.prioridad);
|
||||
$('#LblSubProyecto').text(event.SubProyecto);
|
||||
$("#DdlPrioridad").val(event.prioridad);
|
||||
$('#LblSubProyecto').text(event.SubProyecto);
|
||||
$('#LblDireccion').text(event.Direccion);
|
||||
|
||||
|
||||
|
||||
@@ -681,6 +726,8 @@
|
||||
//$get('DivActualizarEvento').style.display = 'none';
|
||||
//$get('DivAgregarEvento').style.display = 'none';
|
||||
|
||||
|
||||
|
||||
var date = new Date();
|
||||
var d = date.getDate();
|
||||
var m = date.getMonth();
|
||||
@@ -729,7 +776,9 @@
|
||||
data: {
|
||||
U: ' <%= UsuarioActual.CveUsuario %>',
|
||||
E: '<%= UsuarioActual.CveEmpresa %>',
|
||||
METODO:'servicio_domicilio'
|
||||
METODO: 'servicio_domicilio',
|
||||
CveUsuarioPara: $('#DdlTecnico').val(),
|
||||
CveSubProyecto: $('#DdlSubProyecto').val()
|
||||
}
|
||||
},
|
||||
eventDrop: eventDropped,
|
||||
|
||||
@@ -63,7 +63,14 @@ Partial Class OS_RepServicioDomicilio
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoEtiqueta)
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
|
||||
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
|
||||
|
||||
DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
DdlTecnico.DataBind()
|
||||
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
InicializaCalendar()
|
||||
End If
|
||||
End Sub
|
||||
@@ -270,4 +277,8 @@ Partial Class OS_RepServicioDomicilio
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript("Calendario();")
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user