Apoyo logistico, ordenes de servicio

App_Code/CalendarEvent.vb

@@ -40,6 +40,8 @@ Public Class CalendarEvent
     Public Property CveOSDetalle As Integer
     Public Property CveUsuarioAtendio As Integer
 
+    Public Property CveSubProyectoUsuarioAtendio As Integer
+
 
 
 End Class

App_Code/ClsOIEventos.vb

@@ -2448,10 +2448,10 @@ Public Class ClsOIEventos
                                     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,
-                                    Optional CveSubProyecto As Integer = -1) As Boolean
+                                    Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara 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,
+        Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioPara, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC,
                             CvePersonal, CveProveedor, 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, CveSubProyecto:=CveSubProyecto)
 

App_Code/ClsOS.vb

@@ -64,6 +64,10 @@ Public Class ClsOS
     Public Property Año As String = ""
     Public Property CorreoOS As String = ""
     Public Property FechaInicio As DateTime
+    Public Property SubProyecto As String
+    Public Property Condiciones As String
+
+
 
     Private Class Especificaciones
         Public CveValor As Integer
@@ -449,7 +453,8 @@ Public Class ClsOS
 
 #Region "ClsOSOrdenesServicios"
     'Reporte de Ventas
-    Public Function GetRepOrdenesServicio(FechaI As String, FechaF As String, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer, CveEstatusOrdenServicio As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepOrdenesServicio(FechaI As String, FechaF As String, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
+                                          CveEstatusOrdenServicio As Integer, CveEmpresa As Integer, Optional Opcion As Integer = -1, Optional CveUsuarioAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosGetRep")
@@ -465,6 +470,8 @@ Public Class ClsOS
             .Add("@CveTecnico", SqlDbType.Int).Value = CveTecnico
             .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
         End With
 
         Try
@@ -532,6 +539,8 @@ Public Class ClsOS
                 Me.Año = Data.Rows(0)("Año").ToString
                 Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString.ToDateTime
                 Me.CveOSDetalle = Data.Rows(0)("CveOSDetalle").ToString.ToEntero
+                Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
+                Me.Condiciones = Data.Rows(0)("Condiciones").ToString
 
             End If
             Retorno = True
@@ -586,7 +595,8 @@ Public Class ClsOS
     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,
-                                         Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional Correo As String = "") As Boolean
+                                         Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional Correo As String = "",
+                                        Optional Condiciones As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosAdd")
@@ -612,6 +622,7 @@ Public Class ClsOS
             .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
             .Add("@Año", SqlDbType.VarChar).Value = Año
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
+            .Add("@Condiciones", SqlDbType.VarChar).Value = Condiciones
 
             .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -655,8 +666,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, Optional Direccion As String = "-1",
+                                           CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1,
-                                           Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1") As Boolean
+                                           Optional Año As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1", Optional Condiciones As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosUpdate")
@@ -678,6 +689,7 @@ Public Class ClsOS
             .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
             .Add("@Año", SqlDbType.VarChar).Value = Año
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
+            .Add("@Condiciones", SqlDbType.VarChar).Value = Condiciones
 
         End With
 
@@ -1768,3 +1780,4 @@ Public Class ClsOS
     End Sub
 #End Region
 End Class
+

Ashx/CargaEventos.ashx

@@ -94,6 +94,49 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
         Dim CveEmpresaCRM As Integer = 0
+
+        Dim DT_SubProyectos As New System.Data.DataTable
+
+        DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer))
+        DT_SubProyectos.Columns.Add("backgroundColor")
+
+        'son 26
+        Dim Colores() As String = {"#006699", "#0099cc", "#0066cc", "#0033cc", "#0000ff", "#3333ff", "#3333ff", "#6600ff", "#9933ff", "#cc00ff", "#cc00cc", "#cc0099", "#cc3399", "#cc6699", "#cc0066", "#009933", "#00cc00", "#00cc66", "#009999", "#669900", "#99cc00", "#cccc00", "#cc9900", "#ff9900", "#006666", "#669999"}
+
+
+        If CveOS = -2 Then
+
+            Dim objSub As New ClsSubProyectos
+            Dim DtTempSubproyectos As New DataTable
+
+            If objSub.GetSubProyectos(CveEmpresa) Then
+                DtTempSubproyectos = objSub.DtResultados.FiltraParametros("", "CveSubProyecto")
+            End If
+
+            objSub.Dispose()
+
+            Dim ColorIndex As Integer = 0
+
+            If DtTempSubproyectos.Rows.Count > 0 Then
+                For Each drow As DataRow In DtTempSubproyectos.Rows
+
+
+                    Dim Subrow = DT_SubProyectos.NewRow
+                    Subrow("CveSubProyecto") = drow("CveSubProyecto").ToString.ToEntero
+                    Subrow("backgroundColor") = Colores(ColorIndex)
+
+                    DT_SubProyectos.Rows.Add(Subrow)
+
+                    ColorIndex = ColorIndex + 1
+                    If ColorIndex >= 25 Then
+                        ColorIndex = 0
+                    End If
+
+                Next
+            End If
+
+        End If
+
         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
@@ -144,6 +187,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                             cevent.CveOS = dr("CveOS").ToString.ToEntero
                             cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero
                             cevent.CveUsuarioAtendio = dr("CveUsuarioAtendio").ToString.ToEntero
+                            cevent.CveSubProyectoUsuarioAtendio = dr("CveSubProyectoUsuarioAtendio").ToString.ToEntero
 
                             cevent.NombreAcercamiento = dr("NombreAcercamiento").ToString
 
@@ -157,6 +201,11 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                 cevent.backgroundColor = "#1BBC9B"
                             End If
 
+                            If CveOS = -2 Then
+                                cevent.backgroundColor = DT_SubProyectos.FiltroPrimeroValor("backgroundColor", $" CveSubProyecto = {cevent.CveSubProyectoUsuarioAtendio } ")
+                                cevent.backgroundColor = If(cevent.backgroundColor.Trim = "", "#1BBC9B", cevent.backgroundColor.Trim)
+                            End If
+
                             'VERIFICAMOS SI TIENE O NO RECURRENCIA
                             If Not cevent.recurrenciatipo > 0 Then
 

Compras/PopUpVerFactura.aspx.vb

@@ -5454,6 +5454,9 @@ Partial Class PopUpVerFactura
 
                 params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
+                params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy"), "")))
+                params.Add(New ReportParameter("TecnicoAsignado", dr("UsuarioAtendio").ToString))
 
 
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -618,8 +618,9 @@ Partial Class Compras_ReembolsosComprobaciones
                         IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
                     End If
                 End If
-                Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
+                Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 2).ToString
-                CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 2, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                '8
                 'AGREGO PREPOLIZA IE BANCOS
                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporte.Text.ToDecimal, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
                     MsgError = "Error al registrar detalle de concepto bancario"
@@ -690,7 +691,7 @@ Partial Class Compras_ReembolsosComprobaciones
                         CompraActual.CveTipoConceptoProveedor = gvr.DataKey("CveTipoConcepto").ToEntero
                         CompraActual.CveProveedor = gvr.DataKey("CveProveedor").ToEntero
                         CompraActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero
-                        CompraActual.Fecha = gvr.DataKey("Fecha").ToDate
+                        CompraActual.Fecha = gvr.DataKey("FechaCompra").ToDate
                         CompraActual.SerieFolio = gvr.DataKey("SerieFolio").ToString
                         CompraActual.ProveedorNombre = gvr.DataKey("Proveedor")
                         CompraActual.TC = gvr.DataKey("TipoCambio").ToDecimal

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -228,6 +228,16 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             Alert("Error al agregar la Plantilla Póliza y el Detalle.", TipoMensaje.MsgError)
         End If
         ObjPlantillaPoliza.Dispose()
+
+
+        If Not ErrorPlantilla Then
+            Using ObjContabilidad As New ClsContabilidad
+                If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
+                If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
+            End Using
+        End If
+
+
     End Sub
     Public Sub updatatos()
 

Empresas/140/Formatos/OrdenServicio.rdlc

@@ -1160,7 +1160,7 @@
             <Top>0.71688cm</Top>
             <Left>5.3112cm</Left>
             <Height>0.56825cm</Height>
-            <Width>5.22521cm</Width>
+            <Width>4.54835cm</Width>
             <ZIndex>12</ZIndex>
             <Style>
               <Border>
@@ -1227,7 +1227,7 @@
             <Top>1.28513cm</Top>
             <Left>5.3112cm</Left>
             <Height>0.56825cm</Height>
-            <Width>5.22521cm</Width>
+            <Width>4.54835cm</Width>
             <ZIndex>14</ZIndex>
             <Style>
               <Border>
@@ -1246,7 +1246,7 @@
       <Width>7.99085in</Width>
       <Page>
         <PageHeader>
-          <Height>4.83183cm</Height>
+          <Height>5.18108cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -1336,7 +1336,7 @@
               </Style>
             </Textbox>
             <Line Name="Line1">
-              <Top>4.83183cm</Top>
+              <Top>5.18108cm</Top>
               <Left>0.08599cm</Left>
               <Height>0cm</Height>
               <Width>20.21078cm</Width>
@@ -1434,7 +1434,7 @@
               <rd:DefaultName>Textbox18</rd:DefaultName>
               <Top>1.36809cm</Top>
               <Left>11.46032cm</Left>
-              <Height>1.98807cm</Height>
+              <Height>1.04858cm</Height>
               <Width>8.7798cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
@@ -1580,6 +1580,29 @@
                     <TextAlign>Left</TextAlign>
                   </Style>
                 </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Condiciones:  </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>SemiBold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!Condiciones.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
@@ -1599,8 +1622,8 @@
               <rd:DefaultName>Textbox2</rd:DefaultName>
               <Top>1.007in</Top>
               <Left>0.08599cm</Left>
-              <Height>0.85363in</Height>
+              <Height>0.98905in</Height>
-              <Width>4.40864in</Width>
+              <Width>3.84786in</Width>
               <ZIndex>5</ZIndex>
               <Style>
                 <Border>
@@ -1627,6 +1650,92 @@
                 </Border>
               </Style>
             </Image>
+            <Textbox Name="Textbox21">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha de atención: </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>SemiBold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!FechaAtencion.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Ténico asignado: </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!TecnicoAsignado.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value />
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox2</rd:DefaultName>
+              <Top>1.007in</Top>
+              <Left>9.93011cm</Left>
+              <Height>0.98905in</Height>
+              <Width>3.84786in</Width>
+              <ZIndex>7</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
           </ReportItems>
           <Style>
             <Border>
@@ -1659,7 +1768,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox3</rd:DefaultName>
-              <Top>0.27339cm</Top>
+              <Top>0.27338cm</Top>
               <Left>17.14236cm</Left>
               <Height>0.68085cm</Height>
               <Width>3.13456cm</Width>
@@ -1691,7 +1800,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>0.27339cm</Top>
+              <Top>0.27338cm</Top>
               <Left>0.06614cm</Left>
               <Height>0.68085cm</Height>
               <Width>1.60042cm</Width>
@@ -1723,7 +1832,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.27339cm</Top>
+              <Top>0.27338cm</Top>
               <Left>1.61047cm</Left>
               <Height>0.68085cm</Height>
               <Width>5.14936cm</Width>
@@ -1756,7 +1865,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox10</rd:DefaultName>
-              <Top>0.27339cm</Top>
+              <Top>0.27338cm</Top>
               <Left>6.93622cm</Left>
               <Height>0.68085cm</Height>
               <Width>2.92333cm</Width>
@@ -1789,7 +1898,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox11</rd:DefaultName>
-              <Top>0.27339cm</Top>
+              <Top>0.27338cm</Top>
               <Left>9.84544cm</Left>
               <Height>0.68085cm</Height>
               <Width>4.32745cm</Width>
@@ -1805,7 +1914,7 @@
               </Style>
             </Textbox>
             <Line Name="Line2">
-              <Top>0.15873cm</Top>
+              <Top>0.15872cm</Top>
               <Left>0.08599cm</Left>
               <Height>0cm</Height>
               <Width>20.21078cm</Width>
@@ -2033,6 +2142,24 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Condiciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaAtencion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TecnicoAsignado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

Empresas/72/Formatos/OrdenServicio.rdlc

@@ -2864,6 +2864,24 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Condiciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaAtencion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TecnicoAsignado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo1">

Empresas/Grales/Formatos/OrdenServicio.rdlc

@@ -2449,6 +2449,24 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Condiciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaAtencion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TecnicoAsignado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

General/SaldosIniciales.aspx.vb

@@ -2368,7 +2368,7 @@ Partial Class General_SaldosIniciales
         For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
 
 
-            Dim Clasificacion As String = Regex.Replace(dRow("Clasificacion").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, ""), "[^\u0009\u000A\u000D\u0020-\u007E]", "")
+            Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
             Dim Categoria As String = dRow("Categoria").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
             Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString().Trim.ToUpper.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
             Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")

Inventarios/EntradasSalidas.aspx.vb

@@ -2041,13 +2041,20 @@ Partial Class Inventarios_EntradasSalidas
 
                             If Not ErrorAC And Not ErrorMovInv Then
 
-                                If ChkEmitirTimbrado.Checked Then
+
+                                If Not DdlDireccionEnvio.SelectedValue.ToEntero > 0 Then
+                                    ErrorMovInv = True
+                                    Alert("La direccion destino es requerida.", TipoMensaje.MsgAdvertencia)
+                                End If
+
+
+                                If ChkEmitirTimbrado.Checked AndAlso Not ErrorMovInv Then
 
                                     Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
                                     Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
                                     Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
 
-                                    Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
+                                    Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
                                                                                         CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
 
                                     If CveEntregaAlmacen > 0 Then

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -690,8 +690,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             else
             {
                 //e.Row.Cells[11].Text = "";
-                e.Row.Cells[12].Text = "";
+                e.Row.Cells[14].Text = "";
-                e.Row.Cells[13].Text = "";
+                e.Row.Cells[15].Text = "";
             }
 
             if (e.Row.DataKey("Estatus").ToEntero() == 2)

OS/OrdenesServicios.aspx.vb

@@ -1218,22 +1218,36 @@ Partial Class OS_OrdenesServicios
                             Dim Especificaciones As String = Row("Especificaciones").ToString
                             Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString
                             Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
-                            Dim Archivo As New System.IO.FileInfo(Row("Archivo").ToString)
+
+
+
+                            Dim fname As String = ""
+
+                            If File.Exists(Row("Archivo").ToString) Then
+                                Dim Archivo As New System.IO.FileInfo("")
+                                fname = Archivo.Name
+                            End If
+
+
                             Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
                             Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1")
                             Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
                             CveConsecutivo = Consecutivo
 
                             If CveOSDetalle > 0 Then
-                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, Archivo.Name, "-1", FechaEntrega, CveOSDetalle, CveOS) Then
+                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, fname, "-1", FechaEntrega, CveOSDetalle, CveOS) Then
                                     Errores = True
                                 End If
                             Else
-                                CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name)
+                                CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=fname)
                                 If Not CveOSDetalle > 0 Then Errores = True
 
                             End If
 
+
+
+                            If File.Exists(Row("Archivo").ToString) Then
+                                Dim Archivo As New System.IO.FileInfo("")
                                 If Archivo.Name <> "-1" Then
                                     'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext
                                     Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension)))
@@ -1249,6 +1263,8 @@ Partial Class OS_OrdenesServicios
                                         Errores = True
                                     End If
                                 End If
+                            End If
+
 
                             If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then
 
@@ -1279,6 +1295,7 @@ Partial Class OS_OrdenesServicios
                                 Next
                             End If
                         End If
+
                     Next
                 Else
                     Errores = True

OS/RepOrdenesServicios.aspx.vb

@@ -20,6 +20,8 @@ Partial Class OS_RepOrdenesServicios
                 ViewState("CveUsuarioTecnico") = -1
             End If
 
+            txtFechaI.Text = $"01/01/{Now.Year}"
+
             CargaDatos()
             OrdenaDatos()
         End If
@@ -59,7 +61,18 @@ Partial Class OS_RepOrdenesServicios
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
         FechaTerminado = If(IsDate(TxtFechaTerminado.Text.Trim()), TxtFechaTerminado.Text.Trim(), "-1")
 
-        If ObjOrdenesServicios.GetRepOrdenesServicio(FechaI, FechaF, FechaTerminado, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRecibio.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        Dim Opcion As Integer = 1
+        Dim CveUsuarioAsignado As Integer = UsuarioActual.CveUsuario
+
+        If UsuarioActual.TienePermisoProceso(348) Then
+            Opcion = 2
+            CveUsuarioAsignado = -1
+
+        End If
+
+
+        If ObjOrdenesServicios.GetRepOrdenesServicio(FechaI, FechaF, FechaTerminado, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRecibio.SelectedValue.ToEntero,
+                                                     DdlTecnico.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion:=Opcion, CveUsuarioAsignado:=CveUsuarioAsignado) Then
             Dim Filtro As String = ""
             Select Case DdlFacturado.SelectedValue
                 Case "1"

OS/RepServicioDomicilio.aspx

@@ -111,6 +111,12 @@
         .select2-container--open {
             z-index: 1000 !important;
         }
+
+
+     /*   #C_DVModalAsignacion > div:nth-child(2) > div > div > span{
+            margin-left:200px!important;
+        }*/
+
     </style>
 
   
@@ -469,17 +475,17 @@
                             </div>
                             <div class="col-md-6">
 
-                                <div class="form-group form-md-line-input">
+                                <div class="form-group form-md-line-input"  runat="server"  visible="false" id="DvModalSubProyecto">
 
-                                    <asp:DropDownList ID="DdlSubProyectoOS" AppendDataBoundItems="true" CssClass="form-control  select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" Height="30px">
+                                    <%--<asp:DropDownList ID="DdlSubProyectoOS" AppendDataBoundItems="true" CssClass="form-control  select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" Height="30px">
                                         <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
 
                                     <asp:RequiredFieldValidator ID="RFVDdlSubProyectoOS" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectoOS" Display="None"
                                         ErrorMessage="El campo <b>''''</b> es requerido por la aplicación" ValidationGroup="GrpAsignar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCEDdlSubProyectoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoOS" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="VCEDdlSubProyectoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoOS" Width="350px"></ajax:ValidatorCalloutExtender>--%>
-
+                                    <asp:Label runat="server" ID="LblModalSubproyecto" CssClass="form-control"></asp:Label>
-                                    <label for="<%= DdlSubProyectoOS.ClientID.ToString()%>">
+                                    <label for="<%= LblModalSubproyecto.ClientID.ToString()%>">
                                         <asp:Label runat="server" ID="LblSubProyectoOS"></asp:Label>
                                     </label>
                                 </div>
@@ -550,6 +556,16 @@
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
 
 
+                         <div class="row">
+                            <div class="col-md-12">
+                                <%--CONDICIONES--%>
+                                <div class="form-group form-md-line-input">
+                                    <asp:TextBox ID="TxtCondiciones" runat="server" MaxLength="300" CssClass="form-control" />
+                                    <label for="<%= TxtCondiciones.ClientID.ToString()%>">Condiciones: </label>
+                                </div>
+                            </div>
+                        </div>
+
 
                         <div class="row">
                             <div class="col-md-6">
@@ -575,7 +591,7 @@
 
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
 
-                        <div class="row">
+                        <div class="row" runat="server" id="DVModalAsignacion" visible ="false">
 
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input">
@@ -672,6 +688,7 @@
 
 
       <script>
+          var PrimeraCargaCalendario = true;
 
           function FechaFinSet(RB, TXT) {
               RB = "#" + RB
@@ -1057,16 +1074,42 @@
                 eventDrop: eventDropped,
                 eventResize: eventResized
             });
+            clickSemana();
           }
 
+         
           function InitCalendar() {
               $(document).ready(function () {
+
+                  
                   Calendario();
 
+                  //if (PrimeraCargaCalendario) {
+                      
+                 //}
+                  
+
                   $("#TxtModalFechaOS").val("" + start.format("DD/MM/YYYY 08:00"));
+                  
+                  
               });
           }
 
+          function wait(ms) {
+              var start = new Date().getTime();
+              var end = start;
+              while (end < start + ms) {
+                  end = new Date().getTime();
+              }
+          }
+
+          function clickSemana() {              
+              $('#calendar > div.fc-toolbar > div.fc-right > div > button.fc-agendaDay-button.fc-button.fc-state-default.fc-corner-right').click();
+              PrimeraCargaCalendario = false;
+          }
+
+
+        
 
       </script>
 

OS/RepServicioDomicilio.aspx.vb

@@ -280,6 +280,15 @@ Partial Class OS_RepServicioDomicilio
             cargaDropsModal()
             CargaClientePublicoGeneral()
 
+            If UsuarioActual.TienePermisoProceso(348) Then
+                DVModalAsignacion.Visible = True
+            End If
+
+
+
+            'RegistraScript(" PrimeraCargaCalendario = true;")
+
+
         End If
     End Sub
 
@@ -595,7 +604,7 @@ Partial Class OS_RepServicioDomicilio
         End If
 
         'DdlSubProyectoOS.Items.Clear()
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoOS, Nothing, LblSubProyectoOS)
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoOS)
 
         'DdlModeloAuto.Items.Clear()
         Dim ObjGral As New ClsGenerales
@@ -607,6 +616,7 @@ Partial Class OS_RepServicioDomicilio
         DdlModeloAuto.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
 
 
+
     End Sub
 
     Private Sub CargaClientes()
@@ -623,7 +633,7 @@ Partial Class OS_RepServicioDomicilio
         TxtSolicito.Text = ""
         TxtDescripcion.Text = ""
         TxtFechaOS.Text = ""
-        DdlSubProyectoOS.SelectedValueExist("-1")
+        'DdlSubProyectoOS.SelectedValueExist("-1")
         TxtDireccion.Text = ""
         TxtEmail.Text = ""
         TxtTelefono.Text = ""
@@ -645,6 +655,9 @@ Partial Class OS_RepServicioDomicilio
         FechaInicioOriginal = DateTime.Now
 
         DVFolio.Visible = False
+        DvModalSubProyecto.Visible = False
+
+        TxtCondiciones.Text = ""
 
     End Sub
 
@@ -707,7 +720,7 @@ Partial Class OS_RepServicioDomicilio
                 TxtDescripcion.Text = ObjOS.Descripcion
                 TxtSolicito.Text = ObjOS.PersonaSolicito
                 TxtFechaOS.Text = ObjOS.FechaRecepcion.ToString("dd/MM/yyyy")
-                DdlSubProyectoOS.SelectedValueExist(ObjOS.CveSubProyecto)
+                'DdlSubProyectoOS.SelectedValueExist(ObjOS.CveSubProyecto)
                 TxtDireccion.Text = ObjOS.DtResultados.Rows(0)("DireccionOS").ToString
                 TxtEmail.Text = ObjOS.CorreoOS
                 TxtTelefono.Text = ObjOS.Telefono
@@ -718,6 +731,9 @@ Partial Class OS_RepServicioDomicilio
 
                 DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
                 TxtAnio.Text = ObjOS.Año
+                LblModalSubproyecto.Text = ObjOS.SubProyecto
+
+                TxtCondiciones.Text = ObjOS.Condiciones
 
 
                 If TipoAccion = OSModalTipoAccion.Actualizacion Then
@@ -725,6 +741,7 @@ Partial Class OS_RepServicioDomicilio
                     CveTecnicoAsignarOrioginal = ObjOS.CveUsuarioAtendio
                     FechaInicioOriginal = ObjOS.FechaInicio
                     TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy hh:mm")
+                    DvModalSubProyecto.Visible = True
                     'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour)
                     'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute
                     'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
@@ -786,6 +803,15 @@ Partial Class OS_RepServicioDomicilio
         Dim CveOS As Integer = HFCveOS.Value.ToEntero
         Dim CveOsDetalle As Integer = HFCveOsDetalle.Value.ToEntero
 
+
+        Dim CveSubProyectoTecnico As Integer = If(DdlTecnicoAsignar.SelectedValue.ToEntero > 0, GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero, -1)
+
+
+        If TipoAccion = OSModalTipoAccion.Asignacion AndAlso Not CveSubProyectoTecnico > 0 Then
+            Alert("No se encontro el subproyecto o centro de costo del tecnico seleccionado.")
+            Exit Sub
+        End If
+
         If Not CvePSDetalle > 0 Then
             Alert("No esta asiganado el producto del detalle a la funcionalidad.")
             Exit Sub
@@ -822,9 +848,10 @@ Partial Class OS_RepServicioDomicilio
                 CveEstatosOrdenNueva = CveEstatusAsiganada
             End If
 
-            If ObjOS.AddOrdenesServicios(CveCliente, DdlSubProyectoOS.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva,
+            If ObjOS.AddOrdenesServicios(CveCliente, CveSubProyectoTecnico, TxtSolicito.Text, TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva,
-                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOrdenServicioTipo, CveClienteSucursal:=-1,
+                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOrdenServicioTipo, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text,
-                                                        Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, Correo:=TxtEmail.Text) Then
+                                                        Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, Correo:=TxtEmail.Text,
+                                                        Condiciones:=TxtCondiciones.Text.Trim) Then
                 CveOS = ObjOS.CveOS
 
                 CveOsDetalle = ObjOS.AddOrdenesServiciosDetalle(CveOS, CvePSDetalle, 1, -1, -1, "", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, "")
@@ -854,8 +881,8 @@ Partial Class OS_RepServicioDomicilio
             If CveOS > 0 Then
 
                 If Not ObjOS.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaOS.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatusOrden, CveOS, UsuarioActual.CveUsuario,
-                                                          -1, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text,
+                                                          -1, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text,
-                                                          CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero, Correo:=TxtEmail.Text) Then
+                                                          CveSubProyecto:=CveSubProyectoTecnico, Correo:=TxtEmail.Text, Condiciones:=TxtCondiciones.Text.Trim) Then
                     TieneError = True
                 End If
 
@@ -876,19 +903,24 @@ Partial Class OS_RepServicioDomicilio
 
 
 
-            If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
-                Dim subProyectoDelTecnico As DataTable
-                subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoOS.SelectedValue.ToEntero}")
-
-                If subProyectoDelTecnico.Rows.Count > 0 Then
             If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
                 TieneError = True
             End If
-                Else
+
-                    Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
+
-                    TieneError = True
+            'If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
-                End If
+            '    Dim subProyectoDelTecnico As DataTable
-            End If
+            '    subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {CveSubProyectoTecnico}")
+
+            '    If subProyectoDelTecnico.Rows.Count > 0 Then
+            '        If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
+            '            TieneError = True
+            '        End If
+            '    Else
+            '        Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
+            '        TieneError = True
+            '    End If
+            'End If
 
 
 
@@ -916,7 +948,7 @@ Partial Class OS_RepServicioDomicilio
                     Dim OIDescripcion As String = $"{DdlTecnicoAsignar.SelectedItem.Text}   <b><a href='/OS/OrdenesServicios.aspx?CveOS={CveOS}' target='_blank' class='Texto' >Orden de servicio {FolioAsignar} </a></b>"
                     If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, TxtModalFechaOS.Text.ToDateTime(), TxtModalFechaOS.Text.ToDateTime().AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                             RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
-                                            Importe:=0, CveOS:=CveOS, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero) Then
+                                            Importe:=0, CveOS:=CveOS, CveSubProyecto:=CveSubProyectoTecnico, CveUsuarioPara:=DdlTecnicoAsignar.SelectedValue.ToEntero) Then
                         TieneError = True
                     End If
                 End If
@@ -942,6 +974,10 @@ Partial Class OS_RepServicioDomicilio
             MandaCorreOS(CveOSAsignar, CorreoAsignado)
         End If
 
+        If Not TieneError And TxtEmail.Text.Trim.Length > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
+            MandaCorreOS(CveOSAsignar, TxtEmail.Text, True)
+        End If
+
         If Not TieneError Then
 
             ConsultaOrdenesServiciosNoAsignadas()
@@ -961,7 +997,7 @@ Partial Class OS_RepServicioDomicilio
 
     End Sub
 
-    Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
+    Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String, Optional EsCliente As Boolean = False)
 
 
 
@@ -1023,9 +1059,8 @@ Partial Class OS_RepServicioDomicilio
                 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("FechaRecibido", dr("FechaRecepcion").ToString.ToDate.ToString("dd/MM/yyyy")))
                 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))
@@ -1033,7 +1068,7 @@ Partial Class OS_RepServicioDomicilio
                 params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
                 CveFolio = dr("Folio").ToString
 
-                If RutaReporte.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", " "))
@@ -1042,10 +1077,31 @@ Partial Class OS_RepServicioDomicilio
                 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("Descripcion", dr("Descripcion").ToString))
                 params.Add(New ReportParameter("Copia", "Copia: Original"))
                 params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
-                End If
+
+                params.Add(New ReportParameter("DireccionOS", dr("DireccionOS").ToString))
+                params.Add(New ReportParameter("Telefono", dr("Telefono").ToString))
+                params.Add(New ReportParameter("CorreoOS", dr("CorreoOS").ToString))
+
+                params.Add(New ReportParameter("ModeloMarca", dr("ModeloMarca").ToString))
+                params.Add(New ReportParameter("Año", dr("Año").ToString))
+                params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
+
+                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
+                params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy"), "")))
+                params.Add(New ReportParameter("TecnicoAsignado", dr("UsuarioAtendio").ToString))
+
+
+
+
+                'End If
+
+
+
             End If
         End If
 
@@ -1063,13 +1119,11 @@ Partial Class OS_RepServicioDomicilio
 
         End If
 
-        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
-            TmpDTOS = ObjOS.DtResultados
-        End If
 
-        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+        If ObjOS.GetOrdenesServiciosDetalle(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}