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

2022-05-20 17:53:02 -07:00
parent ff5f9b7141 ec9b8ff4b4
commit babdfea052
13 changed files with 8087 additions and 1663 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1290,7 +1290,13 @@ Partial Class Compras_Compras
            If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
                DVCultivosCuadro.Visible = True
                DdlSubProyecto.AutoPostBack = True
-                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+
+                GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
+                Dim extrafiltro = "Estatus=1 AND "
+                If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
+                    extrafiltro = ""
+                End If
+                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"{extrafiltro} CveSubProyecto = {DdlSubProyecto.SelectedValue}")
                DdlCultivosCuadro.DataBind()
                DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

@@ -17885,9 +17891,13 @@ Partial Class Compras_Compras
        End If

        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
-
+            GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
+            Dim extrafiltro = "Estatus=1 AND "
+            If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
+                extrafiltro = ""
+            End If
            DdlCultivosCuadro.Items.Clear()
-            DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+            DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"{extrafiltro} CveSubProyecto = {DdlSubProyecto.SelectedValue}")
            DdlCultivosCuadro.DataBind()
            DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -258,7 +258,7 @@ Partial Class PopUpVerFactura
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
-            If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
+            If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                NoEmbarque = row("NoEmbarque").ToString()
                Cliente = row("Cliente").ToString()
@@ -293,12 +293,13 @@ Partial Class PopUpVerFactura

                'End If

-                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then
+                If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then
                    NoPallets = objnom.DtResultados.SUM("NoPallets").ToString()
                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")

                    tablaReporte = objnom.DtResultados
+
                End If
            End If
            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
@@ -308,7 +309,7 @@ Partial Class PopUpVerFactura
        params.Add(New ReportParameter("Cliente", Cliente))
        params.Add(New ReportParameter("Direccion", Direccion))
        params.Add(New ReportParameter("Fecha", Fecha))
-        params.Add(New ReportParameter("SubProyecto", SubProyecto))
+        params.Add(New ReportParameter("SubProyecto", SubProyecto.ToUpper()))
        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
        params.Add(New ReportParameter("Temperatura", Temperatura))
@@ -345,7 +346,11 @@ Partial Class PopUpVerFactura
        lrds.Add(rds)
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto", Content_Disposition:="Inline")
+        Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
+        If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
+            rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
+        End If
+        ImprimirPDF(rutardlc, lrds, params, "Manifesto", Content_Disposition:="Inline")
    End Sub

    Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
@@ -394,7 +399,7 @@ Partial Class PopUpVerFactura
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
-            If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
+            If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                NoEmbarque = row("NoEmbarque").ToString()
                Cliente = row("Cliente").ToString()
@@ -440,7 +445,7 @@ Partial Class PopUpVerFactura

                'End If

-                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
@@ -549,7 +554,7 @@ Partial Class PopUpVerFactura
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
-            If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
+            If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                NoEmbarque = row("NoEmbarque").ToString()
                Cliente = row("Cliente").ToString()
@@ -595,7 +600,7 @@ Partial Class PopUpVerFactura

                'End If

-                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
@@ -686,7 +691,7 @@ Partial Class PopUpVerFactura
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
-            If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+            If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                Envase = row("Envase").ToString()
                Tamano = row("Tamaño").ToString()
@@ -756,7 +761,7 @@ Partial Class PopUpVerFactura
        'Cultivo = "Tomate"
        'noPallet = "000001"
        Using objnom As New ClsNominas
-            If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+            If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                Envase = row("Envase").ToString()
                Tamano = row("Tamaño").ToString()
@@ -2644,14 +2649,41 @@ Partial Class PopUpVerFactura

        Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True))

+
+
+
+
+
+
        If Not IsNothing(Vta) Then
-            '04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME
-            If UsuarioActual.Empresa.CvePlataforma = 2 Then
-                GeneraPDFVtaPyMe(Vta, "PDF")
+
+            Dim PathArchivo As String = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)
+            Dim Archivo As New System.IO.FileInfo(PathArchivo)
+
+            If Archivo.Exists Then
+
+                HttpContext.Current.Response.Clear()
+                HttpContext.Current.Response.ClearContent()
+                HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".txt", "text/plain", "application/pdf")
+                HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
+                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+                HttpContext.Current.Response.TransmitFile(PathArchivo)
+                'HttpContext.Current.Response.Flush()
+                HttpContext.Current.Response.End()
+                Archivo = Nothing
+
            Else
-                ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar), Vta.SerieFolio, "PDF")
-                Vta = Nothing
+
+                '04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME
+                If UsuarioActual.Empresa.CvePlataforma = 2 Then
+                    GeneraPDFVtaPyMe(Vta, "PDF")
+                Else
+                    ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar), Vta.SerieFolio, "PDF")
+                    Vta = Nothing
+                End If
            End If
+
+
        End If

    End Sub