Merge branch 'master' of http://192.168.10.111:8383/SIG

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

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

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)

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

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")
-            End If
-            Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
 
 
-            Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+        Dim XmlRutaArchivo As String = File.ReadAllText(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML")))
-            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 PDFRutaArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
-            Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
+        Dim RutaRDLC = String.Format("{0}{1}", DirectorioBaseEmpresas, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc")
-            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
 
-                For Each item As CFDIImpuesto In objxml.Impuestos
+        'ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ")
+        Dim Respuesta As Boolean = False
 
-                    If item.Importe > 0 Then
+        Dim Inicio As DateTime = DateTime.Now
-                        Dim TasaOCuota As Decimal = 0
+        Dim goPdf As GoPdf.GoPdf = New GoPdf.GoPdf()
-                        Decimal.TryParse(item.TasaOCuota, TasaOCuota)
+        Dim logotipo As Byte() = Nothing
-                        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")))
+        Try
-                rdsTotales.Name = "dsTotales"
+            Dim result = goPdf.ExportarPdf(XmlRutaArchivo, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With {
-                rdsTotales.Value = ltotales
+            .DomicilioReceptor = ""
-                MR.LocalReport.DataSources.Add(rdsTotales)
+        })
-                Dim rds2 As ReportDataSource = New ReportDataSource()
+            Dim Fin As DateTime = DateTime.Now
-                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
+            If result IsNot Nothing Then
-
+                File.WriteAllBytes(PDFRutaArchivo, result)
-                    Dim rdsp As ReportDataSource = New ReportDataSource()
+                Respuesta = True
-                    rdsp.Name = "dsPagos"
+                Alert($"PDF  Generado")
-                    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")
+                Alert($"PDF  Error se genero nulo", TipoMensaje.MsgAdvertencia)
             End If
+
+        Catch ex As Exception
+            Alert($"PDF  Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia)
+        End Try
+
+        Alert("PDF  Finaliza", TipoMensaje.MsgAdvertencia)
+
+
+
+
+        '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"))
+
+
+        '    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
+
+        '        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
+
+
     End Sub
     Private Sub VinculacionMasivaComplementos()
 

Empresas/132/Formatos/Cotizacion.rdlc

@@ -2399,6 +2399,18 @@ Celular: </Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="VISTAPREVIA22">

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 
+        '' R A S T R E O 
-        Using ObjGPS As New ClsGPS
+        'Using ObjGPS As New ClsGPS
-            If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
+        '    If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
-                If ObjGPS.DtResultados.Rows.Count > 0 Then
+        '        If ObjGPS.DtResultados.Rows.Count > 0 Then
-                    Application("GlobalDTDispositivos") = ObjGPS.DtResultados
+        '            Application("GlobalDTDispositivos") = ObjGPS.DtResultados
-                Else
+        '        Else
-                    Application("GlobalDTDispositivos") = Nothing
+        '            Application("GlobalDTDispositivos") = Nothing
-                End If
+        '        End If
-            End If
+        '    End If
 
-            If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
+        '    If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
-                If ObjGPS.DtResultados.Rows.Count > 0 Then
+        '        If ObjGPS.DtResultados.Rows.Count > 0 Then
-                    Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
+        '            Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
-                Else
+        '        Else
-                    Application("GlobalDTDispositivosUsuarios") = Nothing
+        '            Application("GlobalDTDispositivosUsuarios") = Nothing
-                End If
+        '        End If
-            End If
+        '    End If
-        End Using
+        'End Using
-        GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now))
 
 
         'If EsProduccion = "1" Then
@@ -278,47 +222,5 @@
         '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
 
 </script>

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)
+                        StrAlmacenes = "CveTipoAlmacen = 29"
-                    Else
-                        StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
                     End If
 
                     trObsGral.Visible = drE("Observaciones").ToString() <> ""

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()
 
+        If Not ErrorAjuste Then
             GuardaAjuste()
+        End If
+
 
         'If TmpDTPolizaVirtual Is Nothing Then
         '    CreaDTmpDTPolizaVirtual()

Sistemas/UsuarioDetalle.aspx.vb

@@ -718,11 +718,14 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub CargaPersonal()
         Dim dt As DataTable = Nothing
 
-        Dim RH As New ClsRH
+        'Dim RH As New ClsRH
-        If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then
+        'If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then
-            dt = RH.DtResultados
+        '    dt = RH.DtResultados
+        'End If
+        'RH.Dispose()
+        If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then
+            dt = GlobalDTRHPersonal(DdlEmpresaAsignaciones.SelectedValue.ToEntero)
         End If
-        RH.Dispose()
 
         DdlPersonal.Items.Clear()
         DdlPersonal.DataSource = dt

Ventas/Clientes.aspx.vb

@@ -1517,7 +1517,7 @@ Partial Class Clientes
                 ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
-                'CargaSubProyectosSuscursales()
+                CargaSubProyectosSuscursales()
                 'CargaMetodosPago33()
                 'CargaFormaPago33()
                 'CargaComboCFDI()

Ventas/ClientesAbonar.aspx.vb

@@ -1001,8 +1001,8 @@ Partial Class Ventas_ClientesAbonar
                                 Dim IdCtaContable As Integer = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente)
                                 If VentaActual.CveMoneda = 2 Then IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera)
 
-                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 3, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
+                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 95, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
                                         MsgError = "No se pudo insertar la póliza"
                                     End If
                                 Else

Ventas/RepLineasAdicionales.aspx

@@ -128,14 +128,13 @@
                                 OnRowCommand="GvLAPO_RowCommand"
                                 OnRowDataBound="GvLAPO_RowDataBound">
                                 <Columns>
-                                    <asp:BoundField DataField="Agrupador" HeaderText="Agrupador" />
+                                    <asp:HyperLinkField DataTextField="Agrupador" HeaderText="Agrupador" />
-                                    <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional"  />
+                                    <asp:BoundField DataField="LineaAdicional" HeaderText="PO"  />
                                     <asp:BoundField DataField="Importe" HeaderText="Importe PO" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                     <asp:BoundField DataField="Abreviatura" HeaderText="Mon"  />                                    
-                                    
                                     <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
                                     <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
-                                    <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right"  />
+                                    <asp:BoundField DataField="DiasVencimiento" HeaderText="D.Plazo" ItemStyle-HorizontalAlign="Right"  />
                                     <asp:BoundField DataField="DiasTranscurridos" HeaderText="D.Trans" ItemStyle-HorizontalAlign="Right"  />
                                     <asp:BoundField DataField="FechaVenta" HeaderText="F. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                                     <asp:BoundField DataField="FechaVencimientoVenta" HeaderText="F. Venc. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />

Ventas/RepLineasAdicionales.aspx.cs

@@ -3,6 +3,16 @@ using System.Collections.Generic;
 using Extensiones;
 using System.Data;
 using static Extensiones.ModExtensiones;
+using System.Collections.Generic;
+using System.IO;
+using ListItem = System.Web.UI.WebControls.ListItem;
+using System.Web.UI;
+using Microsoft.AspNet.SignalR;
+using System.Activities.Expressions;
+using System.EnterpriseServices.Internal;
+using iTextSharp.text.pdf;
+using GemBox.Spreadsheet;
+using System.Linq;
 using System.Text.RegularExpressions;
 using System.Web;
 using AjaxControlToolkit;
@@ -196,7 +206,6 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
         string FileExtension = "-1";
         List<Archivo> filesgral = Anexo.getfiles().Archivos;
         string filemove = "";
-        FileInfo fiNuevo; 
         FileInfo fiNuevo; 
 
         DirectoryInfo df = new DirectoryInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\");        
@@ -247,12 +256,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
             {
                 fiNuevo = new FileInfo(RutaArchivoTemp);
 
-                if (fiNuevo.Exists)
                 if (fiNuevo.Exists)
                 {
                     try
                     {
-                        if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"))
                         if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"))
                         {
                             File.Delete($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}");
@@ -264,7 +271,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
                     {
                         errorCargaComprobante = true;
                     }                    
-                    
+                    
                     if (!errorCargaComprobante)
                     {
                         ClsVentas objVentas = new ClsVentas();
@@ -279,23 +286,22 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
         }        
 
         if (!errorCargaComprobante)
-        {
+        {
             CargaDatos();
-            Anexo.Text = "[]";
             Anexo.Text = "[]";
             RegistraScript("$('#ModalComprobante').modal('hide');", "");
             Alert("Comprobante actualizado correctamente.");
         }
         UpAddComprobancte.Update();
     }
-
+
-    protected void LnkCambiarEstatus_Click(object sender, EventArgs e)
+    protected void LnkCambiarEstatus_Click(object sender, EventArgs e)
     {
         GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
         int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToEntero();
         int CveVenta = GvRow.DataKey("CveVenta").ToEntero(); 
 
-        bool errorCambioEstatus = false;
+        bool errorCambioEstatus = false;
 
         ClsVentas objVentas = new ClsVentas();
 
@@ -314,19 +320,19 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
 
     protected void LnkDescargaExcel_Click(object sender, EventArgs e)
     {        
-
+
+        if(TipoLinea == 1)
         {
             GridView gvTemp = GvLineasAdicionales;
             //gvTemp.ExportToExcelX("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
             gvTemp.ExportToExcelGembox("RepLineasAdicionales", UsuarioActual, "Rep Lineas Adicionales", AnchoImagen: 150);
-        }
+        }
-        else if(TipoLinea == 2)
+        else if(TipoLinea == 2)
+        {
             GridView gvTemp = GvLAPO;
             gvTemp.Columns[12].Visible = false;
             //gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString());
             gvTemp.ExportToExcelGembox( "ReportePO", UsuarioActual, "Reporte PO ", AnchoImagen:150);
-        }
-             
         }
              
     }
@@ -336,7 +342,6 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
         if (e.Row.RowType == DataControlRowType.DataRow)
         {
 
-            LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
             LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
             LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante");
             LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante");
@@ -355,7 +360,8 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
                 LnkCargarComprobante.Visible = false;
                 LnkDescargaComprobante.Visible = false;
             }
-            else
+            else
+            {
                 if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1)
                 {
 
@@ -416,4 +422,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
             objVentas.Dispose();
             if (!errorCambioEstatus)
             {
+                CargaDatos();
+            }
+        }
+    }
+
+    public override void VerifyRenderingInServerForm(Control control ) { }
 

Ventas/Ventas.aspx

@@ -2596,7 +2596,7 @@
                                                                                     <asp:BoundField DataField="CodigoPS" HeaderText="Producto ó Servicio" />
                                                                                     <asp:TemplateField HeaderText="Valor Unitario">
                                                                                         <ItemTemplate>
-                                                                                            <asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU", "{0:N2}") %>' Width="60px"></asp:TextBox>
+                                                                                            <asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU") %>' Width="60px"></asp:TextBox>
                                                                                         </ItemTemplate>
                                                                                     </asp:TemplateField>
                                                                                     <asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />

Ventas/Ventas.aspx.vb

@@ -8921,7 +8921,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Egs", "Dev") Then
             Alert("No se puede seleccionar una linea adicional de crédito si no se genera una remisón.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If