diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index fa03b1f8e..1014e8fb0 100644 --- a/App_Code/ClsCGame.vb +++ b/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 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 8dfcc177b..f030cdee9 100644 --- a/App_Code/ClsPaginas.vb +++ b/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 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index be81921ca..97fa6005b 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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 = "" diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs index aa25b6231..2983bfbee 100644 --- a/UserControl/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -17,7 +17,8 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl public bool Ismodal { get { return ViewState["Ismodal"] != null ? (bool)ViewState["Ismodal"] : true; } set { ViewState["Ismodal"] = value; } } 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( " Estatus =1" , "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); 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(); } }