diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c64f9bbda..5065ed3e2 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5606,13 +5606,15 @@ Public Class ClsVentas End Function - Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, LineaAdicionalComprobante As String, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@LineaAdicionalComprobante", SqlDbType.VarChar).Value = LineaAdicionalComprobante + .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 38efe79a1..ed867167f 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2397,11 +2397,39 @@ Namespace Extensiones excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra) excel.Worksheets(0).Name = Titulo - - - End If + + + Dim indexRow As Integer = 8 + Dim indexRowGV As Integer = 0 + Dim cssClassRow As String = "" + + For indexRow = 8 To worksheet.Rows.Count - 4 + + Try + cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim() + + Select Case cssClassRow + Case "SubTotales2" + worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) + worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + Case "SubTotales" + worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) + worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + Case Else + End Select + + Catch ex As Exception + End Try + + indexRowGV += 1 + Next + + + End If excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index add465901..91c02b7ff 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -6,7 +6,6 @@ Imports Microsoft.Reporting.WebForms Imports Extensiones Partial Class Bancos_RepIE Inherits ClsPaginas - Private Shared missing As Object = System.Reflection.Missing.Value #Region "PROPIEDADES" Private Property Conciliacion As Boolean @@ -76,7 +75,7 @@ Partial Class Bancos_RepIE TipoPagina = Request("Tipo") DdlEstatusIE.SelectedValueExist("1") - DdlEstatusIE.Enabled = False + ' DdlEstatusIE.Enabled = False 'habilita especificar otros ingresos en conciliaciones AceptaOtrosIngresos = If(UsuarioActual.Empresa.Funcionalidad(124) = "1", True, False) diff --git a/Bin/GoPdf.dll b/Bin/GoPdf.dll new file mode 100644 index 000000000..649b9eb55 Binary files /dev/null and b/Bin/GoPdf.dll differ diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index c7243644b..f0016d615 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -230,7 +230,7 @@ Partial Class RepCxPDetalle Me.CveProveedor = CveProveedor If DdlProveedores.SelectedValue.ToEntero > 0 Then - DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor).FiltroPrimeroValor("RazonSocial").ToString Else DdlProveedores.SelectedText = "-" End If diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index cfe4b89ee..8aa6f6ece 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -4247,132 +4247,172 @@ Partial Class Compras_eFacturas Protected Sub LnkRegenerarPdfnew_Click(sender As Object, e As EventArgs) Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) - If Not IsNothing(objxml) Then - Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc") - If Not IsNothing(objxml.complemento.Pagos) Then - rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc") + + + Dim XmlRutaArchivo As String = File.ReadAllText(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) + Dim PDFRutaArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF")) + Dim RutaRDLC = String.Format("{0}{1}", DirectorioBaseEmpresas, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc") + + + + 'ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ") + Dim Respuesta As Boolean = False + + Dim Inicio As DateTime = DateTime.Now + Dim goPdf As GoPdf.GoPdf = New GoPdf.GoPdf() + Dim logotipo As Byte() = Nothing + + Try + Dim result = goPdf.ExportarPdf(XmlRutaArchivo, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With { + .DomicilioReceptor = "" + }) + Dim Fin As DateTime = DateTime.Now + + If result IsNot Nothing Then + File.WriteAllBytes(PDFRutaArchivo, result) + Respuesta = True + Alert($"PDF Generado") + Else + Alert($"PDF Error se genero nulo", TipoMensaje.MsgAdvertencia) End If - Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF")) + + Catch ex As Exception + Alert($"PDF Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia) + End Try + + Alert("PDF Finaliza", TipoMensaje.MsgAdvertencia) - Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar() - Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, If(IsNothing(objxml.complemento.Pagos), objxml.comprobante.Total, objxml.complemento.Pagos.Monto), objxml.complemento.UUID) - Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)() - parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado)) - parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago)) - parametros.Add(New ReportParameter("comprobante_Confirmacion", objxml.comprobante.Confirmacion)) - parametros.Add(New ReportParameter("comprobante_Fecha", objxml.comprobante.Fecha)) - parametros.Add(New ReportParameter("comprobante_Serie", objxml.comprobante.Serie)) - parametros.Add(New ReportParameter("comprobante_Folio", objxml.comprobante.Folio)) - parametros.Add(New ReportParameter("comprobante_Descuento", objxml.comprobante.Descuento.ToString("N2"))) - parametros.Add(New ReportParameter("comprobante_SubTotal", objxml.comprobante.SubTotal.ToString("N2"))) - parametros.Add(New ReportParameter("comprobante_Total", objxml.comprobante.Total.ToString("N2"))) - parametros.Add(New ReportParameter("comprobante_Version", objxml.comprobante.Version)) - parametros.Add(New ReportParameter("comprobante_TipoDeComprobante", objxml.comprobante.TipoDeComprobanteTexto)) - parametros.Add(New ReportParameter("comprobante_FormaPago", objxml.comprobante.FormaPagoTexto)) - parametros.Add(New ReportParameter("comprobante_LugarExpedicion", objxml.comprobante.LugarExpedicion)) - parametros.Add(New ReportParameter("comprobante_NoCertificado", objxml.comprobante.NoCertificado)) - parametros.Add(New ReportParameter("comprobante_Sello", objxml.comprobante.Sello)) - parametros.Add(New ReportParameter("comprobante_Moneda", objxml.comprobante.Moneda)) - parametros.Add(New ReportParameter("comprobante_TipoCambio", objxml.comprobante.TipoCambio.ToString("N2"))) - parametros.Add(New ReportParameter("comprobante_MetodoPago", objxml.comprobante.MetodoPagoTexto)) - parametros.Add(New ReportParameter("emisor_Rfc", objxml.emisor.Rfc)) - parametros.Add(New ReportParameter("emisor_Nombre", objxml.emisor.Nombre)) - parametros.Add(New ReportParameter("emisor_RegimenFiscal", objxml.emisor.RegimenFiscalTexto)) - parametros.Add(New ReportParameter("receptor_Rfc", objxml.receptor.Rfc)) - parametros.Add(New ReportParameter("receptor_Nombre", objxml.receptor.Nombre)) - parametros.Add(New ReportParameter("receptor_NumRegIdTrib", objxml.receptor.NumRegIdTrib)) - parametros.Add(New ReportParameter("receptor_ResidenciaFiscal", objxml.receptor.ResidenciaFiscal)) - parametros.Add(New ReportParameter("receptor_UsoCFDI", objxml.receptor.UsoCFDITexto)) - parametros.Add(New ReportParameter("complemento_FechaTimbrado", objxml.complemento.FechaTimbrado)) - parametros.Add(New ReportParameter("complemento_NoCertificadoSAT", objxml.complemento.NoCertificadoSAT)) - parametros.Add(New ReportParameter("complemento_RfcProvCertif", objxml.complemento.RfcProvCertif)) - parametros.Add(New ReportParameter("complemento_SelloCFD", objxml.complemento.SelloCFD)) - parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT)) - parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID)) - parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal)) - If Not IsNothing(objxml.complemento.Pagos) Then - parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago)) - parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP)) - parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText)) - parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP)) - parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString())) - parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString())) - parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion)) - parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt)) - parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd)) - parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante)) - parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen)) - parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario)) - End If - Using MR As ReportViewer = New ReportViewer() - Dim rdsTotales As ReportDataSource = New ReportDataSource() - Dim ltotales As List(Of utilValores) = New List(Of utilValores)() - ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2"))) - If objxml.comprobante.Descuento > 0 Then - ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2"))) - End If + 'If Not IsNothing(objxml) Then + ' Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc") + ' If Not IsNothing(objxml.complemento.Pagos) Then + ' rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc") + ' End If + ' Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF")) - For Each item As CFDIImpuesto In objxml.Impuestos - If item.Importe > 0 Then - Dim TasaOCuota As Decimal = 0 - Decimal.TryParse(item.TasaOCuota, TasaOCuota) - ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2"))) - End If - Next + ' Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar() + ' Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, If(IsNothing(objxml.complemento.Pagos), objxml.comprobante.Total, objxml.complemento.Pagos.Monto), objxml.complemento.UUID) + ' Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)() + ' parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado)) + ' parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago)) + ' parametros.Add(New ReportParameter("comprobante_Confirmacion", objxml.comprobante.Confirmacion)) + ' parametros.Add(New ReportParameter("comprobante_Fecha", objxml.comprobante.Fecha)) + ' parametros.Add(New ReportParameter("comprobante_Serie", objxml.comprobante.Serie)) + ' parametros.Add(New ReportParameter("comprobante_Folio", objxml.comprobante.Folio)) + ' parametros.Add(New ReportParameter("comprobante_Descuento", objxml.comprobante.Descuento.ToString("N2"))) + ' parametros.Add(New ReportParameter("comprobante_SubTotal", objxml.comprobante.SubTotal.ToString("N2"))) + ' parametros.Add(New ReportParameter("comprobante_Total", objxml.comprobante.Total.ToString("N2"))) + ' parametros.Add(New ReportParameter("comprobante_Version", objxml.comprobante.Version)) + ' parametros.Add(New ReportParameter("comprobante_TipoDeComprobante", objxml.comprobante.TipoDeComprobanteTexto)) + ' parametros.Add(New ReportParameter("comprobante_FormaPago", objxml.comprobante.FormaPagoTexto)) + ' parametros.Add(New ReportParameter("comprobante_LugarExpedicion", objxml.comprobante.LugarExpedicion)) + ' parametros.Add(New ReportParameter("comprobante_NoCertificado", objxml.comprobante.NoCertificado)) + ' parametros.Add(New ReportParameter("comprobante_Sello", objxml.comprobante.Sello)) + ' parametros.Add(New ReportParameter("comprobante_Moneda", objxml.comprobante.Moneda)) + ' parametros.Add(New ReportParameter("comprobante_TipoCambio", objxml.comprobante.TipoCambio.ToString("N2"))) + ' parametros.Add(New ReportParameter("comprobante_MetodoPago", objxml.comprobante.MetodoPagoTexto)) + ' parametros.Add(New ReportParameter("emisor_Rfc", objxml.emisor.Rfc)) + ' parametros.Add(New ReportParameter("emisor_Nombre", objxml.emisor.Nombre)) + ' parametros.Add(New ReportParameter("emisor_RegimenFiscal", objxml.emisor.RegimenFiscalTexto)) + ' parametros.Add(New ReportParameter("receptor_Rfc", objxml.receptor.Rfc)) + ' parametros.Add(New ReportParameter("receptor_Nombre", objxml.receptor.Nombre)) + ' parametros.Add(New ReportParameter("receptor_NumRegIdTrib", objxml.receptor.NumRegIdTrib)) + ' parametros.Add(New ReportParameter("receptor_ResidenciaFiscal", objxml.receptor.ResidenciaFiscal)) + ' parametros.Add(New ReportParameter("receptor_UsoCFDI", objxml.receptor.UsoCFDITexto)) + ' parametros.Add(New ReportParameter("complemento_FechaTimbrado", objxml.complemento.FechaTimbrado)) + ' parametros.Add(New ReportParameter("complemento_NoCertificadoSAT", objxml.complemento.NoCertificadoSAT)) + ' parametros.Add(New ReportParameter("complemento_RfcProvCertif", objxml.complemento.RfcProvCertif)) + ' parametros.Add(New ReportParameter("complemento_SelloCFD", objxml.complemento.SelloCFD)) + ' parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT)) + ' parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID)) + ' parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal)) + ' If Not IsNothing(objxml.complemento.Pagos) Then + ' parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago)) + ' parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP)) + ' parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText)) + ' parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP)) + ' parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString())) + ' parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString())) + ' parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion)) + ' parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt)) + ' parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd)) + ' parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante)) + ' parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen)) + ' parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario)) - ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2"))) - rdsTotales.Name = "dsTotales" - rdsTotales.Value = ltotales - MR.LocalReport.DataSources.Add(rdsTotales) - Dim rds2 As ReportDataSource = New ReportDataSource() - Dim limagenes As List(Of utilImage) = New List(Of utilImage)() - limagenes.Add(New utilImage(cQr)) - rds2.Name = "dsImagenes" - rds2.Value = limagenes - MR.LocalReport.DataSources.Add(rds2) - Dim rdsrelacionados As ReportDataSource = New ReportDataSource() - rdsrelacionados.Name = "dsRelacionados" - rdsrelacionados.Value = objxml.cFDIRelacionados - MR.LocalReport.DataSources.Add(rdsrelacionados) - Dim rds1 As ReportDataSource = New ReportDataSource() - rds1.Name = "dsConceptos" - rds1.Value = objxml.GetConceptosforpdf() - MR.LocalReport.DataSources.Add(rds1) + ' End If + ' Using MR As ReportViewer = New ReportViewer() + ' Dim rdsTotales As ReportDataSource = New ReportDataSource() + ' Dim ltotales As List(Of utilValores) = New List(Of utilValores)() + ' ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2"))) - If Not IsNothing(objxml.complemento.Pagos) Then + ' If objxml.comprobante.Descuento > 0 Then + ' ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2"))) + ' End If - Dim rdsp As ReportDataSource = New ReportDataSource() - rdsp.Name = "dsPagos" - rdsp.Value = objxml.complemento.Pagos.doctosRelacionados - MR.LocalReport.DataSources.Add(rdsp) - End If + ' For Each item As CFDIImpuesto In objxml.Impuestos + + ' If item.Importe > 0 Then + ' Dim TasaOCuota As Decimal = 0 + ' Decimal.TryParse(item.TasaOCuota, TasaOCuota) + ' ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2"))) + ' End If + ' Next + + ' ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2"))) + ' rdsTotales.Name = "dsTotales" + ' rdsTotales.Value = ltotales + ' MR.LocalReport.DataSources.Add(rdsTotales) + ' Dim rds2 As ReportDataSource = New ReportDataSource() + ' Dim limagenes As List(Of utilImage) = New List(Of utilImage)() + ' limagenes.Add(New utilImage(cQr)) + ' rds2.Name = "dsImagenes" + ' rds2.Value = limagenes + ' MR.LocalReport.DataSources.Add(rds2) + ' Dim rdsrelacionados As ReportDataSource = New ReportDataSource() + ' rdsrelacionados.Name = "dsRelacionados" + ' rdsrelacionados.Value = objxml.cFDIRelacionados + ' MR.LocalReport.DataSources.Add(rdsrelacionados) + ' Dim rds1 As ReportDataSource = New ReportDataSource() + ' rds1.Name = "dsConceptos" + ' rds1.Value = objxml.GetConceptosforpdf() + ' MR.LocalReport.DataSources.Add(rds1) + + ' If Not IsNothing(objxml.complemento.Pagos) Then + + ' Dim rdsp As ReportDataSource = New ReportDataSource() + ' rdsp.Name = "dsPagos" + ' rdsp.Value = objxml.complemento.Pagos.doctosRelacionados + ' MR.LocalReport.DataSources.Add(rdsp) + ' End If + + ' MR.LocalReport.ReportPath = rutaReporte + ' MR.ProcessingMode = ProcessingMode.Local + ' MR.LocalReport.EnableExternalImages = True + ' MR.LocalReport.SetParameters(parametros) + ' MR.LocalReport.Refresh() + ' Dim warnings As Warning() = Nothing + ' Dim streamids As String() = Nothing + ' Dim mimeType As String = Nothing + ' Dim encoding As String = Nothing + ' Dim extension As String = Nothing + ' Dim bytes As Byte() = Nothing + ' bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings) + + ' Using fs As FileStream = New FileStream(NombreArchivo, FileMode.Create) + ' fs.Write(bytes, 0, bytes.Length) + ' fs.Close() + ' End Using + ' End Using + ' Alert("PDF Generado!") + 'Else + ' Alert("no se pudo procesar el archivo xml") + 'End If - MR.LocalReport.ReportPath = rutaReporte - MR.ProcessingMode = ProcessingMode.Local - MR.LocalReport.EnableExternalImages = True - MR.LocalReport.SetParameters(parametros) - MR.LocalReport.Refresh() - Dim warnings As Warning() = Nothing - Dim streamids As String() = Nothing - Dim mimeType As String = Nothing - Dim encoding As String = Nothing - Dim extension As String = Nothing - Dim bytes As Byte() = Nothing - bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings) - Using fs As FileStream = New FileStream(NombreArchivo, FileMode.Create) - fs.Write(bytes, 0, bytes.Length) - fs.Close() - End Using - End Using - Alert("PDF Generado!") - Else - Alert("no se pudo procesar el archivo xml") - End If End Sub Private Sub VinculacionMasivaComplementos() diff --git a/Empresas/132/Formatos/Cotizacion.rdlc b/Empresas/132/Formatos/Cotizacion.rdlc index fffee8b39..518c577fd 100644 --- a/Empresas/132/Formatos/Cotizacion.rdlc +++ b/Empresas/132/Formatos/Cotizacion.rdlc @@ -2399,6 +2399,18 @@ Celular: true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Global.asax b/Global.asax index d37060357..92c7c2a8c 100644 --- a/Global.asax +++ b/Global.asax @@ -99,54 +99,6 @@ End Using GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O S P E C T O S - - 'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now)) - 'Using ObjProspectos As New ClsProspectos - 'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing - 'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing - 'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing - 'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing - 'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing - 'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing - 'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing - 'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing - 'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing - 'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing - 'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing - 'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing - 'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing - 'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing - 'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing - 'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing - 'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing - 'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing - 'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing - 'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing - 'End Using - - 'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L A S I F I C A C I O N E S - - 'Using ObjClasificaciones As New ClsClasificaciones() - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'F A M I L I A S - 'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R E S U P U E S T O - 'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L A S I F I C A C I O N E S 2 - 'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -158,14 +110,6 @@ GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C O M B U S T I B L E S - - 'Using ObjFlotillas As New ClsFlotillas - 'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing - 'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -194,26 +138,26 @@ - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - ' R A S T R E O - Using ObjGPS As New ClsGPS - If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then - If ObjGPS.DtResultados.Rows.Count > 0 Then - Application("GlobalDTDispositivos") = ObjGPS.DtResultados - Else - Application("GlobalDTDispositivos") = Nothing - End If - End If + ''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ + '' R A S T R E O + 'Using ObjGPS As New ClsGPS + ' If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then + ' If ObjGPS.DtResultados.Rows.Count > 0 Then + ' Application("GlobalDTDispositivos") = ObjGPS.DtResultados + ' Else + ' Application("GlobalDTDispositivos") = Nothing + ' End If + ' End If - If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then - If ObjGPS.DtResultados.Rows.Count > 0 Then - Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados - Else - Application("GlobalDTDispositivosUsuarios") = Nothing - End If - End If - End Using - GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) + ' If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then + ' If ObjGPS.DtResultados.Rows.Count > 0 Then + ' Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados + ' Else + ' Application("GlobalDTDispositivosUsuarios") = Nothing + ' End If + ' End If + 'End Using + 'GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) 'If EsProduccion = "1" Then @@ -277,48 +221,6 @@ 'sessionData.Remove(HttpContext.Current.Session.SessionID) 'Application("s") = sessionData End Sub - -#Region "S Q L D E P E N D E N C Y" - - 'Public Sub RegisterNotification() - ' Try - ' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created - ' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - ' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event - ' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones" - ' 'Start the SQL Dependency - ' SqlDependency.Start(connectionString) - ' Using connection As New SqlConnection(connectionString) - ' Using command As New SqlCommand(commandText, connection) - ' connection.Open() - ' Dim sqlDependency = New SqlDependency(command) - ' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange - ' ' NOTE: You have to execute the command, or the notification will never fire. - ' Using reader As SqlDataReader = command.ExecuteReader() - ' End Using - ' End Using - ' End Using - ' Catch ex As Exception - - ' End Try - - 'End Sub - - 'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs) - ' If e.Info = SqlNotificationInfo.Update Then - ' Try - ' Dim ObjNotificaciones As New ClsSisNotificaciones - ' ObjNotificaciones.ObtenerNotificaciones() - ' ObjNotificaciones.Dispose() - ' 'System.Threading.Thread.Sleep(5000) - ' RegisterNotification() - ' Catch ex As Exception - - ' End Try - ' End If - ' 'Call the RegisterNotification method again - 'End Sub - -#End Region + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 70504f3c5..9c4e09413 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -636,9 +636,7 @@ Partial Class Inventarios_EntregaAlmacen 'filtra los Almacenes de domicilio If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then - StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes) - Else - StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes) + StrAlmacenes = "CveTipoAlmacen = 29" End If trObsGral.Visible = drE("Observaciones").ToString() <> "" diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 40bf87dc4..46d2c1d8c 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -3368,6 +3368,8 @@ Partial Class Inventarios_RecepcionUsados End Sub Protected Sub BtnAgregarProductoAjuste_Click(sender As Object, e As EventArgs) + Dim ErrorAjuste As Boolean = False + Dim CvePS As Integer = DdlPSAjuste.SelectedValue.ToEntero Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(CvePS, DdlFolioGarantia.SelectedValue.ToEntero()) @@ -3418,15 +3420,20 @@ Partial Class Inventarios_RecepcionUsados "", "-1", "-1", "-1", "", "", -1, "", "", CveTamaño) End If Else + ErrorAjuste = True Alert("No se pudo cargar el producto", TipoMensaje.MsgError) End If Catch ex As Exception + ErrorAjuste = True OnError("Ocurrió un error al agregar el producto", ex) End Try ObjPS.Dispose() - GuardaAjuste() + If Not ErrorAjuste Then + GuardaAjuste() + End If + 'If TmpDTPolizaVirtual Is Nothing Then ' CreaDTmpDTPolizaVirtual() diff --git a/Presupuestos/Reportes/RepPresupuesto.rdlc b/Presupuestos/Reportes/RepPresupuesto.rdlc deleted file mode 100644 index 7687e8abf..000000000 --- a/Presupuestos/Reportes/RepPresupuesto.rdlc +++ /dev/null @@ -1,1022 +0,0 @@ - - - - - - - - - 2.74518cm - - - 7.4cm - - - 1.95cm - - - 2.25cm - - - 2.25cm - - - 2.25cm - - - - - 0.67937cm - - - - - true - true - - - - - # - - - - - - - Textbox19 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox21 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad - - - - - - - Textbox23 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - - - - - Textbox25 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Precio U. - - - - - - - Textbox27 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox3 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - =Fields!Conse.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - =Fields!Unidad.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Total: - - - - - - - Textbox30 - - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - =Sum(Fields!PU.Value) - - - - - - - Importe2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!Importe.Value) - - - - - - - Textbox6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet1 - 3.55823cm - 0.76729cm - 1.87937cm - 18.84518cm - - - - - - - - true - true - - - - - Presupuesto: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - PS: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Unidad: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cliente: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - [@Presupuesto] - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!PS.Value - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - [@Cliente] - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - [@Fecha] - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.41688cm - 0.76729cm - 2.05021cm - 18.84518cm - 1 - - - - - - 27.94cm - - - - - 29.7cm - 21cm - 2cm - 2cm - 2cm - 2cm - 0.13cm -