Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/CalendarEvent.vb

@@ -25,5 +25,6 @@ Public Class CalendarEvent
     Public Property EmpresaCRM As String
     Public Property SubProyecto As String
     Public Property CveSubProyecto As Integer
+    Public Property Direccion As String
 
 End Class

App_Code/ClsOIEventos.vb

@@ -1541,9 +1541,10 @@ Public Class ClsOIEventos
 
     Public Function GetEventos(CveEvento As Integer, CveTipoEvento As Integer, CveAgendaTipo As Integer, Asunto As String, Descripcion As String, Prioridad As Integer, CveUsuarioDe As Integer, CveUsuarioPara As Integer,
                                CveEventoEstatus As Integer, CveRevision As Integer, CveEventoPadre As Integer, Acuerdos As String, CveActivoFijo As Integer, CveIE As Integer, CveProspecto As Integer, CveCliente As Integer,
-                               CveOS As Integer, CveOC As Integer, CvePersonal As Integer, CveProveedor As Integer, CveCompra As Integer, CveVenta As Integer, CveUsuario As Integer, CveUsuarioIng As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer, Optional FechaInicio As Nullable(Of DateTime) = Nothing,
+                               CveOS As Integer, CveOC As Integer, CvePersonal As Integer, CveProveedor As Integer, CveCompra As Integer, CveVenta As Integer, CveUsuario As Integer, CveUsuarioIng As Integer, CveUsuarioConsulta As Integer,
-                               Optional FechaFin As Nullable(Of DateTime) = Nothing, Optional FechaRealTermino As Nullable(Of DateTime) = Nothing, Optional CveContrato As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1,
+                               CveEmpresa As Integer, Optional FechaInicio As Nullable(Of DateTime) = Nothing, Optional FechaFin As Nullable(Of DateTime) = Nothing, Optional FechaRealTermino As Nullable(Of DateTime) = Nothing,
-                               Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1) As Boolean
+                               Optional CveContrato As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
+                               Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_OI_EventosGet")
@@ -1593,6 +1594,8 @@ Public Class ClsOIEventos
             .Add("@CveTipoProcesoCRM", SqlDbType.Int).Value = CveTipoProcesoCRM
             .Add("@CveEtapaProcesoCRM", SqlDbType.Int).Value = CveEtapaProcesoCRM
 
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+
         End With
 
         Try

App_Code/ClsOS.vb

@@ -568,7 +568,8 @@ Public Class ClsOS
         Return Retorno
     End Function
     Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
-                                        CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean
+                                        CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1,
+                                         Optional Direccion As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosAdd")
@@ -588,6 +589,8 @@ Public Class ClsOS
             .Add("@CveOSPadre", SqlDbType.Int).Value = CveOSPadre
             .Add("@CveOSTipo", SqlDbType.Int).Value = CveOSTipo
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
+            .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
+
             .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
@@ -629,7 +632,8 @@ Public Class ClsOS
 
         Return Retorno
     End Function
-    Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean
+    Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer,
+                                           CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosUpdate")
@@ -644,6 +648,7 @@ Public Class ClsOS
             .Add("@CveOSTipo", SqlDbType.Int).Value = CveOSTipo
             .Add("@CveOS", SqlDbType.Int).Value = CveOS
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
+            .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -9256,7 +9256,7 @@ Public Class ClsPaginas
         Dim Ruta As String = UsuarioActual.Empresa.Ruta
         Dim PathXML As String = $"{Ruta}XML\Pag\{Serie}-{Folio}.xml"
         Dim PathPDF As String = $"{Ruta}PDF\Pag\{Serie}-{Folio}.pdf"
-        Dim ImagenCBB As String = $"file://{Ruta}CBB\{Serie}-{Folio}.jpg"
+        Dim ImagenCBB As String = $"{Ruta}CBB\{Serie}-{Folio}.jpg"
 
         If File.Exists(PathXML) Then
             Dim XmlDoc As New System.Xml.XmlDocument
@@ -9441,6 +9441,12 @@ Public Class ClsPaginas
 
             Dim CadenaOriginal As String = $"||1.0| {FolioFiscal} |  {FechaCertificacion.ToDate.ToShortDateString}  T {FechaCertificacion.ToDateTime.ToShortTimeString}  | {SelloCFDi}  |  {NoSerieCertificado}  ||"
 
+            If Not File.Exists(ImagenCBB) AndAlso FolioFiscal <> "" Then
+                Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+                CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCOrdenante, 1, FolioFiscal, ImagenCBB)
+            End If
+
+
             ' PARAMETROS DEL REPORTE
             params.Add(New ReportParameter("SerieFolio", SerieFolio))
             params.Add(New ReportParameter("RFCOrdenante", RFCOrdenante))
@@ -9461,7 +9467,7 @@ Public Class ClsPaginas
             params.Add(New ReportParameter("SelloSAT", SelloSAT))
             params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
             params.Add(New ReportParameter("CertificadoSAT", CertificadoSAT))
-            params.Add(New ReportParameter("QR", ImagenCBB))
+            params.Add(New ReportParameter("QR", $"file://{ImagenCBB}"))
 
             Dim lrds As New List(Of ReportDataSource)
             Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = If(DTConceptosPago IsNot Nothing, DTConceptosPago, New DataTable)}

Ashx/CargaEventos.ashx

@@ -31,10 +31,15 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
                         CveUsuario = context.Request("U").ToEntero
                         CveEmpresa = context.Request("E").ToEntero
+
+                        Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1)
+                        Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1)
+
+
                         FI = context.Request("start").ToDate
                         FF = context.Request("end").ToDate
 
-                        If Not GetEventos(CveUsuario, CveEmpresa, FI, FF, CveOS:=-2) Then
+                        If Not GetEventos(CveUsuario, CveEmpresa, FI, FF, CveOS:=-2, CveUsuarioPara:=CveUsuarioPara, CveSubProyecto:=CveSubProyecto) Then
                             'Convierte el objeto de Eventos en JSON
                             'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
                             Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events)
@@ -85,11 +90,11 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
     End Property
 
 
-    Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date, Optional CveOS As Integer = -1) As Boolean
+    Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date, Optional CveOS As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
         Dim CveEmpresaCRM As Integer = 0
-        If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuario, -1, -1, -1, "-1", -1, -1, -1, -1, CveOS, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF) Then
+        If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuarioPara, -1, -1, -1, "-1", -1, -1, -1, -1, CveOS, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF, CveSubProyecto:=CveSubProyecto) Then
 
             If ObjEventos.DtResultados.Rows.Count > 0 Then
                 events = New List(Of CalendarEvent)
@@ -119,6 +124,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.EmpresaCRM = dr("EmpresaCRM").ToString
                         cevent.SubProyecto = dr("SubProyecto").ToString
                         cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
+                        cevent.Direccion = dr("Direccion").ToString
 
                         '11/05/2018 - Evento Gasto Recurrente
                         cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero

Compras/Compras.aspx

@@ -881,10 +881,7 @@
                                                     <Columns>
                                                         <asp:TemplateField>
                                                             <ItemTemplate>
-                                                                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                                                                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                                                           
-                                                           
-                                                           
-                                                           
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField>
@@ -909,19 +906,13 @@
                                                         <asp:TemplateField>
                                                             <HeaderTemplate>Anticipo/NC</HeaderTemplate>
                                                             <ItemTemplate>
-                                                                <asp:Literal ID="LtlAnticipos" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                                <asp:Literal ID="LtlAnticipos" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>'></asp:Literal>&nbsp;                                                           
-                                                           
-                                                           
-                                                           
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField>
                                                             <HeaderTemplate>Mon</HeaderTemplate>
                                                             <ItemTemplate>
-                                                                <asp:Literal ID="LtlMoneda" runat="server" Text='<%# Eval("Moneda") %>'></asp:Literal>&nbsp;
+                                                                <asp:Literal ID="LtlMoneda" runat="server" Text='<%# Eval("Moneda") %>'></asp:Literal>&nbsp;                                                           
-                                                           
-                                                           
-                                                           
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField Visible="False">
@@ -2842,18 +2833,24 @@
                             </div>
                         </div>
                         <div class="row">
-                            <div class="col-md-6">
+                            <div class="col-md-3">
                                 <label class="col-md-6"><b>Saldo Factura:  </b></label>
                                 <div class="col-md-6">
                                     <asp:Label ID="LblSaldoFactura" ClientIDMode="Static" runat="server"></asp:Label>
                                 </div>
                             </div>
-                            <div class="col-md-6">
+                            <div class="col-md-3">
                                 <label class="col-md-6"><b>Aplicado: </b></label>
                                 <div class="col-md-6">
                                     <asp:Label ID="LblAplicadoCompraAnt" ClientIDMode="Static" Text="0.00" runat="server"></asp:Label>
                                 </div>
                             </div>
+                            <div class="col-md-3" runat="server" id="DVAntComiciones" visible="false">
+                                <label class="col-md-6"><b>Comisión: </b></label>
+                                <div class="col-md-6">
+                                    <asp:Label ID="LblAplicadoCompraAntComision" ClientIDMode="Static" Text="0.00" runat="server"></asp:Label>
+                                </div>
+                            </div>
                             <br />
                         </div>
                         <div class="row">
@@ -2912,6 +2909,13 @@
                                         <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtAnticipo" ValidChars="." FilterType="Custom, Numbers" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                 <asp:TemplateField HeaderStyle-HorizontalAlign="Center" HeaderText="Comisión" ItemStyle-HorizontalAlign="Right" Visible="false">
+                                    <ItemTemplate>
+                                        <%--<asp:Label ID="LblTotalAnticipos" runat="server" ClientIDMode="Static" Width="80px" Text="0.00" Visible="false"></asp:Label>--%>
+                                        <asp:TextBox ID="TxtComision" runat="server" MaxLength="12" Width="76px" Style="text-align: right;"></asp:TextBox>
+                                        <ajax:FilteredTextBoxExtender ID="FilTxtComision" runat="server" TargetControlID="TxtComision" ValidChars="-." FilterType="Custom, Numbers" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
 
@@ -5891,23 +5895,47 @@
             }
 
             $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2));
-            $("#LblAplicadoCompraAnt").text(FormatoNumero(FnSumaValoresAnt(), 2));
+            $("#LblAplicadoCompraAnt").text(FormatoNumero(FnSumaValoresAnt(), 2));            
-            $("#LblSaldoFactura").text(FormatoNumero(Total - FnSumaValoresAnt(), 2));
+            $("#LblAplicadoCompraAntComision").text(FormatoNumero(FnSumaValoresAntComisiones(), 2));            
+            $("#LblSaldoFactura").text(FormatoNumero(TotalSaldo - FnSumaValoresAnt(), 2));
 
 
         }
 
-        function FnCambiaAnt(chk, txt, saldo, TotalSaldo, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal) {
+        function FnCambiaAnt(chk, txt, saldo, TotalSaldo, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal, txtComision) {
+
             var Total = ToDouble($get('TxtTotal').value);
+            let txtComisionImporte = 0;
+
+            if (txtComision != null) {
+                if (!isNaN(txtComision.value)) {
+                    txtComisionImporte = ToDouble(txtComision.value);
+                } 
+            }
+
+            
 
             var txtvalue = ToDouble(txt.value);
-            if (CveMonedaAnticipo = 1 && CveMonedaOriginal == 2) {
+
+
+            if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) {
+
+                if (txtComision != null) {
+                    txtComision.value = txtvalue;
+                    alert('La comisión no debe de exder la amortización.')                
+                }                
+                return;
+            }      
+
+
+            if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
                 txtvalue = ToDouble(txtvalue / TCAnticipo);
-            } else if (CveMonedaAnticipo = 2 && CveMonedaOriginal == 1) {
+            } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {
                 txtvalue = ToDouble(txtvalue * TCAnticipo);
             }
 
             var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
+            
             if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
             //minimo entre saldocompra y el saldoanticipo
             if (SaldoCompra < saldo) saldo = SaldoCompra;
@@ -5919,12 +5947,13 @@
             }
 
             if (ToDouble(txtvalue) > saldo) {
-                txt.value = saldo;
+                txt.value = saldo;                
                 alert("El Importe no debe de exceder a el saldo");
             }
 
             $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2));
             $("#LblAplicadoCompraAnt").text(FormatoNumero(FnSumaValoresAnt(), 2));
+            $("#LblAplicadoCompraAntComision").text(FormatoNumero(FnSumaValoresAntComisiones(), 2));  
             $("#LblSaldoFactura").text(FormatoNumero(TotalSaldo - FnSumaValoresAnt(), 2));
 
         }
@@ -5941,8 +5970,21 @@
             //    totalPoints += ToDouble($(this).val());
             //});
 
+            let respuesta = Math.round(totalPoints * 100) / 100;
+            return respuesta
+        }
 
-            return Math.round(totalPoints * 100) / 100;
+        function FnSumaValoresAntComisiones() {
+            var totalPoints = 0;
+            var t = '';
+
+
+            $('input[name*=TxtComision]').each(function () {
+                totalPoints += ToDouble($(this).val());
+            });           
+
+            let respuesta = Math.round(totalPoints * 100) / 100;
+            return respuesta
         }
 
 

Compras/PopUpVerFactura.aspx.vb

@@ -5668,7 +5668,8 @@ Partial Class PopUpVerFactura
         Dim params As New List(Of ReportParameter)
         Dim CveFolio = ""
         CreaDT()
-        Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
+
+        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
@@ -5688,7 +5689,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
                 CveFolio = dr("Folio").ToString
 
-                If ReporteEmpresa.Exists Then
+                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", " "))
@@ -5706,7 +5707,10 @@ Partial Class PopUpVerFactura
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
 
-        If Not ReporteEmpresa.Exists Then
+        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))
@@ -5734,7 +5738,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds2)
         ObjOS.Dispose()
 
-        ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
+        ImprimirPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
     End Sub
     Private Sub CreaDT()
         TmpDTOS = New DataTable

Empresas/Grales/Formatos/OrdenServicio.rdlc

@@ -416,6 +416,7 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -1515,9 +1516,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
           <Top>0.22833cm</Top>
-          <Left>2.8349cm</Left>
+          <Left>4.1049cm</Left>
           <Height>0.6cm</Height>
-          <Width>8.44903cm</Width>
+          <Width>10.98903cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1565,9 +1566,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>0.86361cm</Top>
-          <Left>2.8349cm</Left>
+          <Left>5.85115cm</Left>
           <Height>0.52945cm</Height>
-          <Width>8.44903cm</Width>
+          <Width>7.58473cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -1613,22 +1614,13 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value> OS:</Value>
+                  <Value> OS: </Value>
                   <Style>
                     <FontFamily>Myriad Pro</FontFamily>
                     <FontSize>14pt</FontSize>
                     <FontWeight>Bold</FontWeight>
                   </Style>
                 </TextRun>
-                <TextRun>
-                  <Value>No.</Value>
-                  <Style>
-                    <FontFamily>Myriad Pro</FontFamily>
-                    <FontSize>14pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                    <Color>#a90909</Color>
-                  </Style>
-                </TextRun>
                 <TextRun>
                   <Value>=Parameters!FolioOS.Value</Value>
                   <Style>
@@ -1646,9 +1638,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
           <Top>0.08989in</Top>
-          <Left>4.51194in</Left>
+          <Left>5.98416in</Left>
           <Height>0.29178in</Height>
-          <Width>3.45661in</Width>
+          <Width>1.98439in</Width>
           <ZIndex>4</ZIndex>
           <Style>
             <Border>
@@ -1775,7 +1767,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox18</rd:DefaultName>
-          <Top>1.14584cm</Top>
+          <Top>1.36809cm</Top>
           <Left>11.46032cm</Left>
           <Height>1.98807cm</Height>
           <Width>8.7798cm</Width>

OS/Asignaciones.aspx.vb

@@ -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))
 

OS/OrdenesServicios.aspx

@@ -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>

OS/OrdenesServicios.aspx.vb

@@ -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

OS/RepServicioDomicilio.aspx

@@ -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);
+            $("#DdlPrioridad").val(event.prioridad);
-             $('#LblSubProyecto').text(event.SubProyecto);
+            $('#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,

OS/RepServicioDomicilio.aspx.vb

@@ -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