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

2019-10-21 19:26:59 -07:00
parent 3011936a3b 4ec808ea50
commit 4f621d0188
4 changed files with 68 additions and 38 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2941,9 +2941,11 @@ Partial Class PopUpVerFactura
        Dim params As New List(Of ReportParameter)
        Dim CveFolio = ""
        CreaDT()
+        Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))

        If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
-            If ObjOS.DtResultados.Rows.Count > 0 Then
+            If ObjOS.DtResultados.Rows.Count > 0 Then
+
                Dim dtOS As DataTable = ObjOS.DtResultados
                Dim dr As DataRow = dtOS.Rows(0)
                params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
@@ -2957,41 +2959,65 @@ Partial Class PopUpVerFactura
                params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
                params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
                params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
-                CveFolio = dr("Folio").ToString
+                CveFolio = dr("Folio").ToString
+
+                If ReporteEmpresa.Exists Then
+                    params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
+                    params.Add(New ReportParameter("RFC", dr("RFC").ToString))
+                    params.Add(New ReportParameter("Vendedor", " "))
+                    params.Add(New ReportParameter("Correo", dr("Correo").ToString))
+                    params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
+                    params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
+                    params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
+                    params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
+                    params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
+                    params.Add(New ReportParameter("Copia", "Copia: Original"))
+                End If
            End If
        End If

        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+        If Not ReporteEmpresa.Exists Then
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+
+            If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
+                TmpDTOS = ObjOS.DtResultados
+            End If
+
+            If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+                TmpDTMaterialesOS = ObjOS.DtResultados
+            End If

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
-
-        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
-            TmpDTOS = ObjOS.DtResultados
-        End If
-
-        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
-            TmpDTMaterialesOS = ObjOS.DtResultados
-        End If
-
-        Dim lrds As New List(Of ReportDataSource)
-        Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
-        Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
-
-        lrds.Add(rds)
-        lrds.Add(rds2)
-
-        ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
-
-        ObjOS.Dispose()
+            Dim lrds As New List(Of ReportDataSource)
+            Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
+            Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
+
+            lrds.Add(rds)
+            lrds.Add(rds2)
+            ObjOS.Dispose()
+
+            ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
+        Else
+            Dim lrds As New List(Of ReportDataSource)
+            Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
+            Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
+
+            lrds.Add(rds)
+            lrds.Add(rds2)
+            ObjOS.Dispose()
+
+            ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
+        End If
    End Sub
    Private Sub CreaDT()
        TmpDTOS = New DataTable
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -331,7 +331,7 @@ Partial Class OS_OrdenesServicios
            'Carga OS
            If CveOS > 0 Then

-                CargaEstatusOS()
+                'CargaEstatusOS()
                CargaDatos()
                'PermisosSegunEstatus()
                CargaDetalles()
@@ -354,6 +354,7 @@ Partial Class OS_OrdenesServicios
                TxtFechaRecibido.Text = Now.ToString("dd/MM/yyy")
                ViewState("CveOS") = -1
                DdlEstatusOS.Enabled = False
+                CargaEstatusOS()
            End If

            hdnEsThickbox.Value = "S"
@@ -434,9 +435,13 @@ Partial Class OS_OrdenesServicios
            DdlSubProyecto.Items.Clear()
            DdlSubProyecto.SelectedValue = Nothing
            DdlSubProyecto.DataSource = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-            DdlSubProyecto.DataBind()
+
            If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+            DdlEstatusOS.DataSource = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyecto), "", {"CveEstatusOrdenServicio", "EstatusOrdenServicio"})
        End If
+        ObjOS.Dispose()
+        DdlSubProyecto.DataBind()
+        DdlEstatusOS.DataBind()
    End Sub
    Private Sub CargaTiposOrden()
        Dim ObjOS As New ClsOS
@@ -447,11 +452,10 @@ Partial Class OS_OrdenesServicios
        Else
            DdlTipoOrdenOS.DataSource = Nothing
        End If
-
+        ObjOS.Dispose()
        DdlTipoOrdenOS.DataBind()
        DdlTipoOrdenOS.Items.Insert(0, New ListItem("Seleccione", "-1"))

-        ObjOS.Dispose()
    End Sub
    Private Sub CargaDatos()
        Dim ObjOS As New ClsOS()
@@ -994,7 +998,7 @@ Partial Class OS_OrdenesServicios


        If Not CveOS > 0 Then
-
+            Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero
            If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
                Errores = True
            End If
@@ -1065,8 +1069,6 @@ Partial Class OS_OrdenesServicios

                Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"

-                ImprimirAlGenerar()
-
                ObjOrdenServicio.Commit()

                Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga)
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -584,11 +584,11 @@
                                            </asp:DropDownList>
                                            <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                        </div>
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
                                            <label>Cargo Usado:</label>
                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
                                        </div>
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
                                            <label>Bonificación Usado:</label>
                                            <asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
                                        </div>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1650,6 +1650,8 @@ Partial Class Clientes

                DivEsDistribuidor.Visible = True
                TabUsados.Visible = True
+                DivCargoUsado.Visible = True
+                DivBonificacionUsado.Visible = True
                CargaUsados()

            End If