Rep Servicios a Domicilio, impresión CE en factura , ProveedopresAbonar enviar parametro CveSubProyecto

App_Code/CalendarEvent.vb

@@ -23,5 +23,7 @@ Public Class CalendarEvent
     Public Property CveTipoEvento As Integer
     Public Property Importe As Double
     Public Property EmpresaCRM As String
+    Public Property SubProyecto As String
+    Public Property CveSubProyecto As Integer
 
 End Class

App_Code/ClsMovimientos.vb

@@ -613,7 +613,7 @@ Public Class ClsMovimientos
     'CveAplicaNC
     Public Function GetCxPProveedor(CveProveedor As Integer, FechaI As String, FechaF As String, CveUsuarioProgramo As Integer, CveUsuarioRegistro As Integer,
                                     CveUsuarioResponsable As Integer, CveClasificacionProveedor As Integer, CveMoneda As Integer, CveEstatus As Integer, CveProveedorSucursal As Integer, CveAplicaNC As Integer,
-                                    Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1") As Boolean
+                                    Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorCxP")
         With SqlAdapter.SelectCommand.Parameters
@@ -631,6 +631,7 @@ Public Class ClsMovimientos
             .Add("@FechaVI", SqlDbType.VarChar).Value = FechaVI
             .Add("@FechaVF", SqlDbType.VarChar).Value = FechaVF
             .Add("@CodigoProgramacion", SqlDbType.VarChar).Value = CodigoProgramacion
+            .Add("@CveSubProyecto", SqlDbType.SmallInt).Value = CveSubProyecto
 
 
         End With

App_Code/ClsOIEventos.vb

@@ -1853,7 +1853,7 @@ Public Class ClsOIEventos
         Return Retorno
     End Function
 
-    Public Function FinalizaEvento(FechaFin As DateTime, CveEventoEstatus As Integer, Geom As String, CveEvento As Integer) As Boolean
+    Public Function FinalizaEvento(FechaFin As DateTime, CveEventoEstatus As Integer, Geom As String, CveEvento As Integer, Optional CveOS As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OI_EventoFinalizar")
@@ -1863,6 +1863,8 @@ Public Class ClsOIEventos
             .Add("@Geom", SqlDbType.VarChar).Value = Geom
             .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
             .Add("@CveEvento", SqlDbType.Int).Value = CveEvento
+            .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try
@@ -2432,12 +2434,13 @@ Public Class ClsOIEventos
                                     Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveEventoPadre As Integer = -1,
                                     Optional RecurrenciaTipo As Integer = -1, Optional Frecuencia As Integer = -1, Optional DiasSemana As String = "-1", Optional Dia As Integer = -1, Optional Mes As Integer = -1,
                                     Optional RecurrenciaFin As String = "-1", Optional CveTipoEvento As Integer = 2, Optional Importe As Double = -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) As Boolean
+                                    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
 
         Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, -1, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC,
                             CvePersonal, CvePersonal, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe,
-                            CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM)
+                            CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto)
 
         Return Retorno
     End Function

App_Code/ClsPaginas.vb

@@ -5195,6 +5195,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/OS/PopUpOS_PS_Especificaciones.aspx".ToUpper(), 135)
             PaginaDict.Add("/OS/PopUpMateriales.aspx".ToUpper(), 135)
             PaginaDict.Add("/OS/Asignaciones.aspx".ToUpper(), 125)
+            PaginaDict.Add("/OS/RepServicioDomicilio.aspx".ToUpper(), 1330)
 #End Region
             'OC
 #Region "OC"
@@ -5641,7 +5642,7 @@ Public Class ClsPaginas
 
             PaginaDict.Add("/Contabilidad2/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
 
-            PaginaDict.Add("/OS/RepServicioDomicilio.aspx".ToUpper(), -1)
+
 
 
 
@@ -7044,9 +7045,31 @@ Public Class ClsPaginas
         Vta.SelloCFDi = "Sin Timbrar"
         Vta.SelloSAT = "Sin Timbrar"
 
+
+#Region "COMERCIO EXTERIOR VARIABLES Y TABLAS"
         Dim CETipoOperacion = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = ""
         Dim RCETipoOperacion As String = "", RCEClavePedimento As String = "", RCEIncoterm As String = "", RCEMotivoTraslado As String = ""
 
+        Dim CE_DT_Direcciones As New DataTable
+        CE_DT_Direcciones.Columns.Add("Calle")
+        CE_DT_Direcciones.Columns.Add("NumeroExterior")
+        CE_DT_Direcciones.Columns.Add("Colonia")
+        CE_DT_Direcciones.Columns.Add("Municipio")
+        CE_DT_Direcciones.Columns.Add("Estado")
+        CE_DT_Direcciones.Columns.Add("Pais")
+        CE_DT_Direcciones.Columns.Add("CodigoPostal")
+        CE_DT_Direcciones.Columns.Add("Tipo", GetType(Integer))
+
+        Dim CE_DT_Mercancias As New DataTable
+        CE_DT_Mercancias.Columns.Add("NoIdentificacion")
+        CE_DT_Mercancias.Columns.Add("FraccionArancelaria")
+        CE_DT_Mercancias.Columns.Add("CantidadAduana")
+        CE_DT_Mercancias.Columns.Add("UnidadAduana")
+        CE_DT_Mercancias.Columns.Add("ValorUnitarioAduana")
+        CE_DT_Mercancias.Columns.Add("ValorDolares")
+#End Region
+
+
         'SI ESTA TIMBRADA - CON XML
         If File.Exists(PathXML) AndAlso Vta.Serie <> "VistaPrevia" Then 'Cuando es vista previe y coincide la serie y folio se ponen los datos fiscales
             Dim XmlDoc As New System.Xml.XmlDocument
@@ -7084,14 +7107,29 @@ Public Class ClsPaginas
                                 Vta.SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloSAT").InnerText
                             End If
 
+
+#Region "COMERCIO EXTERIOR LECTURA DATOS XML"
                             If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "cce11:ComercioExterior" Then
 
                                 CETipoOperacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoOperacion").InnerText
                                 CEClavePedimento = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("ClaveDePedimento").InnerText
                                 CEIncoterm = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Incoterm").InnerText
 
+                                Dim nodo As XmlNode = XmlDoc.DocumentElement
+                                Dim VersionCFDI As String = ValorXML(nodo, "version")
+
+                                Dim cfdVer As String = ""
+                                If VersionCFDI = "3.2" Then
+                                    cfdVer = "http://www.sat.gob.mx/cfd/2"
+                                ElseIf VersionCFDI = "3.3" Then
+                                    cfdVer = "http://www.sat.gob.mx/cfd/3"
+                                Else ' se considera que es la version 4.0
+                                    cfdVer = "http://www.sat.gob.mx/cfd/4"
+                                End If
 
                                 Dim namespaces As XmlNamespaceManager = New XmlNamespaceManager(XmlDoc.NameTable)
+
+                                namespaces.AddNamespace("cfdi", cfdVer)
                                 namespaces.AddNamespace("cce11", "http://www.sat.gob.mx/ComercioExterior11")
 
                                 CEId = ""
@@ -7106,14 +7144,76 @@ Public Class ClsPaginas
                                 CETipoCambio = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoCambioUSD").InnerText
 
 
-
-
                                 RCETipoOperacion = GlobalDTTipoOperacion.FiltroPrimeroValor("Descripcion", $"ClaveSATTipoOperacion = '{CETipoOperacion}'")
                                 RCEClavePedimento = GlobalDTClavePedimento.FiltroPrimeroValor("Descripcion", $"ClaveSATPedimento = '{CEClavePedimento}'")
                                 RCEIncoterm = GlobalDTIncoterm.FiltroPrimeroValor("Descripcion", $"ClaveSATIncoterm  = '{CEIncoterm}'")
                                 RCEMotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("MotivoTraslado", $"ClaveSATMotivoTraslado  = '{CEMotivoTraslado}'")
-                                'RCETipoCambio = {RCETipoCambio
+
+
+                                Dim CENodosEmisor As XmlNodeList = XmlDoc.DocumentElement.SelectNodes("//cfdi:Complemento/cce11:ComercioExterior/cce11:Emisor", namespaces) 'XmlDoc.SelectNodes("cfdi:Complemento/{0}:Traslados", "")
+                                Dim CENodosReceptor As XmlNodeList = XmlDoc.DocumentElement.SelectNodes("//cfdi:Complemento/cce11:ComercioExterior/cce11:Receptor", namespaces)
+                                Dim CEnodosDestinatario As XmlNodeList = XmlDoc.DocumentElement.SelectNodes("//cfdi:Complemento/cce11:ComercioExterior/cce11:Destinatario", namespaces)
+                                Dim CEnodosMercancias As XmlNodeList = XmlDoc.DocumentElement.SelectNodes("//cfdi:Complemento/cce11:ComercioExterior/cce11:Mercancias", namespaces)
+
+
+                                For Each node As XmlNode In CENodosEmisor
+                                    Dim nRowEmisor As DataRow = CE_DT_Direcciones.NewRow
+                                    nRowEmisor("Calle") = ValorXML(node, "Calle")
+                                    nRowEmisor("NumeroExterior") = ValorXML(node, "NumeroExterior")
+                                    nRowEmisor("Colonia") = ValorXML(node, "Colonia")
+                                    nRowEmisor("Municipio") = ValorXML(node, "Municipio")
+                                    nRowEmisor("Estado") = ValorXML(node, "Estado")
+                                    nRowEmisor("Pais") = ValorXML(node, "Pais")
+                                    nRowEmisor("CodigoPostal") = ValorXML(node, "CodigoPostal")
+                                    nRowEmisor("Tipo") = 1
+                                    CE_DT_Mercancias.Rows.Add(nRowEmisor)
+                                    Exit For
+                                Next
+
+                                For Each node As XmlNode In CENodosReceptor
+                                    Dim nRowReceptor As DataRow = CE_DT_Direcciones.NewRow
+                                    nRowReceptor("Calle") = ValorXML(node, "Calle")
+                                    nRowReceptor("NumeroExterior") = ValorXML(node, "NumeroExterior")
+                                    nRowReceptor("Colonia") = ValorXML(node, "Colonia")
+                                    nRowReceptor("Municipio") = ValorXML(node, "Municipio")
+                                    nRowReceptor("Estado") = ValorXML(node, "Estado")
+                                    nRowReceptor("Pais") = ValorXML(node, "Pais")
+                                    nRowReceptor("CodigoPostal") = ValorXML(node, "CodigoPostal")
+                                    nRowReceptor("Tipo") = 2
+                                    CE_DT_Mercancias.Rows.Add(nRowReceptor)
+                                    Exit For
+                                Next
+
+                                For Each node As XmlNode In CEnodosDestinatario
+                                    Dim nRowDestinatario As DataRow = CE_DT_Direcciones.NewRow
+                                    nRowDestinatario("Calle") = ValorXML(node, "Calle")
+                                    nRowDestinatario("NumeroExterior") = ValorXML(node, "NumeroExterior")
+                                    nRowDestinatario("Colonia") = ValorXML(node, "Colonia")
+                                    nRowDestinatario("Municipio") = ValorXML(node, "Municipio")
+                                    nRowDestinatario("Estado") = ValorXML(node, "Estado")
+                                    nRowDestinatario("Pais") = ValorXML(node, "Pais")
+                                    nRowDestinatario("CodigoPostal") = ValorXML(node, "CodigoPostal")
+                                    nRowDestinatario("Tipo") = 3
+                                    CE_DT_Mercancias.Rows.Add(nRowDestinatario)
+                                    Exit For
+                                Next
+
+                                For Each node As XmlNode In CEnodosMercancias
+                                    Dim nRowMercancias As DataRow = CE_DT_Mercancias.NewRow
+                                    nRowMercancias("NoIdentificacion") = ValorXML(node, "NoIdentificacion")
+                                    nRowMercancias("FraccionArancelaria") = ValorXML(node, "FraccionArancelaria")
+                                    nRowMercancias("CantidadAduana") = ValorXML(node, "CantidadAduana")
+                                    nRowMercancias("UnidadAduana") = ValorXML(node, "UnidadAduana")
+                                    nRowMercancias("ValorUnitarioAduana") = ValorXML(node, "ValorUnitarioAduana")
+                                    nRowMercancias("ValorDolares") = ValorXML(node, "ValorDolares")
+                                    CE_DT_Mercancias.Rows.Add(nRowMercancias)
+                                Next
+                                Dim asddd As String = ""
+
                             End If
+#End Region
+
+
 
                         Next
 
@@ -7825,6 +7925,15 @@ Public Class ClsPaginas
             Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
             lrds.Add(rds5)
 
+
+            If RCETipoOperacion.Trim.Length > 0 Then
+                Dim rds6 As New ReportDataSource With {.Name = "CE_DT_Direcciones", .Value = CE_DT_Direcciones}
+                lrds.Add(rds6)
+                Dim rds7 As New ReportDataSource With {.Name = "CE_DT_Mercancias", .Value = CE_DT_Mercancias}
+                lrds.Add(rds7)
+            End If
+
+
             If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
                 params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString))
             End If

Ashx/CargaEventos.ashx

@@ -117,6 +117,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.Prospecto = dr("Prospecto").ToString
                         cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
                         cevent.EmpresaCRM = dr("EmpresaCRM").ToString
+                        cevent.SubProyecto = dr("SubProyecto").ToString
+                        cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
 
                         '11/05/2018 - Evento Gasto Recurrente
                         cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero

Bancos/ProveedoresAbonar.aspx.vb

@@ -203,6 +203,21 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
+
+    Private Property CveSubProyectoFiltro As Integer
+        Get
+            If ViewState("CveSubProyectoFiltro") Is Nothing Then
+                ViewState("CveSubProyectoFiltro") = -1
+            End If
+            Return ViewState("CveSubProyectoFiltro").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveSubProyectoFiltro") = value
+        End Set
+    End Property
+
+
     Private Property DtDatos As DataTable
         Get
             Return DirectCast(ViewState("DtDatos"), DataTable)
@@ -278,6 +293,7 @@ Partial Class Bancos_ProveedoresAbonar
                 CveAplicaNC = IfNull(Request("CveAplicaNC"), "-1").ToString.ToEntero
                 CveProveedorSucursal = IfNull(Request("CveProveedorSucursal"), "-1").ToString.ToEntero
                 CodigoProgramacion = IfNull(Request("CodigoProgramacion"), "-1").ToString
+                CveSubProyectoFiltro = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
 
 
                 TxtOtrosImportes.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1});", "TxtTotal", 0))
@@ -382,7 +398,7 @@ Partial Class Bancos_ProveedoresAbonar
         TxtImporte.Text = ""
         TxtTotal.Text = ""
 
-        If Mov.GetCxPProveedor(CveProveedor, FechaI, FechaF, CveUsuarioProgramo, CveUsuarioRegistro, CveUsuarioResponsable, CveClasificacionProveedor, tCveMoneda, CveEstatus, CveProveedorSucursal, CveAplicaNC, "-1", "-1", CodigoProgramacion) Then
+        If Mov.GetCxPProveedor(CveProveedor, FechaI, FechaF, CveUsuarioProgramo, CveUsuarioRegistro, CveUsuarioResponsable, CveClasificacionProveedor, tCveMoneda, CveEstatus, CveProveedorSucursal, CveAplicaNC, "-1", "-1", CodigoProgramacion, CveSubProyecto:=CveSubProyectoFiltro) Then
             DtDatos = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
             GvCxP.DataSource = DtDatos
             DtDatos.Columns.Add("Movimiento")

Bancos/RepProveedoresPagos.aspx.vb

@@ -162,7 +162,8 @@ Partial Class Bancos_RepProveedoresPagos
                 CveUsuarioProgramo = DdlUsuarioProgramo.SelectedValue.ToEntero
             End If
 
-            e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), CveUsuarioProgramo, -1, DdlUsuarioRegistro.SelectedValue, DdlUsuarioResponsable.SelectedValue, DdlProveedoresClasificaciones.SelectedValue, e.Row.DBCampo("CveMoneda"), DdlEstatusCompra.SelectedValue, e.Row.DBCampo("CveProveedorSucursal"), AplicaNC.SelectedValue, DdlCodigoProgramacion.SelectedValue)
+            e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}&CveSubProyecto={13}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), CveUsuarioProgramo, -1, DdlUsuarioRegistro.SelectedValue, DdlUsuarioResponsable.SelectedValue, DdlProveedoresClasificaciones.SelectedValue, e.Row.DBCampo("CveMoneda"), DdlEstatusCompra.SelectedValue, e.Row.DBCampo("CveProveedorSucursal"), AplicaNC.SelectedValue, DdlCodigoProgramacion.SelectedValue, DdlSubProyecto.SelectedValue)
+
         End If
     End Sub
 

Empresas/1/Formatos/Factura.rdlc

@@ -3185,7 +3185,7 @@
                     <Value>Tipo Operación:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>7pt</FontSize>
+                      <FontSize>9pt</FontSize>
                       <FontWeight>Bold</FontWeight>
                       <Color>SteelBlue</Color>
                     </Style>
@@ -3195,10 +3195,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>0.44458cm</Top>
+            <Top>0.34933cm</Top>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.36214cm</Height>
-            <Width>2.29375cm</Width>
+            <Width>2.49541cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -3219,7 +3219,7 @@
                     <Value>=Parameters!CETipoOperacion.Value</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>6pt</FontSize>
+                      <FontSize>7pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -3227,10 +3227,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>0.44458cm</Top>
+            <Top>0.34933cm</Top>
-            <Left>2.46012cm</Left>
+            <Left>3.08252cm</Left>
             <Height>0.36214cm</Height>
-            <Width>13.59648cm</Width>
+            <Width>13.44038cm</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -3249,10 +3249,10 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Incoterm</Value>
+                    <Value>Incoterm:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>7pt</FontSize>
+                      <FontSize>9pt</FontSize>
                       <FontWeight>Bold</FontWeight>
                       <Color>SteelBlue</Color>
                     </Style>
@@ -3262,10 +3262,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>0.91255cm</Top>
+            <Top>0.72205cm</Top>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.36214cm</Height>
-            <Width>2.29375cm</Width>
+            <Width>2.49541cm</Width>
             <ZIndex>2</ZIndex>
             <Style>
               <Border>
@@ -3287,7 +3287,7 @@
                     <Value>=Parameters!CEIncoterm.Value</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>6pt</FontSize>
+                      <FontSize>7pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -3295,10 +3295,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>0.87728cm</Top>
+            <Top>0.71853cm</Top>
-            <Left>2.46012cm</Left>
+            <Left>3.08252cm</Left>
             <Height>0.36214cm</Height>
-            <Width>13.59648cm</Width>
+            <Width>13.44038cm</Width>
             <ZIndex>3</ZIndex>
             <Style>
               <Border>
@@ -3317,10 +3317,10 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Motivo Traslado</Value>
+                    <Value>Motivo Traslado:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>7pt</FontSize>
+                      <FontSize>9pt</FontSize>
                       <FontWeight>Bold</FontWeight>
                       <Color>SteelBlue</Color>
                     </Style>
@@ -3330,10 +3330,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>1.35583cm</Top>
+            <Top>1.10183cm</Top>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.36214cm</Height>
-            <Width>2.29375cm</Width>
+            <Width>2.49541cm</Width>
             <ZIndex>4</ZIndex>
             <Style>
               <Border>
@@ -3355,7 +3355,7 @@
                     <Value>=Parameters!CEMotivoTraslado.Value</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>6pt</FontSize>
+                      <FontSize>7pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -3363,10 +3363,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>1.35583cm</Top>
+            <Top>1.10183cm</Top>
-            <Left>2.46012cm</Left>
+            <Left>3.08252cm</Left>
             <Height>0.36214cm</Height>
-            <Width>13.59648cm</Width>
+            <Width>13.44038cm</Width>
             <ZIndex>5</ZIndex>
             <Style>
               <Border>
@@ -3385,10 +3385,10 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Clave Pedimento</Value>
+                    <Value>Clave Pedimento:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>7pt</FontSize>
+                      <FontSize>9pt</FontSize>
                       <FontWeight>Bold</FontWeight>
                       <Color>SteelBlue</Color>
                     </Style>
@@ -3398,10 +3398,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>1.78853cm</Top>
+            <Top>1.50278cm</Top>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.36214cm</Height>
-            <Width>2.29375cm</Width>
+            <Width>2.49541cm</Width>
             <ZIndex>6</ZIndex>
             <Style>
               <Border>
@@ -3423,7 +3423,7 @@
                     <Value>=Parameters!CEClavePedimento.Value</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>6pt</FontSize>
+                      <FontSize>7pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -3431,10 +3431,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>1.78853cm</Top>
+            <Top>1.50278cm</Top>
-            <Left>2.46012cm</Left>
+            <Left>3.08252cm</Left>
             <Height>0.36214cm</Height>
-            <Width>13.59648cm</Width>
+            <Width>13.44038cm</Width>
             <ZIndex>7</ZIndex>
             <Style>
               <Border>
@@ -3453,10 +3453,10 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Num Reg Id Trib</Value>
+                    <Value>Num Reg Id Trib:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>7pt</FontSize>
+                      <FontSize>9pt</FontSize>
                       <FontWeight>Bold</FontWeight>
                       <Color>SteelBlue</Color>
                     </Style>
@@ -3466,10 +3466,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>2.26356cm</Top>
+            <Top>1.88256cm</Top>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.36214cm</Height>
-            <Width>2.29375cm</Width>
+            <Width>2.49541cm</Width>
             <ZIndex>8</ZIndex>
             <Style>
               <Border>
@@ -3491,7 +3491,7 @@
                     <Value>=Parameters!CEId.Value</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>6pt</FontSize>
+                      <FontSize>7pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -3499,10 +3499,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>2.26356cm</Top>
+            <Top>1.88256cm</Top>
-            <Left>2.46012cm</Left>
+            <Left>3.08252cm</Left>
             <Height>0.36214cm</Height>
-            <Width>13.59648cm</Width>
+            <Width>13.44038cm</Width>
             <ZIndex>9</ZIndex>
             <Style>
               <Border>
@@ -3521,7 +3521,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Tipo Cambio</Value>
+                    <Value>Tipo Cambio:</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
                       <FontSize>9pt</FontSize>
@@ -3534,10 +3534,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>2.73506cm</Top>
+            <Top>2.29056cm</Top>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.36214cm</Height>
-            <Width>2.29375cm</Width>
+            <Width>2.49541cm</Width>
             <ZIndex>10</ZIndex>
             <Style>
               <Border>
@@ -3559,7 +3559,7 @@
                     <Value>=Parameters!CETipoCamvio.Value</Value>
                     <Style>
                       <FontFamily>calibri</FontFamily>
-                      <FontSize>6pt</FontSize>
+                      <FontSize>7pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -3569,10 +3569,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox80</rd:DefaultName>
-            <Top>2.73506cm</Top>
+            <Top>2.29056cm</Top>
-            <Left>2.46012cm</Left>
+            <Left>3.08252cm</Left>
             <Height>0.36214cm</Height>
-            <Width>13.59648cm</Width>
+            <Width>13.44038cm</Width>
             <ZIndex>11</ZIndex>
             <Style>
               <Border>
@@ -3603,7 +3603,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox143</rd:DefaultName>
-            <Left>0.12081cm</Left>
+            <Left>0.58711cm</Left>
             <Height>0.33869cm</Height>
             <Width>15.93579cm</Width>
             <ZIndex>12</ZIndex>
@@ -3620,9 +3620,9 @@
         </ReportItems>
         <KeepTogether>true</KeepTogether>
         <Top>16.99253cm</Top>
-        <Left>0.53823cm</Left>
+        <Left>0.07193cm</Left>
-        <Height>3.0972cm</Height>
+        <Height>2.6527cm</Height>
-        <Width>19.06642cm</Width>
+        <Width>20.23608cm</Width>
         <ZIndex>47</ZIndex>
         <Visibility>
           <Hidden>= IIF( LEN(Parameters!CETipoOperacion.Value) &gt; 0, False, True)</Hidden>
@@ -3634,7 +3634,7 @@
         </Style>
       </Rectangle>
     </ReportItems>
-    <Height>20.08973cm</Height>
+    <Height>19.64523cm</Height>
     <Style />
   </Body>
   <Width>20.5164cm</Width>

Empresas/15/Formatos/Factura.rdlc

@@ -172,6 +172,10 @@
           <DataField>SATClaveUM</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DsOC</rd:DataSetName>
@@ -1411,16 +1415,19 @@
                   <Width>2.0584cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>4.44265cm</Width>
+                  <Width>3.47821cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>6.28682cm</Width>
+                  <Width>4.82589cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.5cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>1.6882cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.43574cm</Width>
+                  <Width>2.33651cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -1605,6 +1612,42 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox22">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Obj. Imp.</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox22</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>#c4d79b</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>#c4d79b</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox84">
@@ -1847,6 +1890,44 @@
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CodigoObjetoImpuesto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>#c4d79b</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PU1">
@@ -2049,7 +2130,7 @@
                           <TablixBody>
                             <TablixColumns>
                               <TablixColumn>
-                                <Width>4.44265cm</Width>
+                                <Width>3.47821cm</Width>
                               </TablixColumn>
                             </TablixColumns>
                             <TablixRows>
@@ -2195,7 +2276,7 @@
                           <TablixBody>
                             <TablixColumns>
                               <TablixColumn>
-                                <Width>6.28682cm</Width>
+                                <Width>4.82589cm</Width>
                               </TablixColumn>
                             </TablixColumns>
                             <TablixRows>
@@ -2337,6 +2418,44 @@
                         </Tablix>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox29">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <Color>#c4d79b</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox29</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>#c4d79b</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox15">
@@ -2598,6 +2717,42 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox30">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox30</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>#c4d79b</Color>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>Solid</Style>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Style>Solid</Style>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox41">
@@ -2683,6 +2838,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -2708,7 +2864,7 @@
             <Top>4.14415cm</Top>
             <Left>0.11516cm</Left>
             <Height>2.29418cm</Height>
-            <Width>19.97108cm</Width>
+            <Width>19.94648cm</Width>
             <ZIndex>11</ZIndex>
             <Style>
               <Border>
@@ -4235,7 +4391,11 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Version 3.3</Value>
+                    <Value>Version </Value>
+                    <Style />
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!CFDIVersion.Value</Value>
                     <Style />
                   </TextRun>
                 </TextRuns>
@@ -4246,7 +4406,7 @@
             <Top>19.66102cm</Top>
             <Left>0.07003cm</Left>
             <Height>1.01627cm</Height>
-            <Width>5.45089cm</Width>
+            <Width>9.87342cm</Width>
             <ZIndex>14</ZIndex>
             <Style>
               <Border>
@@ -4862,7 +5022,7 @@
         <Height>23.58967cm</Height>
         <Style />
       </Body>
-      <Width>20.16633cm</Width>
+      <Width>20.16087cm</Width>
       <Page>
         <PageFooter>
           <Height>0.74111cm</Height>
@@ -5514,6 +5674,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo2">

OS/Asignaciones.aspx.vb

@@ -234,7 +234,8 @@ Partial Class OS_Asignaciones
 
                             Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL())
                             If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, OIDescripcion, 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2, Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero) Then
+                                                RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
+                                                Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero) Then
                                 TieneError = True
                             End If
 

OS/OrdenesServicios.aspx.vb

@@ -1083,7 +1083,20 @@ Partial Class OS_OrdenesServicios
 
 
 
+            'If Not Errores Then
 
+            '    Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
+            '    If TipoEstatusSeleccionado = 3 Then
+
+            '        Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
+
+            '        If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS) Then
+            '            Errores = True
+            '        End If
+
+
+            '    End If
+            'End If
 
             If Not Errores Then
                 ViewState("CveOS") = ObjOrdenServicio.CveOS
@@ -1190,6 +1203,24 @@ 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
+                If TipoEstatusSeleccionado = 4 Then
+
+                    Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
+
+                    If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
+                        Errores = True
+                    End If
+
+
+                End If
+            End If
+
+
+
             If Not Errores Then
                 ObjOrdenServicio.Commit()
 

OS/RepServicioDomicilio.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="Reporte Servicio Domicilio" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepServicioDomicilio.aspx.vb" Inherits="OS_RepServicioDomicilio" %>
+<%@ Page Title="Reporte Servicio a Domicilio" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepServicioDomicilio.aspx.vb" Inherits="OS_RepServicioDomicilio" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -139,7 +139,7 @@
 
 
     <div class="row">
-        <div class="col-md-6 col-sm-6">
+        <div class="col-md-12 col-sm-12">
 
                         <div class="portlet light calendar ">
                             <div class="portlet-title ">
@@ -177,7 +177,7 @@
                                                                 <asp:Label ID="LblEmpresaCRM" runat="server" Text="" Style="font-size: 16px; display: none; text-align: center;"></asp:Label>
                                                             </div>
                                                         </div>
-                                                        <div class="row">
+                                                        <div class="row"  style="display:none!important">
                                                             <div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
                                                                 <asp:DropDownList ID="DdlAgedaTipo" ClientIDMode="Static" Width="100%" Enabled="false" DataTextField="AgendaTipo" DataValueField="CveAgendaTipo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
                                                                 </asp:DropDownList>
@@ -207,20 +207,24 @@
                                                             <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="LblSubProyecto" CssClass="form-control"></asp:Label>
+                                                            <label for="<%= LblSubProyecto.ClientID.ToString()%>" style="height: 60px;"><asp:Label runat="server" ID="LblSubProyectoEtiqueta"></asp:Label>:</label>
+                                                        </div>
                                                          
 
 
                                                         <div class="row">
                                                             <div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
                                                                 <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
-                                                                    <asp:TextBox ID="TxtFechaInicioAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
+                                                                    <asp:TextBox ID="TxtFechaInicioAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
                                                                     <label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaInicioAgenda.ClientID.ToString()%>">Fecha de Inicio:</label>
                                                                 </div>
                                                                 <asp:RequiredFieldValidator ID="RFVFechaInicioAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaInicioAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>:<br>El campo <b>''Fecha de Inicio''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
                                                             </div>
                                                             <div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
                                                                 <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
-                                                                    <asp:TextBox ID="TxtFechaFinAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
+                                                                    <asp:TextBox ID="TxtFechaFinAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
                                                                     <label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>">Fecha de Fin:</label>
                                                                 </div>
                                                                 <asp:RequiredFieldValidator ID="RFVFechaFinAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaFinAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Fecha de Fin''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
@@ -340,14 +344,15 @@
                                                     </div>
 
                                                     <div class="modal-footer">
-                                                        <div style="display:none">
                                                         <asp:HiddenField runat="server" ID="HdnCveEvento" ClientIDMode="Static" Value="-1" />
+                                                        
+                                                        <%--<div style="display:none">                                                        
                                                             <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarAgenda" />
                                                             <asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" OnClick="BtnEliminar_Click" Text="Eliminar" Style="display: none" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea continuar?" data-btn-ok-label="si" />
-                                                        </div>
+                                                        </div>--%>
                                                         
 
-                                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
                                                     </div>
                                                 </div>
                                             </div>
@@ -407,8 +412,8 @@
             $('#ModalAgenda').modal('show');
             $("#SpanTituloAgenda").html("Agregar Evento");;
 
-              $("#<%=BtnGuardar.ClientID%>").val('Guardar');
+              //$("#< %=BtnGuardar.ClientID%>").val('Guardar');
-              $("#<%=BtnEliminar.ClientID%>").css("display", "none");
+              //$("#< %=BtnEliminar.ClientID%>").css("display", "none");
 
             $("#HdnCveEvento").val(-1);
 
@@ -441,9 +446,9 @@
 
           function updateEvent(event, element) {
               $('#ModalAgenda').modal('show');
-              $("#SpanTituloAgenda").html("Actualizar Evento");;
+              //$("#SpanTituloAgenda").html("Actualizar Evento");;
-              $("#<%=BtnGuardar.ClientID%>").val('Actualizar');
+              //$("#< %=BtnGuardar.ClientID%>").val('Actualizar');
-            $("#<%=BtnEliminar.ClientID%>").css("display", "");
+              //$("#< %=BtnEliminar.ClientID%>").css("display", "");
 
             $("#DivDescripcionUpdate").css("display", "block");
             $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "none");
@@ -461,6 +466,9 @@
 
             $("#DdlAgedaTipo").val(event.cveagendatipo);
              $("#DdlPrioridad").val(event.prioridad);
+             $('#LblSubProyecto').text(event.SubProyecto);
+
+            
 
             $("#TxtFechaInicioAgenda").val("" + event.start.format("DD/MM/YYYY HH:mm"));
 

OS/RepServicioDomicilio.aspx.vb

@@ -63,6 +63,7 @@ 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)
             InicializaCalendar()
         End If
     End Sub