From d75cf6434dee94ee7491d5c3b2f16f60e04e5776 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Dec 2021 13:22:19 -0700 Subject: [PATCH 01/55] =?UTF-8?q?columnas=20de=20iva=20importaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RepIVA.aspx | 2 +- Contabilidad/RepIVA.aspx.cs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 648e85ef5..9796dade0 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -217,7 +217,7 @@ - + diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 075d299bf..94263da4f 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -104,7 +104,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT"; } - GvA.Columns[10].Visible = DtIVAAcreditable.SUM("IvaExentoImpo") > 0; // sino tiene valor la columna de importación de oculta + GvA.Columns[11].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) From 885c62f35f5ed70ff89687318c00acdcb505378a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Dec 2021 13:22:48 -0700 Subject: [PATCH 02/55] mejoras a inventarios --- Inventarios/RepAnomalias.aspx | 80 ++++-- Inventarios/RepAnomalias.aspx.vb | 476 ++++++++++++++++++------------- 2 files changed, 337 insertions(+), 219 deletions(-) diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index 0fe7972bf..4008debce 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -478,10 +478,10 @@ - + @@ -489,24 +489,70 @@ - - - - + + + + + + + + + + + + - - - - - + + + + + + + + + + + Conteo
Anterior + + + + + + + + + - - - + + + + + + + ME.
Vendible + + + + + + + ME.
No vendible + + + + + - - - + + + + + + + + + + diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 7e0c01bfd..0fa3a69e6 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -514,9 +514,7 @@ Partial Class Inventarios_RepAnomalias 'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString) - - - ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Faltan", DatosFiltros:=SbFiltros.ToString()) + ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Faltan", DatosFiltros:=SbFiltros.ToString()) End Sub @@ -545,7 +543,7 @@ Partial Class Inventarios_RepAnomalias 'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString) - ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Sobran", DatosFiltros:=SbFiltros.ToString()) + ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Sobran", DatosFiltros:=SbFiltros.ToString()) End Sub @@ -572,7 +570,7 @@ Partial Class Inventarios_RepAnomalias SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text) - ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos Coincidentes", DatosFiltros:=SbFiltros.ToString()) + ExportToExcelGembox2(GvTemp, "Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos Coincidentes", DatosFiltros:=SbFiltros.ToString()) End Sub @@ -596,6 +594,19 @@ Partial Class Inventarios_RepAnomalias SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text) + Dim SbFiltrosExtra As New StringBuilder() + SbFiltrosExtra.AppendFormat("Almacenes: {0}|", LblAlmacenes.Text) + SbFiltrosExtra.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", lbFechaI.Text, lbFechaF.Text) + + SbFiltrosExtra.AppendFormat("Clasificaciones Excluidas: {0}|", LblClasificacionesExcluidas.Text) + + SbFiltrosExtra.AppendFormat("Productos Excluidos: {0}|", LblProductosExcluidos.Text) + + SbFiltrosExtra.AppendFormat("Proveedores: {0}|", LblProveedores.Text) + SbFiltrosExtra.AppendFormat("SubProyecto: {0}|", lbSubProyecto.Text) + + SbFiltrosExtra.AppendFormat("Estatus: {0}|", lbEstatus.Text) + Dim ObjInventarios As New ClsInventarios Dim DTExtra As New DataTable @@ -607,11 +618,268 @@ Partial Class Inventarios_RepAnomalias ObjInventarios.Dispose() 'ExportToExcelGembox - GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra) + ExportToExcelGembox2(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra, DatosFiltrosExtra:=SbFiltrosExtra.ToString) 'ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra) End Sub + Public Sub ExportToExcelGembox2(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing, Optional DatosFiltrosExtra As String = "") + + Dim sw1 As New StringWriter() + Dim htw1 As New HtmlTextWriter(sw1) + GridView.RenderControl(htw1) + + Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault + + Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) + + htmlStream1.Position = 0 + Dim sr1 As New StreamReader(htmlStream1) + Dim myStr1 = sr1.ReadToEnd() + sr1.Dispose() + htmlStream1.Dispose() + sw1.Dispose() + + Dim HtmlCompleto As String = myStr1 + + HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") + + Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) + + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) + + Dim excel As GemBox.Spreadsheet.ExcelFile + + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) + + If Usuario IsNot Nothing Then + + Dim TotalRowHeader As Integer = 6 + Dim TotalRowFooter As Integer = 2 + + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + If DatoTituloExtra.Length > 0 Then + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = DatoTituloExtra + RangoDatoTituloExtra.Style.Font.Size = 20 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + End If + + If DatosFiltros.Length > 0 Then + + Dim Arreglo As String() = DatosFiltros.Split("|"c) + worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count) + For Each TextoFiltro As String In Arreglo + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = TextoFiltro + RangoDatoTituloExtra.Style.Font.Size = 12 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + TotalRowHeader += 1 + + Next + End If + + ' TotalRowHeader += 2 + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + + Next + + Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre + + worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + + + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + If I > 0 Then + + If 1 = 1 Then + worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" + Else + worksheet.Columns(I + 1).Style.NumberFormat = "#,##" + End If + + Try + worksheet.Columns(I).AutoFit(1) + Catch ex As Exception + End Try + + End If + Next + + + + If DTExtra IsNot Nothing Then + + Dim NombreTabla As String = "" + + If DTExtra.TableName IsNot Nothing Then + NombreTabla = DTExtra.TableName + End If + If NombreTabla.Trim = "" Then + NombreTabla = "hoja2" + End If + + 'excel.Worksheets.Add(NombreTabla) + + Dim workbookDTExtra = New ExcelFile + Dim worksheetDTExtra = workbookDTExtra.Worksheets.Add(NombreTabla) + + worksheetDTExtra.InsertDataTable(DTExtra, + New InsertDataTableOptions() With + { + .ColumnHeaders = True, + .StartRow = 0 + }) + + + + Dim columnCount = worksheetDTExtra.CalculateMaxUsedColumns() + For i As Integer = 0 To columnCount - 1 + worksheetDTExtra.Columns(i).AutoFit(1, worksheetDTExtra.Rows(1), worksheetDTExtra.Rows(worksheetDTExtra.Rows.Count - 1)) + worksheetDTExtra.Cells(0, i).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#4b77be")) + worksheetDTExtra.Cells(0, i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + Next + + ' CLONA EL ENCABEZADO + TotalRowHeader = 6 + TotalRowFooter = 2 + + worksheet = worksheetDTExtra + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + celdasConTexto = worksheet.GetUsedCellRange(True) + celdasConTexto.Style.Font.Name = "Calibri Light" + + RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + If DatoTituloExtra.Length > 0 Then + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = DatoTituloExtra + RangoDatoTituloExtra.Style.Font.Size = 20 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + End If + + If DatosFiltrosExtra.Length > 0 Then + + Dim Arreglo As String() = DatosFiltrosExtra.Split("|"c) + worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count) + For Each TextoFiltro As String In Arreglo + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = TextoFiltro + RangoDatoTituloExtra.Style.Font.Size = 12 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + TotalRowHeader += 1 + + Next + End If + + Imagen = New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + + excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra) + excel.Worksheets(0).Name = Titulo + + + + End If + + End If + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + + + End Sub + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub @@ -827,201 +1095,5 @@ Partial Class Inventarios_RepAnomalias End Sub - Public Sub ExportarExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing) - Dim sw1 As New StringWriter() - Dim htw1 As New HtmlTextWriter(sw1) - GridView.RenderControl(htw1) - - Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault - - Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) - - htmlStream1.Position = 0 - Dim sr1 As New StreamReader(htmlStream1) - Dim myStr1 = sr1.ReadToEnd() - sr1.Dispose() - htmlStream1.Dispose() - sw1.Dispose() - - Dim HtmlCompleto As String = myStr1 - - HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") - - Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) - - GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) - - Dim excel As GemBox.Spreadsheet.ExcelFile - - excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) - - If Usuario IsNot Nothing Then - - Dim TotalRowHeader As Integer = 6 - Dim TotalRowFooter As Integer = 2 - - - Dim worksheet = excel.Worksheets(0) - worksheet.Rows.InsertEmpty(0, TotalRowHeader) - Dim celdasConTexto = worksheet.GetUsedCellRange(True) - celdasConTexto.Style.Font.Name = "Calibri Light" - - Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) - RangoNombreEmpresa.Merged = True - RangoNombreEmpresa.Value = Usuario.Empresa.Empresa - RangoNombreEmpresa.Style.Font.Size = 18 * 20 - RangoNombreEmpresa.Style.Font.Name = "Calibri Light" - RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) - RangoTitulo.Merged = True - RangoTitulo.Value = Titulo - RangoTitulo.Style.Font.Size = 20 * 20 - RangoTitulo.Style.Font.Name = "Calibri Light" - RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - If DatoTituloExtra.Length > 0 Then - Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) - RangoDatoTituloExtra.Merged = True - RangoDatoTituloExtra.Value = DatoTituloExtra - RangoDatoTituloExtra.Style.Font.Size = 20 * 20 - RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" - RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left - RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - End If - - If DatosFiltros.Length > 0 Then - - Dim Arreglo As String() = DatosFiltros.Split("|"c) - worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count) - For Each TextoFiltro As String In Arreglo - - Dim RangoDatosFiltro = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) - - RangoDatosFiltro.Merged = True - RangoDatosFiltro.Style.WrapText = True - RangoDatosFiltro.Value = TextoFiltro - RangoDatosFiltro.Style.Font.Size = 11 * 20 - RangoDatosFiltro.Style.Font.Name = "Calibri Light" - RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left - RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - TotalRowHeader += 1 - Next - End If - - 'TotalRowHeader += 2 - - For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - - worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20 - worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - - If i > 0 Then - Try - worksheet.Columns(i).AutoFit(1) - Catch ex As Exception - End Try - End If - - Next - - Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter - - worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" - worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre - - worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" - worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) - - If Imagen.Exists Then - Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) - Using sr As New StreamReader(Ruta) - Dim ms As New MemoryStream() - sr.BaseStream.CopyTo(ms) - worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) - End Using - End If - - - For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - - If I > 0 Then - - 'If 1 = 1 Then - ' worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" - 'Else - ' worksheet.Columns(I + 1).Style.NumberFormat = "#,##" - 'End If - worksheet.Columns(I + 1).Style.NumberFormat = "@" - - Try - worksheet.Columns(I).AutoFit(1) - Catch ex As Exception - End Try - - End If - Next - - - If DTExtra IsNot Nothing Then - - Dim NombreTabla As String = "" - - If DTExtra.TableName IsNot Nothing Then - NombreTabla = DTExtra.TableName - End If - - If NombreTabla.Trim = "" Then - NombreTabla = "hoja2" - End If - - 'excel.Worksheets.Add(NombreTabla) - - Dim workbookDTExtra = New ExcelFile - Dim worksheetDTExtra = workbookDTExtra.Worksheets.Add(NombreTabla) - - - worksheetDTExtra.InsertDataTable(DTExtra, - New InsertDataTableOptions() With - { - .ColumnHeaders = True, - .StartRow = 0 - }) - - - - Dim columnCount = worksheetDTExtra.CalculateMaxUsedColumns() - For i As Integer = 0 To columnCount - 1 - worksheetDTExtra.Columns(i).AutoFit(1, worksheetDTExtra.Rows(1), worksheetDTExtra.Rows(worksheetDTExtra.Rows.Count - 1)) - worksheetDTExtra.Cells(0, i).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#4b77be")) - - Next - - - excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra) - - - - - End If - - End If - - excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - - - End Sub - End Class From 61a2b5254a51ee43a6d7793a0bb80ec9c48fb3a1 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Dec 2021 13:23:06 -0700 Subject: [PATCH 03/55] clasificacion2 E119 --- Ventas/ProductosServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 523d69fc0..53a0a361e 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -127,7 +127,7 @@ Partial Class ProductosyServicios Private ReadOnly Property PermiteClasificacion2 As Boolean Get - Return (UsuarioActual.CveEmpresa.Contiene(1, 72, 80)) + Return (UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119)) End Get End Property From 456b057d31360762aaaa8477b1647c7183357f77 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Dec 2021 14:13:12 -0700 Subject: [PATCH 04/55] parametro globaldt RFC, proveedores --- App_Code/ClsPaginas.vb | 62 +++++++++++++++++++++++++++++++++++--- Bancos/PopIEVentas.aspx | 2 +- Bancos/PopIEVentas.aspx.vb | 25 ++++++++++++--- 3 files changed, 79 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7ff070146..b8a1e8186 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -927,6 +927,32 @@ Public Class ClsPaginas Application("GlobalDTFamilias") = value End Set End Property + + Property GlobalDTChoferes(CveEmpresa As Integer, Optional CveChofer As Integer = -1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTChoferes-{0}", CveEmpresa) + 'sino existe, recarga los datos + If Application(AppNombre) Is Nothing Then + Dim ObjAcar As New ClsAcarreos() + If ObjAcar.GetChofer(-1, CveEmpresa, 1, -1) Then + Application(AppNombre) = ObjAcar.DtResultados + End If + ObjAcar.Dispose() + End If + + Dim Str As New StringBuilder + If CveChofer > 0 Then Str.AppendFormat("CveChofer = {0}", CveChofer) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTChoferes = Dv.ToTable + Dv.Dispose() + + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTChoferes-{0}", CveEmpresa) + Application(AppNombre) = value + End Set + End Property + Property GlobalDTClasificacionesPresupuestos(Optional CveEmpresa As Integer = -1) As DataTable Get If CveEmpresa <> -1 Then @@ -1563,6 +1589,31 @@ Public Class ClsPaginas Application("GlobalDTInvMetodosInventario") = value End Set End Property + + Property GlobalDTInvCamiones(CveEmpresa As Integer, Optional CveCamion As Integer = -1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTInvCamiones-{0}", CveEmpresa) + 'sino existe, recarga los datos + If Application(AppNombre) Is Nothing Then + Dim ObjInventarios As New ClsInventarios + If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + Application(AppNombre) = ObjInventarios.DtResultados + End If + ObjInventarios.Dispose() + End If + + Dim Str As New StringBuilder + If CveCamion > 0 Then Str.AppendFormat("CveCamion = {0}", CveCamion) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTInvCamiones = Dv.ToTable + Dv.Dispose() + + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTInvCamiones-{0}", CveEmpresa) + Application(AppNombre) = value + End Set + End Property Property GlobalDTAFCaracteristicasOpciones() As DataTable Get GlobalDTAFCaracteristicasOpciones = DirectCast(Application("GlobalDTAFCaracteristicasOpciones"), DataTable) @@ -1850,7 +1901,7 @@ Public Class ClsPaginas Application("GlobalDTClientesCorporativo") = value End Set End Property - Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1) As DataTable + Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1, Optional RFC As String = "-1") As DataTable Get Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa) 'sino existe, recarga los datos @@ -1864,6 +1915,7 @@ Public Class ClsPaginas Dim StrSQL As New StringBuilder StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa) If CveProveedor >= 0 Then StrSQL.AppendFormat(" AND CveProveedor = {0} ", CveProveedor) + If RFC <> "-1" Then StrSQL.AppendFormat(" AND RFC = '{0}' ", RFC) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows) GlobalDTCompProveedores = Dv.ToTable @@ -6468,7 +6520,7 @@ Public Class ClsPaginas params.Add(New CrystalParametro("INETipoComite", INETipoComite)) params.Add(New CrystalParametro("INEIdContabilidad", INEIdContabilidad)) params.Add(New CrystalParametro("Referencia", Vta.Cliente.ReferenciaFiscal)) - params.Add(New CrystalParametro("ClienteContacto", Vta.AtnA)) + params.Add(New CrystalParametro("ClienteContacto", Vta.AtencionA)) End If 'DIRECCION ENVIO @@ -7076,7 +7128,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("ClienteNoInt", If(Vta.ClienteSucursal.NoInt.Length > 0, Vta.ClienteSucursal.NoInt, ""))) params.Add(New ReportParameter("ClienteNoExt", If(Vta.ClienteSucursal.NoExt.Length > 0, Vta.ClienteSucursal.NoExt, ""))) params.Add(New ReportParameter("ClientePais", If(Vta.ClienteSucursal.Pais.Length > 0, Vta.ClienteSucursal.Pais, ""))) - params.Add(New ReportParameter("ClienteContacto", Vta.AtnA)) + params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA)) ElseIf Vta.CveCliente.ToEntero > 0 Then params.Add(New ReportParameter("ClienteCalle", If(Vta.Cliente.Direccion.Length > 0, Vta.Cliente.Direccion, ""))) params.Add(New ReportParameter("ClienteColonia", If(Vta.Cliente.Colonia.Length > 0, Vta.Cliente.Colonia, ""))) @@ -7087,7 +7139,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("ClienteNoInt", If(Vta.Cliente.NoInt.Length > 0, Vta.Cliente.NoInt, ""))) params.Add(New ReportParameter("ClienteNoExt", If(Vta.Cliente.NoExt.Length > 0, Vta.Cliente.NoExt, ""))) params.Add(New ReportParameter("ClientePais", If(Vta.Cliente.Pais.Length > 0, Vta.Cliente.Pais, ""))) - params.Add(New ReportParameter("ClienteContacto", Vta.AtnA)) + params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA)) End If 'PARAMETROS SEGUN TIPO DOCUMENTO @@ -7248,7 +7300,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("INETipoComite", INETipoComite)) params.Add(New ReportParameter("INEIdContabilidad", INEIdContabilidad.ToString)) params.Add(New ReportParameter("Referencia", Vta.Cliente.ReferenciaFiscal)) - params.Add(New ReportParameter("ClienteContacto", Vta.AtnA)) + params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA)) End If RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index d3cfbc3b7..f42d31759 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -60,7 +60,7 @@ F y E Ingresos X Comprobar Deudores - Compras + Compras diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 87c387537..0467778a7 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -785,11 +785,25 @@ Partial Class Bancos_PopIEVentas End If If RFCCliente.ToUpper <> "XAXX010101000" Then - Dim ObjCompras As New ClsCompras - If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then - RBLContado.Items(4).Enabled = True + Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero + + If CveProveedor > 0 Then + Dim Mov As New ClsMovimientos + If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then + If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then + RBLContado.Items(4).Enabled = True + End If + End If + + Mov.Dispose() End If - ObjCompras.Dispose() + + + 'Dim ObjCompras As New ClsCompras + 'If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then + ' RBLContado.Items(4).Enabled = True + 'End If + 'ObjCompras.Dispose() End If If Not Validada Then @@ -926,6 +940,9 @@ Partial Class Bancos_PopIEVentas End Sub Protected Sub CargaCompras(Optional CveMoneda As Integer = 1) + + If RFCCliente = "XAXX010101000" Then Exit Sub + Dim ObjCompras As New ClsCompras Dim ObjProveedor As New ClsCompProveedores Dim CveProveedor As Integer = -1 From b5cf21cbb9925cab364b8eb493b5e6357bc93586 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 10 Dec 2021 16:26:57 -0700 Subject: [PATCH 05/55] Rep AF compras CveClasificacion2 --- App_Code/ClsCompras.vb | 9 ++++++--- Compras/RepComprasAF.aspx | 15 +++++++++++++-- Compras/RepComprasAF.aspx.vb | 14 ++++++++++++-- Compras/RepComprasAFDetalle.aspx | 8 ++++++++ Compras/RepComprasAFDetalle.aspx.vb | 1 + 5 files changed, 40 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 67381324c..40bcd70e1 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -675,8 +675,9 @@ Public Class ClsCompras End Function Public Function GetRepComprasAF(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, - TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1 - ) As Boolean + TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1, + Optional CveClasificacion2 As Integer = -1 + ) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ComprasAFGetRep") @@ -697,6 +698,7 @@ Public Class ClsCompras .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 'CveClasificacion @@ -714,7 +716,7 @@ Public Class ClsCompras Public Function GetRepComprasAFDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer, TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, - Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ComprasAFDetalleGetRep") @@ -739,6 +741,7 @@ Public Class ClsCompras .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 'CveClasificacion End With diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx index b6ee8e1f9..c77ccf991 100644 --- a/Compras/RepComprasAF.aspx +++ b/Compras/RepComprasAF.aspx @@ -92,6 +92,7 @@ + @@ -147,12 +148,21 @@
+
Clasificación:
-
+
+ + +
Clasificación 2:
+
+ + + +
Producto Servicio:
@@ -167,7 +177,8 @@
- + diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index 2c5fc308c..1e5e19842 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -90,6 +90,9 @@ Partial Class Compras_RepComprasAF DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() + DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") + DdlClasificacion2.DataBind() + DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() @@ -154,10 +157,12 @@ Partial Class Compras_RepComprasAF Else TCEspecifico = -1 End If + If ObjCompras.GetRepComprasAF(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero, - CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then + DTDatos = ObjCompras.DtResultados GvDatos.DataSource = ObjCompras.DtResultados Else @@ -187,7 +192,7 @@ Partial Class Compras_RepComprasAF If CvePS = "" Or CvePS = "0" Then CvePS = "-1" End If - Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}" + Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}" If e.Row.DBCampo("Orden") = "1" Then e.Row.Cells(0).Text = String.Format("{2}", "Texto", Liga, e.Row.DataKey("GPO").ToString) Else @@ -285,6 +290,11 @@ Partial Class Compras_RepComprasAF If DdlClasificacion.SelectedIndex > 0 Then ListaFiltros.Add("Clasificación: " & DdlClasificacion.SelectedItem.Text) End If + + If DdlClasificacion2.SelectedIndex > 0 Then + ListaFiltros.Add("Clasificación: " & DdlClasificacion2.SelectedItem.Text) + End If + For Each s As String In ListaFiltros If Contador > 0 Then filtro = filtro & ", " & s diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx index fc94f34da..a16109925 100644 --- a/Compras/RepComprasAFDetalle.aspx +++ b/Compras/RepComprasAFDetalle.aspx @@ -190,6 +190,14 @@
+ +
Clasificación 2:
+
+ + + +
+
Producto Servicio:
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index e8de3702b..3da3a329f 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -106,6 +106,7 @@ Partial Class Compras_RepComprasAFDetalle DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString) DdlProveedores.SelectedValueExist(Request.QueryString("CveProveedor").ToString) DdlClasificacion.SelectedValueExist(Request.QueryString("CveClasificacion").ToString) + DdlClasificacion2.SelectedValueExist(Request.QueryString("CveClasificacion2").ToString) If Request.QueryString("CvePS").ToString.Length > 0 Then DdlPS.txtText.Value = Request.QueryString("PS").ToString From f08ec17d64e27c980d6d1cee4f77b7ba199e9182 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 11 Dec 2021 11:08:11 -0700 Subject: [PATCH 06/55] Rep AF agrupador y filtro Clasificaion 2, Carta porte --- Compras/PopUpVerFactura.aspx.vb | 5 + Compras/RepComprasAFDetalle.aspx | 44 ++- Compras/RepComprasAFDetalle.aspx.vb | 13 +- .../Grales/Formatos/CartaPorteTimbrado.rdlc | 107 +++++- .../Grales/Formatos/RepComprasAFDetalle.rdlc | 314 ++++++++++++++++-- 5 files changed, 450 insertions(+), 33 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2bb063817..de41ff9c0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -937,6 +937,7 @@ Partial Class PopUpVerFactura Dim NumPolizaSeguroMedioAmbiente As String = "" Dim NombreAseguradoraCarga As String = "" Dim NumPolizaSeguroCarga As String = "" + Dim TipoUbicacion As String = "" @@ -1077,6 +1078,7 @@ Partial Class PopUpVerFactura 'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "") 'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "") 'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "") + 'TipoUbicacion = ValorXML(TipoUbicacion, "", "") End If @@ -1221,6 +1223,9 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("SubTotal", SubTotal.ToString())) params.Add(New ReportParameter("Descuentos", Descuentos.ToString())) params.Add(New ReportParameter("Total", Total.ToString())) + params.Add(New ReportParameter("TipoUbicacion", TipoUbicacion)) + + ' [@CertificadoContribuyente] '[@CadenaOriginal] diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx index a16109925..b4d4f8667 100644 --- a/Compras/RepComprasAFDetalle.aspx +++ b/Compras/RepComprasAFDetalle.aspx @@ -226,12 +226,23 @@ + + + + SubProyecto + + + + + + ActivoFijo - + <%----%> + @@ -253,6 +264,37 @@ + + + + Responsable + + + + + + + + + Horometro/Odometro + + + + + + + + + + Tipo Mantenimiento + + + + + + + + Unidad de Medida diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index 3da3a329f..d903d5b4d 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -163,7 +163,7 @@ Partial Class Compras_RepComprasAFDetalle End If If UsuarioActual.CveEmpresa = 72 Then - GvDatos.Columns(2).Visible = True + GvDatos.Columns(3).Visible = True End If End If @@ -186,6 +186,10 @@ Partial Class Compras_RepComprasAFDetalle DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() + DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") + DdlClasificacion2.DataBind() + DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2")) + DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -277,7 +281,7 @@ Partial Class Compras_RepComprasAFDetalle If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero, - CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then DTDatos = ObjCompras.DtResultados GvDatos.DataSource = ObjCompras.DtResultados @@ -435,6 +439,11 @@ Partial Class Compras_RepComprasAFDetalle ListaFiltros.Add("Clasificación: " & DdlClasificacion.SelectedItem.Text) End If + + If DdlClasificacion2.SelectedIndex > 0 Then + ListaFiltros.Add("Clasificación 2: " & DdlClasificacion2.SelectedItem.Text) + End If + For Each s As String In ListaFiltros If Contador > 0 Then diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index c64ce9ebd..54b24800a 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -584,22 +584,73 @@ - 3.00921cm + 2.03633cm - 4.47377cm + 2.54796cm - 2.95726cm + 4.20919cm - 6.97146cm + 2.24876cm + + + 6.34152cm 0.6cm + + + + true + true + + + + + =Fields!TipoUbicacion.Value + + + + + + + TipoUbicacion + + 2pt + + + + + + 1pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -779,6 +830,46 @@ + + + 0.52062cm + + + true + true + + + + + Tipo Ubicación + + + + + + + Textbox28 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + 0.52062cm @@ -1004,7 +1095,7 @@ 8.2018cm 0.42363cm 1.12062cm - 19.10097cm + 19.07303cm 3 @@ -100,7 +120,7 @@ 0.84237cm 0.09525cm 0cm - 25.79479cm + 26.76762cm 1 + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + @@ -178,7 +244,10 @@ Descripcion - + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Horometro/ + + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + @@ -239,8 +391,11 @@ - Unidad M. - + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + @@ -400,7 +597,7 @@ - =Fields!Descripcion.Value + =Fields!CodigoAF.Value @@ -456,6 +653,72 @@ + + + + true + true + + + + + =Fields!NombreCompleto.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AFMedida.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + @@ -610,6 +873,9 @@ + + + @@ -626,7 +892,7 @@ 0.9482cm 0.09525cm 1.06771cm - 25.79479cm + 26.76762cm 2 @@ -722,7 +988,7 @@ 1.10271cm 0.09525cm 0.52945cm - 25.79479cm + 26.76762cm 1 - Entrega Almacen Ruta + Entrega Almacen Ruta @@ -23,14 +30,14 @@
  • - -
    • + +     - +     - + @@ -39,124 +46,58 @@
    -
    - +
    +
    -
    +
    + +
    - +
    -
    -
    - - - - +
    +
    + + + + +
    + + + + + +
    - - - - - - -
    - -
    -
    - - - - + +
    +
    + + + + +
    + + + + + +
    - - - - - - -
    + Recoleccion + - - - - - -
    - -
    - Chofer: -
    -
    - - - -
    -
    - Unidad: -
    -
    - - - -
    - -
    - Fecha de Entrega: -
    - -
    -
    - - - - - - - - -
    -
    -
    - Carta Porte: -
    -
    - - -
    -
    - -
    - -
    - Preselección de Entregas -
    - -
    - -
    - -
    - -     - - - -     - - - - @@ -172,13 +113,62 @@
    +
    +
    + Chofer: +
    +
    + + + +
    +
    + Unidad: +
    +
    + + + +
    -
    +
    + F. Entrega: +
    +
    +
    + + + + + + + + +
    +
    +
    + +
    +
    +
    + +
    + Preseleccionar + +
    + +
    + +
    + +
    + +
    - -   @@ -218,15 +207,9 @@ - - -
    -
    - -
    @@ -250,7 +233,7 @@ <%----%> - + @@ -282,29 +265,22 @@ - - -
    - - - -
    - - - + + + @@ -312,82 +288,130 @@ -
    -
    +
    +
    - - - <%----%> - - -   - - - - -   - - - - -   - - - + + + + +   + + + <%----%> + + +   + + + + +   + + + + +   + + + - - - - - - - + + + + + + + - + - + + +
    + +
    -
    - -
    +
    +
    - + + + + +   + + + + <%----%> + + + + + + + + + + +   + + + + <%----%> + + +   + + + + +   + + + + +   + + + + + + + + +
    + +
    - -     - +     -     - - - - - - - - - - - - + +
    +
    +
    +
    + + + +
    +
    +
    - - + - - +
    - - + - - + +
    -
    -
    +
    @@ -443,48 +477,41 @@
    -
    -
    +
    +
    - +
    -
    -
    -
    -
    - - - - - -
    - -
    +
    +
    +
    + +
    - -
    -
    - +
    +
    -
    - @@ -538,10 +565,29 @@ axis: 'y', dropOnEmpty: false, start: function (e, ui) { - ui.item.addClass("selected"); + ui.item.addClass("selected"); let asd = ui.item.children('a'); }, - stop: function (e, ui) { + stop: function (e, ui) { + //Ordenar el numero de la columna *Cons* + $(".RowOrdenamiento").each(function (index) { + let nRow = (index + 1); + $(this).text(nRow); + }); + + }, + }); + + $(".GvR").sortable({ + items: 'tr:not(tr:first-child)', + cursor: 'pointer', + axis: 'y', + dropOnEmpty: false, + start: function (e, ui) { + ui.item.addClass("selected"); + let asd = ui.item.children('a'); + }, + stop: function (e, ui) { //Ordenar el numero de la columna *Cons* $(".RowOrdenamiento").each(function (index) { let nRow = (index + 1); @@ -552,8 +598,8 @@ }); } - - + + diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index bd3c39562..8343851b5 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -13,18 +13,18 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas { - DataTable DTGenrarDocumentos + DataTable DTGenerarDocumentos { get { - if(ViewState["DTGenrarDocumentos"] == null){ - ViewState["DTGenrarDocumentos"] = new DataTable(); + if(ViewState["DTGenerarDocumentos"] == null){ + ViewState["DTGenerarDocumentos"] = new DataTable(); } - return (DataTable)ViewState["DTGenrarDocumentos"]; + return (DataTable)ViewState["DTGenerarDocumentos"]; } set { - ViewState["DTGenrarDocumentos"] = (DataTable)value; + ViewState["DTGenerarDocumentos"] = (DataTable)value; } } @@ -62,29 +62,23 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ViewState["DTRecoleccion"] = (DataTable)value; } } - - - - - - bool SelecionEntrega + bool SeleccionEntrega { get { - if (ViewState["SelecionEntrega"] == null) + if (ViewState["SeleccionEntrega"] == null) { - ViewState["SelecionEntrega"] = false; + ViewState["SeleccionEntrega"] = false; } - return (bool) ViewState["SelecionEntrega"]; + return (bool) ViewState["SeleccionEntrega"]; } set { - ViewState["SelecionEntrega"] = (bool)value; + ViewState["SeleccionEntrega"] = (bool)value; } } - - + int CveEntregaAlmacen { get { @@ -105,23 +99,15 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) - { - + { - SelecionEntrega = true; + SeleccionEntrega = true; CargaCombos(); - CargaDatos(); - - - + CargaDatos(); #region RECOLEECION - CargaDatosRecoleccion(); - CargaModalClasificaiones(); - CargaModalDdlPS(); - - ModalRecoleccionCargaClientes(); - + // CargaDatosRecoleccion(); + #endregion } @@ -141,36 +127,26 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas { Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia); return; - } - + } StringBuilder SBError = new StringBuilder(); - ActualizaOrdenDTGenrarDocumentos(); + ActualizaOrdenDTGenerarDocumentos(); + List ListaTimbres = new List(); - bool TieneError = false; ClsGenerales ObjGeneral = new ClsGenerales(); ObjGeneral.IniciaTransacSQL(); - - GridViewRowCollection Grid = GvGenerarDocumentos.Rows; - - + GridViewRowCollection Grid = GvGenerarDocumentos.Rows; string Usuario = DdlChofer.SelectedItem.Text; - int CveDireccionOrigen = -1; foreach (GridViewRow row in Grid) { - //int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); int Orden = row.DataKey("Orden").ToEntero(); - - //if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal: -1, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden)) - //{ - - int CveDireccionDestino = row.DataKey("CveDireccionEnvio").ToEntero(); + int CveDireccionDestino = row.DataKey("CveDireccionEnvio").ToEntero(); if (CveDireccionDestino <= 0) { @@ -178,40 +154,162 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas TieneError = true; break; } - int CveEntregaAlmacen = ObjGeneral.AddInvEntregaAlmacenRuta(row.DataKey("CveSubProyectoOrigen").ToEntero(), row.DataKey("CveMovimiento").ToEntero(), CveDireccionOrigen, CveDireccionDestino, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), "E",Orden,0); + int CveEntregaAlmacen = ObjGeneral.AddInvEntregaAlmacenRuta(row.DataKey("CveSubProyectoOrigen").ToEntero(), CveDireccionOrigen, CveDireccionDestino, row.DataKey("CveMovimiento").ToEntero(), DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), "E",Orden,0); CveDireccionOrigen = row.DataKey("CveDireccionEnvio").ToEntero(); if (CveEntregaAlmacen > 0) - { - DateTime MinFecha = new DateTime(1900, 01, 01); - int CveTimbre = ObjGeneral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, row.DataKey("CveSubProyectoOrigen").ToEntero()); + { + int CveTimbre = ObjGeneral.AddGralTimbre("Ent", row.DataKey("CveSubProyectoOrigen").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:CveEntregaAlmacen, AplicaCP: ChkEmitirCartaPorte.Checked); if (CveTimbre <= 0) { SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar timbre. "); - - TieneError = true; + + TieneError = true; break; } + else + { + ListaTimbres.Add(CveTimbre); + } } else { SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar entrega alamcen. "); TieneError = true; break; - } - - + } } - - - - + if (!TieneError) { foreach (GridViewRow row in Grid) + { + try + { + //MandarNotificacionCorreo(row); + } + catch (Exception ex) + { + TieneError = true; + ModExtensiones.GuardaLog(ex.Message); + } + } + + if (!TieneError) + { + ObjGeneral.Commit(); + StringBuilder MensajeAlert = new StringBuilder(); + //recorrer para timbrar + MensajeAlert.Append(" Entregas creadas correctamente

    "); + + foreach (int cvetimbre in ListaTimbres) + { + Timbres ObjTimbres = new Timbres("Ent", cvetimbre, UsuarioActual); + MensajeAlert.AppendFormat("Folio: {0}  ", ObjTimbres.ObjFactura.SerieFolio); + if (ObjTimbres.Timbrar()) + { + + MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + MensajeAlert.Append("
    "); + + Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); + CargaDatos(); + DdlChofer.SelectedValueExist("-1"); + DdlUnidadCamion.SelectedValueExist("-1"); + ChkEmitirCartaPorte.Checked = false; + + SeleccionEntrega = false; + SeleccionarGenerar(1); + } + else + { + MensajeAlert.AppendFormat("
    • {0}
    ", ObjTimbres.MsgError); + } + } + UpDatos.Update(); + } + else + { + ObjGeneral.RollBack(); + } + ObjGeneral.Dispose(); + }else + { + Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia); + } + } + + + protected void LnkGeneraRecoleccion_Click(object sender, EventArgs e) + { + + + if (DdlChofer.SelectedValue.ToEntero() <= 0) + { + Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia); + return; + } + + if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0) + { + Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia); + return; + } + + + StringBuilder SBError = new StringBuilder(); + //ActualizaOrdenDTGenerarDocumentos(); + List ListaTimbres = new List(); + + + bool TieneError = false; + ClsGenerales ObjGeneral = new ClsGenerales(); + ObjGeneral.IniciaTransacSQL(); + string Usuario = DdlChofer.SelectedItem.Text; + + int CveDireccionOrigen = -1; + foreach (GridViewRow row in gvR.Rows) + { + int Orden = row.DataKey("Orden").ToEntero(); + int CveEntregaAlmacen = row.DataKey("CveEntregaAlmacen").ToEntero(); + + if (row.FCCheckBox("Chk").Checked) + { + CveDireccionOrigen = row.DataKey("CveDireccionOrigen").ToEntero(); + + if (CveEntregaAlmacen > 0) + { + int CveTimbre = ObjGeneral.AddGralTimbre("Rec", row.DataKey("CveSubProyectoDestino").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:CveEntregaAlmacen , AplicaCP: ChkEmitirCartaPorte.Checked); + + if (CveTimbre <= 0) + { + SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar timbre. "); + TieneError = true; + break; + } + else + { + ListaTimbres.Add(CveTimbre); + } + } + else + { + SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar entrega alamcen. "); + TieneError = true; + break; + } + } + } + + + if (!TieneError) + { + + foreach (GridViewRow row in gvR.Rows) { try { @@ -229,16 +327,52 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (!TieneError) { ObjGeneral.Commit(); - Alert("Entregas asignadas correctamente"); + StringBuilder MensajeAlert = new StringBuilder(); + //recorrer para timbrar + MensajeAlert.Append(" Entregas creadas correctamente

    "); + foreach (int cvetimbre in ListaTimbres) + { + Timbres ObjTimbres = new Timbres("Rec", cvetimbre, UsuarioActual); + + if (ObjTimbres.Timbrar()) + { + //ClsPaginas.PdfFactura(ref ObjTimbres.ObjFactura,"0",true); + //MensajeAlert.Append("Emitido con éxito."); + + ////XML + //string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio); + //if (System.IO.File.Exists(ArchivoXML)) + // MensajeAlert.AppendFormat("", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + MensajeAlert.AppendFormat("Folio: {0}  ", ObjTimbres.ObjFactura.SerieFolio); + MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + MensajeAlert.Append("
    "); + ////PDF + //string ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio); + //if (System.IO.File.Exists(ArchivoPDF)) + // MensajeAlert.AppendFormat("", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + + + //if (UsuarioActual.Empresa.Funcionalidad(161) == "1") + // MensajeAlert.AppendFormat("", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + //else + // MensajeAlert.AppendFormat("", ModExtensiones.Encripta(String.Format("OP=CARPO&CveTimbre={0}", cvetimbre))); + + } + else + { + MensajeAlert.AppendFormat("
    • {0}
    ", ObjTimbres.MsgError); + } + } + Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); + CargaDatos(); DdlChofer.SelectedValueExist("-1"); DdlUnidadCamion.SelectedValueExist("-1"); ChkEmitirCartaPorte.Checked = false; - SelecionEntrega = false; - SeleccioanrGenrar(); - - CargaDatos(); + SeleccionEntrega = false; + SeleccionarGenerar(1); UpDatos.Update(); } else @@ -246,176 +380,157 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ObjGeneral.RollBack(); } ObjGeneral.Dispose(); - }else + } + else { Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia); } - } private void CargaDatos() { ClsGenerales ObjGeneral = new ClsGenerales(); if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1)) { - GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; + GvEntregas.DataSource = ObjGeneral.DtResultados; DTDatosConsulta = ObjGeneral.DtResultados; - DTGenrarDocumentos = ObjGeneral.DtResultados.Clone(); + DTGenerarDocumentos = ObjGeneral.DtResultados.Clone(); } ObjGeneral.Dispose(); - GvPaqueteriasGuias.DataBind(); + GvEntregas.DataBind(); UpDatos.Update(); } - - private void CargaCombos() { - ClsInventarios ObjInventarios = new ClsInventarios(); + DdlUnidadCamion.DataSource = get_GlobalDTInvCamiones(UsuarioActual.CveEmpresa); - if(ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) && ObjInventarios.DtResultados.Rows.Count > 0){ - DdlUnidadCamion.DataSource = ObjInventarios.DtResultados; - } - ObjInventarios.Dispose(); DdlUnidadCamion.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlUnidadCamion.DataBind(); TxtFechaI.Text = DateTime.Now.AddDays(-1).ToShortDateString(); TxtFechaF.Text = DateTime.Now.ToShortDateString(); - - ClsAcarreos ObjAcar = new ClsAcarreos(); - - if(ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) ){ - DdlChofer.DataSource = ObjAcar.DtResultados; - DdlChofer.DataBind(); - } - ObjAcar.Dispose(); + + DdlChofer.DataSource = get_GlobalDTChoferes(UsuarioActual.CveEmpresa); + DdlChofer.DataBind(); DdlChofer.Items.Insert(0, new ListItem("Seleccione", "-1")); - TxtFechaEntrega.Text = DateTime.Now.ToShortDateString(); - + TxtFechaEntrega.Text = DateTime.Now.ToShortDateString(); CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto); + CargarCentrosDeCosto(null, DdlSubProyectoRecoleccion, null, LblSubProyectoRecoleccion); - - } - - - - private void CargaModalClasificaiones() - { - - DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby: "Clasificacion"); - DdlClasificacion.DataBind(); - - - UpModalRecoleccion.Update(); - } - - private void CargaModalDdlPS() - { - bool EsWS = UsuarioActual.Empresa.Funcionalidad(105) == "1" | UsuarioActual.Empresa.Funcionalidad(141) == "1" ? true : false; - DdlProducto2.setEsWebService(EsWS); - if (DdlProducto2.UsaWebService) - { - DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue); - } - else if (!DdlProducto2.UsaWebService && (DataTable)DdlProducto2.DataSource == null) - { - DdlProducto2.DataSource = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion: DdlClasificacion.SelectedValue.ToEntero()).FiltraParametros("CveTipoPS = 2"); - DdlProducto2.DataBind(); - } - } - + } protected void LnkGenerarDocumentos_Click(object sender, EventArgs e) { - SeleccioanrGenrar(); - } + SeleccionarGenerar(1); + } + private void SeleccionarGenerar(int Opcion ) { - - private void SeleccioanrGenrar() { - - if (SelecionEntrega) + if (SeleccionEntrega) { - - DTGenrarDocumentos.Rows.Clear(); + DTGenerarDocumentos.Rows.Clear(); - - - int CountRows = 0; - foreach (GridViewRow GvRow in GvPaqueteriasGuias.Rows) + if (Opcion == 2) //cuando es recolección { - - CheckBox ChkAsigna = GvRow.FCCheckBox("ChkAsigna"); - - if (ChkAsigna.Checked) + int CountRows = 0; + foreach (GridViewRow GvRow in gvR.Rows) { - int CveMovimiento = GvRow.DataKey("CveMovimiento").ToEntero(); + CheckBox ChkAsigna = GvRow.FCCheckBox("Chk"); - DataRow dRow = DTGenrarDocumentos.NewRow(); - DataRow dRowOrigen = DTDatosConsulta.FiltraParametros($"CveMovimiento = {CveMovimiento}").Rows[0]; - - int IndexColun = 0; - foreach (DataColumn dColumn in DTDatosConsulta.Columns) + if (ChkAsigna.Checked) { - dRow[IndexColun] = dRowOrigen[IndexColun]; - IndexColun++; + + int CveMovimiento = GvRow.DataKey("Cve").ToEntero(); + + DataRow dRow = DTGenerarDocumentos.NewRow(); + DataRow dRowOrigen = DTDatosConsulta.FiltraParametros($"CveMovimiento = {CveMovimiento}").Rows[0]; + + int IndexColun = 0; + foreach (DataColumn dColumn in DTDatosConsulta.Columns) + { + dRow[IndexColun] = dRowOrigen[IndexColun]; + IndexColun++; + } + + dRow["Num"] = CountRows + 1; + DTGenerarDocumentos.Rows.Add(dRow); + CountRows++; } - - dRow["Num"] = CountRows + 1; - DTGenrarDocumentos.Rows.Add(dRow); - CountRows++; } } - - DTGenrarDocumentos.AcceptChanges(); - - - - - SelecionEntrega = false; - LnkGenerarDocumentos.Text = "Regresar a Preselección"; - LnkGenerarDocumentos.CssClass = "btn btn-default"; - - - - - OcultarmostarDatosEntrega(true); - - - - BtnConsultar.Visible = false; - - UpDatos.Update(); - UpFiltro.Update(); - - - if (CountRows > 0) - { - GvGenerarDocumentos.DataSource = DTGenrarDocumentos; - GvGenerarDocumentos.DataBind(); - - DVGvGenerarDocumentos.Visible = true; - BtnAsignar.Visible = true; - DVGvPaqueteriasGuias.Visible = false; - - RegistraScript("InitOrdenamientoGvGenerarDocumentos();"); - } else { - Alert("No hay entregas seleccionadas", ModExtensiones.TipoMensaje.MsgAdvertencia); - return; + + int CountRows = 0; + foreach (GridViewRow GvRow in GvEntregas.Rows) + { + + CheckBox ChkAsigna = GvRow.FCCheckBox("ChkAsigna"); + + if (ChkAsigna.Checked) + { + + int CveMovimiento = GvRow.DataKey("CveMovimiento").ToEntero(); + + DataRow dRow = DTGenerarDocumentos.NewRow(); + DataRow dRowOrigen = DTDatosConsulta.FiltraParametros($"CveMovimiento = {CveMovimiento}").Rows[0]; + + int IndexColun = 0; + foreach (DataColumn dColumn in DTDatosConsulta.Columns) + { + dRow[IndexColun] = dRowOrigen[IndexColun]; + IndexColun++; + } + + dRow["Num"] = CountRows + 1; + DTGenerarDocumentos.Rows.Add(dRow); + CountRows++; + } + } + + DTGenerarDocumentos.AcceptChanges(); + + SeleccionEntrega = false; + LnkGenerarDocumentos.Text = "Regresar"; + LnkGenerarDocumentos.CssClass = "btn btn-default"; + + OcultarmostarDatosEntrega(true); + + BtnConsultar.Visible = false; + + UpDatos.Update(); + UpFiltro.Update(); + + if (CountRows > 0) + { + GvGenerarDocumentos.DataSource = DTGenerarDocumentos; + GvGenerarDocumentos.DataBind(); + + DVGvGenerarDocumentos.Visible = true; + BtnAsignar.Visible = true; + DVGvEntregas.Visible = false; + + RegistraScript("InitOrdenamientoGvGenerarDocumentos();"); + } + else + { + Alert("No hay entregas seleccionadas", ModExtensiones.TipoMensaje.MsgAdvertencia); + return; + } + } + } else { BtnConsultar.Visible = true; - SelecionEntrega = true; - LnkGenerarDocumentos.Text = "Preselección de Entregas"; + SeleccionEntrega = true; + LnkGenerarDocumentos.Text = "Preseleccionar"; LnkGenerarDocumentos.CssClass = "btn btn-primary"; @@ -423,15 +538,13 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas BtnAsignar.Visible = false; DVGvGenerarDocumentos.Visible = false; - DVGvPaqueteriasGuias.Visible = true; + DVGvEntregas.Visible = true; UpDatos.Update(); UpFiltro.Update(); } } - - private void OcultarmostarDatosEntrega(bool mostrar ) { DVDatosEntrega1.Visible = mostrar; @@ -452,34 +565,32 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (UsuarioActual.Empresa.Funcionalidad(161).ToEntero() == 1) { - DvCartaPorte1.Visible = mostrar; DvCartaPorte2.Visible = mostrar; } - UpDatosEntrega.Update(); + } - private void ActualizaOrdenDTGenrarDocumentos() + private void ActualizaOrdenDTGenerarDocumentos() { string[] OrdenMovimientos = Request.Form.GetValues("OrdenMovimientos"); int NumOrden = 1; foreach (string CveMovimiento in OrdenMovimientos) { - foreach(DataRow dRow in DTGenrarDocumentos.Rows) + foreach(DataRow dRow in DTGenerarDocumentos.Rows) { if (CveMovimiento.ToEntero() == dRow["CveMovimiento"].ToString().ToEntero() ) { dRow["Orden"] = NumOrden; } } - DTGenrarDocumentos.AcceptChanges(); + DTGenerarDocumentos.AcceptChanges(); NumOrden++; } - - - DataView DTview = new DataView(DTGenrarDocumentos); + + DataView DTview = new DataView(DTGenerarDocumentos); // Sort by State and ZipCode column in descending order DTview.Sort = "Orden ASC"; @@ -533,17 +644,13 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ClsGenerales ObjGeneral = new ClsGenerales(); if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 2, 0)) { - GvDatosRecoleccion.DataSource = ObjGeneral.DtResultados; + gvR.DataSource = ObjGeneral.DtResultados; } ObjGeneral.Dispose(); - GvDatosRecoleccion.DataBind(); - UpDatosRecoleccion.Update(); - - - + gvR.DataBind(); + UpDatosRecoleccion.Update(); } - - + private void CargaDatosRecoleccionDetallePS() { if (CveEntregaAlmacen > 0) @@ -564,21 +671,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } GvModalPSRecoleccion.DataBind(); UpModalRecoleccion.Update(); - } - - private void ModalRecoleccionCargaClientes() - { - ClsClientes ObjCliente = new ClsClientes(); - if (ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, 1)) - { - DdlModalRecoleccionCliente.DataSource = ObjCliente.DtResultados; - } - - ObjCliente.Dispose(); - DdlModalRecoleccionCliente.DataBind(); - DdlModalRecoleccionCliente.Items.Insert(0, new ListItem("Seleccione uno", "-1")); - } - + } protected void DdlModalRecoleccionCliente_SelectedIndexChanged(object sender, EventArgs e) { ModalRecoleccionCargaDirecciones(); @@ -591,17 +684,13 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ClsClientes ObjClientes = new ClsClientes(); if (ObjClientes.DireccionEnvioGet(-1, DdlModalRecoleccionCliente.SelectedValue.ToEntero(), -1)) { - DdlmodalRecoleccionDirecion.DataSource = ObjClientes.DtResultados; + DdlmodalRecoleccionDireccion.DataSource = ObjClientes.DtResultados; } - ObjClientes.Dispose(); + ObjClientes.Dispose(); } - else - { - DdlmodalRecoleccionDirecion.DataSource = null; - } - DdlmodalRecoleccionDirecion.DataBind(); - DdlmodalRecoleccionDirecion.Items.Insert(0, new ListItem("Seleccione una", "-1")); + DdlmodalRecoleccionDireccion.DataBind(); + DdlmodalRecoleccionDireccion.Items.Insert(0, new ListItem("Seleccione", "-1")); UpModalRecoleccion.Update(); } @@ -609,21 +698,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas protected void LnkAgregarRecoleccion_Click(object sender, EventArgs e) { - - if (DdlChofer.SelectedValue.ToEntero() <= 0) - { - Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia); - return; - } - - if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0) - { - Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia); - return; - } - - - LtlModalRecoleccionTitulo.Text = "Agregar Recoleccion"; + + LtlModalRecoleccionTitulo.Text = "Agregar Recolección"; BtnModalRecoleccionGuardar.Text = "Agregar"; LimpiarModalRecoleccion(); @@ -648,16 +724,16 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (ObjClientes.DireccionEnvioGet(-1, CveClienteEnvio, -1)) { - DdlmodalRecoleccionDirecion.DataSource = ObjClientes.DtResultados; + DdlmodalRecoleccionDireccion.DataSource = ObjClientes.DtResultados; } } ObjClientes.Dispose(); - DdlmodalRecoleccionDirecion.DataBind(); - DdlmodalRecoleccionDirecion.Items.Add(new ListItem("Seleccione una", "-1")); - DdlmodalRecoleccionDirecion.SelectedValueExist(CveDireccionOrigen); + DdlmodalRecoleccionDireccion.DataBind(); + DdlmodalRecoleccionDireccion.Items.Add(new ListItem("Seleccione una", "-1")); + DdlmodalRecoleccionDireccion.SelectedValueExist(CveDireccionOrigen); - DdlModalRecoleccionCliente.SelectedValueExist(CveClienteEnvio); + //DdlModalRecoleccionCliente.SelectedValueExist(CveClienteEnvio); CargaDatosRecoleccionDetallePS(); @@ -673,8 +749,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas private void LimpiarModalRecoleccion() { - DdlModalRecoleccionCliente.SelectedValueExist(-1); - DdlmodalRecoleccionDirecion.SelectedValueExist(-1); + // DdlModalRecoleccionCliente.SelectedValueExist(-1); + DdlmodalRecoleccionDireccion.SelectedValueExist(-1); TxtModalRecoleccionCantidad.Text = ""; DdlModalRecoleccionUnidad.Items.Clear(); DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una","-1")); @@ -705,72 +781,62 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas protected void BtnModalRecoleccionGuardar_Click(object sender, EventArgs e) { - if (DdlChofer.SelectedValue.ToEntero() <= 0) - { - Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia); - return; - } + //if (DdlChofer.SelectedValue.ToEntero() <= 0) + //{ + // Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia); + // return; + //} - if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0) - { - Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia); - return; - } + //if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0) + //{ + // Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia); + // return; + //} - + if (DdlmodalRecoleccionDireccion.SelectedValue.ToEntero() <= 0) + { + Alert("Debe seleccionar la dirección de recolección", ModExtensiones.TipoMensaje.MsgAdvertencia); + return; + } int CveTimbrenuevo = -1; - bool ProcesoOK = false; - + bool ProcesoOK = false; - - - int CveSubProyectoCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1, DdlModalRecoleccionCliente.SelectedValue.ToEntero()).FiltroPrimeroValor("CveSubProyecto").ToEntero(); + //int CveSubProyectoCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1, DdlModalRecoleccionCliente.SelectedValue.ToEntero()).FiltroPrimeroValor("CveSubProyecto").ToEntero(); ClsGenerales ObjGenerales = new ClsGenerales(); ObjGenerales.IniciaTransacSQL(); - - - + if( CveEntregaAlmacen == -1) { - CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(CveSubProyectoCliente, -1, DdlmodalRecoleccionDirecion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), "R", 1,0); + CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1,-1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), "R", 1,0); if (CveEntregaAlmacen > 0) { - CveTimbrenuevo = ObjGenerales.AddGralTimbre("Tra", "-1", -1, "-1", new DateTime(1900, 01, 01), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, CveSubProyectoCliente); + //CveTimbrenuevo = ObjGenerales.AddGralTimbre("Rec", "-1", -1, "-1", TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, -1); - if (CveTimbrenuevo > 0) - { - foreach (DataRow dRow in DTRecoleccion.Rows) + //if (CveTimbrenuevo > 0) + //{ + foreach (DataRow dRow in DTRecoleccion.Rows) { if(ObjGenerales.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen,dRow["CvePS"].ToString().ToEntero(), dRow["Cantidad"].ToString().ToDecimal(),dRow["CveUnidadMedida"].ToString().ToEntero(), UsuarioActual.CveUsuario)) { ProcesoOK = true; } else - { - + { ProcesoOK = false; break; } } - } + //} } } else { - if(ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen,DdlmodalRecoleccionDirecion.SelectedValue.ToEntero(),-1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(),TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa)) - { - ProcesoOK = true; - } - else - { - ProcesoOK = false; - } + ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa); + } - - - + if (ProcesoOK) { @@ -780,6 +846,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } else { + CveEntregaAlmacen = -1; ObjGenerales.RollBack(); } @@ -880,17 +947,13 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas DdlProducto2.txtValue.Value = ""; UpModalRecoleccion.Update(); } - - - - + protected void Tab_ActiveTabChanged(object sender, EventArgs e) { if(Tab.ActiveTabIndex == 0) { - SelecionEntrega = false; - SeleccioanrGenrar(); - + SeleccionEntrega = false; + SeleccionarGenerar(1); } else { diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index c8f5f2624..cd55abaa6 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -2381,6 +2381,85 @@ Partial Class Inventarios_RecepcionAlmacen Return Retorno End Function + + Private Function GeneraPrePolizaMovimientoAlmacen(CveMovimientoEntrada As Integer, CveMovimientoSalida As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean) As Boolean + Dim Retorno As Boolean = True + Try + Dim DtCostos As DataTable = Nothing + Dim ValorInventario As Decimal = 0 + Dim ValorInventarioME As Decimal = 0 + Dim CveConcepto As Integer = 3 + + ObjInventario.GetMovimientos(CveMovimientoEntrada, -1, -1, UsuarioActual.CveEmpresa) + Dim CveVenta As Integer = ObjInventario.CveVenta + Dim CveAlmacen As Integer = ObjInventario.CveAlmacen + Dim SerieFolio As String = ObjInventario.DtResultados.Rows(0)("SerieFolioVenta").ToString + Dim MovAlmacen As Boolean = True + + Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & CveConcepto).ToEntero + If OrigenMov = 1 Then MovAlmacen = False Else MovAlmacen = True + + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then + DtCostos = ObjInventario.DtResultados + Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) + Dim IdCtaContable As Integer = 0 + Dim ConceptoPoliza As String = String.Format("{0}-{1}", "Salida de Almacen", SerieFolio) + + If tmpCostos.Rows.Count > 0 Then + Dim Concepto As String = ConceptoPoliza + Dim CvePrePoliza = ObjConta.AddPrePolizas("RA-01", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then + Retorno = False + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ValorInventario, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorInventario, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then + Retorno = False + End If + + + If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + Retorno = False + End If + End If + + 'CONTABILIZAR - SIMPLIFICAR + If Retorno Then + If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then + If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then + Retorno = False + End If + End If + + If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + If ObjContaContPAQ Is Nothing Then + ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) + ObjContaContPAQ.IniciaTransacSQL() + End If + + If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then + Retorno = False + End If + End If + + End If + Else + Retorno = False + End If + Else + Retorno = False + End If + Catch ex As Exception + OnError("Ocurrió un error al guadar la prepoliza", ex) + Retorno = False + End Try + + Return Retorno + End Function + Private Sub GuardaCompraOC() Dim CveMovimiento As Integer @@ -2404,6 +2483,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL()) Dim ObjContaAC As ClsContPAQi = Nothing Dim ObjContaContPAQ As ClsContPAQi = Nothing + Dim MensajeOC As New StringBuilder 'ENTREGA DIRECTA @@ -2603,6 +2683,8 @@ Partial Class Inventarios_RecepcionAlmacen Dim SumaTotal As Decimal = 0.0D Dim Cont As Integer = 0 + Dim ListaOC As New List(Of DetalleOC) + For Each gvr As GridViewRow In GvInv.Rows If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then @@ -2664,17 +2746,46 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - 'If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then - ' For Each Dr As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {gvr.RowIndex}").Rows - ' If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("CantidadSeccionAlmacen").ToString.ToDecimal) Then - ' ErrorMovInv = True - ' Exit For - ' End If - ' Next - 'End If + Cont += 1 End If + If DdlTipo.SelectedValue = "2" Then + ListaOC.Add(New DetalleOC With {.CveOCDetalle = gvr.DataKey("CveOrdenCompraDetalle").ToEntero, + .Cantidad = gvr.FCTextBox("TbCantidadF").Text.ToDecimal, + .CantidadOC = gvr.DataKey("CantidadF").ToDecimal, + .PS = gvr.DataKey("PS")}) + End If + + Next + + '' SI ES ENTRADA POR OC. VERIFICA QUE SE RECIBA LA TOTALIDAD POR PARTIDA. SINO SE DIVIDE + + 'si es entrada por oc, se verifican las cantidades, si la cantidad recibida es menor, se ajusta la cantidad en la OC. y se genera una nueva partida con la diferencia + If DdlTipo.SelectedValue = "2" Then + 'se actualiza ListaOC + Dim resultsOC = ListaOC.GroupBy( + Function(row) row.CveOCDetalle) _ + .Select(Function(group) New With + { + .CveOCDetalle = group.Key, + .CantidadOC = group.Sum(Function(row) row.CantidadOC), + .Cantidad = group.Sum(Function(row) row.Cantidad), + .PS = group.Max(Function(row) row.PS), + .Data = group + }) + + + For Each oc In resultsOC + If oc.Cantidad < oc.CantidadOC Then + MensajeOC.AppendFormat("- {0}
    ", oc.PS) + If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then + ErrorMovInv = True + End If + End If + Next + + End If Else ErrorMovInv = True End If @@ -2849,6 +2960,13 @@ Partial Class Inventarios_RecepcionAlmacen Next + If Not ErrorMovInv Then + 'registra la prepóliza en el traspaso + If Not GeneraPrePolizaMovimientoAlmacen(CveMovtoEntradaActual, CveMovtoSalidaActual, ObjInventario, ObjConta, ObjContaContPAQ, False) Then + ErrorMovInv = True + End If + End If + End If End If @@ -2877,7 +2995,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24) - CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4") + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 37, 36), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4") FolioVirtual = ObjInventario.Folio For Each RowUsado As DataRow In DtPSVirtual.Rows @@ -3589,6 +3707,9 @@ Partial Class Inventarios_RecepcionAlmacen If CveMovimiento > 0 AndAlso CveMovimientoSalidaTraspaso <= 0 Then Msg.AppendFormat("Movimiento Registrado: Folio: {0}", link) Msg.AppendFormat("
    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) + If MensajeOC.Length > 0 Then + Msg.AppendFormat("
    La Orden de Compra se dividió en los siguientes productos:
    {0}", MensajeOC) + End If If UsuarioActual.CveEmpresa.Contiene(1, 119) Then Msg.AppendFormat("
    Imprimir Etiqueta Individual ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Individual"))) 'Msg.AppendFormat("
    Imprimir Etiqueta Por Caja ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja"))) @@ -4192,6 +4313,14 @@ Partial Class Inventarios_RecepcionAlmacen End Sub + Class DetalleOC + Property CveOCDetalle As Integer + Property CantidadOC As Decimal + Property Cantidad As Decimal + Property PS As String + + End Class + #End Region #Region " TIPO DE CAMBIO " diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 08708cf35..5b5ecc4c9 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -76,8 +76,7 @@
    - - +
    @@ -114,22 +113,28 @@
    +
    + +
    + +
    - +
    - - +
    - +
    + +
    @@ -138,10 +143,7 @@
    - -
    - -
    +
    @@ -181,82 +165,29 @@
    - -
    - - - -
    - -
    -
    - - - - - - - - -
    -
    - -
    - -
    - - - - - - - - -
    -
    -
    -
    - -
    - -
    -
    - - - -
    -
    - -
    - - - -
    - -
    - - - -
    -
    + +
    +
    + -
    - -
    - Chofer: -
    -
    - + +
    + + + +
    -
    - Unidad: -
    -
    + +
    + +
    - -
    - F. Entrega: -
    -
    + +
    @@ -145,10 +142,14 @@ + +
    -
    +
    + +
    @@ -169,7 +170,7 @@ - + + +   + + + @@ -284,7 +290,7 @@ - + Recoleccion @@ -293,7 +299,7 @@
    + + diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 763e9c45a..ee4fa7878 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -283,7 +283,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (CveEntregaAlmacen > 0) { - int CveTimbre = ObjGeneral.AddGralTimbre("Rec", row.DataKey("CveSubProyectoDestino").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:CveEntregaAlmacen , AplicaCP: ChkEmitirCartaPorte.Checked); + int CveTimbre = ObjGeneral.AddGralTimbre("Rec", row.DataKey("CveSubProyecto").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:CveEntregaAlmacen , AplicaCP: ChkEmitirCartaPorte.Checked); if (CveTimbre <= 0) { @@ -547,21 +547,21 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas private void OcultarmostarDatosEntrega(bool mostrar ) { - DVDatosEntrega1.Visible = mostrar; + //DVDatosEntrega1.Visible = mostrar; DVDatosEntrega2.Visible = mostrar; - DVDatosEntrega3.Visible = mostrar; + //DVDatosEntrega3.Visible = mostrar; DVDatosEntrega4.Visible = mostrar; - DVDatosEntrega5.Visible = mostrar; + //DVDatosEntrega5.Visible = mostrar; DVDatosEntrega6.Visible = mostrar; - if (mostrar) - { - DVDatosEntrega7.Attributes.Add("class", "col-md-1"); - } - else - { - DVDatosEntrega7.Attributes.Add("class", "col-md-9"); - } + //if (mostrar) + //{ + // DVDatosEntrega7.Attributes.Add("class", "col-md-1"); + //} + //else + //{ + // DVDatosEntrega7.Attributes.Add("class", "col-md-9"); + //} if (UsuarioActual.Empresa.Funcionalidad(161).ToEntero() == 1) { @@ -833,9 +833,9 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas RegistraScript("$('#DivModalRecoleccion').modal('hide');"); } else - { - CveEntregaAlmacen = -1; + { ObjGenerales.RollBack(); + Alert("Ocurrió un error.",ModExtensiones.TipoMensaje.MsgError); } ObjGenerales.Dispose(); @@ -948,6 +948,62 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas OcultarmostarDatosEntrega(true); } } + + private void CargaModalCombosDirecciones(int CveCliente, int CveDireccionEnvio) + { + + DdlModalDireccionEnvio.Items.Clear(); + + DataTable dtt = new DataTable(); + ClsClientes ObjClientes = new ClsClientes(); + if (ObjClientes.DireccionEnvioGet(-1, CveCliente, -1)) + { + dtt = ObjClientes.DtResultados; + } + ObjClientes.Dispose(); + + DdlModalDireccionEnvio.DataSource = dtt; + DdlModalDireccionEnvio.DataBind(); + DdlModalDireccionEnvio.SelectedValueExist(CveDireccionEnvio); + + dtt.Dispose(); + } + + + protected void LnkEditarDir_Click(object sender, EventArgs e) + { + GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + + int CveCliente = GvRow.DataKey("CveCliente").ToEntero(); + int CveDireccion = GvRow.DataKey("CveDireccionEnvio").ToEntero(); + + HdnCveVenta.Value = GvRow.DataKey("CveVenta"); + CargaModalCombosDirecciones(CveCliente, CveDireccion); + + UpModalEditarentrega.Update(); + this.RegistraScript("$('#DivEditarEntrega').modal('show');"); + } + + protected void BtnModalEditarentrega_Click(object sender, EventArgs e) + { + + bool ProcesoOK = true; + + ClsVentas ObjVentas = new ClsVentas(); + if (!ObjVentas.UpdateDireccionEnvioVenta(HdnCveVenta.Value.ToEntero(), DdlModalDireccionEnvio.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) + { + ProcesoOK = false; + } + ObjVentas.Dispose(); + + if (ProcesoOK) + { + this.RegistraScript("$('#DivEditarEntrega').modal('hide');"); + Alert("Dirección Actualizada correctamente.",ModExtensiones.TipoMensaje.ToastInformacion); + CargaDatos(); + } + + } } \ No newline at end of file diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 17923b83c..7a24daa06 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -1630,7 +1630,7 @@ div.md-checkbox { .ajax__tab_xp .ajax__tab_body { border: 1px solid #ddd !important; border-top-color: transparent !important; - padding: 15px !important; + padding: 10px !important; padding-top: 5px !important; } @@ -1662,7 +1662,7 @@ div.md-checkbox { color: #5b9bd1 !important; line-height: 1.42857143 !important; font-family: "Open Sans", sans-serif !important; - font-size: 14px !important; + font-size: 12px !important; position: relative !important; display: block !important; padding: 10px 15px !important; diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 26a9b0b02..0e9b885e3 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -887,7 +887,7 @@
    - + From e0db97e3c7b7d1af0c48eb779018ab8b5cacf5da Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 13 Dec 2021 05:33:04 -0700 Subject: [PATCH 12/55] --- App_Code/ClsEdocumentacion.vb | 93 ++++ App_Code/ClsNominas.vb | 39 +- App_Code/ClsPaginas.vb | 3 + App_Code/ClsRH.vb | 7 +- Ashx/SIGWeb.ashx | 27 +- Documentacion/TableroMaterialidad.aspx | 266 ++++++++++ Documentacion/TableroMaterialidad.aspx.cs | 97 ++++ Documentacion/TableroMaterialidadDetalle.aspx | 114 ++++ .../TableroMaterialidadDetalle.aspx.cs | 70 +++ Nomina/Aguinaldo.aspx | 4 +- Nomina/Aguinaldo.aspx.cs | 136 +++-- Nomina/ChecadorAsistencia.aspx | 22 +- Nomina/ChecadorAsistencia.aspx.cs | 6 +- Nomina/Nomina.aspx | 54 +- Nomina/Nomina.aspx.cs | 14 +- RH/CatPersonal.aspx.vb | 2 +- Ventas/Clientes.aspx | 489 ++++++++++-------- Ventas/Clientes.aspx.vb | 36 +- vwd.webinfo | 2 + 19 files changed, 1189 insertions(+), 292 deletions(-) create mode 100644 Documentacion/TableroMaterialidad.aspx create mode 100644 Documentacion/TableroMaterialidad.aspx.cs create mode 100644 Documentacion/TableroMaterialidadDetalle.aspx create mode 100644 Documentacion/TableroMaterialidadDetalle.aspx.cs diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index dd22807c3..08b2a0361 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -71,6 +71,7 @@ Public Class ClsEdocumentacion End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable + DSet = New DataSet() End Sub #Region "Conexiones" @@ -515,6 +516,98 @@ Public Class ClsEdocumentacion #End Region + Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object) + SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor + End Sub + Public Function RunQuery(errormsg As String) As Boolean + Dim retorno As Boolean = False + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + retorno = False + OnError(errormsg, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function RunQueryds(errormsg As String) As Boolean + Dim retorno As Boolean = False + Try + SqlAdapter.Fill(DSet) + retorno = True + Catch ex As Exception + retorno = False + OnError(errormsg, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + +#Region "CRUD_Edoc_Materialidad" + + Public Function TableroMaterialidadGET(cveEmpresa As Integer, anio As Integer, mes As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Edoc_TableroMaterialidad", CommandType.StoredProcedure) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@Anio", SqlDbType.Int, anio) + addParameters("@Mes", SqlDbType.Int, mes) + retorno = RunQueryds("Ocurrió un error al obtener el PA_Edoc_TableroMaterialidad.") + Return retorno + End Function + Public Function TableroMaterialidadDetalleGET(cveEmpresa As Integer, anio As Integer, mes As Integer, cveCliente As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Edoc_TableroMaterialidadDetalle", CommandType.StoredProcedure) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@Anio", SqlDbType.Int, anio) + addParameters("@Mes", SqlDbType.Int, mes) + addParameters("@CveCliente", SqlDbType.Int, cveCliente) + retorno = RunQueryds("Ocurrió un error al obtener el PA_Edoc_TableroMaterialidad.") + Return retorno + End Function + Public Function Edoc_MaterialidadGet(cveDocMaterialidad As Int32, cveDocumentacion As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Edoc_MaterialidadGet", CommandType.StoredProcedure) + addParameters("@CveDocMaterialidad", SqlDbType.Int, cveDocMaterialidad) + addParameters("@CveDocumentacion", SqlDbType.Int, cveDocumentacion) + retorno = RunQuery("Ocurrió un error al obtener el Edoc_Materialidad.") + Return retorno + End Function + Public Function Edoc_MaterialidadAdd(cveDocumentacion As Int32, adjunto As String, cveCliente As Integer, anio As Int32, mes As Int32, cveUsuario As Int32, fechaingreso As DateTime) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Edoc_MaterialidadAdd", CommandType.StoredProcedure) + addParameters("@CveDocumentacion", SqlDbType.Int, cveDocumentacion) + addParameters("@Adjunto", SqlDbType.VarChar, adjunto) + addParameters("@CveCliente", SqlDbType.Int, cveCliente) + addParameters("@Anio", SqlDbType.Int, anio) + addParameters("@Mes", SqlDbType.Int, mes) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + retorno = RunQuery("Ocurrió un error al agregar el Edoc_Materialidad.") + Return retorno + End Function + Public Function Edoc_MaterialidadUp(cveDocMaterialidad As Int32, cveDocumentacion As Int32, adjunto As String, cveCliente As Integer, anio As Int32, mes As Int32, cveUsuario As Int32, fechaingreso As DateTime) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Edoc_MaterialidadUp", CommandType.StoredProcedure) + addParameters("@CveDocMaterialidad", SqlDbType.Int, cveDocMaterialidad) + addParameters("@Adjunto", SqlDbType.VarChar, adjunto) + addParameters("@CveCliente", SqlDbType.Int, cveCliente) + addParameters("@Anio", SqlDbType.Int, anio) + addParameters("@Mes", SqlDbType.Int, mes) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + retorno = RunQuery("Ocurrió un error al actualizar el Edoc_Materialidad.") + Return retorno + End Function + Public Function Edoc_MaterialidadRemove(cveDocMaterialidad As Int32, CveEmpresa As Integer) As Boolean + + Dim retorno As Boolean = False + DataAdapter("PA_Edoc_MaterialidadRemove", CommandType.StoredProcedure) + addParameters("@CveDocMaterialidad", SqlDbType.Int, cveDocMaterialidad) + addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) + retorno = RunQuery("Ocurrió un error al eliminar el Edoc_Materialidad.") + Return retorno + End Function +#End Region + + #Region " P A R A M E T R O S " Public Function AddDocumentacionParametros(CveDocumentacion As Integer, Parametro As String, Descripcion As String, CveEmpresa As Integer, CveUsaurio As Integer) As Boolean diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 54d9be053..c77386aac 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -8,9 +8,9 @@ Public Class ClsNominas #Region "Campos" 'SQL ClsNominas_Nominas Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter + Public SqlAdapter As SqlDataAdapter Private SqlCommand As SqlCommand - Private SqlTransacc As SqlTransaction + Public SqlTransacc As SqlTransaction Private Data As DataTable Private disposedValue As Boolean = False ' Para detectar llamadas redundantes Protected DTSet As DataSet @@ -86,9 +86,12 @@ Public Class ClsNominas Public Property FechaPago As Date #End Region - Public Sub IniciaTransacSQL() - SqlTransacc = SqlConexion.BeginTransaction() - End Sub + + + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function Public Sub Commit() SqlTransacc.Commit() End Sub @@ -2258,10 +2261,32 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function GetNominasSinTimbrar(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + Try + DTSet = New DataSet() + DataAdapter("PA_Nom_NominaSinTimbrar", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + SqlAdapter.Fill(DTSet) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener la nomina sin timbrar.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener la nomina sin timbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7ff070146..0c17c3763 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5148,6 +5148,9 @@ Public Class ClsPaginas PaginaDict.Add("/RH/RepVacaciones.aspx".ToUpper(), 422) PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427) PaginaDict.Add("/RH/CatChecadorHorarios.aspx".ToUpper(), 428) + PaginaDict.Add("/Documentacion/TableroMaterialidad.aspx".ToUpper(), -1) + PaginaDict.Add("/Documentacion/TableroMaterialidadDetalle.aspx".ToUpper(), -1) + PaginaDict.Add("/RH/RepChecadorPreAsistencia.aspx".ToUpper(), 628) PaginaDict.Add("/RH/CatCaptaciones.aspx".ToUpper(), 629) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index cce1984f6..bf54663e5 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1966,10 +1966,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo _CvePersonal = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero Retorno = True Catch Ex1 As SqlException + 'dbo.Vw_Val_Nom_Curps If Ex1.Message.Contains("Número: 2627;") Then - Alert("El Nuevo Personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + Alert("El nuevo personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then - Alert("El Nuevo Personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia) + Alert("El nuevo personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then + Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al guardar el nuevo Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 4c8ad31ac..38951930a 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -116,7 +116,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Case "sendMailLPM" context.Response.Write(sendMailLPM(context)) Case "getSATColomias" - getSatColonias(context) + getSATColonias(context) + Case "GetFilesDirectory" + GetFilesDirectory(context) End Select Catch ex As Exception ex.GuardaLog(ex.Message) @@ -1358,7 +1360,30 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End Function #End Region + Private Function GetFilesDirectory(ByVal context As HttpContext) As String + Dim retorno As String = "" + Dim urlhost As String = context.Request.Url.Host.ToUpper() + If (urlhost = "LOCALHOST") Then + Dim directorio As String = IfNull(context.Request("directorio"), "").ToString() + Dim xmlarchivos As System.Xml.Linq.XDocument = New System.Xml.Linq.XDocument() + Dim xfolder As XElement = New XElement("folder") + For Each urfile In System.IO.Directory.GetFiles(directorio) + Dim xfile As New XElement("archivo", urfile) + xfile.SetAttributeValue("EXT", Path.GetExtension(urfile)) + xfolder.Add(xfile) + + Next + xmlarchivos.Add(xfolder) + retorno = xmlarchivos.ToString() + context.Response.ContentType = "text/xml" + context.Response.Write(retorno) + context.Response.StatusCode = 200 + Else + context.Response.StatusCode = 500 + End If + Return retorno + End Function #Region "Get SAT Colonmias" Private Function getSATColonias(ByVal context As HttpContext) As String diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx new file mode 100644 index 000000000..967e0483e --- /dev/null +++ b/Documentacion/TableroMaterialidad.aspx @@ -0,0 +1,266 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="TableroMaterialidad.aspx.cs" Inherits="Documentacion_TableroMaterialidad" %> + + + + + + + + Materialidad + + + + + + +
  • + Cargar Doctos + <%--Cargar Doctos--%> +
    • +
  • + Cargar XML PDF + <%--Cargar XML PDF--%> +
    • +     +     +     + + + + + + + +
    +
    +
    + + + +
    +
    +
    +
    Año:
    +
    + +
    + +
    Mes:
    +
    + + + + + + + + + + + + + + +
    + +
    +
    + +
    + +
    +
    + +
    + + + + + + + + + + + + + <%-- + + + + + + + + + --%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    Cliente<%# DataBinder.Eval(Container.DataItem, "Documentacion") %>
    <%# String.Format("{0:dd/MM/yyyy} - {1:dd/MM/yyyy}", DataBinder.Eval(Container.DataItem, "InicioPeriodo"), DataBinder.Eval(Container.DataItem, "FinPeriodo")) %> <%# DataBinder.Eval(Container.DataItem, "Antiguedad") %> <%# DataBinder.Eval(Container.DataItem, "DiasVacaciones") %> <%# DataBinder.Eval(Container.DataItem, "Dias") %> <%# DataBinder.Eval(Container.DataItem, "DiasDisfrutados") %> <%# DataBinder.Eval(Container.DataItem, "DiasPrima") %>
    XML TimbradosPDF Timbrados
    <%# DataBinder.Eval(Container.DataItem, "NombreComercial") %><%# + DataBinder.Eval( ((RepeaterItem)Container.Parent.Parent).DataItem ,string.Format("V_{0}",DataBinder.Eval(Container.DataItem, "CveDocumentacion"))).ToString() =="-1" ? "N/A": + string.Format("{0}", + (DataBinder.Eval( ((RepeaterItem)Container.Parent.Parent).DataItem ,string.Format("V_{0}",DataBinder.Eval(Container.DataItem, "CveDocumentacion"))).ToString() =="0"? + + + "No": + + + "Si") + + ,DataBinder.Eval(Container.DataItem, "CveDocumentacion"),DataBinder.Eval(((RepeaterItem)Container.Parent.Parent).DataItem, "CveCliente") + ,DataBinder.Eval(Container.DataItem, "Documentacion"),DataBinder.Eval(((RepeaterItem)Container.Parent.Parent).DataItem, "NombreComercial") + ) + + + %> + <%# string.Format("{1}/{0}",DataBinder.Eval(Container.DataItem, "Personal"),DataBinder.Eval(Container.DataItem, "PersonalXML"),DataBinder.Eval(Container.DataItem, "CveCliente"),anio,mes) %> + + <%# string.Format("{1}/{0}",DataBinder.Eval(Container.DataItem, "Personal"),DataBinder.Eval(Container.DataItem, "PersonalPDF"),DataBinder.Eval(Container.DataItem, "CveCliente"),anio,mes) %> + + <%# string.Format("Enviar",DataBinder.Eval(Container.DataItem, "CveCliente"),anio,mes) %> +
    + + + + + + +     +     +     + + + + diff --git a/Documentacion/TableroMaterialidad.aspx.cs b/Documentacion/TableroMaterialidad.aspx.cs new file mode 100644 index 000000000..85549a974 --- /dev/null +++ b/Documentacion/TableroMaterialidad.aspx.cs @@ -0,0 +1,97 @@ +using System; +using System.Collections.Generic; +using System.Data; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class Documentacion_TableroMaterialidad :ClsPaginas +{ + #region "Propiedades" + + public int anio + { + get { return ViewState["anio"] != null ? ViewState["anio"].ToString().ToEntero() : 0; } + set { ViewState["anio"] = value; } + } + public int mes + { + get { return ViewState["mes"] != null ? ViewState["mes"].ToString().ToEntero() : 0; } + set { ViewState["mes"] = value; } + } + #endregion + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + cargadatos(); + } + } + DataTable dt; + public void cargadatos() + { + using (ClsEdocumentacion edoc = new ClsEdocumentacion()) + { + if(edoc.TableroMaterialidadGET(UsuarioActual.CveEmpresa,(anio= Txtanio.Text.ToEntero()), (mes= ddlMes.SelectedValue.ToEntero())) && edoc.DSResultados.Tables.Count >1) + { + RptDatos.DataSource = edoc.DSResultados.Tables[0]; + dt = edoc.DSResultados.Tables[1]; + RPTTableroHeader.DataSource = edoc.DSResultados.Tables[1]; + RPTTableroHeader.DataBind(); + RptDatos.DataBind(); + DdlDocumentacion.DataSource = dt; + DdlDocumentacion.DataBind(); + + } + + } + } + + protected void RptDatos_ItemDataBound(object sender, RepeaterItemEventArgs e) + { + DataRowView item = (DataRowView)(e.Item.DataItem); + Repeater rpt =((Repeater)e.Item.FindControl("rptdocumentacion")); + rpt.DataSource = dt; + rpt.DataBind(); + } + + + + protected void BtnAddClienteDocumento_Click(object sender, EventArgs e) + { + + } + + protected void BtnEnviarDoctos_Click(object sender, EventArgs e) + { + Alert("El correo se ha enviado."); + } + + protected void BtnConsultar_Click(object sender, EventArgs e) + { + cargadatos(); + } + + protected void BtnAddClienteDocumentoxmlpd_Click(object sender, EventArgs e) + { + + } + + protected void LckOpModalDoctos_Click(object sender, EventArgs e) + { + DateTime fecha = string.Format("{0}-{1}-01", anio, mes).ToDateTime(); + LtlPeriodo.Text = fecha.ToString("MMMM yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("es-MX"));//string.Format(""); + UpModalDoctos.Update(); + RegistraScript("$('#ModalDoctos').modal();"); + } + + protected void LckOpModalDoctosPDFXML_Click(object sender, EventArgs e) + { + DateTime fecha = string.Format("{0}-{1}-01", anio, mes).ToDateTime(); + LtlPeriodoXMLPDF.Text = fecha.ToString("MMMM yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")); + RegistraScript("$('#ModalDoctos').modal();"); + Upxmlpdf.Update(); + } +} \ No newline at end of file diff --git a/Documentacion/TableroMaterialidadDetalle.aspx b/Documentacion/TableroMaterialidadDetalle.aspx new file mode 100644 index 000000000..1f5d39474 --- /dev/null +++ b/Documentacion/TableroMaterialidadDetalle.aspx @@ -0,0 +1,114 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="TableroMaterialidadDetalle.aspx.cs" Inherits="Documentacion_TableroMaterialidadDetalle" %> + + + + + + + + + Materialidad personal + + + + + + + + + + + + +
    +
    +
    + + + +
    +
    +
    +
    Cliente:
    +
    + +
    +
    Año:
    +
    + +
    +
    MES:
    +
    + + + + + + + + + + + + + + + +
    + +
    +
    + +
    + +
    +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     +     + + + diff --git a/Documentacion/TableroMaterialidadDetalle.aspx.cs b/Documentacion/TableroMaterialidadDetalle.aspx.cs new file mode 100644 index 000000000..450e86419 --- /dev/null +++ b/Documentacion/TableroMaterialidadDetalle.aspx.cs @@ -0,0 +1,70 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class Documentacion_TableroMaterialidadDetalle : ClsPaginas +{ + #region "Propiedades" + public int CveCliente + { + get { return ViewState["CveCliente"] != null ? ViewState["CveCliente"].ToString().ToEntero() : 0; } + set { ViewState["CveCliente"] = value; } + } + + public int anio + { + get { return ViewState["anio"] != null ? ViewState["anio"].ToString().ToEntero() : 0; } + set { ViewState["anio"] = value; } + } + public int mes + { + get { return ViewState["mes"] != null ? ViewState["mes"].ToString().ToEntero() : 0; } + set { ViewState["mes"] = value; } + } + #endregion + protected void Page_Load(object sender, EventArgs e) + { + + if (!IsPostBack) + { + if (Request["CveCliente"] != null && Request["CveCliente"].ToString().ToEntero() > 0) + { + CveCliente = Request["CveCliente"].ToString().ToEntero(); + DdlCliente.SelectedValue = CveCliente.ToString(); + } + if (Request["anio"] != null && Request["anio"].ToString().ToEntero() > 0) + { + anio = Request["anio"].ToString().ToEntero(); + Txtanio.Text = anio.ToString(); + } + if (Request["mes"] != null && Request["mes"].ToString().ToEntero() > 0) + { + mes = Request["mes"].ToString().ToEntero(); + ddlMes.SelectedValueExist(mes.ToString()); + } + cargadatos(); + } + } + public void cargadatos() + { + using (ClsEdocumentacion edoc = new ClsEdocumentacion()) + { + if (edoc.TableroMaterialidadDetalleGET(UsuarioActual.CveEmpresa, (anio = Txtanio.Text.ToEntero()), (mes = ddlMes.SelectedValue.ToEntero()), CveCliente) && edoc.DSResultados.Tables.Count > 0) + { + GVData.DataSource = edoc.DSResultados.Tables[0]; + GVData.DataBind(); + + } + + } + } + + protected void BtnConsultar_Click(object sender, EventArgs e) + { + cargadatos(); + } +} \ No newline at end of file diff --git a/Nomina/Aguinaldo.aspx b/Nomina/Aguinaldo.aspx index 1c1547ed8..253f827c4 100644 --- a/Nomina/Aguinaldo.aspx +++ b/Nomina/Aguinaldo.aspx @@ -147,7 +147,7 @@ Fecha
    ingreso - + @@ -183,7 +183,7 @@ Días
    aguinaldo - + diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index 9aefd8cc2..fb00e4e89 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -174,7 +174,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas { CveConceptoISR = rowcz["CveConcepto"].ToString().ToEntero(); } - DataRow rowcy = objNomina.DtResultados.FiltroPrimero("CveConceptoContable=174"); + DataRow rowcy = objNomina.DtResultados.FiltroPrimero("CveConceptoContable=174 AND Tipo ='D'"); if ((rowcz != null)) { CveConceptoDescuento = rowcy["CveConcepto"].ToString().ToEntero(); @@ -201,15 +201,15 @@ public partial class Nomina_Aguinaldo : ClsPaginas Importe = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal(); ImporteGravado = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); ImporteExento = Importe - ImporteGravado; - ImporteValor = gvrow.FCLabel("diasPropAgui").Text.ToEntero(); + ImporteValor = gvrow.FCLabel("lbldiasAguinaldoprop").Text.ToEntero(); ImporteDescuento = gvrow.FCTextBox("TxtDescuento").Text.ToDecimal(); ImporteISR = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal(); - - // foreach (DataRow row in DTAguinaldos.Rows) - //{ + + // foreach (DataRow row in DTAguinaldos.Rows) + //{ //DiasLaborados = row["DiasLaborados"].ToString().ToEntero(); CvePeriodo = CvePeriodoSeleccionado; /* @@ -237,7 +237,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas else { if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, Importe.ToString().ToDouble(), 0, 0, Importe.ToString().ToDouble(), CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina", - "", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + "", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, false)) { CveNomina = objNomina.CveNomina; } @@ -254,15 +254,15 @@ public partial class Nomina_Aguinaldo : ClsPaginas if (CveNomina > 0) { - if (continuar &&!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1)) + if (continuar && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1)) { continuar = false; } - if (continuar && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConceptoISR, ImporteISR, 0, 0, ImporteGravado, UsuarioActual.CveUsuario, false, 1, 1, 1)) + if (continuar && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConceptoISR, ImporteISR, 0, ImporteISR, ImporteGravado, UsuarioActual.CveUsuario, false, 1, 1, 1)) { continuar = false; } - if (continuar && ImporteDescuento >0 && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConceptoDescuento, ImporteDescuento, 0, 0, 0, UsuarioActual.CveUsuario, false, 1, 1, 1)) + if (continuar && ImporteDescuento > 0 && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConceptoDescuento, ImporteDescuento, 0, ImporteDescuento, 0, UsuarioActual.CveUsuario, false, 1, 1, 1)) { continuar = false; } @@ -283,14 +283,20 @@ public partial class Nomina_Aguinaldo : ClsPaginas //{ // continuar = objNomina.CambiaEstatusPeriodo(CvePeriodoSeleccionado, (int)enumNominasEstatus.Activa, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); //} + if (continuar) { objNomina.Commit(); + //objNomina.Commit(); } else { + mensaje = string.Format(" {0} ", mensaje); objNomina.RollBack(); } + + + objNomina.Dispose(); } } @@ -302,7 +308,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas if (continuar) { RegistraScript("$('#ModalAutorizar').modal('hide');"); - Alert("Se ha generado el aguinaldo"); + Alert("Se ha generado el aguinaldo."); BtnCalcular_Click(null, null); } } @@ -503,7 +509,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas } if (gvrowTotal != null) { - gvrowTotal.FCLabel("lblISRAguinaldo").Text = string.Format("${0:N2}", ISRTOTAL ); + gvrowTotal.FCLabel("lblISRAguinaldo").Text = string.Format("${0:N2}", ISRTOTAL); gvrowTotal.FCLabel("lblAguinaldoGravado").Text = string.Format("${0:N2}", aguinaldogravadoTotal); gvrowTotal.FCLabel("lblDescuento").Text = string.Format("${0:N2}", descuentoTotal); gvrowTotal.FCLabel("lblsueldoAguinaldoCompleto").Text = string.Format("${0:N2}", aguinaldoTotal); @@ -527,35 +533,69 @@ public partial class Nomina_Aguinaldo : ClsPaginas int filatitulo = fila; libro.SheetView.Freeze(filatitulo, 1); libro.Cell(fila, 1).Value = "Empleado"; - libro.Cell(fila, 2).Value = "Salario diario"; - libro.Cell(fila, 3).Value = "Días laborados"; - libro.Cell(fila, 4).Value = "Días aguinaldo"; - libro.Cell(fila, 5).Value = "Aguinaldo completo"; - libro.Cell(fila, 6).Value = "Aguinaldo gravado"; - libro.Cell(fila, 7).Value = "Aguinaldo exento"; - libro.Cell(fila, 8).Value = "I.S.R."; - libro.Cell(fila, 9).Value = "Aguinaldo por pagar"; + libro.Cell(fila, 2).Value = "Fecha ingreso";//lblfechaingreso + libro.Cell(fila, 3).Value = "Salario diario"; + libro.Cell(fila, 4).Value = "Días laborados"; + libro.Cell(fila, 5).Value = "Días base"; + libro.Cell(fila, 6).Value = "Días aguinaldo";//lbldiasAguinaldoprop + libro.Cell(fila, 7).Value = "Aguinaldo completo"; + libro.Cell(fila, 8).Value = "Aguinaldo gravado"; + libro.Cell(fila, 9).Value = "Aguinaldo exento"; + libro.Cell(fila, 10).Value = "Fraccion I"; //lblFraccion1 + libro.Cell(fila, 11).Value = "Fraccion II"; //lblFraccion2 + libro.Cell(fila, 12).Value = "Fraccion III"; //lblFraccion3 + libro.Cell(fila, 13).Value = "Fraccion IV"; //lblFraccion4 + libro.Cell(fila, 14).Value = "I.S.R."; + libro.Cell(fila, 15).Value = "Descuento"; //TxtDescuento + libro.Cell(fila, 16).Value = "Aguinaldo por pagar"; - libro.Range(fila, 1, fila, 8).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(fila, 1, fila, 8).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(fila, 1, fila, 16).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows) { fila = fila + 1; + + + if (!(gvrow.DataKey("CvePersonal").ToEntero() > 0)) + { + if (gvrow.DataKey("CveSubProyecto").ToEntero() > 0) + { + libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 217, 217)); + } + else + { + libro.Range(fila, 1, fila, 16).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 128, 128)); + } + + } + + libro.Cell(fila, 1).Value = gvrow.FCLabel("lblnombreCompleto").Text; - libro.Cell(fila, 2).Value = gvrow.FCLabel("TxtsueldoDiario").Text.ToDecimal(); - libro.Cell(fila, 3).Value = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal(); - libro.Cell(fila, 4).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal(); - libro.Cell(fila, 5).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal(); - libro.Cell(fila, 6).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); - libro.Cell(fila, 7).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); - libro.Cell(fila, 8).Value = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal(); - libro.Cell(fila, 9).Value = gvrow.FCLabel("lblAguinaldo").Text.ToDecimal(); + libro.Cell(fila, 2).Value = gvrow.FCLabel("lblfechaingreso").Text; + libro.Cell(fila, 3).Value = gvrow.FCLabel("TxtsueldoDiario").Text.ToDecimal(); + libro.Cell(fila, 4).Value = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal(); + libro.Cell(fila, 5).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal(); + libro.Cell(fila, 6).Value = gvrow.FCLabel("lbldiasAguinaldoprop").Text.ToDecimal(); + libro.Cell(fila, 7).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal(); + libro.Cell(fila, 8).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); + libro.Cell(fila, 9).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); + + libro.Cell(fila, 10).Value = gvrow.FCLabel("lblFraccion1").Text.ToDecimal(); + libro.Cell(fila, 11).Value = gvrow.FCLabel("lblFraccion2").Text.ToDecimal(); + libro.Cell(fila, 12).Value = gvrow.FCLabel("lblFraccion3").Text.ToDecimal(); + libro.Cell(fila, 13).Value = gvrow.FCLabel("lblFraccion4").Text.ToDecimal(); + + + libro.Cell(fila, 14).Value = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal(); + libro.Cell(fila, 15).Value = gvrow.FCTextBox("TxtDescuento").Text.ToDecimal(); + libro.Cell(fila, 16).Value = gvrow.FCLabel("lblAguinaldo").Text.ToDecimal(); } - libro.Range(filatitulo, 1, fila, 9).Columns(); - libro.Range(filatitulo + 1, 2, fila + 1, 8).DataType = ClosedXML.Excel.XLDataType.Number; - libro.Range(filatitulo + 1, 2, fila + 1, 2).Style.NumberFormat.Format = "$###,###,###,##0.00"; - libro.Range(filatitulo + 1, 5, fila + 1, 9).Style.NumberFormat.Format = "$###,###,###,##0.00"; + libro.Range(filatitulo, 1, fila, 16).Columns(); + libro.Range(filatitulo + 1, 3, fila + 1, 16).DataType = ClosedXML.Excel.XLDataType.Number; + libro.Range(filatitulo + 1, 3, fila + 1, 3).Style.NumberFormat.Format = "$###,###,###,##0.00"; + libro.Range(filatitulo + 1, 7, fila + 1, 16).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.ColumnsUsed().AdjustToContents(); System.IO.Stream fs = new System.IO.MemoryStream(); @@ -605,8 +645,10 @@ class ClsClaseBaseD : IDisposable // REGISTRAR CONEXIÓN private int CveConexion = 0; - public ClsClaseBaseD(ClsClaseBaseD adsObj = null) + public ClsClaseBaseD(ClsClaseBaseD adsObj = null, SqlTransaction sqlTransacc = null, SqlDataAdapter sqlAdapter =null) { + + if (adsObj != null && adsObj.SqlAdapter != null && adsObj.SqlAdapter.SelectCommand != null && adsObj.SqlAdapter.SelectCommand.Transaction != null) { SqlConexion = adsObj.SqlConexion; @@ -615,19 +657,29 @@ class ClsClaseBaseD : IDisposable } else { - SqlConexion = new SqlConnection(); - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString; - try + if (sqlTransacc != null) { - SqlConexion.Open(); - SqlAdapter = new SqlDataAdapter("", SqlConexion); - ConexionAdd(); + SqlConexion = sqlTransacc.Connection; + SqlAdapter = sqlAdapter; + EsTransaccion = true; } - catch (Exception ex) + else { - this.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex); + SqlConexion = new SqlConnection(); + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString; + try + { + SqlConexion.Open(); + SqlAdapter = new SqlDataAdapter("", SqlConexion); + ConexionAdd(); + } + catch (Exception ex) + { + this.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex); + } } } + } public void SqlDataAdapter(string StrSQL, CommandType TipoComando = CommandType.StoredProcedure) diff --git a/Nomina/ChecadorAsistencia.aspx b/Nomina/ChecadorAsistencia.aspx index 166febbb3..2ec3b595b 100644 --- a/Nomina/ChecadorAsistencia.aspx +++ b/Nomina/ChecadorAsistencia.aspx @@ -405,7 +405,7 @@
    - +
    @@ -421,6 +421,26 @@
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + +
    +
    +
    +
    +
    diff --git a/Nomina/ChecadorAsistencia.aspx.cs b/Nomina/ChecadorAsistencia.aspx.cs index afcd74f96..4c87b32f5 100644 --- a/Nomina/ChecadorAsistencia.aspx.cs +++ b/Nomina/ChecadorAsistencia.aspx.cs @@ -28,8 +28,8 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas DdlTurno.DataBind(); CargaTiposPeriodo(); - TxtRpdFechaInicio.Text = "01/09/2021"; - TxtRpdFechaFin.Text = "15/09/2021"; + TxtRpdFechaInicio.Text = string.Format("{0:dd/MM/yyyy}",DateTime.Now ); + TxtRpdFechaFin.Text = string.Format("{0:dd/MM/yyyy}", DateTime.Now); DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); DdlTipoAsistencias.DataBind(); @@ -359,9 +359,11 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas protected void LnkAgregarRegistro_Click(object sender, EventArgs e) { DateTime fechaing = string.Format("{0:dd-MM-yyyy} {0:HH}:{0:mm}:{1:00}", TxtFechaIngreso.Text.ToDateTimeExcat(), TxtSegundos.Text.ToEntero()).ToDateTimeExcat("dd-MM-yyyy HH:mm:ss"); + DateTime fechasal = string.Format("{0:dd-MM-yyyy} {0:HH}:{0:mm}:{1:00}", TxtFechaSalida.Text.ToDateTimeExcat(), TxtSegundosFechaSalida.Text.ToEntero()).ToDateTimeExcat("dd-MM-yyyy HH:mm:ss"); bool continuar = false; List items = new List(); items.Add(new RequestAddChecadorRegistro() { CveChecador = DdlChecador.SelectedValue.ToEntero(), CvePersonal = DdlmcPersonal.SelectedValue.ToEntero(), ChecadorID = -1, Fecha = fechaing }); + items.Add(new RequestAddChecadorRegistro() { CveChecador = DdlChecador.SelectedValue.ToEntero(), CvePersonal = DdlmcPersonal.SelectedValue.ToEntero(), ChecadorID = -1, Fecha = fechasal }); using (ClsRH objrh = new ClsRH()) { objrh.IniciaTransacSQL(); diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 2d54f52ad..6b39f3345 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -1848,8 +1848,58 @@
    + + +
    - + @@ -793,7 +793,7 @@
    - @@ -1067,7 +1067,7 @@
    -
    +
    El cliente No desglosa IVA:
    @@ -2084,7 +2084,7 @@ - +
    @@ -3427,7 +3427,7 @@ -
    -
    +
    @@ -248,18 +248,17 @@
    -
    +
    -
    - +
    - + - - - + + +
    diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 9816595a8..b19bf109d 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -206,6 +206,7 @@ Partial Class Inventarios_TraspasoAlmacen If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then ChkEmitirTimbrado.Visible = False + divEmitir.Visible = False End If If UsuarioActual.CveEmpresa.Contiene(1, 119, 140, 2) Then @@ -419,7 +420,7 @@ Partial Class Inventarios_TraspasoAlmacen DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1")) TxtFechaEntrega.Text = Now.ToShortDateString - TxtFechaEnvio.Text = Now.ToShortDateString + TxtFechaLlegada.Text = Now.ToShortDateString 'Llena Responsables Transitorio 'DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) @@ -1168,7 +1169,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL) Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero - Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, "T", 1, 1) + Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDatetime, "T", 1, 1, 1) If CveEntregaAlmacen > 0 Then CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked) From dd76365eb6cfb7ef9590918ae1a61635cfeaff1e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 13 Dec 2021 08:54:55 -0700 Subject: [PATCH 15/55] -- cambios en mensajes de error --- App_Code/ClsNominas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 89dff6d21..ea5223b51 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -206,7 +206,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) retorno = True Catch ex As Exception - OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al NominasSinTimbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -223,7 +223,7 @@ Public Class ClsNominas SqlAdapter.Fill(DTSet) retorno = True Catch ex As Exception - OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Personal ISR Anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function From d75b5adb5c0d9acee3b32fd1955ed320fa8ef8c5 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 09:37:29 -0700 Subject: [PATCH 16/55] IE Pago de anticipos de OC en dolares con pesos --- Bancos/IE.aspx | 37 ++++++++++++++- Bancos/IE.aspx.vb | 116 +++++++++++++++++++++++++++++++++++++++++++++- 2 files changed, 150 insertions(+), 3 deletions(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 6a8e7f9bd..704255414 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -123,20 +123,48 @@
    + + +
    + + <%----%> +
    + +
    -
    +
    -
    +
    + +
    + T.C.: + + + + +
    + +
    + +
    +
    + Dolares + + <%----%> + +
    + +
    @@ -1781,5 +1809,10 @@ return false; } + function CambiaTCPagoOC() { + + $("#LnkActualizaTCOC").click(); + } + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index fa4a59b34..f24961ea0 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -297,6 +297,17 @@ Partial Class Bancos_IE End Set End Property + + Private Property CveMonedaOriginal As Integer + Get + Return ViewState("CveMonedaOriginal").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMonedaOriginal") = value + End Set + End Property + + Private Property CveOCSolicitudAnticipo As Integer Get @@ -504,6 +515,22 @@ Partial Class Bancos_IE End Set End Property + + Private Property ImporteOriginalDolaras As Decimal + Get + If ViewState("ImporteOriginalDolaras") Is Nothing Then + Return 0 + Else + Return ViewState("ImporteOriginalDolaras").ToString().ToDecimal() + End If + + End Get + Set(value As Decimal) + ViewState("ImporteOriginalDolaras") = value + End Set + End Property + + #Region "CANCELACIÓN COMPLEMENTO MODAL V2" Property CveComplementoPagoCancelar As Integer @@ -2471,6 +2498,9 @@ Partial Class Bancos_IE If CveOCSolicitudAnticipo > 0 Then + + + Dim ObjOC As New ClsOC If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal @@ -2479,10 +2509,18 @@ Partial Class Bancos_IE End If ObjOC.Dispose() - If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then + Dim ImporteComparacion As Decimal = TxtImporte.Text.ToDecimal + + ' + If ChkPagarPesos.Checked Then + ImporteComparacion = ImporteOriginalDolaras + End If + + If ImporteComparacion > SaldoOCAnticipo Then EsValido = False Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia) End If + End If Return EsValido @@ -5557,11 +5595,23 @@ Partial Class Bancos_IE Else TxtImporte.Text = DrOC("ImporteAnticipo").ToString.FormatoNumero TxtImporteLetra.Text = DrOC("ImporteAnticipo").ToString.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero) + + ImporteOriginalDolaras = DrOC("ImporteAnticipo").ToString.ToDecimal End If DdlMoneda.SelectedValue = DrOC("CveMoneda").ToString + CveMoneda = DrOC("CveMoneda").ToString.ToEntero CargaCuenta(DrOC("CveMoneda").ToString.ToEntero) + + CveMonedaOriginal = DrOC("CveMoneda").ToString.ToEntero + + + If CveMonedaOriginal > 1 Then + MostrarPagoEnPesos(True) + End If + + UpCuentaDeposito.Update() If DrOC("CveProveedor").ToString.ToEntero > 0 Then HdnCveProveedor.Value = DrOC("CveProveedor").ToString @@ -5644,6 +5694,69 @@ Partial Class Bancos_IE End If End Sub + + + Private Sub MostrarPagoEnPesos(Mostrar As Boolean) + + LbTipoMoneda.Visible = Mostrar + LbTipoMoneda.Text = If(Mostrar, "Pago en doalres", "") + DVPAgoEnPesos.Visible = Mostrar + ChkPagarPesos.Visible = Mostrar + + TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4) + + End Sub + + + Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs) + + If ChkPagarPesos.Checked Then + DivTC.Visible = True + DivTC2.Visible = True + ' DivDolaresDolares.Visible = False + 'CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) + CargaCuenta(1) + 'TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") + 'TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4) + TxtImporteDolares.Text = TxtImporte.Text + 'TxtImporteDolares.Text = TxtImporte.Text + 'TxtImporte.Text = (TxtImporte.Text.ToDecimal * (TxtTC.Text.ToDecimal)).ToString("###,###,###.00") + CveMoneda = 1 + Else + DivTC.Visible = False + DivTC2.Visible = False + CveMoneda = CveMonedaOriginal + 'DivDolaresDolares.Visible = True + 'CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) + CargaCuenta(CveMonedaOriginal) + 'TxtFechaDocumento.Attributes.Remove("onchange") + TxtImporte.Text = ImporteOriginalDolaras.ToString("###,###,###.00") + End If + + CambiaTCPagoOC() + + UpDatos.Update() + + ' RegistraScript("CambiaPesosDolares();") + End Sub + + + Public Sub CambiaTCPagoOC() + + If ChkPagarPesos.Checked Then + TxtImporte.Text = (TxtImporteDolares.Text.ToDecimal * (TxtTC.Text.ToDecimal)).ToString("###,###,###.00") + Else + TxtImporte.Text = TxtImporteDolares.Text + End If + + UpDatos.Update() + End Sub + + Protected Sub LnkActualizaTCOC_Click(sender As Object, e As EventArgs) + CambiaTCPagoOC() + End Sub + + Private Function GuardaSolicitudAnticipoOC(ByRef ObjOC As ClsOC) As String Dim ObjOI As New ClsOIEventos Dim CveEvento As Integer = 0 @@ -6724,4 +6837,5 @@ Partial Class Bancos_IE RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString Calendario.EndDate = DateTime.Now End Sub + End Class \ No newline at end of file From 69d9226a68a12bc2d558bf464bbd11b9ee11126e Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 10:22:57 -0700 Subject: [PATCH 17/55] Carta porte QR y Logo en https --- Compras/PopUpVerFactura.aspx.vb | 32 ++++++++++++++++++++++---------- 1 file changed, 22 insertions(+), 10 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 167e85864..00a02d55e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -846,15 +846,17 @@ Partial Class PopUpVerFactura 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("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), ""))) - 'If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) + 'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), ""))) + + If Imagen.Exists Then + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) - 'Else - ' params.Add(New ReportParameter("LogoPath", "")) - 'End If + Else + params.Add(New ReportParameter("LogoPath", "")) + End If params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) @@ -1174,15 +1176,25 @@ Partial Class PopUpVerFactura CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB) End If - ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio) + + ImagenCBB = New System.IO.FileInfo(RutaCBB) + + If ImagenCBB.Exists Then + ImgCBB = String.Format("file://{0}", ImagenCBB.FullName) + Else + ImgCBB = "" + End If + End If If DtConceptos.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) Else params.Add(New ReportParameter("LogoPath", "")) End If From 75a272c3a0f49a4897b87708b36ce0b8f2c62089 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 10:25:45 -0700 Subject: [PATCH 18/55] Logo Carta Porte in timbrar --- Empresas/Grales/Formatos/CartaPorte.rdlc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc index 5870d72ed..c05f3e8c2 100644 --- a/Empresas/Grales/Formatos/CartaPorte.rdlc +++ b/Empresas/Grales/Formatos/CartaPorte.rdlc @@ -1602,8 +1602,8 @@ - Database - =System.Convert.FromBase64String(Parameters!LogoPath.Value ) + External + =Parameters!LogoPath.Value image/png FitProportional 0.46171in From b064169330dff00425d681f50e1b453e825f449d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 13 Dec 2021 12:33:14 -0700 Subject: [PATCH 19/55] =?UTF-8?q?--=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OI/Normatividad.aspx.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/OI/Normatividad.aspx.vb b/OI/Normatividad.aspx.vb index 812dfa77f..e1d44026f 100644 --- a/OI/Normatividad.aspx.vb +++ b/OI/Normatividad.aspx.vb @@ -38,7 +38,10 @@ Partial Class OI_Normatividad If ObjOIEventos.AddEventoNormatividad("PADRE", "PADRE DE TODOS", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "".ToEntero) Then If ObjOIEventos.GetEventoNormatividad(UsuarioActual.CveEmpresa) Then - IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero + IDSelected = 0 + If ObjOIEventos.DtResultados.Rows.Count > 0 Then + IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero + End If ObjOIEventos.AddEventoNormatividad("Título 1", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IDSelected) End If From b115dcb13656a64f249bbd5868a0265886498d82 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 13 Dec 2021 14:25:36 -0700 Subject: [PATCH 20/55] =?UTF-8?q?correcci=C3=B3n=20de=20error?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 167e85864..3362ad2d9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1295,7 +1295,7 @@ Partial Class PopUpVerFactura Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten) Dim Archivo As New System.IO.FileInfo(Path) - Dim cvetimbre As Integer = Parametros("CVETIMBRE").ToString.ToEntero + Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero If Archivo.Exists Then DescargarArchivoPDFTraslado(Archivo, Path) From 453f4927e9f7aeca96c45ce10b9afd29f30b3414 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 13 Dec 2021 16:24:53 -0700 Subject: [PATCH 21/55] --- GPS/PalletEtiqueta.rdlc | 557 +++++++++ GPS/PalletEtiqueta2.rdlc | 2474 ++++++++++++++++++++++++++++++++++++++ vwd.webinfo | 6 + 3 files changed, 3037 insertions(+) create mode 100644 GPS/PalletEtiqueta.rdlc create mode 100644 GPS/PalletEtiqueta2.rdlc diff --git a/GPS/PalletEtiqueta.rdlc b/GPS/PalletEtiqueta.rdlc new file mode 100644 index 000000000..8016190e1 --- /dev/null +++ b/GPS/PalletEtiqueta.rdlc @@ -0,0 +1,557 @@ + + + + + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + logojam + FitProportional + 4.18451cm + 1.20854cm + 1.82222cm + 1 + + + + + + true + true + + + + + CARR. A BAHIA DE KINO +KM12 HERMOSILLO, SONORA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SFD-101-00001 + + + + + + + 1.80826cm + 0.03529cm + 0.59999cm + 5.97145cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Trace this product at sig.adssistemas.mx + + + + + + + 2.51409cm + 0.0353cm + 0.38833cm + 5.97143cm + 4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + TOMATES + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 1 1/9 GENERICA + + + + + + + 3.04353cm + 3.0305cm + 0.4677cm + 2.97624cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode + FitProportional + 4.16387cm + 0.51424cm + 1.42062cm + 5.01354cm + 7 + + + + + + true + true + + + + + LARGE + + + + + + + 3.59034cm + 3.0305cm + 0.4677cm + 2.97624cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 534134 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Produce of MX. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 54 + + + + + + + + 62 + + + + + + + 5.76088cm + 3.71571cm + 1.11179cm + 1.81207cm + 11 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 0.36724cm + 7.13021cm + 6.00674cm + + + + + + 5.01042in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NoCajas.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PACKS + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode1 + FitProportional + 3.46683cm + 1.51697cm + 1.5cm + 3.24489cm + 14 + + + + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode1 + FitProportional + 0.61954cm + 6.0624cm + 1.5cm + 3.24489cm + 14 + + + + + + true + 5.46072cm + 0.0353cm + 2.59618cm + 9.33165cm + 15 + + + + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode1 + FitProportional + 0.61954cm + 6.0624cm + 1.5cm + 3.24489cm + 14 + + + + + + true + 8.19801cm + 0.05708cm + 2.59618cm + 9.33165cm + 16 + + + + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode1 + FitProportional + 0.61954cm + 6.0624cm + 1.5cm + 3.24489cm + 14 + + + + + + true + 10.79419cm + 0.05708cm + 2.59618cm + 9.33165cm + 17 + + + + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode1 + FitProportional + 0.61954cm + 6.0624cm + 1.5cm + 3.24489cm + 14 + + + + + + true + 13.34436cm + 0.05708cm + 2.59618cm + 9.33165cm + 18 + + + + + + true + 0.14291cm + 0.09907cm + 15.94054cm + 9.49453cm + + + + + + 6.97802in + - - =Today - - + + true + true + + + + + =Today + + + + + + + Textbox8 + 3.29402cm + 2.95339cm + 0.46771cm + 1.91468cm + 38 + + + 2pt + 2pt + 2pt + 2pt + + true 17.96022cm diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 7a09fdfad..7607a8ec7 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -107,7 +107,7 @@
    - +
    From 46c5c017dcf68dceea139278c23c7e0e9c96c5dd Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 17 Dec 2021 08:19:26 -0700 Subject: [PATCH 50/55] --- App_Code/ClsNominas.vb | 47 + App_Code/modExtensiones.vb | 10 +- Ashx/SIGWeb.ashx | 3 +- Compras/PopUpVerFactura.aspx.vb | 75 +- Documentacion/TableroMaterialidad.aspx | 63 +- Documentacion/TableroMaterialidad.aspx.cs | 1101 +++++++++++- GPS/PalletEtiqueta.rdlc | 1934 +++++++++++++++++---- Nomina/CatPeriodos.aspx.vb | 30 +- Nomina/CatSatBancos.aspx.vb | 23 +- Nomina/Nomina.aspx.cs | 2 +- RH/CalculoSBC.aspx.cs | 23 +- RH/Personal.aspx.vb | 3 +- Ventas/Clientes.aspx | 20 +- Ventas/RepConciliacionEmitidosSat.aspx.cs | 34 +- vwd.webinfo | 4 + 15 files changed, 2945 insertions(+), 427 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 5ed7caf39..92cd449be 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2978,6 +2978,53 @@ Public Class ClsNominas End Function #End Region + + + Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object) + SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor + End Sub + Public Function RunQuery(errormsg As String) As Boolean + Dim retorno As Boolean = False + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + retorno = False + OnError(errormsg, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function PA_AGRO_Embarque_ManifiestoGet(cveSubproyecto As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_AGRO_Embarque_ManifiestoGet", CommandType.StoredProcedure) + addParameters("@CveSubproyecto", SqlDbType.Int, cveSubproyecto) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveEmbarqueManifiesto", SqlDbType.Int, cveEmbarqueManifiesto) + retorno = RunQuery("Ocurrió un error al obtener el PA_AGRO_Embarque_ManifiestoGet.") + Return retorno + End Function + + Public Function PA_Agro_Embarque_PalletGet(cvePallet As Int32, cveCultivo As Int32, cveCultivoVariedad As Int32, cveEnvase As Int32, cveEtiqueta As Int32, cveEtiquetasporTarima As Int32, cveFormatoImpresion As Int32, cveTamaño As Int32, cveTipoTarima As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32, cveTemporada As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Agro_Embarque_PalletGet", CommandType.StoredProcedure) + addParameters("@CvePallet", SqlDbType.Int, cvePallet) + addParameters("@CveCultivo", SqlDbType.Int, cveCultivo) + addParameters("@CveCultivoVariedad", SqlDbType.Int, cveCultivoVariedad) + addParameters("@CveEnvase", SqlDbType.Int, cveEnvase) + addParameters("@CveEtiqueta", SqlDbType.Int, cveEtiqueta) + addParameters("@CveEtiquetasporTarima", SqlDbType.Int, cveEtiquetasporTarima) + addParameters("@CveFormatoImpresion", SqlDbType.Int, cveFormatoImpresion) + addParameters("@CveTamaño", SqlDbType.Int, cveTamaño) + addParameters("@CveTipoTarima", SqlDbType.Int, cveTipoTarima) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveEmbarqueManifiesto", SqlDbType.Int, cveEmbarqueManifiesto) + addParameters("@CveTemporada", SqlDbType.Int, cveTemporada) + retorno = RunQuery("Ocurrió un error al obtener el PA_Agro_Embarque_PalletGet.") + Return retorno + End Function + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 63358b70f..bb6c90d07 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -3178,10 +3178,14 @@ Namespace Extensiones Public Sub SelectedValueExistInsert(Obj As DropDownList, Valor As Object, Texto As String) If (Obj.Items.FindByValue(Valor.ToString()) IsNot Nothing) Then - Obj.SelectedValue = Valor.ToString + Obj.SelectedValue = Valor.ToString() Else - Obj.Items.Insert(1, New ListItem(Texto, Valor.ToString)) - Obj.SelectedValue = Valor.ToString + If Obj.Items.Count > 0 Then + Obj.Items.Insert(1, New ListItem(Texto, Valor.ToString())) + Else + Obj.Items.Insert(0, New ListItem(Texto, Valor.ToString())) + End If + Obj.SelectedValue = Valor.ToString() End If End Sub diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index a92ab17f2..9250a2f5f 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -271,7 +271,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Response = context.Response Dim tablaReporte As New DataTable '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - ImprimirPDF("D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") Return retorno End Function Private Function GetTokenAngular(context As HttpContext) As String diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 78b16ec63..eb9ccbd04 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -195,11 +195,84 @@ Partial Class PopUpVerFactura SeleccionaReporte(UrlParametros) End If End If - + If Request("onlyPrint") IsNot Nothing Then + If Request("onlyPrint").ToString() = "Pallet" Then + imprimirpallet2(Request("CvePallet").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "PalletCaja" Then + imprimirpallet(Request("CvePallet").ToString.ToEntero()) + End If + End If End If End Sub + Private Sub imprimirpallet2(cvePallet As Integer) + Dim Envase As String = "" + Dim Tamano As String = "" + Dim Cultivo As String = "" + Dim noPallet As String = "" + Dim Variedad As String = "" + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + '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 + Dim row As DataRow = objnom.DtResultados.Rows(0) + Envase = row("Envase").ToString() + Tamano = row("Tamaño").ToString() + Cultivo = row("Cultivo").ToString() + noPallet = row("Codigo").ToString() + Variedad = row("CultivoVariedad").ToString() + + End If + + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Envase", Envase)) + params.Add(New ReportParameter("Tamano", Tamano)) + params.Add(New ReportParameter("Cultivo", Cultivo)) + params.Add(New ReportParameter("noPallet", noPallet)) + params.Add(New ReportParameter("Variedad", Variedad)) + Dim tablaReporte As New DataTable + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + End Sub + Private Sub imprimirpallet(cvePallet As Integer) + Dim Envase As String = "" + Dim Tamano As String = "" + Dim Cultivo As String = "" + Dim noPallet As String = "" + + 'Envase = "1 1/9" + 'Tamano = "Small" + '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 + Dim row As DataRow = objnom.DtResultados.Rows(0) + Envase = row("Envase").ToString() + Tamano = row("Tamaño").ToString() + Cultivo = row("Cultivo").ToString() + noPallet = row("Codigo").ToString() + + End If + + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Envase", Envase)) + params.Add(New ReportParameter("Tamano", Tamano)) + params.Add(New ReportParameter("Cultivo", Cultivo)) + params.Add(New ReportParameter("noPallet", noPallet)) + Dim tablaReporte As New DataTable + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + End Sub #Region "U S U A R I O - T O K E N" Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx index 967e0483e..c7a5d2ecc 100644 --- a/Documentacion/TableroMaterialidad.aspx +++ b/Documentacion/TableroMaterialidad.aspx @@ -178,9 +178,64 @@ Información: Los documentos cargados serán relacionados en el periodo: -
    -
    - +
    + +
    +
    +
    + + Paso 1: Procesar 'ZIP' +
    +
    + +
    +
    +
    + Procesar +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    + + Paso 2: Guardar +
    +
    + +
    +
    +
    @@ -188,7 +243,7 @@
    - + <%----%> diff --git a/Documentacion/TableroMaterialidad.aspx.cs b/Documentacion/TableroMaterialidad.aspx.cs index 85549a974..d625bdfd9 100644 --- a/Documentacion/TableroMaterialidad.aspx.cs +++ b/Documentacion/TableroMaterialidad.aspx.cs @@ -1,13 +1,17 @@ using System; using System.Collections.Generic; using System.Data; +using System.IO; +using System.IO.Compression; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; +using System.Xml; +using System.Xml.Linq; using Extensiones; -public partial class Documentacion_TableroMaterialidad :ClsPaginas +public partial class Documentacion_TableroMaterialidad : ClsPaginas { #region "Propiedades" @@ -34,7 +38,7 @@ public partial class Documentacion_TableroMaterialidad :ClsPaginas { using (ClsEdocumentacion edoc = new ClsEdocumentacion()) { - if(edoc.TableroMaterialidadGET(UsuarioActual.CveEmpresa,(anio= Txtanio.Text.ToEntero()), (mes= ddlMes.SelectedValue.ToEntero())) && edoc.DSResultados.Tables.Count >1) + if (edoc.TableroMaterialidadGET(UsuarioActual.CveEmpresa, (anio = Txtanio.Text.ToEntero()), (mes = ddlMes.SelectedValue.ToEntero())) && edoc.DSResultados.Tables.Count > 1) { RptDatos.DataSource = edoc.DSResultados.Tables[0]; dt = edoc.DSResultados.Tables[1]; @@ -52,7 +56,7 @@ public partial class Documentacion_TableroMaterialidad :ClsPaginas protected void RptDatos_ItemDataBound(object sender, RepeaterItemEventArgs e) { DataRowView item = (DataRowView)(e.Item.DataItem); - Repeater rpt =((Repeater)e.Item.FindControl("rptdocumentacion")); + Repeater rpt = ((Repeater)e.Item.FindControl("rptdocumentacion")); rpt.DataSource = dt; rpt.DataBind(); } @@ -83,7 +87,7 @@ public partial class Documentacion_TableroMaterialidad :ClsPaginas { DateTime fecha = string.Format("{0}-{1}-01", anio, mes).ToDateTime(); LtlPeriodo.Text = fecha.ToString("MMMM yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("es-MX"));//string.Format(""); - UpModalDoctos.Update(); + UpModalDoctos.Update(); RegistraScript("$('#ModalDoctos').modal();"); } @@ -91,7 +95,1092 @@ public partial class Documentacion_TableroMaterialidad :ClsPaginas { DateTime fecha = string.Format("{0}-{1}-01", anio, mes).ToDateTime(); LtlPeriodoXMLPDF.Text = fecha.ToString("MMMM yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")); - RegistraScript("$('#ModalDoctos').modal();"); + RegistraScript("$('#ModalDoctosxmlpdf').modal();"); Upxmlpdf.Update(); } -} \ No newline at end of file + + protected void LnkCargarZip_Click(object sender, EventArgs e) + { + string xmlobject = null; + List litsarchivoxml = Anexoxmlpdf.getfiles().Archivos; + if (litsarchivoxml.Count > 0) + { + Archivo archivoxml = litsarchivoxml[0]; + if (archivoxml.Extension.ToLower() == "zip") + { + + string directorio = archivoxml.FileUrl.Substring(0, archivoxml.FileUrl.Length - 4); + System.IO.Directory.CreateDirectory(directorio); + ZipFile.ExtractToDirectory(archivoxml.FileUrl, directorio); + + System.Xml.Linq.XDocument xmlarchivos = new System.Xml.Linq.XDocument(); + XElement xfolder = new XElement("folder"); + foreach (var urfile in System.IO.Directory.GetFiles(directorio, "*", SearchOption.AllDirectories)) + { + XElement xfile = new XElement("archivo", urfile); + xfile.SetAttributeValue("EXT", Path.GetExtension(urfile).ToLower()); + if (Path.GetExtension(urfile).ToLower() == ".xml") + { + var xmlobj = ADSistemaLibrary3.SatXml.XmlSatCFDI.readXML(urfile); + + + xfile.SetAttributeValue("Receptor", xmlobj.receptor.Nombre); + xfile.SetAttributeValue("RfcReceptor", xmlobj.receptor.Rfc); + xfile.SetAttributeValue("RfcEmisor", xmlobj.emisor.Rfc); + xfile.SetAttributeValue("Emisor", xmlobj.emisor.Nombre); + xfile.SetAttributeValue("SubTotal", xmlobj.comprobante.SubTotal); + xfile.SetAttributeValue("Descuento", xmlobj.comprobante.Descuento); + xfile.SetAttributeValue("Total", xmlobj.comprobante.Total); + + + xfile.SetAttributeValue("FechaPago", xmlobj.complemento.nomina12.FechaPago); + xfile.SetAttributeValue("FechaInicio", xmlobj.complemento.nomina12.FechaInicio); + xfile.SetAttributeValue("FechaFin", xmlobj.complemento.nomina12.FechaFin); + xfile.SetAttributeValue("NumDiasPagados", xmlobj.complemento.nomina12.NumDiasPagados); + xfile.SetAttributeValue("TotalPercepciones", xmlobj.complemento.nomina12.TotalPercepciones); + xfile.SetAttributeValue("TotalDeducciones", xmlobj.complemento.nomina12.TotalDeducciones); + xfile.SetAttributeValue("CURP", xmlobj.complemento.nomina12.Receptor.CURP); + + + + } + + + xfolder.Add(xfile); + } + xmlarchivos.Add(xfolder); + xmlobject = xmlarchivos.ToString(); + } + + } + foreach (Archivo obj in litsarchivoxml) + { + System.IO.File.Delete(obj.FileUrl); + } + RegistraScript("$('#ModalDoctosxmlpdf').modal();"); + } + + + + + + + + + +} +public class archivoxmlpdf +{ + string rutaarchivo { get; set; } + string extension { get; set; } + + + string RfcReceptor { get; set; } + string RfcEmisor { get; set; } + string Emisor { get; set; } + string Receptor { get; set; } + decimal SubTotal { get; set; } + decimal Descuento { get; set; } + decimal Total { get; set; } + + + string FechaPago { get; set; } + string periodo { get { return string.Format("", FechaInicialPago, FechaFinalPago); } } + + string FechaInicialPago { get; set; } + string FechaFinalPago { get; set; } + string Curp { get; set; } + int NumDiasPagados { get; set; } + decimal TotalPercepciones { get; set; } + decimal TotalDeducciones { get; set; } + +} + + + +namespace ADSistemaLibrary3.SatXml +{ + public class XmlSatCFDI + { + public XmlSatCFDI() + { + comprobante = new CFDIComprobante(); + emisor = new CFDIEmisor(); + receptor = new CFDIReceptor(); + complemento = new CFDIComplemento(); + cFDIRelacionados = new List(); + conceptos = new List(); + Impuestos = new List(); + } + public CFDIComprobante comprobante; + public CFDIEmisor emisor; + public CFDIReceptor receptor; + public CFDIComplemento complemento; + public List cFDIRelacionados; + public List conceptos; + public List Impuestos; + public List GetConceptosforpdf() + { + List lcon = new List(); + if (conceptos != null) + { + int _orden = 0; + foreach (CFDIConcepto item in conceptos) + { + _orden += 1; + CFDIConcepto_I con = new CFDIConcepto_I + { + tipo = 1, + orden = _orden, + ClaveProdServ = item.ClaveProdServ, + NoIdentificacion = item.NoIdentificacion, + Cantidad = item.Cantidad, + ClaveUnidad = item.ClaveUnidad, + Unidad = item.Unidad, + ValorUnitario = item.ValorUnitario, + Importe = item.Importe, + Descuento = item.Descuento, + NumeroPedimento = item.NumeroPedimento, + CuentaPredial = item.CuentaPredial, + Descripcion = item.Descripcion + }; + int index = 0; + foreach (CFDIConceptoImpuesto Imp in item.Impuestos) + { + index++; + if (index > 1) + { + lcon.Add(con); + con = new CFDIConcepto_I + { + tipo = 2, + orden = _orden, + }; + + } + + con.Impuesto = Imp.ImpuestoTexto; + con.Impuesto_Tipo = Imp.Tipo; + con.Impuesto_Base = Imp.Base; + con.Impuesto_TipoFactor = Imp.TipoFactor; + con.Impuesto_TasaOCuota = Imp.TasaOCuota; + con.Impuesto_Importe = Imp.Importe; + } + lcon.Add(con); + } + } + + return lcon; + } + + public static XmlSatCFDI readXML(string fileUrl) + { + XmlSatCFDI xmlCFDI = new XmlSatCFDI(); + bool canread = true; + //keys + string keyComprobante = "Comprobante"; + string keyCfdiRelacionados = "CfdiRelacionados"; + string keyEmisor = "Emisor"; + string keyReceptor = "Receptor"; + string keyConceptos = "Conceptos"; + string keyImpuestos = "Impuestos"; + string keyComplemento = "Complemento"; + //endkeys + string[] PrimerNivel = new string[] { keyCfdiRelacionados, keyEmisor, keyReceptor, keyConceptos, keyImpuestos, keyComplemento }; + //(canread = xtr.Read()) para evitar ciclos infinitos, todos los .Read() los guardo en la variable Canread y en los while reviso primero esta variable + if (File.Exists(fileUrl)) + { + XmlReaderSettings settings = new XmlReaderSettings(); + settings.ConformanceLevel = ConformanceLevel.Fragment; + settings.IgnoreWhitespace = true; + settings.IgnoreComments = true; + using (XmlReader xtr = XmlReader.Create(fileUrl, settings)) + { + + while ((canread = xtr.Read()) && !(xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyComprobante)) + { + //if (xtr.NodeType != XmlNodeType.Element) { while (xtr.Read() && xtr.NodeType != XmlNodeType.Element) { } } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyComprobante) + { + int Nivel = xtr.Depth; + bool cont = xtr.MoveToFirstAttribute(); + while (cont) + { + + switch (xtr.Name.ToUpper()) + { + case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break; + case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break; + case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break; + case "VERSION": xmlCFDI.comprobante.Version = xtr.Value; break; + case "SERIE": xmlCFDI.comprobante.Serie = xtr.Value; break; + case "FOLIO": xmlCFDI.comprobante.Folio = xtr.Value; break; + case "FECHA": xmlCFDI.comprobante.Fecha = xtr.Value; break; + case "MONEDA": xmlCFDI.comprobante.Moneda = xtr.Value; break; + case "SUBTOTAL": decimal SubTotal = 0; decimal.TryParse(xtr.Value, out SubTotal); xmlCFDI.comprobante.SubTotal = SubTotal; break; + case "TOTAL": decimal Total = 0; decimal.TryParse(xtr.Value, out Total); xmlCFDI.comprobante.Total = Total; break; + case "DESCUENTO": decimal Descuento = 0; decimal.TryParse(xtr.Value, out Descuento); xmlCFDI.comprobante.Descuento = Descuento; break; + case "TIPOCAMBIO": decimal TipoCambio = 0; decimal.TryParse(xtr.Value, out TipoCambio); xmlCFDI.comprobante.TipoCambio = TipoCambio; break; + case "TIPODECOMPROBANTE": xmlCFDI.comprobante.TipoDeComprobante = xtr.Value; break; + case "FORMAPAGO": xmlCFDI.comprobante.FormaPago = xtr.Value; break; + case "FORMADEPAGO": xmlCFDI.comprobante.FormaPago = xtr.Value; break; + case "METODOPAGO": xmlCFDI.comprobante.MetodoPago = xtr.Value; break; + case "METODODEPAGO": xmlCFDI.comprobante.MetodoPago = xtr.Value; break; + case "CONDICIONESDEPAGO": xmlCFDI.comprobante.CondicionesDePago = xtr.Value; break; + case "LUGAREXPEDICION": xmlCFDI.comprobante.LugarExpedicion = xtr.Value; break; + case "CONFIRMACION": xmlCFDI.comprobante.Confirmacion = xtr.Value; break; + case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break; + case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break; + case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + cont = xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > Nivel) + { + if (PrimerNivel.Contains(xtr.Name.Replace("cfdi:", ""))) + { + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyCfdiRelacionados) + { + int cDepth = xtr.Depth; + + string TipoRelacion = null; + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "TIPORELACION": TipoRelacion = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + if (xtr.Name.Replace("cfdi:", "") == "CfdiRelacionado") + { + CFDIRelacionado cfdir = new CFDIRelacionado(); + cfdir.TipoRelacion = TipoRelacion; + cfdir.UUID = xtr.GetAttribute("UUID"); + xmlCFDI.cFDIRelacionados.Add(cfdir); + } + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyEmisor) + { + + + int curentNivel = xtr.Depth; + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "REGIMENFISCAL": xmlCFDI.emisor.RegimenFiscal = xtr.Value; break; + case "NOMBRE": xmlCFDI.emisor.Nombre = xtr.Value; break; + case "RFC": xmlCFDI.emisor.Rfc = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + while ((canread = xtr.Read()) && !(xtr.NodeType == XmlNodeType.Element && curentNivel >= xtr.Depth)) { }//continua hasta que no tenga nodos y (el nodo sea tipo elemnto y ete en el mismo nivel) + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyReceptor) + { + int curentNivel = xtr.Depth; + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "RFC": xmlCFDI.receptor.Rfc = xtr.Value; break; + case "NOMBRE": xmlCFDI.receptor.Nombre = xtr.Value; break; + case "RESIDENCIAFISCAL": xmlCFDI.receptor.ResidenciaFiscal = xtr.Value; break; + case "NUMREGIDTRIB": xmlCFDI.receptor.NumRegIdTrib = xtr.Value; break; + case "USOCFDI": xmlCFDI.receptor.UsoCFDI = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + + while ((canread = xtr.Read()) && !(xtr.NodeType == XmlNodeType.Element && curentNivel >= xtr.Depth)) { }//continua hasta que no tenga nodos y (el nodo sea tipo elemnto y ete en el mismo nivel) + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyConceptos) + { + int cDepth = xtr.Depth; + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + if (xtr.Name.Replace("cfdi:", "") == "Concepto") + { + int cDepthb = xtr.Depth; + CFDIConcepto concepto = new CFDIConcepto(); + + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break; + case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break; + case "CANTIDAD": concepto.Cantidad = xtr.Value; break; + case "CLAVEUNIDAD": concepto.ClaveUnidad = xtr.Value; break; + case "UNIDAD": concepto.Unidad = xtr.Value; break; + case "VALORUNITARIO": decimal ValorUnitario = 0; decimal.TryParse(xtr.Value, out ValorUnitario); concepto.ValorUnitario = ValorUnitario; ; break; + case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break; + case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break; + case "DESCRIPCION": concepto.Descripcion = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepthb) + { + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == "Impuestos") + { + int cDepthc = xtr.Depth; + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepthc) + { + if (xtr.Name.Replace("cfdi:", "") == "Traslado" || xtr.Name.Replace("cfdi:", "") == "Retencion") + { + CFDIConceptoImpuesto impuesto = new CFDIConceptoImpuesto(); + impuesto.Impuesto = xtr.GetAttribute("Impuesto"); + impuesto.Tipo = xtr.LocalName; + decimal Base = 0; + decimal.TryParse(xtr.GetAttribute("Base"), out Base); + impuesto.Base = Base; + impuesto.TipoFactor = xtr.GetAttribute("TipoFactor"); + decimal tasaOCuota = 0; + decimal.TryParse(xtr.GetAttribute("TasaOCuota"), out tasaOCuota); + impuesto.TasaOCuota = impuesto.TipoFactor == "Tasa" ? (tasaOCuota * 100).ToString("N4") : xtr.GetAttribute("TasaOCuota"); + decimal ImImporte = 0; + decimal.TryParse(xtr.GetAttribute("Importe"), out ImImporte); + impuesto.Importe = ImImporte; + + concepto.Impuestos.Add(impuesto); + } + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + } + else + { + bool rednew = true; + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == "InformacionAduanera") + { + concepto.NumeroPedimento = xtr.GetAttribute("NumeroPedimento"); + rednew = false; while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == "CuentaPredial") + { + concepto.CuentaPredial = xtr.GetAttribute("CuentaPredial"); + rednew = false; while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + if (rednew) { while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } } + + } + } + + xmlCFDI.conceptos.Add(concepto); + } + } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyImpuestos) + { + int cDepth = xtr.Depth; + + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + CFDIImpuesto impuest = new CFDIImpuesto(); + if (xtr.Name.Replace("cfdi:", "") == "Traslado" || xtr.Name.Replace("cfdi:", "") == "Retencion" && xmlCFDI.comprobante.Version != null) + { + impuest.Tipo = xtr.LocalName == "Traslado" ? "Traslados" : (xtr.LocalName == "Retencion" ? "Retenciones" : ""); + impuest.Impuesto = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("Impuesto") : xtr.GetAttribute("impuesto"); + impuest.TipoFactor = xtr.GetAttribute("TipoFactor"); + impuest.TasaOCuota = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("TasaOCuota") : xtr.GetAttribute("tasa"); + decimal ImImporte = 0; + decimal.TryParse((xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("Importe") : xtr.GetAttribute("importe")), out ImImporte); + impuest.Importe = ImImporte; + xmlCFDI.Impuestos.Add(impuest); + } + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.Replace("cfdi:", "") == keyComplemento) + { + int cDepth = xtr.Depth; + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + { + + + + + } + + + while (canread && xtr.Depth > cDepth) + { + if (xtr.NodeType == XmlNodeType.Element && xtr.LocalName == "TimbreFiscalDigital" && xmlCFDI.comprobante.Version != null) + { + xmlCFDI.complemento.xmlns_tfd = xtr.GetAttribute("xmlns:tfd"); + xmlCFDI.complemento.xsi_schemaLocation = xtr.GetAttribute("xsi:schemaLocation"); + xmlCFDI.complemento.Version = xtr.GetAttribute("Version"); + xmlCFDI.complemento.UUID = xtr.GetAttribute("UUID"); + xmlCFDI.complemento.FechaTimbrado = xtr.GetAttribute("FechaTimbrado"); + xmlCFDI.complemento.RfcProvCertif = xtr.GetAttribute("RfcProvCertif"); + xmlCFDI.complemento.SelloCFD = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("SelloCFD") : xtr.GetAttribute("selloCFD"); + xmlCFDI.complemento.NoCertificadoSAT = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("NoCertificadoSAT") : xtr.GetAttribute("noCertificadoSAT"); + xmlCFDI.complemento.SelloSAT = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("SelloSAT") : xtr.GetAttribute("selloSAT"); + + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.LocalName.ToUpper() == "NOMINA" && xmlCFDI.comprobante.Version != null) + { + xmlCFDI.complemento.nomina12 = new CFDINomina(); + //Version="1.2" TipoNomina="E" FechaPago="2021-12-08" + //="2021-12-08" ="2021-12-08" + //="1" ="5026.31" ="254.34" + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "FECHAPAGO": xmlCFDI.complemento.nomina12.FechaPago = xtr.Value.ToDateTime(); break; + case "FECHAINICIALPAGO": xmlCFDI.complemento.nomina12.FechaInicio = xtr.Value; break; + case "FECHAFINALPAGO": xmlCFDI.complemento.nomina12.FechaFin = xtr.Value; break; + case "NUMDIASPAGADOS": xmlCFDI.complemento.nomina12.NumDiasPagados = xtr.Value.ToEntero(); break; + case "TIPONOMINA": xmlCFDI.complemento.nomina12.TipoNomina = xtr.Value; break; + case "Version": xmlCFDI.complemento.nomina12.Version = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.LocalName == "Pagos" && xmlCFDI.comprobante.Version != null) + { + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + xmlCFDI.complemento.Pagos = new CFDIPago(); + int depthpagos = xtr.Depth; + bool conts = xtr.MoveToFirstAttribute(); + while (conts) + { + + decimal Base = 0; + switch (xtr.Name.ToUpper()) + { + case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break; + case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break; + case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break; + case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break; + case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break; + case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break; + case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break; + case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break; + case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break; + case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break; + case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break; + case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break; + } + conts = xtr.MoveToNextAttribute(); + } + conts = xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > depthpagos) + { + CFDIPagoDoctoRelacionado objpago = new CFDIPagoDoctoRelacionado(); + conts = xtr.MoveToFirstAttribute(); + while (conts) + { + + decimal Basep = 0; + switch (xtr.Name.ToUpper()) + { + case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break; + case "SERIE": objpago.Serie = xtr.Value; break; + case "FOLIO": objpago.Folio = xtr.Value; break; + case "MONEDADR": objpago.MonedaDR = xtr.Value; break; + case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break; + case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break; + case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break; + case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break; + case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break; + + } + conts = xtr.MoveToNextAttribute(); + } + conts = xtr.MoveToFirstAttribute(); + xmlCFDI.complemento.Pagos.doctosRelacionados.Add(objpago); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + } + else + { + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + } + } + } + else + { + //si no entro en ninguna de los anteriores no se debe ciclar + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + } + } + + } + } + if (xmlCFDI.comprobante.Version == "3.3" || xmlCFDI.comprobante.Version == "3.2") + { + return xmlCFDI; + } + else + { + return null; + } + } + + public class utilValores + { + public utilValores(string nombre, string valor) + { + Nombre = nombre; + Valor = valor; + } + public string Nombre { get; set; } + public string Valor { get; set; } + } + public class utilImage + { + public utilImage(byte[] imagenByte) + { + ImagenByte = imagenByte; + } + public byte[] ImagenByte { get; set; } + } + } + + public class CFDIComplemento + { + + public string xmlns_tfd { get; set; } + public string xsi_schemaLocation { get; set; } + public string Version { get; set; } + public string UUID { get; set; } + public string FechaTimbrado { get; set; } + public string RfcProvCertif { get; set; } + public string SelloCFD { get; set; } + public string NoCertificadoSAT { get; set; } + public string SelloSAT { get; set; } + public CFDIPago Pagos { get; set; } + public CFDINomina nomina12 { get; set; } + public string CadenaOriginal + { + get + { + return string.Format("||{0}|{1}|{2}|{3}|{4}|{5}||", Version, UUID, FechaTimbrado, RfcProvCertif, SelloCFD, NoCertificadoSAT); + } + } + + } + public class CFDIComprobante + { + public string xmlns_cfdi { get; set; } + public string xmlns_xsi { get; set; } + public string xsi_schemaLocation { get; set; } + public string Version { get; set; } + public string Serie { get; set; } + public string Folio { get; set; } + public string Fecha { get; set; } + public string Moneda { get; set; } + public decimal SubTotal { get; set; } + public decimal Total { get; set; } + public decimal Descuento { get; set; } + public decimal TipoCambio { get; set; } + public string TipoDeComprobante { get; set; } + + public string TipoDeComprobanteSIG + { + get + { + string retorno = ""; + if (Version == "3.3") + { + switch (TipoDeComprobante) + { + case "I": + retorno = "Ing"; + break; + case "E": + retorno = "Egs"; + break; + case "P": + retorno = "PA"; + break; + //case "T": + // retorno = "Traslado"; + // break; + //case "N": + // retorno = "Nómina"; + // break; + + default: + break; + } + } + else if (Version == "3.2") + { + switch (TipoDeComprobante) + { + case "ingreso": + retorno = "Ing"; + break; + case "egreso": + retorno = "Egs"; + break; + case "P": + retorno = "PA"; + break; + //case "T": + // retorno = "Traslado"; + // break; + //case "N": + // retorno = "Nómina"; + // break; + + default: + break; + } + } + else { retorno = TipoDeComprobante; } + return retorno; + } + } + public string TipoDeComprobanteTexto + { + get + { + string retorno = ""; + + if (Version == "3.3") + { + switch (TipoDeComprobante) + { + case "I": + retorno = "Ingreso"; + break; + case "E": + retorno = "Egreso"; + break; + case "P": + retorno = "Pago"; + break; + case "T": + retorno = "Traslado"; + break; + case "N": + retorno = "Nómina"; + break; + + default: + retorno = TipoDeComprobante; + break; + } + } + else if (Version == "3.2") + { + switch (TipoDeComprobante) + { + case "ingreso": + retorno = "Ing"; + break; + case "egreso": + retorno = "Egs"; + break; + case "P": + retorno = "PA"; + break; + //case "T": + // retorno = "Traslado"; + // break; + //case "N": + // retorno = "Nómina"; + // break; + + default: + retorno = TipoDeComprobante; + break; + } + } + else { retorno = TipoDeComprobante; } + return retorno; + } + } + public string FormaPago { get; set; } + + public string FormaPagoTexto + { + get + { + string retorno = ""; + + switch (FormaPago) + { + case "01": retorno = "Efectivo"; break; + case "02": retorno = "Cheque nominativo"; break; + case "03": retorno = "Transferencia electrónica de fondos"; break; + case "04": retorno = "Tarjeta de crédito"; break; + case "05": retorno = "Monedero electrónico"; break; + case "06": retorno = "Dinero electrónico"; break; + case "08": retorno = "Vales de despensa"; break; + case "12": retorno = "Dación en pago"; break; + case "13": retorno = "Pago por subrogación"; break; + case "14": retorno = "Pago por consignación"; break; + case "15": retorno = "Condonación"; break; + case "17": retorno = "Compensación"; break; + case "23": retorno = "Novación"; break; + case "24": retorno = "Confusión"; break; + case "25": retorno = "Remisión de deuda"; break; + case "26": retorno = "Prescripción o caducidad"; break; + case "27": retorno = "A satisfacción del acreedor"; break; + case "28": retorno = "Tarjeta de débito"; break; + case "29": retorno = "Tarjeta de servicios"; break; + case "30": retorno = "Aplicación de anticipos"; break; + case "31": retorno = "Intermediario pagos"; break; + case "99": retorno = "Por definir"; break; + default: retorno = FormaPago; break; + } + return retorno; + } + } + public string MetodoPago { get; set; } + public string MetodoPagoTexto + { + get + { + string retorno = ""; + + switch (MetodoPago) + { + case "PUE": retorno = "Pago en una sola exhibición"; break; + case "PPD": retorno = "Pago en parcialidades o diferido"; break; + default: retorno = MetodoPago; break; + } + return retorno; + } + } + public string CondicionesDePago { get; set; } + public string LugarExpedicion { get; set; } + public string Confirmacion { get; set; } + public string NoCertificado { get; set; } + public string Sello { get; set; } + public string Certificado { get; set; } + + } + + public class CFDIConcepto + { + public CFDIConcepto() + { + Impuestos = new List(); + } + public string ClaveProdServ { get; set; } + public string NoIdentificacion { get; set; } + public string Cantidad { get; set; } + public string ClaveUnidad { get; set; } + public string Unidad { get; set; } + public decimal ValorUnitario { get; set; } + public decimal Importe { get; set; } + public decimal Descuento { get; set; } + public string NumeroPedimento { get; set; } + public string CuentaPredial { get; set; } + public string Descripcion { get; set; } + public List Impuestos { get; set; } + } + + public class CFDIConcepto_I + { + public int tipo { get; set; } + public int orden { get; set; } + public string ClaveProdServ { get; set; } + public string NoIdentificacion { get; set; } + public string Cantidad { get; set; } + public string ClaveUnidad { get; set; } + public string Unidad { get; set; } + public decimal ValorUnitario { get; set; } + public decimal Importe { get; set; } + public decimal Descuento { get; set; } + public string NumeroPedimento { get; set; } + public string CuentaPredial { get; set; } + public string Descripcion { get; set; } + + + public string Impuesto { get; set; } + + public string Impuesto_Tipo { get; set; } + public decimal Impuesto_Base { get; set; } + public string Impuesto_TipoFactor { get; set; } + public string Impuesto_TasaOCuota { get; set; } + public decimal Impuesto_Importe { get; set; } + } + + public class CFDIConceptoImpuesto + { + public string Impuesto { get; set; } + public string ImpuestoTexto + { + get + { + string retorno = ""; + + switch (Impuesto) + { + case "001": retorno = "ISR"; break; + case "002": retorno = "IVA"; break; + case "003": retorno = "IEPS"; break; + } + return retorno; + } + } + public string Tipo { get; set; } + public decimal Base { get; set; } + public string TipoFactor { get; set; } + public string TasaOCuota { get; set; } + public decimal Importe { get; set; } + + } + + public class CFDIEmisor + { + public string RegimenFiscal { get; set; } + + public string RegimenFiscalTexto + { + get + { + string retorno = ""; + + switch (RegimenFiscal) + { + case "601": retorno = "General de Ley Personas Morales"; break; + case "603": retorno = "Personas Morales con Fines no Lucrativos"; break; + case "605": retorno = "Sueldos y Salarios e Ingresos Asimilados a Salarios"; break; + case "606": retorno = "Arrendamiento"; break; + case "608": retorno = "Demás ingresos"; break; + case "609": retorno = "Consolidación"; break; + case "610": retorno = "Residentes en el Extranjero sin Establecimiento Permanente en México"; break; + case "611": retorno = "Ingresos por Dividendos (socios y accionistas)"; break; + case "612": retorno = "Personas Físicas con Actividades Empresariales y Profesionales"; break; + case "614": retorno = "Ingresos por intereses"; break; + case "616": retorno = "Sin obligaciones fiscales"; break; + case "620": retorno = "Sociedades Cooperativas de Producción que optan por diferir sus ingresos"; break; + case "621": retorno = "Incorporación Fiscal"; break; + case "622": retorno = "Actividades Agrícolas, Ganaderas, Silvícolas y Pesqueras"; break; + case "623": retorno = "Opcional para Grupos de Sociedades"; break; + case "624": retorno = "Coordinados"; break; + case "628": retorno = "Hidrocarburos"; break; + case "607": retorno = "Régimen de Enajenación o Adquisición de Bienes"; break; + case "629": retorno = "De los Regímenes Fiscales Preferentes y de las Empresas Multinacionales"; break; + case "630": retorno = "Enajenación de acciones en bolsa de valores"; break; + case "615": retorno = "Régimen de los ingresos por obtención de premios"; break; + + } + return retorno; + } + } + public string Nombre { get; set; } + public string Rfc { get; set; } + + } + + public class CFDIImpuesto + { + public string Tipo { get; set; } + public string Impuesto { get; set; } + public string ImpuestoTexto + { + get + { + string retorno = ""; + + switch (Impuesto) + { + case "001": retorno = "ISR"; break; + case "002": retorno = "IVA"; break; + case "003": retorno = "IEPS"; break; + } + return retorno; + } + } + public string TipoFactor { get; set; } + public string TasaOCuota { get; set; } + public decimal Importe { get; set; } + } + + public class CFDIPago + { + public CFDIPago() + { + doctosRelacionados = new List(); + } + public string FechaPago { get; set; } + public string FormaDePagoP { get; set; } + public string FormaDePagoPText { get; set; } + public string MonedaP { get; set; } + public decimal Monto { get; set; } + public decimal TipoCambioP { get; set; } + public string NumOperacion { get; set; } + public string NomBancoOrdExt { get; set; } + public string RfcEmisorCtaOrd { get; set; } + public string CtaOrdenante { get; set; } + public string RfcEmisorCtaBen { get; set; } + public string CtaBeneficiario { get; set; } + public List doctosRelacionados { get; set; } + } + + public class CFDIPagoDoctoRelacionado + { + public string IdDocumento { get; set; } + public string Serie { get; set; } + public string Folio { get; set; } + public string MonedaDR { get; set; } + public string MetodoDePagoDR { get; set; } + public string NumParcialidad { get; set; } + public decimal ImpSaldoAnt { get; set; } + public decimal ImpPagado { get; set; } + public decimal ImpSaldoInsoluto { get; set; } + } + + public class CFDIReceptor + { + public string Rfc { get; set; } + public string Nombre { get; set; } + public string ResidenciaFiscal { get; set; } + public string NumRegIdTrib { get; set; } + public string UsoCFDI { get; set; } + public string UsoCFDITexto + { + get + { + string retorno = "N/A"; + + switch (UsoCFDI) + { + case "G01": + retorno = "Adquisición de mercancías"; + break; + case "G02": + retorno = "Devoluciones, descuentos o bonificaciones"; + break; + case "G03": + retorno = "Gastos en general"; + break; + case "I01": + retorno = "Construcciones"; + break; + case "I02": + retorno = "Mobiliario y equipo de oficina por inversiones"; + break; + case "I03": + retorno = "Equipo de transporte"; + break; + case "I04": + retorno = "Equipo de cómputo y accesorios"; + break; + case "I05": + retorno = "Dados, troqueles, moldes, matrices y herramental"; + break; + case "I06": + retorno = "Comunicaciones telefónicas"; + break; + case "I07": + retorno = "Comunicaciones satelitales"; + break; + case "I08": + retorno = "Otra maquinaria y equipo"; + break; + case "D01": + retorno = "Honorarios médicos, dentales y gastos hospitalarios."; + break; + case "D02": + retorno = "Gastos médicos por incapacidad o discapacidad"; + break; + case "D03": + retorno = "Gastos funerales."; + break; + case "D04": + retorno = "Donativos."; + break; + case "D05": + retorno = "Intereses reales efectivamente pagados por créditos hipotecarios (casa habitación)."; + break; + case "D06": + retorno = "Aportaciones voluntarias al SAR."; + break; + case "D07": + retorno = "Primas por seguros de gastos médicos."; + break; + case "D08": + retorno = "Gastos de transportación escolar obligatoria."; + break; + case "D09": + retorno = "Depósitos en cuentas para el ahorro, primas que tengan como base planes de pensiones."; + break; + case "D10": + retorno = "Pagos por servicios educativos (colegiaturas)"; + break; + case "P01": + retorno = "Por definir"; + break; + + default: + break; + } + return retorno; + } + } + + } + + public class CFDIRelacionado + { + public string TipoRelacion { get; set; } + public string TipoRelacionTexto + { + + get + { + string retorno; + + switch (TipoRelacion) + { + case "01": retorno = "Nota de crédito de los documentos relacionados"; break; + case "02": retorno = "Nota de débito de los documentos relacionados"; break; + case "03": retorno = "Devolución de mercancía sobre facturas o traslados previos"; break; + case "04": retorno = "Sustitución de los CFDI previos"; break; + case "05": retorno = "Traslados de mercancias facturados previamente"; break; + case "06": retorno = "Factura generada por los traslados previos"; break; + case "07": retorno = "CFDI por aplicación de anticipo"; break; + default: + retorno = "Por definir"; + break; + } + return retorno; + } + } + public string UUID { get; set; } + + } +} + + + + diff --git a/GPS/PalletEtiqueta.rdlc b/GPS/PalletEtiqueta.rdlc index 8016190e1..4f5f5f134 100644 --- a/GPS/PalletEtiqueta.rdlc +++ b/GPS/PalletEtiqueta.rdlc @@ -1,413 +1,1593 @@ - - - - + + 0 + + + - - true - true - - - - - AGROPECUARIA JAM, S.A. DE C.V. + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + logojam + FitProportional + 4.18451cm + 1.20854cm + 1.82222cm + 1 + + + + + + true + true + + + + + CARR. A BAHIA DE KINO +KM12 HERMOSILLO, SONORA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SFD-101-00001 + + + - - - + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Trace this product at sig.adssistemas.mx + + + + + + + 2.51409cm + 0.0353cm + 0.38833cm + 5.97143cm + 4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + + 3.04353cm + 3.0305cm + 0.4677cm + 2.97624cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode + FitProportional + 4.16387cm + 0.51424cm + 1.42062cm + 5.01354cm + 7 + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + + 3.59034cm + 3.0305cm + 0.4677cm + 2.97624cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Produce of MX. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 54 + + + + + + + + 62 + + + + + + + 5.76088cm + 3.71571cm + 1.11179cm + 1.81207cm + 11 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 0.36724cm + 7.13021cm + 6.00674cm - 2pt - 2pt - 2pt - 2pt - - - Embedded - logojam - FitProportional - 4.18451cm - 1.20854cm - 1.82222cm + + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + logojam + FitProportional + 4.18451cm + 1.20854cm + 1.82222cm + 1 + + + + + + true + true + + + + + CARR. A BAHIA DE KINO +KM12 HERMOSILLO, SONORA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SFD-101-00001 + + + + + + + 1.80826cm + 0.03529cm + 0.59999cm + 5.97145cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Trace this product at sig.adssistemas.mx + + + + + + + 2.51409cm + 0.0353cm + 0.38833cm + 5.97143cm + 4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + + 3.04353cm + 3.0305cm + 0.4677cm + 2.97624cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode + FitProportional + 4.16387cm + 0.51424cm + 1.42062cm + 5.01354cm + 7 + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + + 3.59034cm + 3.0305cm + 0.4677cm + 2.97624cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Produce of MX. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 54 + + + + + + + + 62 + + + + + + + 5.76088cm + 3.71571cm + 1.11179cm + 1.81207cm + 11 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 0.36724cm + 6.18313cm + 7.13021cm + 6.00674cm 1 - - - true - true - - - - - CARR. A BAHIA DE KINO + + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + logojam + FitProportional + 4.18451cm + 1.20854cm + 1.82222cm + 1 + + + + + + true + true + + + + + CARR. A BAHIA DE KINO KM12 HERMOSILLO, SONORA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SFD-101-00001 + + + - - - + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Trace this product at sig.adssistemas.mx + + + + + + + 2.51409cm + 0.0353cm + 0.38833cm + 5.97143cm + 4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + + 3.04353cm + 3.0305cm + 0.4677cm + 2.97624cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode + FitProportional + 4.16387cm + 0.51424cm + 1.42062cm + 5.01354cm + 7 + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + + 3.59034cm + 3.0305cm + 0.4677cm + 2.97624cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Produce of MX. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 54 + + + + + + + + 62 + + + + + + + 5.76088cm + 3.71571cm + 1.11179cm + 1.81207cm + 11 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 7.5274cm + 0.13668cm + 7.13021cm + 6.00674cm 2 - 2pt - 2pt - 2pt - 2pt - - - true - true - - - - - SFD-101-00001 - - - + + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + 2pt + 2pt + 2pt + 2pt - - - 1.80826cm - 0.03529cm - 0.59999cm - 5.97145cm + + + Embedded + logojam + FitProportional + 4.18451cm + 1.20854cm + 1.82222cm + 1 + + + + + + true + true + + + + + CARR. A BAHIA DE KINO +KM12 HERMOSILLO, SONORA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SFD-101-00001 + + + + + + + 1.80826cm + 0.03529cm + 0.59999cm + 5.97145cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Trace this product at sig.adssistemas.mx + + + + + + + 2.51409cm + 0.0353cm + 0.38833cm + 5.97143cm + 4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + + 3.04353cm + 3.0305cm + 0.4677cm + 2.97624cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + barcode + FitProportional + 4.16387cm + 0.51424cm + 1.42062cm + 5.01354cm + 7 + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + + 3.59034cm + 3.0305cm + 0.4677cm + 2.97624cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Produce of MX. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 54 + + + + + + + + 62 + + + + + + + 5.76088cm + 3.71571cm + 1.11179cm + 1.81207cm + 11 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 7.5274cm + 6.31981cm + 7.13021cm + 6.00674cm 3 - 2pt - 2pt - 2pt - 2pt - - - true - true - - - - - Trace this product at sig.adssistemas.mx - - - - - - - 2.51409cm - 0.0353cm - 0.38833cm - 5.97143cm - 4 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - TOMATES - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 1 1/9 GENERICA - - - - - - - 3.04353cm - 3.0305cm - 0.4677cm - 2.97624cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - barcode - FitProportional - 4.16387cm - 0.51424cm - 1.42062cm - 5.01354cm - 7 - - - - - - true - true - - - - - LARGE - - - - - - - 3.59034cm - 3.0305cm - 0.4677cm - 2.97624cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 534134 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Produce of MX. - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 54 - - - - - - - - 62 - - - - - - - 5.76088cm - 3.71571cm - 1.11179cm - 1.81207cm - 11 - - - Black - Middle - 2pt - 2pt - 2pt - 2pt - - + - true - 0.36724cm - 7.13021cm - 6.00674cm - - - - - - 5.01042in -