Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsCGame.vb

@@ -1,4 +1,5 @@
-Imports System.Data
+Imports System
+Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
 
@@ -3442,6 +3443,40 @@ Public Class ClsCGame
         Return Retorno
     End Function
 
+    Public Function REPInventarioDiarioPallets(fechaCalculo As DateTime, cveEmpresa As Int32, errorMostrarADS As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_REPInventarioDiarioPallets", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@FechaCalculo", SqlDbType.Date).Value = fechaCalculo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de inventario diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+
+    Public Function REPInventarioDiarioBins(fechaCalculo As DateTime, cveEmpresa As Int32, errorMostrarADS As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_REPInventarioDiarioBins", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@FechaCalculo", SqlDbType.Date).Value = fechaCalculo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de inventario diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
 
 #End Region
 

App_Code/ClsPaginas.vb

@@ -6703,7 +6703,7 @@ Public Class ClsPaginas
         Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa)
         Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\Nomina.rdlc")
         Dim CFDIVersion As String = ""
-        Dim UsoCFDI As String = ""
+        Dim UsoCFDI As String = "ND"
 
 
 
@@ -6752,7 +6752,22 @@ Public Class ClsPaginas
 
                 If receptorNode IsNot Nothing Then
                     UsoCFDI = ValorNodoXML(receptorNode, "usocfdi")
-                    UsoCFDI = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
+                    Dim UsoCFDIImprimir As String = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
+
+                    If UsoCFDIImprimir.Trim.Length > 0 Then
+                        UsoCFDI = UsoCFDIImprimir
+                    End If
+
+                End If
+
+                If UsoCFDI = "ND" Or UsoCFDI = "" Then
+
+                    If CFDIVersion = "4.0" Then
+                        UsoCFDI = "CN01 - Nómina"
+                    Else
+                        UsoCFDI = "P01 - Por definir"
+                    End If
+
                 End If
 
 

Compras/PopUpVerFactura.aspx.vb

@@ -229,6 +229,9 @@ Partial Class PopUpVerFactura
                 If Request("onlyPrint").ToString() = "Recibo" Then
                     ReciboAgropecuaria()
                 End If
+                If Request("onlyPrint").ToString() = "CitrusInventarioDiario" Then
+                    imprimirRepcitrusInventarioDiario("")
+                End If
             End If
 
         End If
@@ -336,6 +339,50 @@ Partial Class PopUpVerFactura
         Response.End()
     End Sub
 
+
+    Private Sub imprimirRepcitrusInventarioDiario(fecha As String)
+        Dim totalPallets As String = ""
+        Dim totalBachas As String = ""
+        Dim fechas As String = ""
+        Dim totalcajas As String = ""
+        Dim TotalBins As String = ""
+
+
+        Dim tablaReportePallets As New DataTable
+        Dim tablaReporteBins As New DataTable
+
+        Using objnom As New ClsCGame
+            If objnom.REPInventarioDiarioPallets(DateTime.Now, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
+                tablaReportePallets = objnom.DtResultados
+                totalPallets = tablaReportePallets.SUM("Pallets", "GroupId =1").FormatoNumero(0)
+                totalBachas = tablaReportePallets.SUM("Bachas", "GroupId =1").FormatoNumero(0)
+                totalcajas = tablaReportePallets.SUM("CajasTotal", "GroupId =1").FormatoNumero(0)
+            End If
+            If objnom.REPInventarioDiarioBins(DateTime.Now, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
+                tablaReporteBins = objnom.DtResultados
+                TotalBins = tablaReporteBins.SUM("Bins").FormatoNumero(0)
+            End If
+            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("totalPallets", totalPallets))
+        params.Add(New ReportParameter("totalBachas", totalBachas))
+        params.Add(New ReportParameter("totalcajas", totalcajas))
+        params.Add(New ReportParameter("TotalBins", TotalBins))
+        params.Add(New ReportParameter("Fecha", fechas))
+
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource With {.Name = "DataSetsPallets", .Value = tablaReportePallets}
+        lrds.Add(rds)
+        Dim rds2 As New ReportDataSource With {.Name = "DataSetBins", .Value = tablaReporteBins}
+        lrds.Add(rds2)
+
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc"
+        ImprimirPDF(rutardlc, lrds, params, "Inventario") ', Content_Disposition:="Inline")
+    End Sub
+
+
     Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
         Dim NoEmbarque As String = ""
         Dim Fecha As String = ""

UserControl/TareaNueva.ascx.cs

@@ -18,6 +18,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
     public string OnAddedTareaNueva { get { return ViewState["OnAddedTareaNueva"] != null ? ViewState["OnAddedTareaNueva"].ToString() : "OnAddedTareaNueva"; } set { ViewState["OnAddedTareaNueva"] = value; } }
     public const string iddivAgregarTema = "divModalAgregartema";
      
+   
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -41,15 +42,15 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
                 txtCveEventoPadre.Text = "-1";
             }
             string[] FiltroAD = { "CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol", "CveSubProyecto" };
-           // GVUsuarios_TareaNueva.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD);
+            GVUsuarios_TareaNueva.DataSource = ClsPaginas.get_GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Nombre ASC", FiltroAD);
-            GVUsuarios_TareaNueva.DataSource = ClsPaginas.get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Rol ASC", FiltroAD);
 
             DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource;
             DdlPara.DataBind();
+            DdlPara.Items.Insert(0, new ListItem("Seleccione un usuario", "-1"));
 
             DdlTema.DataSource = ClsPaginas.get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
             DdlTema.DataBind();
-            DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
+            DdlTema.Items.Insert(0, new ListItem("Seleccione ", "-1"));
             GVUsuarios_TareaNueva.DataBind();
         }
     }