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"))
 
@@ -18057,9 +18063,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"))
 

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