Option Strict On
Option Explicit On

Imports System.Data
Imports System.IO
Imports System.Xml
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Web

Partial Class PopUpVerFactura
    Inherits ClsPaginas

    Private Shared missing As Object = System.Reflection.Missing.Value

#Region "  PROPIEDADES  "
    Public Property DtMovimientos() As DataTable
        Get
            Return CType(ViewState("DtMovimientos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtMovimientos") = value
        End Set
    End Property
    Public Property DtDetalle() As DataTable
        Get
            Return DirectCast(IfNull(ViewState("DtDetalle"), New DataTable, ViewState("DtDetalle")), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDetalle") = value
        End Set
    End Property
    Public Property Opcion As String
        Get
            Return CType(ViewState("Opcion"), String)
        End Get
        Set(value As String)
            ViewState("Opcion") = value
        End Set
    End Property
    Public Property Param As String
        Get
            Return CType(ViewState("Param"), String)
        End Get
        Set(value As String)
            ViewState("Param") = value
        End Set
    End Property
    Private Property TmpDTOS As DataTable
        Get
            Return CType(ViewState("TmpDTOS"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("TmpDTOS") = value
        End Set
    End Property
    Private Property TmpDTMaterialesOS As DataTable
        Get
            Return CType(ViewState("TmpDTMaterialesOS"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("TmpDTMaterialesOS") = value
        End Set
    End Property

    Private ReadOnly Property DomicilioFiscalCompu As String
        Get
            Dim SisEmpresa As New ClsSisEmpresas()
            Dim EmpInfo As DataRow
            Dim domicilioFiscal As String = ""
            If SisEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1") Then
                EmpInfo = SisEmpresa.DtResultados.Rows(0)
                domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
                Return domicilioFiscal
            End If
            Return ""
        End Get
    End Property
    'Private Property SessionPorImpresion As Boolean
    '    Get
    '        Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
    '    End Get
    '    Set(value As Boolean)
    '        ViewState("SessionPorImpresion") = value
    '    End Set
    'End Property
#End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN
            If Request.Headers("ADSToken") IsNot Nothing Then
                Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
                Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
                Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()

                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)

                If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
                    Context.Session("UsuarioSIG") = UsuarioToken
                End If
            End If


            If Request("CVETIMBRE") IsNot Nothing AndAlso Request("CVETIMBRE") IsNot Nothing Then
                ImprimeFormatoCartaPorteTimbrado(Request("CVETIMBRE").ToString.ToEntero)
            End If

            If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then
                Dim Path As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("File"))
                Dim Archivo As New System.IO.FileInfo(Path)

                If Archivo.Exists Then
                    HttpContext.Current.Response.Clear()
                    HttpContext.Current.Response.ClearContent()
                    HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
                    HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                    HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                    HttpContext.Current.Response.TransmitFile(Path)
                    'HttpContext.Current.Response.Flush()
                    HttpContext.Current.Response.End()
                End If
                Archivo = Nothing

            ElseIf Request("RFC") IsNot Nothing AndAlso Request("FileV") IsNot Nothing Then
                Dim Path As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
                Dim Archivo As New System.IO.FileInfo(Path)

                If Archivo.Exists Then
                    HttpContext.Current.Response.Clear()
                    HttpContext.Current.Response.ClearContent()
                    HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
                    HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                    HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                    HttpContext.Current.Response.TransmitFile(Path)
                    'HttpContext.Current.Response.Flush()
                    HttpContext.Current.Response.End()
                End If
                Archivo = Nothing

            ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then
                Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))

                Select Case Request("TipoArchivo")
                    Case "PDF"
                        Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
                    Case "XML"
                        Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
                End Select

                Dim Archivo As New System.IO.FileInfo(Path)

                If Archivo.Exists Then
                    HttpContext.Current.Response.Clear()
                    HttpContext.Current.Response.ClearContent()
                    HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
                    HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                    HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                    HttpContext.Current.Response.TransmitFile(Path)
                    'HttpContext.Current.Response.Flush()
                    HttpContext.Current.Response.End()
                End If
                Archivo = Nothing
            Else
                If Request("File") IsNot Nothing Then
                    Dim Path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, Request("File"))
                    Dim Archivo As New System.IO.FileInfo(Path)

                    If Archivo.Exists Then
                        HttpContext.Current.Response.Clear()
                        HttpContext.Current.Response.ClearContent()
                        HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".txt", "text/plain", "application/pdf")
                        HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
                        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                        HttpContext.Current.Response.TransmitFile(Path)
                        'HttpContext.Current.Response.Flush()
                        HttpContext.Current.Response.End()
                    End If
                    Archivo = Nothing
                End If
            End If

            If Request("REPORTE") IsNot Nothing Then
                CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte")
            End If

            'OPCIONES

            If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
                Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
                If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
                    SeleccionaReporte(UrlParametros)
                End If
            End If

            If Request("onlyPrint") IsNot Nothing Then
                If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso
                    Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then
                    Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
                    Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
                    Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
                    GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
                End If
                If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
                    imprimirpallet2(Request("CvePallet").ToString.ToEntero())
                End If
                If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
                    imprimirpallet(Request("CvePallet").ToString.ToEntero())
                End If
                If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
                    imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero())
                End If

                If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                    imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                End If
                If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                    imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                End If
                If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                    imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                End If

                If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
                    rfctxtvalidar()
                End If
                If Request("onlyPrint").ToString() = "Recibo" Then
                    ReciboAgropecuaria()
                End If
            End If

        End If
    End Sub


    Private Sub DescargaArchivoDirecto(RutaArchivo As String)
        If RutaArchivo <> "" Then

            'Dim Path As String = String.Format("{0}\{1}", UsuarioActual.Empresa.Ruta, RutaArchivo)
            Dim Archivo As New System.IO.FileInfo(RutaArchivo)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = "application/octet-stream"
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(RutaArchivo)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub

    Private Sub ReciboAgropecuaria()
        Dim numeroPeriodo As Integer = 0
        Dim cveSubProyecto As Integer = -1
        Dim cveTipoNomina As Integer = -1
        Dim ejercicio As Integer = 0
        Dim cvePersonal As Integer = 0
        Dim tipoTrabajador As String = ""
        Dim facturado As Boolean = False
        If Not IsNothing(Request("numeroPeriodo")) Then
            numeroPeriodo = Request("numeroPeriodo").ToString.ToEntero()
        End If
        If Not IsNothing(Request("ejercicio")) Then
            ejercicio = Request("ejercicio").ToString.ToEntero()
        End If
        If Not IsNothing(Request("cvePersonal")) Then
            cvePersonal = Request("cvePersonal").ToString.ToEntero()
        End If
        If Not IsNothing(Request("cveSubProyecto")) Then
            cveSubProyecto = Request("cveSubProyecto").ToString.ToEntero()
        End If

        Dim params As New List(Of ReportParameter)
        Dim lrds As New List(Of ReportDataSource)
        Using objnom As New ClsNominas
            If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
                Dim dt As New DataTable
                dt = objnom.DtResultados.FiltraParametros("CvePersonal >0")
                If (cvePersonal > 0) Then
                    dt = dt.FiltraParametros($"CvePersonal ={cvePersonal }")
                End If

                lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt})
            End If

        End Using

        'endimg
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
    End Sub
    Private Sub rfctxtvalidar()
        Dim numeroPeriodo As Integer = 0
        Dim cveSubProyecto As Integer = -1
        Dim cveTipoNomina As Integer = -1
        Dim ejercicio As Integer = 0
        Dim cvePersonal As Integer = 0
        Dim tipoTrabajador As String = ""
        Dim facturado As Boolean = False
        If Not IsNothing(Request("numeroPeriodo")) Then
            numeroPeriodo = Request("numeroPeriodo").ToString.ToEntero()
        End If
        If Not IsNothing(Request("ejercicio")) Then
            ejercicio = Request("ejercicio").ToString.ToEntero()
        End If
        If Not IsNothing(Request("cvePersonal")) Then
            cvePersonal = Request("cvePersonal").ToString.ToEntero()
        End If
        Dim RFCs As New StringBuilder
        Dim contador = 0
        Using objnom As New ClsNominas
            If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
                For Each item As DataRow In objnom.DtResultados.Select("CvePersonal > 0")
                    Dim rfc As String = item("RFC").ToString().Trim()
                    If rfc.Length > 0 Then
                        contador = contador + 1
                        RFCs.AppendLine(String.Format("{0}|{1}", contador, rfc))
                    Else
                        contador = contador + 1
                        RFCs.AppendLine(String.Format("{0}|{1}", contador, "..."))
                    End If
                Next
            End If

        End Using
        Response.Clear()
        Response.ContentType = "text/plain"
        Response.AppendHeader("content-disposition", "attachment;filename=RFCs_Validacion_Masiva.txt")

        'Response.Write(contador.ToString())
        Response.Write(RFCs.ToString())
        Response.End()
    End Sub

    Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
        Dim NoEmbarque As String = ""
        Dim Fecha As String = ""
        Dim SubProyecto As String = ""
        Dim AgenciaAduanalUSA As String = ""
        Dim AgenciaAduanalMEX As String = ""
        Dim Temperatura As String = ""
        Dim Hora As String = ""
        Dim Chofer As String = ""
        Dim CamPlaca As String = ""
        Dim Camion As String = ""
        Dim Rem1Placa As String = ""
        Dim Remolque1 As String = ""
        Dim NoPallets As String = ""
        Dim NoBultos As String = ""
        Dim NoKgManifiesto As String = ""
        Dim Mercado As String = ""
        Dim NoFactura As String = ""
        Dim Cliente As String = ""
        Dim Direccion As String = ""

        Dim LongitudCaja As String = ""
        Dim LineaTransportacion As String = ""
        Dim SCAC As String = ""
        Dim CAAT As String = ""
        Dim NumeroTrailer As String = ""
        Dim Permiso As String = ""


        Dim tablaReporte As New DataTable

        'Envase = "1 1/9"
        'Tamano = "Small"
        'Cultivo = "Tomate"
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
            If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                NoEmbarque = row("NoEmbarque").ToString()
                Cliente = row("Cliente").ToString()
                Direccion = row("Direccion").ToString()
                Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
                SubProyecto = row("SubProyecto").ToString()
                AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
                AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
                Temperatura = row("Temperatura").ToString()
                Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
                Chofer = row("Chofer").ToString()
                CamPlaca = row("CamPlaca").ToString()
                Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
                Rem1Placa = row("Rem1Placa").ToString()
                NoFactura = row("NoFactura").ToString()
                Remolque1 = String.Format("{0} ", row("NumeroRemolque"), row("Rem1Anio"))
                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")

                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())

                LongitudCaja = row("LongitudCaja").ToString()
                LineaTransportacion = row("LineaTransportacion").ToString()
                SCAC = row("SCAC").ToString()
                CAAT = row("CAAT").ToString()
                Permiso = row("Permiso").ToString()
                'If row("CveCamionRemolque1").ToString() = "1" Then
                '    Rem1Placa = "12-TF-5E"
                '    Remolque1 = "Remolque 1"
                'Else
                '    Rem1Placa = "15-TF-7f"
                '    Remolque1 = "Remolque 2"

                'End If

                If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then
                    NoPallets = objnom.DtResultados.SUM("NoPallets").ToString()
                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")

                    tablaReporte = objnom.DtResultados

                End If
            End If
            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
        End Using
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
        params.Add(New ReportParameter("Cliente", Cliente))
        params.Add(New ReportParameter("Direccion", Direccion))
        params.Add(New ReportParameter("Fecha", Fecha))
        params.Add(New ReportParameter("SubProyecto", SubProyecto.ToUpper()))
        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
        params.Add(New ReportParameter("Temperatura", Temperatura))
        params.Add(New ReportParameter("Hora", Hora))
        params.Add(New ReportParameter("Chofer", Chofer))
        params.Add(New ReportParameter("CamPlaca", CamPlaca))
        params.Add(New ReportParameter("Camion", Camion))
        params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
        params.Add(New ReportParameter("Remolque1", Remolque1))
        params.Add(New ReportParameter("Permiso", Permiso))


        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
        params.Add(New ReportParameter("SCAC", SCAC))
        params.Add(New ReportParameter("CAAT", CAAT))
        params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))


        params.Add(New ReportParameter("NoFactura", NoFactura))
        params.Add(New ReportParameter("Mercado", Mercado))
        params.Add(New ReportParameter("NoBultos", NoBultos))
        params.Add(New ReportParameter("NoPallets", NoPallets))
        params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))







        Dim lrds As New List(Of ReportDataSource)
        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
        lrds.Add(rds)
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
        If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
            rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
        End If
        ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
    End Sub

    Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
        Dim NoEmbarque As String = ""
        Dim Fecha As String = ""
        Dim SubProyecto As String = ""
        Dim AgenciaAduanalUSA As String = ""
        Dim AgenciaAduanalMEX As String = ""
        Dim Temperatura As String = ""
        Dim Hora As String = ""
        Dim Chofer As String = ""
        Dim CamPlaca As String = ""
        Dim Camion As String = ""
        Dim Rem1Placa As String = ""
        Dim Remolque1 As String = ""
        Dim NoPallets As String = ""
        Dim NoBultos As String = ""
        Dim NoKgManifiesto As String = ""
        Dim Mercado As String = ""
        Dim NoFactura As String = ""
        Dim DivisoresdeCarton As String = ""
        Dim BolsasdePlastico As String = ""
        Dim TapaderasdeCarton As String = ""
        Dim CAJASDECARTON As String = ""
        Dim RPC As String = ""
        Dim BINSDECARTON As String = ""
        Dim TotalDlls As String = ""
        Dim Cliente As String = ""
        Dim Direccion As String = ""
        Dim BinsPrecio As String = ""



        Dim LongitudCaja As String = ""
        Dim LineaTransportacion As String = ""
        Dim SCAC As String = ""
        Dim CAAT As String = ""
        Dim NumeroTrailer As String = ""


        Dim tablaReporte As New DataTable

        'Envase = "1 1/9"
        'Tamano = "Small"
        'Cultivo = "Tomate"
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
            If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                NoEmbarque = row("NoEmbarque").ToString()
                Cliente = row("Cliente").ToString()
                Direccion = row("Direccion").ToString()
                Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
                DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
                BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
                TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
                CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
                RPC = String.Format("{0:N0}", row("RPC"))
                BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
                BinsPrecio = String.Format("{0:N0}", row("BINSDECARTON").ToString().ToDecimal() * 5)
                TotalDlls = String.Format("{0:N0}", row("TotalDlls"))



                SubProyecto = row("SubProyecto").ToString()
                AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
                AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
                Temperatura = row("Temperatura").ToString()
                Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
                Chofer = row("Chofer").ToString()
                CamPlaca = row("CamPlaca").ToString()
                Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
                Rem1Placa = row("Rem1Placa").ToString()
                NoFactura = row("NoFactura").ToString()
                Remolque1 = String.Format("{0} ", row("NumeroRemolque"))
                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")

                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())

                LongitudCaja = row("LongitudCaja").ToString()
                LineaTransportacion = row("LineaTransportacion").ToString()
                SCAC = row("SCAC").ToString()
                CAAT = row("CAAT").ToString()

                'If row("CveCamionRemolque1").ToString() = "1" Then
                '    Rem1Placa = "12-TF-5E"
                '    Remolque1 = "Remolque 1"
                'Else
                '    Rem1Placa = "15-TF-7f"
                '    Remolque1 = "Remolque 2"

                'End If

                If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
                    tablaReporte = objnom.DtResultados
                End If
            End If
            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
        End Using
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
        params.Add(New ReportParameter("Cliente", Cliente))
        params.Add(New ReportParameter("Direccion", Direccion))
        params.Add(New ReportParameter("Fecha", Fecha))
        params.Add(New ReportParameter("SubProyecto", SubProyecto))
        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
        params.Add(New ReportParameter("Temperatura", Temperatura))
        params.Add(New ReportParameter("Hora", Hora))
        params.Add(New ReportParameter("Chofer", Chofer))
        params.Add(New ReportParameter("CamPlaca", CamPlaca))
        params.Add(New ReportParameter("Camion", Camion))
        params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
        params.Add(New ReportParameter("Remolque1", Remolque1))


        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
        params.Add(New ReportParameter("SCAC", SCAC))
        params.Add(New ReportParameter("CAAT", CAAT))
        params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))


        params.Add(New ReportParameter("NoFactura", NoFactura))
        params.Add(New ReportParameter("Mercado", Mercado))
        params.Add(New ReportParameter("NoBultos", NoBultos))
        params.Add(New ReportParameter("NoPallets", NoPallets))
        params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))


        params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
        params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
        params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
        params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
        params.Add(New ReportParameter("RPC", RPC))
        params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
        params.Add(New ReportParameter("BinsPrecio", BinsPrecio))

        params.Add(New ReportParameter("TotalDlls", TotalDlls))





        Dim lrds As New List(Of ReportDataSource)
        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
        lrds.Add(rds)
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
    End Sub

    Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
        Dim NoEmbarque As String = ""
        Dim Fecha As String = ""
        Dim SubProyecto As String = ""
        Dim AgenciaAduanalUSA As String = ""
        Dim AgenciaAduanalMEX As String = ""
        Dim Temperatura As String = ""
        Dim Hora As String = ""
        Dim Chofer As String = ""
        Dim CamPlaca As String = ""
        Dim Camion As String = ""
        Dim Rem1Placa As String = ""
        Dim Remolque1 As String = ""
        Dim NoPallets As String = ""
        Dim NoBultos As String = ""
        Dim NoKgManifiesto As String = ""
        Dim Mercado As String = ""
        Dim NoFactura As String = ""
        Dim DivisoresdeCarton As String = ""
        Dim BolsasdePlastico As String = ""
        Dim TapaderasdeCarton As String = ""
        Dim CAJASDECARTON As String = ""
        Dim RPC As String = ""
        Dim BINSDECARTON As String = ""
        Dim BinsPrecio As String = ""
        Dim TotalDlls As String = ""
        Dim Cliente As String = ""
        Dim Direccion As String = ""
        Dim Correo As String = ""


        Dim LongitudCaja As String = ""
        Dim LineaTransportacion As String = ""
        Dim SCAC As String = ""
        Dim CAAT As String = ""
        Dim NumeroTrailer As String = ""


        Dim tablaReporte As New DataTable

        'Envase = "1 1/9"
        'Tamano = "Small"
        'Cultivo = "Tomate"
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
            If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                Dim row As DataRow = objnom.DtResultados.Rows(0)
                NoEmbarque = row("NoEmbarque").ToString()
                Cliente = row("Cliente").ToString()
                Direccion = row("Direccion").ToString()
                Correo = row("Correo").ToString()
                Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
                DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
                BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
                TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
                CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
                RPC = String.Format("{0:N0}", row("RPC"))
                BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
                TotalDlls = String.Format("{0:N0}", row("TotalDlls"))



                SubProyecto = row("SubProyecto").ToString()
                AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
                AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
                Temperatura = row("Temperatura").ToString()
                Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
                Chofer = row("Chofer").ToString()
                CamPlaca = row("CamPlaca").ToString()
                Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
                Rem1Placa = row("Rem1Placa").ToString()
                NoFactura = row("NoFactura").ToString()
                Remolque1 = String.Format("{0} ", row("NumeroRemolque"))
                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")

                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())

                LongitudCaja = row("LongitudCaja").ToString()
                LineaTransportacion = row("LineaTransportacion").ToString()
                SCAC = row("SCAC").ToString()
                CAAT = row("CAAT").ToString()

                'If row("CveCamionRemolque1").ToString() = "1" Then
                '    Rem1Placa = "12-TF-5E"
                '    Remolque1 = "Remolque 1"
                'Else
                '    Rem1Placa = "15-TF-7f"
                '    Remolque1 = "Remolque 2"

                'End If

                If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
                    tablaReporte = objnom.DtResultados
                End If
            End If
            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
        End Using
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
        params.Add(New ReportParameter("Cliente", Cliente))
        params.Add(New ReportParameter("Direccion", Direccion))
        params.Add(New ReportParameter("Fecha", Fecha))
        params.Add(New ReportParameter("SubProyecto", SubProyecto))
        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
        params.Add(New ReportParameter("Temperatura", Temperatura))
        params.Add(New ReportParameter("Hora", Hora))
        params.Add(New ReportParameter("Chofer", Chofer))
        params.Add(New ReportParameter("CamPlaca", CamPlaca))
        params.Add(New ReportParameter("Camion", Camion))
        params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
        params.Add(New ReportParameter("Remolque1", Remolque1))


        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
        params.Add(New ReportParameter("SCAC", SCAC))
        params.Add(New ReportParameter("CAAT", CAAT))
        params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))


        params.Add(New ReportParameter("NoFactura", NoFactura))
        params.Add(New ReportParameter("Mercado", Mercado))
        params.Add(New ReportParameter("NoBultos", NoBultos))
        params.Add(New ReportParameter("NoPallets", NoPallets))
        params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))


        'params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
        'params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
        'params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
        'params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
        'params.Add(New ReportParameter("RPC", RPC))
        'params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
        'params.Add(New ReportParameter("TotalDlls", TotalDlls))





        Dim lrds As New List(Of ReportDataSource)
        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
        lrds.Add(rds)
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")

        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})

        Dim ObjMail As New ClsSisMail()

        If ObjMail.SendMail(UsuarioActual.Empresa, Correo, "Datos carta porte", "", "", LSRutasMail) Then
            'ResultadoMail = 1
        Else
            'GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
            'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
            'ResultadoMail = 3
        End If
        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")


    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 = ""
        Dim NoCajas As String = ""

        'Envase = "1 1/9"
        'Tamano = "Small"
        'Cultivo = "Tomate"
        'noPallet = "000001"
        'Variedad = "Golden"
        Using objnom As New ClsNominas
            If objnom.EmbarquePalletGet(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()
                NoCajas = String.Format("{0:N0}", row("NoCajas"))

            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))
        params.Add(New ReportParameter("NoCajas", NoCajas))

        Dim lrds As New List(Of ReportDataSource)

        'img
        Dim dtqr As New DataTable
        Dim column As DataColumn = New DataColumn("ImagenByte")
        column.DataType = System.Type.[GetType]("System.Byte[]")
        column.AllowDBNull = True
        column.Caption = "ImagenByte"
        dtqr.Columns.Add(column)
        Dim rowqr As DataRow = dtqr.NewRow()


        Dim bcode As New BarcodeLib.Barcode()
        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
        Dim barcodebyte As Byte()
        Using ms = New MemoryStream()
            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            barcodebyte = ms.ToArray()
        End Using
        rowqr("ImagenByte") = barcodebyte

        dtqr.Rows.Add(rowqr)
        Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
        rds2.Name = "dsImagenes"
        rds2.Value = dtqr
        lrds.Add(rds2)
        'endimg
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
    End Sub


    Private Sub imprimirpalletWalamart(cvePallet As Integer)
        Dim Envase As String = ""
        Dim Tamano As String = ""
        Dim Cultivo As String = ""
        Dim Cultivoingles As String = ""
        Dim noPallet As String = ""
        Dim FormatoImpresion As String = ""
        Dim Consecutivo As String = ""
        Dim Fecha As String = ""
        Dim NoCajas As String = ""
        Dim NumberOfCode As String = ""
        Dim CvetypeImpresion As Integer
        Dim NumberSmall As String = ""
        Dim NumberBig As String = ""
        Dim GTINAll As String = ""
        Dim Peso As String = ""
        Dim GTIN As String = ""
        Dim PLU As String = ""
        'Envase = "1 1/9"
        'Tamano = "Small"
        'Cultivo = "Tomate"
        'noPallet = "000001"
        Using objnom As New ClsNominas
            If objnom.EmbarquePalletGet(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()
                Cultivoingles = row("Cultivoingles").ToString()
                noPallet = row("Codigo").ToString()
                FormatoImpresion = row("FormatoImpresion").ToString()
                Consecutivo = row("Consecutivo").ToString()
                NoCajas = row("NoCajas").ToString()
                Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
                CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
                NumberOfCode = String.Format("(00)00000000000000(00){1:ddMMyy}(00){0}00", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
                'NumberSmall = String.Format("{0:00}", noPallet.ToEntero())
                'NumberBig = String.Format("{0:00}", row("Consecutivo").ToString().ToEntero()) ' String.Format("{0:dd}", row("Fecha"))


                NumberSmall = row("NumberSmall").ToString()
                NumberBig = row("NumberBig").ToString()
                GTINAll = row("GTINAll").ToString()
                Peso = row("PesoText").ToString()
                GTIN = row("GTIN").ToString()
                PLU = row("PLU").ToString()

            End If
        End Using
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("Tamano", Tamano))
        params.Add(New ReportParameter("noPallet", noPallet))
        params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
        params.Add(New ReportParameter("Consecutivo", Consecutivo))
        params.Add(New ReportParameter("Fecha", Fecha))
        params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower().Contains("tomate"), "3", CvetypeImpresion.ToString())))
        params.Add(New ReportParameter("NoCajas", NoCajas))
        params.Add(New ReportParameter("NumberOfCode", NumberOfCode))
        params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
        params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
        params.Add(New ReportParameter("NumberSmall", NumberSmall))
        params.Add(New ReportParameter("NumberBig", NumberBig))
        params.Add(New ReportParameter("GTINAll", GTINAll))
        params.Add(New ReportParameter("Peso", Peso))
        params.Add(New ReportParameter("GTIN", GTIN))
        params.Add(New ReportParameter("PLU", PLU))



        Dim tablaReporte As New DataTable
        tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
        tablaReporte.Rows.Add(tablaReporte.NewRow)
        tablaReporte.Rows.Add(tablaReporte.NewRow)

        Dim lrds As New List(Of ReportDataSource)

        'img
        Dim dtqr As New DataTable
        Dim column As DataColumn = New DataColumn("ImagenByte")
        column.DataType = System.Type.[GetType]("System.Byte[]")
        column.AllowDBNull = True
        column.Caption = "ImagenByte"
        dtqr.Columns.Add(column)
        Dim rowqr As DataRow = dtqr.NewRow()


        Dim bcode As New BarcodeLib.Barcode()
        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
        Dim barcodebyte As Byte()
        Using ms = New MemoryStream()
            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            barcodebyte = ms.ToArray()
        End Using
        rowqr("ImagenByte") = barcodebyte

        dtqr.Rows.Add(rowqr)
        Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
        rds2.Name = "dsImagenes"
        rds2.Value = dtqr
        lrds.Add(rds2)
        'endimg


        Dim dtqr2 As DataTable = dtqr.Clone()

        Dim bcode2 As New BarcodeLib.Barcode()
        Dim img2 = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
        Dim barcodebyte2 As Byte()
        Using ms = New MemoryStream()
            img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            barcodebyte2 = ms.ToArray()
        End Using
        Dim rowqr2 As DataRow = dtqr2.NewRow()
        rowqr2("ImagenByte") = barcodebyte2
        dtqr2.Rows.Add(rowqr2)
        Dim rds22 As New ReportDataSource With {.Name = "dsImagenesGTIN", .Value = dtqr2}
        lrds.Add(rds22)



        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
        lrds.Add(rds)

        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
        'If CvetypeImpresion = 2 Then
        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
        'End If
        ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
    End Sub

    Private Sub imprimirpallet(cvePallet As Integer)
        Dim Envase As String = ""
        Dim Tamano As String = ""
        Dim Cultivo As String = ""
        Dim Cultivoingles As String = ""
        Dim noPallet As String = ""
        Dim FormatoImpresion As String = ""
        Dim Consecutivo As String = ""
        Dim Fecha As String = ""
        Dim NoCajas As String = ""
        Dim NumberOfCode As String = ""
        Dim CvetypeImpresion As Integer
        Dim NumberSmall As String = ""
        Dim NumberBig As String = ""
        'Envase = "1 1/9"
        'Tamano = "Small"
        'Cultivo = "Tomate"
        'noPallet = "000001"
        Using objnom As New ClsNominas
            If objnom.EmbarquePalletGet(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()
                Cultivoingles = row("Cultivoingles").ToString()
                noPallet = row("Codigo").ToString()
                FormatoImpresion = row("FormatoImpresion").ToString()
                Consecutivo = row("Consecutivo").ToString()
                NoCajas = row("NoCajas").ToString()
                Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
                CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
                NumberOfCode = String.Format("(00)00000000000000(00){1:ddMMyy}(00){0}00", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
                NumberSmall = String.Format("{0:00}", noPallet.ToEntero())
                NumberBig = String.Format("{0:00}", row("Consecutivo").ToString().ToEntero()) ' String.Format("{0:dd}", row("Fecha"))
            End If
        End Using
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("Tamano", Tamano))
        params.Add(New ReportParameter("noPallet", noPallet))
        params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
        params.Add(New ReportParameter("Consecutivo", Consecutivo))
        params.Add(New ReportParameter("Fecha", Fecha))
        params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower().Contains("tomate"), "3", CvetypeImpresion.ToString())))
        params.Add(New ReportParameter("NoCajas", NoCajas))
        params.Add(New ReportParameter("NumberOfCode", NumberOfCode))
        params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
        params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
        params.Add(New ReportParameter("NumberSmall", NumberSmall))
        params.Add(New ReportParameter("NumberBig", NumberBig))



        Dim tablaReporte As New DataTable
        tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
        tablaReporte.Rows.Add(tablaReporte.NewRow)
        tablaReporte.Rows.Add(tablaReporte.NewRow)

        Dim lrds As New List(Of ReportDataSource)

        'img
        Dim dtqr As New DataTable
        Dim column As DataColumn = New DataColumn("ImagenByte")
        column.DataType = System.Type.[GetType]("System.Byte[]")
        column.AllowDBNull = True
        column.Caption = "ImagenByte"
        dtqr.Columns.Add(column)
        Dim rowqr As DataRow = dtqr.NewRow()


        Dim bcode As New BarcodeLib.Barcode()
        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
        Dim barcodebyte As Byte()
        Using ms = New MemoryStream()
            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            barcodebyte = ms.ToArray()
        End Using
        rowqr("ImagenByte") = barcodebyte

        dtqr.Rows.Add(rowqr)
        Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
        rds2.Name = "dsImagenes"
        rds2.Value = dtqr
        lrds.Add(rds2)
        'endimg

        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
        lrds.Add(rds)

        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
        'If CvetypeImpresion = 2 Then
        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
        'End If
        ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
    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

        Dim UsuarioToken As Usuario = Nothing
        Dim ObjUsuarios As New ClsSisUsuarios
        If ObjUsuarios.GetUsuarios(CveUsuario) Then
            If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
                UsuarioToken.CveEmpresa = CveEmpresa
                CreaObjetoEmpresa(UsuarioToken)
            End If
        End If
        ObjUsuarios.Dispose()
        Return UsuarioToken
    End Function
    Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)

        Dim ObjEmpresa As New ClsSisEmpresas()
        If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados

                Dim EmpresasFuncionalidades As New HybridDictionary
                For Each Row As Data.DataRow In dttmp.Rows
                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
                Next
                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
            End If

            UsuarioToken.Empresa = ObjEmpresa.Empresa
        End If
        ObjEmpresa.Dispose()
    End Sub
#End Region

    Private Sub SeleccionaReporte(UrlParametros As Hashtable)

        'DESCARGA COMPROBANTE
        If UrlParametros("OP").ToString = "IEComprobante" Then
            DescargaComprobante(UrlParametros)
        End If

        'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA
        If UrlParametros("OP").ToString = "Fact" Then
            DescargaFactura(UrlParametros)
        End If

        If UrlParametros("OP").ToString = "File" Then

            DescargaArchivoDirecto(UrlParametros("FILE").ToString)

        End If

        'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA
        If UrlParametros("OP").ToString = "FactVta" Then
            DescargaFacturaVenta(UrlParametros)
        End If

        'DESCARGA DOCUMENTO XML TRASLADO
        If UrlParametros("OP").ToString = "DesXmlTra" Then
            DescargaXMLTraslado(UrlParametros)
        End If

        'DESCARGA DOCUMENTO PDF TRASLADO
        If UrlParametros("OP").ToString = "DesPdfTra" Then
            DescargaPDFTraslado(UrlParametros)
        End If

        'DESCARGA DOCUMENTO XML DE UTILIDADES
        If UrlParametros("OP").ToString = "DesXmlNom" Then
            DescargaXMLUtilidades(UrlParametros)
        End If

        'DESCARGA DOCUMENTO XML DE VIATICOS
        If UrlParametros("OP").ToString = "DesXmlVIA" Then
            DescargaXMLViaticos(UrlParametros)
        End If

        'IMPRIME REPORTE DE ENTRADA DE ALMACEN
        If UrlParametros("OP").ToString = "Alm" Then
            If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
                CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero)
            End If
        End If

        If UrlParametros("OP").ToString = "Almr" Then
            If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
                CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=True)
            End If
        End If

        If UrlParametros("OP").ToString = "Etiqueta" Then
            If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
                ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString)
            End If
        End If

        If UrlParametros("OP").ToString = "Etiqueta2" Then
            If UrlParametros("CVEPS") IsNot Nothing AndAlso UrlParametros("CVEPS").ToString.ToEntero > 0 Then
                ImprimirEtiqueta2(UrlParametros("CVEPS").ToString.ToEntero, UrlParametros("PS").ToString, UrlParametros("CVEALMACEN").ToString, UrlParametros("MODALIDAD").ToString)
            End If
        End If

        'IMPRIME OC
        If UrlParametros("OP").ToString = "OC" Then
            If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then
                ImprimePDFOC(UrlParametros("CVEOC").ToString.ToEntero)
            End If
        End If

        'IMPRIME COTIZACION OC
        If UrlParametros("OP").ToString = "CotOC" Then
            If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then
                ImprimePDFCotOC(UrlParametros("CVEOC").ToString.ToEntero)
            End If
        End If

        'IMPRIME VALE
        If UrlParametros("OP").ToString = "VAL" Then
            If UrlParametros("CVEVALE") IsNot Nothing AndAlso UrlParametros("CVEVALE").ToString.ToEntero > 0 Then
                GenerarPDFVale(UrlParametros("CVEVALE").ToString.ToEntero)
            End If
        End If

        'IMPRIME VALE
        If UrlParametros("OP").ToString = "CAN" Then
            If UrlParametros("CVEVTA") IsNot Nothing AndAlso UrlParametros("CVEVTA").ToString.ToEntero > 0 Then
                ImprimeCancelacion(UrlParametros("CVEVTA").ToString.ToEntero)
            End If
        End If

        'IMPRIME AFR
        If UrlParametros("OP").ToString = "AFR" Then
            If UrlParametros("CVEAFR") IsNot Nothing AndAlso UrlParametros("CVEAFR").ToString.ToEntero > 0 Then
                If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then
                    ImprimirPDFAFR(UrlParametros("CVEAFR").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero)
                End If
            End If
        End If

        'IMPRIME AFR AGRUPADO
        If UrlParametros("OP").ToString = "AFR2" Then
            If UrlParametros("CVER") IsNot Nothing AndAlso UrlParametros("CVER").ToString.ToEntero > 0 Then
                If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then
                    ImprimirPDFAFR2(UrlParametros("CVER").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero)
                End If
            End If
        End If

        'IMPRIME POLIZA
        If UrlParametros("OP").ToString = "POL" Then
            If UrlParametros("CVEPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPOLIZA").ToString.ToEntero > 0 Then
                ImprimirPolizaPDF(UrlParametros("CVEPOLIZA").ToString.ToEntero)
            End If
        End If


        'IMPRIME FACTURA
        If UrlParametros("OP").ToString = "VTA" Then
            If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
                Dim AplicaPagare As String = If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0")
                Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1"
                Dim RegenerarPDF As Boolean = UrlParametros("REGENERAR") IsNot Nothing AndAlso UrlParametros("REGENERAR").ToString() = "1"
                Dim STIMULSOFT As Boolean = UrlParametros("STIMULSOFT") IsNot Nothing AndAlso UrlParametros("STIMULSOFT").ToString() = "1"

                imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, AplicaPagare, GuardarPDF:=Guardar, RegenerarPDF:=RegenerarPDF, UsarStimulsoft:=STIMULSOFT)
            End If
        End If

        'IMPRIME GASTO DE CONTRATO
        If UrlParametros("OP").ToString = "CONG" Then
            If UrlParametros("CVECONTRATO") IsNot Nothing AndAlso UrlParametros("CVECONTRATO").ToString.ToEntero > 0 Then
                ImprimeGastoContrato(UrlParametros("CVECONTRATO").ToString.ToEntero, UrlParametros("CVECONTRATOGASTO").ToString.ToEntero)
            End If
        End If

        'IMPRIME FORMATO CICOVISA
        If UrlParametros("OP").ToString = "CIC" Then
            If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
                ImprimeFormatoCICOVISA(UrlParametros("CVEVENTA").ToString.ToEntero)
            End If
        End If

        'IMPRIME CARTA PORTE
        If UrlParametros("OP").ToString = "CARPO" Then
            If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
                ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero, -1)
            End If


            If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
                ImprimeFormatoCartaPorte(-1, UrlParametros("CVETIMBRE").ToString.ToEntero)
            End If


        End If

        If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
            If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
                ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
            End If
        End If



        If UrlParametros("OP").ToString = "CORT" Then
            If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then
                Dim CveSubProyecto As Integer = -1
                If UrlParametros("CVESUBPROYECTO") IsNot Nothing Then
                    CveSubProyecto = UrlParametros("CVESUBPROYECTO").ToString.ToEntero
                End If
                ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString, CveSubProyecto)
            End If
        End If

        'IMPRIME IE
        If UrlParametros("OP").ToString = "IE" Then
            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa)
            End If
        End If

        'Imprime Movimiento de IE
        If UrlParametros("OP").ToString = "ImprimeMov" Then
            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero)
            End If
        End If

        'IMPRIME DEPOSITOS CAJA
        If UrlParametros("OP").ToString = "DC" Then
            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString)
            End If
        End If

        'IMPRIME IE2
        If UrlParametros("OP").ToString = "IECHEQUE" Then
            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa)
            End If
        End If

        'Descargar Archivo
        If UrlParametros("OP").ToString = "OI" Then
            If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then
                CrearArchivo(UrlParametros("ARCHIVO").ToString)
            End If
        End If

        'Archivo contrato
        If UrlParametros("OP").ToString = "CONTRATO" Then
            If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then
                CrearArchivoContratos(UrlParametros("ARCHIVO").ToString)
            End If
        End If

        'IMPRIME ORDENES SERVICIO
        If UrlParametros("OP").ToString = "OS" Then
            If UrlParametros("CVEOS") IsNot Nothing AndAlso UrlParametros("CVEOS").ToString.ToEntero > 0 Then
                GenerarPDFOS(UrlParametros("CVEOS").ToString.ToEntero)
            End If
        End If

        'IMPRIME 
        If UrlParametros("OP").ToString = "P" Then
            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                ImprimirReciboDePagos(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVEVENTA").ToString.ToEntero)
            End If
        End If

        'IMPRIME COMPLEMENTO DE PAGO XML
        If UrlParametros("OP").ToString = "CompP" Then

            If UrlParametros("CVECOMPLEMENTOPAGO") IsNot Nothing AndAlso UrlParametros("CVECOMPLEMENTOPAGO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then

                Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
                Dim Archivo As New System.IO.FileInfo(Path)

                If Not Archivo.Exists Then
                    If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
                        If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
                            Dim CveIE As Integer = -1
                            If UrlParametros("CVEIE") IsNot Nothing Then
                                CveIE = UrlParametros("CVEIE").ToString.ToEntero
                            End If
                            PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
                        End If
                    End If

                    Archivo = Nothing
                End If

            End If

            If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then
                Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
                Dim Archivo As New System.IO.FileInfo(Path)

                If Not Archivo.Exists Then
                    If UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                        PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, -1, True)
                    End If
                End If

                If Archivo.Exists Then
                    HttpContext.Current.Response.Clear()
                    HttpContext.Current.Response.ClearContent()
                    HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
                    HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                    HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                    HttpContext.Current.Response.TransmitFile(Path)
                    'HttpContext.Current.Response.Flush()
                    HttpContext.Current.Response.End()
                End If
                Archivo = Nothing
            End If
        End If

        'IMPRIME ENTREGAS POR REALIZAR
        If UrlParametros("OP").ToString = "ENTREGAS" Then
            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
            End If
        End If

        'PDF AJUSTE
        If UrlParametros("OP").ToString = "AJUSTE" Then
            'SI YA ESTA GUARDADO
            If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then
                ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero)
            Else
                ImprimirPDFAjuste(CvePSAjuste:=UrlParametros("CVEPSAJUSTE").ToString.ToEntero(), CveCliente:=UrlParametros("CVECLIENTE").ToString.ToEntero(),
                                                  CveClienteDistribuidor:=UrlParametros("CVECLIENTEDISTRIBUIDOR").ToString.ToEntero(), Consec:=UrlParametros("CONSEC").ToString,
                                                  FolioGarantia:=UrlParametros("FOLIOGARANTIA").ToString, FechaAjuste:=UrlParametros("FECHAAJUSTE").ToString.ToDateTime(), FechaReclamacion:=UrlParametros("FECHARECLAMACION").ToString.ToDateTime(),
                                                  TipoDefecto:=UrlParametros("TIPODEFECTO").ToString, CveTipoUso:=UrlParametros("CVETIPOUSO").ToString.ToEntero(), CodigoEnsamble:=UrlParametros("CODIGOENSAMBLE").ToString,
                                                  CodigoLinea:=UrlParametros("CODIGOLINEA").ToString, CodigoInspeccion:=UrlParametros("CODIGOINSPECCION").ToString, PorcentajeAjuste:=UrlParametros("PORCENTAJEAJUSTE").ToString,
                                                  BCIAjuste:=UrlParametros("BCIAJUSTE").ToString, Etiqueta:=UrlParametros("ETIQUETA").ToString, Año:=UrlParametros("AÑO").ToString, Comprobante:=UrlParametros("COMPROBANTE").ToString,
                                                  ModeloAuto:=UrlParametros("MODELOAUTO").ToString, MarcaAuto:=UrlParametros("MARCAAUTO").ToString, CodigoTD:=UrlParametros("CODIGOTD").ToString)
            End If
        End If

        'IMPRIME ENTREGAS POR REALIZAR
        If UrlParametros("OP").ToString = "FILE" Then
            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
            End If
        End If

    End Sub

    Private Function Parametros(Cadena As String) As Hashtable
        Dim P1() As String = Cadena.Split("&"c)
        Dim Tmp As String
        Dim P2() As String

        Dim URLParametros As New Hashtable

        For Each Tmp In P1
            P2 = Tmp.Replace("%26%", "&").Split("="c)
            URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
        Next
        Return URLParametros
    End Function

#Region "OP = CORT - IMPRIMIR CORTE"

    Private Sub ImprimeCorte(CveCorte As Integer, Formato As String, Optional CveSubProyecto As Integer = -1)
        Dim ObjVenta As New ClsVentas
        Dim ObjPuntoVenta As New ClsPuntoVenta
        Dim DtCortesVentasResumen As DataTable = Nothing
        Dim DtCortesVentas As DataTable = Nothing
        Dim Fecha = "", Nombre = ""
        If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
            DtCortesVentasResumen = ObjVenta.DtResultados

        End If

        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
            DtCortesVentas = ObjPuntoVenta.DtResultados
            If DtCortesVentas.Rows.Count > 0 Then
                Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")

                Fecha = RowInfo("FechaInicial").ToString
                Nombre = RowInfo("Nombre").ToString
            End If
        End If

        ObjVenta.Dispose()
        ObjPuntoVenta.Dispose()
        Dim FechaCorte As String = $"&emsp;<b>Fecha fin:</b> {Fecha}"
        Dim Usuario As String = $"&emsp;<b>Usuario:</b> {Nombre}"
        If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")




            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            Dim lrds As New List(Of ReportDataSource)
            Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
            lrds.Add(rds)
            Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
            lrds.Add(rds2)
            ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
        End If

    End Sub

#End Region

#Region "   OP = FACTURA - IMPRIME COMPRA"
    Private Sub DescargaComprobante(Parametros As Hashtable)
        If Parametros("COMPROBANTE") IsNot Nothing Then

            Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE"))
            Dim Archivo As New System.IO.FileInfo(Path)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = "application/octet-stream"
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub
    Private Sub DescargaFactura(Parametros As Hashtable)
        If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then
            Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
            Dim Path As String = String.Format("{0}Compras\{1}\{2}.{3}", UsuarioActual.Empresa.Ruta, Parametros("RFC").ToString, Parametros("CVEFACTURA").ToString, Exten)
            Dim Archivo As New System.IO.FileInfo(Path)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub
#End Region

#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
    Private Sub DescargaXMLViaticos(Parametros As Hashtable)
        If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
            Dim Exten As String = "Xml"
            Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", Parametros("TIPO").ToString, Parametros("SERIEFOLIO").ToString, Exten)
            Dim Archivo As New System.IO.FileInfo(Path)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = "application/xml"
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub

#End Region

#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
    Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
        If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
            Dim Exten As String = "Xml"
            Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Utilidades", Parametros("SERIEFOLIO").ToString, Exten)
            Dim Archivo As New System.IO.FileInfo(Path)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = "application/xml"
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub
#End Region

#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
    Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)

        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim Dr As DataRow = Nothing
        Dim ObjContratos As New ClsContratos
        If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
            ObjContratos.Dispose()
            Exit Sub
        End If

        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
        params.Add(New ReportParameter("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} "))
        params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString)))
        params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString))
        params.Add(New ReportParameter("FechaFin", ObjContratos.FechaFinal.ToShortDateString))
        params.Add(New ReportParameter("TipoContrato", ObjContratos.DtResultados.Rows(0)("ContratoTipo").ToString))
        params.Add(New ReportParameter("TotalContrato", ObjContratos.ImporteTotal.FormatoNumero))
        Dim Nombre As String = If($"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Length > 20, $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Substring(0, 20), $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ")
        Dim SumaUtilidad As Double = 0
        Dim SumaGasto As Double = 0
        If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
            If ObjContratos.DtResultados.Rows.Count > 0 Then
                SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
            End If
        End If
        Dim dt As DataTable = Nothing
        If ObjContratos.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
            dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}")
            SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")
        End If
        params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
    End Sub
#End Region


#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
    Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
        If CveVenta > 0 Then
            Dim ObjVentas As New ClsVentas
            Dim SerieFolio As String = ""
            Dim PedidoContrato As String = ""
            Dim EnvioContacto As String = ""
            Dim EnvioDireccion As String = ""
            Dim Guia As String = ""
            If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) Then
                If ObjVentas.DtResultados.Rows.Count > 0 Then
                    SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
                    PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
                    EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
                    EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
                    Guia = ObjVentas.DtResultados.Rows(0)("Guia").ToString
                End If
            End If
            Dim Dt As DataTable = Nothing
            If ObjVentas.GetVentaDetalle(CveVenta) Then
                Dt = ObjVentas.DtResultados
            End If
            ObjVentas.Dispose()
            If Dt.Rows.Count > 0 Then
                Dim params As New List(Of ReportParameter)
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                params.Add(New ReportParameter("SerieFolio", SerieFolio))
                params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
                params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
                params.Add(New ReportParameter("Guia", Guia))
                ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
            End If
        End If
    End Sub

#End Region

#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
    Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer, Optional CveTimbre As Integer = -1)
        If CveMovimiento > 0 Or CveTimbre > 0 Then


            Dim SerieFolio As String = ""
            Dim DomicilioSucursal As String = ""
            Dim LugarFecha As String = ""
            Dim Origen As String = ""
            Dim Destino As String = ""
            Dim Observaciones As String = ""
            Dim Chofer As String = ""
            Dim CveChofer As String
            Dim Placa As String = ""
            Dim Recibio As String = ""
            Dim FechaEntrega As String = ""
            Dim EspecifUnidad As String = ""
            Dim ResponsableCarga As String = ""
            Dim ResponsableRecibio As String = ""
            Dim Identificacion As String = ""
            Dim Domicilio As String = ""
            Dim Telefono As String = ""
            Dim Ciudad As String = ""
            Dim Licencia As String = ""


            Dim SBDireccionO As New StringBuilder()
            Dim SBDireccionD As New StringBuilder()

            Dim Dt As DataTable = Nothing

            Dim FormatoRDLC As String = ""

            Dim params As New List(Of ReportParameter)

            If CveMovimiento > 0 Then

                FormatoRDLC = "CartaPorte.rdlc"

                Dim ObjInv As New ClsInventarios
                If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
                    If ObjInv.DtResultados.Rows.Count > 0 Then
                        Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                        If Dr IsNot Nothing Then
                            SerieFolio = Dr("Folio").ToString
                            DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString}  "
                            LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
                            Origen = Dr("AlmacenOrigen").ToString
                            Destino = Dr("AlmacenDestino").ToString
                            Observaciones = Dr("Observaciones").ToString
                            CveChofer = Dr("CveChofer").ToString


                            Placa = Dr("Traslado_Placa").ToString
                            Recibio = Dr("Recibio").ToString
                            FechaEntrega = Dr("FechaEntrega").ToString
                            EspecifUnidad = Dr("EspecificacionUnidad").ToString


                            If Dr("CalleOrigen").ToString.Length > 0 Then
                                SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
                                If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
                                If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
                                If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
                                If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
                                If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
                                If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
                                If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
                            End If
                            If Dr("CalleDestino").ToString.Length > 0 Then
                                SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
                                If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
                                If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
                                If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
                                If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
                                If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
                                If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
                                If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
                            End If

                            ResponsableCarga = Dr("ResponsableCarga").ToString
                            ResponsableRecibio = Dr("ResponsableRecibio").ToString
                            Identificacion = Dr("Identificacion").ToString
                            Domicilio = Dr("Domicilio").ToString
                            Telefono = Dr("Telefono1").ToString
                            Ciudad = Dr("Ciudad").ToString
                            Licencia = Dr("Licencia").ToString


                            Chofer = Dr("Chofer").ToString
                            Placa = Dr("Placa").ToString
                            EspecifUnidad = Dr("Especificacion").ToString



                        End If
                    End If
                End If



                If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                    Dt = ObjInv.DtResultados
                End If
                ObjInv.Dispose()


            ElseIf CveTimbre > 0 Then

                FormatoRDLC = "RecoleccionTimbrado.rdlc"

                Dim ObjGral As New ClsGenerales


                If ObjGral.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then

                    Dim Dr As DataRow = ObjGral.DtResultados.Rows(0)

                    Dim TipoDocto As String = Dr("TipoDocto").ToString

                    SerieFolio = Dr("SerieFolio").ToString
                    DomicilioSucursal = $"{Dr("DirOriCalle").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString}  "
                    LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
                    Origen = Dr("SPOrigen").ToString
                    Destino = Dr("SPDestino").ToString
                    Observaciones = ""
                    CveChofer = Dr("CveChofer").ToString
                    Chofer = Dr("FiguraChofer").ToString


                    Placa = Dr("Placa").ToString
                    Recibio = ""
                    FechaEntrega = Dr("FechaEntrega").ToString
                    EspecifUnidad = Dr("EspecificacionUnidad").ToString


                    If Dr("CalleOrigen").ToString.Length > 0 Then
                        SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
                        If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
                        If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
                        If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
                        If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
                        If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
                        If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
                        If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
                    End If
                    If Dr("CalleDestino").ToString.Length > 0 Then
                        SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
                        If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
                        If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
                        If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
                        If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
                        If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
                        If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
                        If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
                    End If

                    ResponsableCarga = Dr("ResponsableCarga").ToString
                    ResponsableRecibio = Dr("ResponsableRecibio").ToString
                    Identificacion = Dr("Identificacion").ToString
                    Domicilio = Dr("Domicilio").ToString
                    Telefono = Dr("Telefono1").ToString
                    Ciudad = Dr("Ciudad").ToString
                    Licencia = Dr("Licencia").ToString


                    Chofer = Dr("Chofer").ToString
                    Placa = Dr("Placa").ToString
                    EspecifUnidad = Dr("Especificacion").ToString



                    If ObjGral.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
                        Dt = ObjGral.DtResultados
                    End If


                    Dim Ruta As String = UsuarioActual.Empresa.Ruta
                    Dim PathXML As String = $"{Ruta}XML\{TipoDocto}\{SerieFolio }.xml"


                    Dim FechaEmision, FechaCertificacion As DateTime
                    Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT, SerieCertificadoSAT As String

                    FolioFiscal = ""
                    NoSerieCertificado = ""
                    SelloCFDi = ""
                    SelloSAT = ""
                    SerieCertificadoSAT = ""


                    If UsuarioActual.CveUsuario = 100 Then
                        Alert(PathXML)
                    End If

                    If System.IO.File.Exists(PathXML) Then

                        Dim ReceptorRFC As String = ""

                        Dim XmlDoc As New System.Xml.XmlDocument
                        XmlDoc.Load(PathXML)

                        Dim nodo As XmlNode = XmlDoc.DocumentElement
                        Dim Version = ValorXML(nodo, "version")

                        Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
                        Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
                        Dim cfdVer As String = ""

                        If Version = "3.2" Then
                            Prefijo = "cfd"
                            cfdVer = "http://www.sat.gob.mx/cfd/2"
                        ElseIf Version = "3.3" Then
                            cfdVer = "http://www.sat.gob.mx/cfd/3"
                        Else ' se considera que es la version 4.0
                            cfdVer = "http://www.sat.gob.mx/cfd/4"
                        End If

                        namespaces.AddNamespace(Prefijo, cfdVer)
                        namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                        namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                        namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")

                        Dim node As XmlNode

                        node = XmlDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)

                        If node IsNot Nothing Then
                            ReceptorRFC = ValorXML(node, "RFC")
                        End If




                        If Version.Contiene("3.3", "4.0") Then
                            FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
                            NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText

                            For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
                                If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then
                                    FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
                                    NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
                                    FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("FechaTimbrado").InnerText.ToDate
                                    SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloCFD").InnerText
                                    SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloSAT").InnerText
                                    SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText



                                End If
                            Next
                        Else
                            FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate
                            NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText

                            For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
                                If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:timbreFiscalDigital" Then
                                    FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
                                    NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("noCertificadoSAT").InnerText
                                    FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("fechaTimbrado").InnerText.ToDate
                                    SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloCFD").InnerText
                                    SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloSAT").InnerText
                                    SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
                                End If
                            Next
                        End If

                        Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Version.Contiene("3.3", "4.0"), "1.1", "1.0"), FolioFiscal, FechaCertificacion.ToString("yyyy-MM-dd"), FechaCertificacion.ToString("HH:mm:ss"), SelloCFDi, NoSerieCertificado)

                        Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{SerieFolio}.jpg"
                        Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)


                        If Not ImagenCBB.Exists Then
                            Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
                            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaCBB)
                        End If


                        Dim ImgCBB As String = $"file://{ImagenCBB.FullName}"


                        params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
                        params.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado))
                        params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString))
                        params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
                        params.Add(New ReportParameter("SelloSAT", SelloSAT))
                        params.Add(New ReportParameter("CertificadoContribuyente", NoSerieCertificadoContribuyente))
                        params.Add(New ReportParameter("QR", ImgCBB.ToString))
                        params.Add(New ReportParameter("SerieCertificadoSAT", SerieCertificadoSAT))
                        params.Add(New ReportParameter("CadenaOriginal", CadenaOriginals))

                    End If



                End If

                ObjGral.Dispose()








            End If


            If Dt.Rows.Count > 0 Then

                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
                params.Add(New ReportParameter("SerieFolio", SerieFolio))
                params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal))
                params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
                params.Add(New ReportParameter("LugarFecha", LugarFecha))
                params.Add(New ReportParameter("Origen", Origen))
                params.Add(New ReportParameter("Destino", Destino))
                params.Add(New ReportParameter("Remitente", ""))
                params.Add(New ReportParameter("Destinatario", ""))
                params.Add(New ReportParameter("Observaciones", Observaciones))
                params.Add(New ReportParameter("Chofer", Chofer))
                params.Add(New ReportParameter("ResponsableRecibio", Chofer))
                params.Add(New ReportParameter("Placa", Placa))
                params.Add(New ReportParameter("Recibio", Recibio))
                params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToDateTime().ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad))
                params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
                params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
                params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
                params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
                params.Add(New ReportParameter("Identificacion", Identificacion))
                params.Add(New ReportParameter("Domicilio", Domicilio))
                params.Add(New ReportParameter("Telefono", Telefono))
                params.Add(New ReportParameter("Ciudad", Ciudad))
                params.Add(New ReportParameter("Licencia", Licencia))




                ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))




            End If

        End If
    End Sub

    Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
        Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
        If o Is Nothing Then
            Return Retorno
        Else
            Return o.Value
        End If
    End Function

    Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
        Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
        If o Is Nothing Then
            Return Retorno
        Else
            Return o.Value
        End If
    End Function

    Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
        Dim resp = PreParaImpresionCartaPorte(CveTimbre)
        If resp.DataSources.Count > 0 AndAlso resp.Parametros.Count > 0 Then
            ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", resp.DataSources, resp.Parametros, resp.SerieFolio)
        End If
    End Sub

    Private Function PreParaImpresionCartaPorte(CveTimbre As Integer, Optional AplicaSubReporte As Boolean = False) As Modelos.MSubReportData
        Dim retorno As New Modelos.MSubReportData
        retorno.Nombre = "CartaPorte"
        Try
            If CveTimbre > 0 Then
                Dim params As New List(Of ReportParameter)
                '01  Autotransporte Federal
                '02  Transporte Marítimo
                '03  Transporte Aéreo
                '04  Transporte Ferroviario
                '05  Ducto
                Dim HtTransporte As New Hashtable()
                HtTransporte.Add("01", "Autotransporte Federal")
                HtTransporte.Add("02", "Transporte Marítimo")
                HtTransporte.Add("03", "Transporte Aéreo")
                HtTransporte.Add("04", "Transporte Ferroviario")
                HtTransporte.Add("05", "Ducto")

                'EMISOR
                Dim LugarExpedicion As String = ""
                Dim ImgCBB As String = ""
                'COMPROBANTE
                Dim SerieFolio As String = ""
                Dim Telefono As String = ""
                Dim SubTotal As Decimal = 0
                Dim Descuentos As Decimal = 0
                Dim Total As Decimal = 0
                'DATOS DEL CLIENTE
                Dim ClienteRFC As String = ""
                Dim ClienteNombre As String = ""
                Dim ClienteUsoCFDi As String = ""

                'TRANSPORTE
                Dim MedioTransporte As String = ""
                Dim TransporteInternacional As String = ""
                Dim PermisoSTCC As String = ""
                Dim NumPermiso As String = ""
                Dim AseguradoraRespCivil As String = ""
                Dim NumPolizaSeguroRespCivil As String = ""
                Dim NombreAseguradoraMedioAmbiente As String = ""
                Dim NumPolizaSeguroMedioAmbiente As String = ""
                Dim NombreAseguradoraCarga As String = ""
                Dim NumPolizaSeguroCarga As String = ""

                Dim RemolquePlaca1 As String = ""
                Dim RemolquePlaca2 As String = ""
                Dim RemolqueSubtimo1 As String = ""
                Dim RemolqueSubtimo2 As String = ""

                Dim PlacaVM As String = ""
                Dim AnioModeloVM As String = ""
                'TIMBRADO
                Dim FolioFiscal As String = ""
                Dim NoCertificadoSAT As String = ""
                Dim CadenaOriginal As String = ""
                Dim NoSerieCertificado As String = ""
                Dim FechaCertificacion As DateTime = Nothing
                Dim SelloCFDi As String = ""
                Dim SelloSAT As String = ""
                Dim TipoDocto As String = ""
                Dim PermisoSCTR1 As String = ""
                Dim PermisoSCTR2 As String = ""
                Dim ConfATR1 As String = ""
                Dim ConfATR2 As String = ""


                Dim ObjInv As New ClsGenerales

                If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
                    If ObjInv.DtResultados.Rows.Count > 0 Then
                        Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                        If Dr IsNot Nothing Then
                            SerieFolio = Dr("SerieFolio").ToString
                            Telefono = Dr("FiguraTelefono").ToString
                            TipoDocto = Dr("TipoDocto").ToString

                            If UsuarioActual.CveEmpresa = 13 Then
                                PermisoSCTR1 = Dr("PermisoSCTR1").ToString
                                PermisoSCTR2 = Dr("PermisoSCTR2").ToString
                                ConfATR1 = Dr("ConfATR1").ToString
                                ConfATR2 = Dr("ConfATR2").ToString
                            End If

                        End If
                    End If
                End If
                ObjInv.Dispose()

                retorno.SerieFolio = SerieFolio

                Dim DtConceptos As New DataTable()
                DtConceptos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
                DtConceptos.Columns.Add(New DataColumn("Unidad", GetType(String)))
                DtConceptos.Columns.Add(New DataColumn("Descripcion", GetType(String)))
                DtConceptos.Columns.Add(New DataColumn("ValorUnitario", GetType(Decimal)))
                DtConceptos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))

                Dim DtUbicaciones As New DataTable()
                DtUbicaciones.Columns.Add(New DataColumn("Distancia", GetType(String)))
                DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String)))
                DtUbicaciones.Columns.Add(New DataColumn("RFC", GetType(String)))
                DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
                DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
                DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))

                Dim DtMercancias As New DataTable()
                DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
                DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
                DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String)))
                DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String)))

                DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String)))
                DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String)))

                Dim DtOperadores As New DataTable()
                DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
                DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
                DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))

                Dim DTRelacionados As New DataTable()
                DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String)))
                DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String)))

                Dim XMLDoc As New XmlDocument
                Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml")
                Dim Archivo As New System.IO.FileInfo(Path)

                If Archivo.Exists Then
                    Try
                        XMLDoc.Load(Path)
                    Catch ex As Exception
                        Try
                            Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
                            XMLDoc.Load(oReader)
                            oReader.Dispose()
                        Catch ex2 As Exception
                            GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
                        End Try
                    End Try
                End If

                If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then

                    Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
                    Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)

                    Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
                    Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
                    Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
                    Dim Version = ValorXML(XMLDoc.DocumentElement, "version")
                    If Version = "3.3" Then
                        cfdVer = "http://www.sat.gob.mx/cfd/3"
                    Else ' se considera que es la version 4.0
                        cfdVer = "http://www.sat.gob.mx/cfd/4"
                    End If

                    namespaces.AddNamespace(Prefijo, cfdVer)
                    namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                    namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                    namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
                    namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
                    namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")


                    Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
                    If nodeComprobante IsNot Nothing Then
                        LugarExpedicion = ValorXML(nodeComprobante, "LugarExpedicion")
                        SubTotal = ValorXML(nodeComprobante, "SubTotal").ToDecimal()
                        Total = ValorXML(nodeComprobante, "Total").ToDecimal()
                    End If

                    Dim nodeCliente As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)

                    If nodeCliente IsNot Nothing Then
                        ClienteRFC = ValorXML(nodeCliente, "RFC")
                        ClienteNombre = ValorXML(nodeCliente, "Nombre")
                        Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI")
                        ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI)))
                    End If

                    Dim nodeConceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)

                    If nodeConceptos IsNot Nothing Then
                        For Each node As XmlNode In nodeConceptos.ChildNodes
                            Dim Row As DataRow = DtConceptos.NewRow

                            Row("Cantidad") = ValorXML(node, "Cantidad", "")
                            Row("Unidad") = ValorXML(node, "Unidad", "")
                            Row("Descripcion") = ValorXML(node, "Descripcion", "")
                            Row("ValorUnitario") = ValorXML(node, "ValorUnitario", "")
                            Row("Importe") = ValorXML(node, "Importe", "")
                            DtConceptos.Rows.Add(Row)
                        Next
                    End If
                    Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante/{0}:Complemento", Prefijo), namespaces)

                    Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces)
                    If nodeCartaPorte IsNot Nothing Then
                        TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
                    End If

                    Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces)
                    If nodeAutotransporteFederal IsNot Nothing Then
                        PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
                        NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
                    End If

                    Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces)
                    If nodeIdentificacionVehicular IsNot Nothing Then
                        PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
                        AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
                    End If

                    Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces)
                    If nodeIdentificacionVehicular IsNot Nothing Then
                        AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "")
                        NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "")

                        'Por Definir de donde sale
                        NombreAseguradoraMedioAmbiente = ValorXML(nodeSeguros, "AseguraMedAmbiente", "")
                        NumPolizaSeguroMedioAmbiente = ValorXML(nodeSeguros, "PolizaMedAmbiente", "")
                        NombreAseguradoraCarga = ValorXML(nodeSeguros, "AseguraCarga", "")
                        NumPolizaSeguroCarga = ValorXML(nodeSeguros, "PolizaCarga", "")
                    End If


                    Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces)

                    If nodeRemolques IsNot Nothing Then
                        If nodeRemolques.ChildNodes.Count = 1 Then
                            RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "")
                            RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "")
                        ElseIf nodeRemolques.ChildNodes.Count > 1 Then
                            RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "")
                            RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "")
                            RemolquePlaca2 = ValorXML(nodeRemolques.ChildNodes(1), "Placa", "")
                            RemolqueSubtimo2 = ValorXML(nodeRemolques.ChildNodes(1), "SubTipoRem", "")
                        End If
                    End If

                    'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces)
                    'If nodeFiguraTransporte IsNot Nothing Then
                    '    Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "TipoFigura", "")
                    '    MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
                    'End If

                    Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces)
                    For Each node As XmlNode In nodeMercancias
                        Dim Row As DataRow = DtMercancias.NewRow

                        Row("Cantidad") = ValorXML(node, "Cantidad", "")
                        Row("UnidadMedida") = ValorXML(node, "Unidad", "")
                        Row("Descripcion") = ValorXML(node, "Descripcion", "")
                        Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "")

                        Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
                        Row("Embalaje") = ValorXML(node, "Embalaje", "")

                        DtMercancias.Rows.Add(Row)
                    Next

                    Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces)
                    If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then
                        Dim PesoNetoTotal = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
                        Dim UnidadPeso = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
                        Dim NumTotalMercancias = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "")

                        params.Add(New ReportParameter("PesoNetoTotal", PesoNetoTotal))
                        params.Add(New ReportParameter("UnidadPeso", UnidadPeso))
                        params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias))
                    End If

                    Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces)
                    For Each node As XmlNode In nodeOperadores
                        Dim Row As DataRow = DtOperadores.NewRow

                        Row("RFC") = ValorXML(node, "RFCFigura", "")
                        Row("NumLicencia") = ValorXML(node, "NumLicencia", "")
                        Row("NombreOperador") = ValorXML(node, "NombreFigura", "")

                        DtOperadores.Rows.Add(Row)
                    Next

                    Dim DistanciaTotal As Decimal = 0
                    Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces)
                    For Each node As XmlNode In nodeUbicaciones
                        Dim Row As DataRow = DtUbicaciones.NewRow

                        Row("Distancia") = ValorXML(node, "DistanciaRecorrida", "")
                        DistanciaTotal += Row("Distancia").ToString().ToDecimal()
                        Row("TipoUbicacion") = ValorXML(node, "TipoUbicacion", "")
                        Row("FechaHoraSalida") = ValorXML(node, "FechaHoraSalidaLlegada", "")
                        Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
                        Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")

                        Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
                        If nodeDomicilio IsNot Nothing Then

                            Dim Estado As String = ""
                            Dim Municipio As String = ""
                            Dim Colonia As String = ""
                            Dim calle = ValorXML(nodeDomicilio, "Calle", "")
                            Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "")

                            Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("")
                            If dr IsNot Nothing Then
                                Estado = dr("NombreEstado").ToString
                                Municipio = dr("NombreMunicipio").ToString
                                Colonia = dr("NombreAsentamiento").ToString
                            End If
                            Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP)
                        End If


                        DtUbicaciones.Rows.Add(Row)
                    Next

                    If UsuarioActual.CveEmpresa = 13 Then
                        params.Add(New ReportParameter("DistanciaTotal", DistanciaTotal.ToString()))
                    End If

                    Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)

                    If nodeRelacion IsNot Nothing Then
                        Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
                        Dim Relacion As String = ""

                        Select Case RelacionCodigo
                            Case "01"
                                Relacion = "01 - Nota de crédito de los documentos relacionados"
                            Case "02"
                                Relacion = "02 - Nota de débito de los documentos relacionados"
                            Case "03"
                                Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos"
                            Case "04"
                                Relacion = "04 - Sustitución de los CFDI previos"
                            Case "05"
                                Relacion = "05 - Traslados de mercancias facturados previamente"
                            Case "06"
                                Relacion = "06 - Factura generada por los traslados previos"
                            Case "07"
                                Relacion = "07 - CFDI por aplicación de anticipo"
                            Case "08"
                                Relacion = "08 - Factura generada por pagos en parcialidades"
                            Case "09"
                                Relacion = "09 - Factura generada por pagos diferidos"

                        End Select

                        Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
                        For Each node As XmlNode In nodoDocumentosRealcionados

                            Dim nRow As DataRow = DTRelacionados.NewRow
                            nRow("Relacion") = Relacion

                            Try
                                Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
                                nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
                            Catch ex As Exception
                                nRow("UUID") = ""
                            End Try

                            DTRelacionados.Rows.Add(nRow)
                        Next
                    End If




                    Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
                    If nodeTFD IsNot Nothing Then
                        FolioFiscal = ValorXML(nodeTFD, "UUID", "")
                        NoSerieCertificado = ValorXML(nodeTFD, "NoCertificadoSAT", "")
                        FechaCertificacion = ValorXML(nodeTFD, "FechaTimbrado", "").ToDateTime
                        SelloCFDi = ValorXML(nodeTFD, "SelloCFD", "")
                        SelloSAT = ValorXML(nodeTFD, "SelloSAT", "")
                        NoCertificadoSAT = ValorXML(nodeTFD, "NoCertificadoSAT", "")

                        CadenaOriginal = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||"
                    End If

                    If Not ImagenCBB.Exists Then
                        Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
                        CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
                    End If


                    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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                    'EMPRESA
                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                    params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
                    params.Add(New ReportParameter("SerieFolio", SerieFolio))
                    params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
                    params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
                    'CLIENTE
                    params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
                    params.Add(New ReportParameter("ClienteRFC", ClienteRFC))
                    params.Add(New ReportParameter("UsoCFDi", ClienteUsoCFDi))
                    'TRANSPORTE
                    params.Add(New ReportParameter("MedioTransporte", MedioTransporte))
                    params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
                    params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
                    params.Add(New ReportParameter("NumPermiso", NumPermiso))

                    params.Add(New ReportParameter("Aseguradora", AseguradoraRespCivil))
                    params.Add(New ReportParameter("NumPoliza", NumPolizaSeguroRespCivil))

                    params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente))
                    params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente))

                    params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga))
                    params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga))

                    params.Add(New ReportParameter("PlacaVM", PlacaVM))
                    params.Add(New ReportParameter("AnioVM", AnioModeloVM))
                    'TIMBRADO
                    params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
                    params.Add(New ReportParameter("QR", ImgCBB))
                    params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
                    params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
                    params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
                    params.Add(New ReportParameter("SerieCertificadoSAT", NoSerieCertificado))
                    params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("dd/MM/yyyy HH:mm:ss")))
                    params.Add(New ReportParameter("SelloSAT", SelloSAT))
                    'TOTALES
                    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("RemolquePlaca1", RemolquePlaca1))
                    params.Add(New ReportParameter("RemolqueSubtimo1", RemolqueSubtimo1))

                    params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2))
                    params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2))

                    If UsuarioActual.CveEmpresa = 13 Then
                        params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1))
                        params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2))
                        params.Add(New ReportParameter("ConfATR1", ConfATR1))
                        params.Add(New ReportParameter("ConfATR2", ConfATR2))
                    End If



                    ' [@CertificadoContribuyente]
                    '[@CadenaOriginal]

                    Dim lrds As New List(Of ReportDataSource)

                    Dim rds As New ReportDataSource
                    rds.Name = "DataSet1"
                    rds.Value = DtConceptos
                    lrds.Add(rds)

                    Dim rds2 As New ReportDataSource
                    rds2.Name = "DataSet2"
                    rds2.Value = DtUbicaciones
                    lrds.Add(rds2)

                    Dim rds3 As New ReportDataSource
                    rds3.Name = "DataSet3"
                    rds3.Value = DtMercancias
                    lrds.Add(rds3)

                    Dim rds4 As New ReportDataSource
                    rds4.Name = "DataSet4"
                    rds4.Value = DtOperadores
                    lrds.Add(rds4)


                    Dim rds5 As New ReportDataSource
                    rds5.Name = "DataSet5"
                    rds5.Value = DTRelacionados
                    lrds.Add(rds5)

                    If AplicaSubReporte Then
                        For Each parametro As ReportParameter In params
                            retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0)))
                        Next
                        retorno.Parametros.Add(New ReportParameter($"TieneCartaPorte", "True"))
                    Else
                        retorno.Parametros.AddRange(params)
                    End If

                    retorno.DataSources.AddRange(lrds)
                End If

            End If
        Catch ex As Exception
            OnError("Ocurrió un error al generar el pdf de la carta porte", ex)
        End Try
        Return retorno
    End Function
#End Region

#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"

    Private Sub DescargaXMLTraslado(Parametros As Hashtable)
        If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" Then
            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)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub

#End Region

#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"

    Private Sub DescargaPDFTraslado(Parametros As Hashtable)
        If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" Then
            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 = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero

            If Archivo.Exists Then
                DescargarArchivoPDFTraslado(Archivo, Path)
            Else
                If Exten = "pdf" Then
                    Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual)

                    GeneraPDFFactura(ObjTimbres.ObjFactura)
                    Archivo = New System.IO.FileInfo(Path)
                    If Archivo.Exists Then
                        DescargarArchivoPDFTraslado(Archivo, Path)
                    End If
                End If
            End If
            Archivo = Nothing
        End If
    End Sub
    Private Sub DescargarArchivoPDFTraslado(Archivo As System.IO.FileInfo, path As String)
        HttpContext.Current.Response.Clear()
        HttpContext.Current.Response.ClearContent()
        HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "text/xml", "application/pdf")
        HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
        HttpContext.Current.Response.TransmitFile(path)
        'HttpContext.Current.Response.Flush()
        HttpContext.Current.Response.End()
    End Sub

    Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura)
        Try
            ' Dim objFactura = CreaObjetosTraslado(CveMovimiento)
            If ObjFactura IsNot Nothing Then
                PdfFactura(ObjFactura)
                ObjFactura.Dispose()
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al generar el PDF", ex)
        End Try
    End Sub

    Private Function CreaObjetosTraslado(CveMovimiento As Integer) As Modelos.Factura
        Dim Folio As Integer = -1
        Dim CveAlmacen As Integer = 0
        Dim DtDetalle As DataTable = Nothing

        Using ObjMovimientos As New ClsInventarios
            If ObjMovimientos.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjMovimientos.DtResultados.Rows.Count = 1 Then
                Folio = ObjMovimientos.Folio
                CveAlmacen = ObjMovimientos.CveAlmacen
            End If

            If ObjMovimientos.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                DtDetalle = ObjMovimientos.DtResultados.Copy
            End If
        End Using

        If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
            Dim ObjFactura = New Modelos.Factura
            ObjFactura.Version = "3.3"
            ObjFactura.CveUsuario = UsuarioActual.CveUsuario
            ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
            ObjFactura.TipoCambio = 0
            ObjFactura.ConvertirPesos = False
            ObjFactura.TipoCambio = 0
            ObjFactura.CveMoneda = 1
            ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1")
            ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ")
            ObjFactura.TipoDocto = "Tra"
            ObjFactura.RefDocto = ""
            ObjFactura.Folio = Folio
            ObjFactura.Serie = "Tra"
            'ObjFactura.CveMesa = -1
            ObjFactura.Fecha = Now
            ObjFactura.CvePrePoliza = -1
            ObjFactura.FechaPago = Now
            ObjFactura.MotivoDescuento = ""
            ObjFactura.Observaciones = ""
            ObjFactura.FechaEjecucion = Now
            ObjFactura.UsuarioCreo = UsuarioActual.Usuario
            ObjFactura.CveCondicionEntrega = -1
            ObjFactura.CondicionEntrega = ""
            ObjFactura.NumeroCuenta = ""
            ObjFactura.CondicionesPago = 0
            ObjFactura.FormaPago = 0
            ObjFactura.PedidoContrato = ""
            ObjFactura.OrdenCompra = ""
            ObjFactura.NumeroContrato = ""
            ObjFactura.NumeroDescripcionContrato = ""
            ObjFactura.DescripcionContrato = ""
            ObjFactura.CveCorte = -1
            ObjFactura.TipoDocumento = "Traspaso"
            ObjFactura.Alfa1 = ""
            ObjFactura.Alfa2 = ""
            ObjFactura.Alfa3 = ""
            ObjFactura.Descuento = 0
            ObjFactura.Amortizacion = 0
            ObjFactura.CveContrato = 0
            ObjFactura.CveVendedor = 0
            ObjFactura.FechaVencimiento = Now
            ObjFactura.TipoEstatus = 0
            ObjFactura.Det_OrdenCompra = ""
            ObjFactura.Inv_CveEstatusEntrega = 0
            ObjFactura.FormaPago33 = ""
            ObjFactura.MetodoPago33 = ""
            ObjFactura.UsoCFDI = ""
            ObjFactura.CveClienteSucursal = 0
            Dim CveSubProyecto As Integer = -1
            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows.Count > 0 Then
                CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows(0)("CveSubProyecto").ToString.ToEntero
            End If
            ObjFactura.CveSubProyecto = CveSubProyecto
            ObjFactura.CveSubProyectoCobranza = CveSubProyecto
            ObjFactura.CveSubProyectoEjecucion = CveSubProyecto

            ObjFactura.SubTotal = 0
            ObjFactura.Descuento = 0
            ObjFactura.Amortizacion = 0
            ObjFactura.IVA = 0
            ObjFactura.RetIVA = 0
            ObjFactura.RetISR = 0
            ObjFactura.IEPS = 0
            ObjFactura.Total = 0
            ObjFactura.RFCReceptor = "XAXX010101000"



            DtDetalle.Columns.Add("TotalImporte", Type.GetType("System.Double"))
            DtDetalle.Columns.Add("Descuento", Type.GetType("System.Double"))
            DtDetalle.Columns.Add("UM")
            DtDetalle.Columns.Add("SATClaveUM")
            DtDetalle.Columns.Add("SATClaveProdServ")
            DtDetalle.Columns.Add("Noidentificacion")
            DtDetalle.Columns.Add("CuentaPredial")
            DtDetalle.Columns.Add("Obs")
            DtDetalle.Columns.Add("ImporteIVA", Type.GetType("System.Double"))
            DtDetalle.Columns.Add("PorcentajeIVA", Type.GetType("System.Double"))


            For Each Row As DataRow In DtDetalle.Rows
                Row("TotalImporte") = Row("Total")
                Row("Descuento") = 0
                Row("UM") = Row("UnidadMedida")
                Row("SATClaveUM") = Row("SATClaveUnidadMedida")
                Row("SATClaveProdServ") = Row("SATClavePS")
                Row("Noidentificacion") = Row("Codigo")
                Row("CuentaPredial") = ""
                Row("Obs") = Row("Observaciones")
                Row("ImporteIVA") = 0
                Row("PorcentajeIVA") = 0
            Next

            'DETALLES
            ObjFactura.DtDetalle = DtDetalle

            'SUBPROYECTO
            ObjFactura.SetSubProyectoMatriz(Me)
            ObjFactura.SetSubProyecto(Me)

            ObjFactura.Inv_CveMovimiento = CveMovimiento

            ObjFactura.Timbre = PreParaTimbreTraslado(ObjFactura)
            Return ObjFactura
        End If

        Return Nothing

    End Function
    Private Function PreParaTimbreTraslado(Obj As Modelos.Factura) As CFDITimbre
        Dim Timbre As New CFDITimbre
        Timbre.Comprobante.TipoComprobante = "T"
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
        Timbre.Comprobante.Fecha = Obj.Fecha
        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
        Timbre.Comprobante.SubTotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
        Timbre.Comprobante.Moneda = Obj.MonedaSAT
        Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
        Timbre.Comprobante.Total = Obj.Total

        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
        Timbre.Comprobante.Confirmacion = ""

        Timbre.Receptor.RFC = "XAXX010101000"
        Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa
        Timbre.Receptor.UsoCFDI = "P01"

        Dim totSubTotal As Decimal = Obj.SubTotal
        Dim totIVA As Decimal = Obj.IVA
        Dim totRetIVA As Decimal = Obj.RetIVA
        Dim totRetISR As Decimal = Obj.RetISR
        Dim i As Integer = 1

        'DETALLES
        Dim tPS As String = ""

        For Each drr As DataRow In Obj.DtDetalle.Rows
            If drr("PS").ToString.Length = 1 Then
                tPS = drr("Obs").ToString
            Else
                If drr("PS").ToString.Length = 0 Then
                    tPS = ""
                Else
                    tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
                End If
            End If

            'CONDICIONANTE, ESPECIAL
            If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO

            Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
                                                        .Descripcion = tPS,
                                                        .ValorUnitario = drr("PU").ToString.ToDecimal,
                                                        .Importe = drr("TotalImporte").ToString.ToDecimal,
                                                        .Descuento = drr("Descuento").ToString.ToDecimal,
                                                        .Unidad = drr("UM").ToString,
                                                        .ClaveUnidad = drr("SATClaveUM").ToString,
                                                        .ClaveProdServ = drr("SATClaveProdServ").ToString,
                                                        .Noidentificacion = drr("Noidentificacion").ToString,
                                                        .CuentaPredial = drr("CuentaPredial").ToString}
            'VERIFICA SUMA SUBTOTALES
            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
                concepto.Importe = totSubTotal
            End If
            totSubTotal = totSubTotal - concepto.Importe

            'SIEMPRE ESTAMOS AGREGANDO EL IVA
            'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})

            Timbre.Conceptos.Add(concepto)
            i += 1
        Next
        Return Timbre
    End Function

#End Region

#Region "   OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
    Private Sub DescargaFacturaVenta(Parametros As Hashtable)
        If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
            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("SERIEFOLIO").ToString, Exten)
            Dim Archivo As New System.IO.FileInfo(Path)

            If Archivo.Exists Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.ClearContent()
                HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name).ToLower = ".xml", "application/xml", "application/pdf")
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub
    Public Sub imprimirFacturaVenta(CveVenta As Integer, AplicaPagare As String, Optional GuardarPDF As Boolean = False, Optional RegenerarPDF As Boolean = False, Optional UsarStimulsoft As Boolean = False)
        Dim ObjVentas As New ClsVentas
        Dim Vta As Modelos.Factura = Nothing

        Dim PathArchivo As String = "" 'String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)


        Dim TmpDTImpuestos = New DataTable
        TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
        TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
        TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))

        Dim TmpDTImpuestosIVAIEPS = New DataTable
        TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
        TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
        TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
        TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer))

        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
            Dim dtVentas As DataTable = ObjVentas.DtResultados

            ' se rellenan los campos de  la factura

            Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)

            PathArchivo = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)
            Dim Archivo As New System.IO.FileInfo(PathArchivo)

            'SI EL ARCHIVO NO EXISTE O SE VA REGENERA EL PDF, SE DEBEN LLENAR LOS DATOS
            If Not Archivo.Exists OrElse RegenerarPDF OrElse UsarStimulsoft Then
                Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
                'se rellena la sucursal
                'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
                Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()

                Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())

                Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
                'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
                Vta.Cliente = New Modelos.ClienteModel
                Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
                Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
                Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
                Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
                Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
                Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
                Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
                Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
                Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
                Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
                Vta.AtencionA = dtVentas(0)("AtencionA").ToString
                Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
                Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
                Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
                Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
                Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
                Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
                Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString


                Vta.RefDocto = dtVentas(0)("Ref").ToString
                Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
                Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
                Vta.Version = dtVentas(0)("CFDIVersion").ToString


                Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
                Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
                Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")

                Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
                Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal)
                'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString

                Vta.ClienteSucursal = New Modelos.SucursalModel
                Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
                Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
                Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
                Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
                Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
                Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
                Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
                Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
                Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
                Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
                Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
                Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
                Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString

                Vta.EnviarA = New Modelos.EnviarAModel
                Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
                Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
                Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
                Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
                Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
                Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
                Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString

                Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString
                Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString
                Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString
                Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString

                'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString

                'INE COMPLEMENTO
                If dtVentas(0)("TipoComite").ToString <> "" Then
                    Dim INE As New Modelos.ComplementoINE
                    INE.INETipoComite = dtVentas(0)("TipoComite").ToString
                    INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString
                    INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero
                    Vta.ComplementoINE = INE
                End If


                Dim DR As DataRow = TmpDTImpuestos.NewRow()
                If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()
                If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()
                If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()
                If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()
                If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)

                'solo para eclipse, que muesre un subtotal debajo de IVA
                If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()
                If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()
                If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()

                If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()

                If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
                DR = TmpDTImpuestos.NewRow()

                If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
                    Vta.DtDetalle = ObjVentas.DtResultados
                End If

                If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then

                    Dim dtImpuesto As DataTable = ObjVentas.DtResultados
                    If dtImpuesto.Rows.Count > 0 Then
                        For Each Row As DataRow In dtImpuesto.Rows
                            Dim Orden = 80
                            If Row("Importe").ToString.ToDouble <> 0 Then
                                DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
                                DR("Importe") = Row("Importe").ToString.ToDouble
                                DR("Orden") = Orden
                                TmpDTImpuestos.Rows.Add(DR)
                                DR = TmpDTImpuestos.NewRow()
                                Orden = Orden + 1
                            End If
                        Next
                    End If
                    Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")

                End If

                'TmpDT DESGLOSE DE IMPUESTOS 3.3
                For Each dr1 As DataRow In Vta.DtDetalle.Rows
                    Dim DrIVA As DataRow = Nothing
                    Dim DrIEPS As DataRow = Nothing

                    Try
                        DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0)
                    Catch ex As Exception
                        DrIVA = Nothing
                    End Try

                    If DrIVA IsNot Nothing Then
                        DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble
                        TmpDTImpuestosIVAIEPS.AcceptChanges()
                    Else
                        Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
                        If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then
                            DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1"
                            TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
                            TmpDTImpuestosIVAIEPS.AcceptChanges()
                        End If
                    End If

                    Try
                        DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0)
                    Catch ex As Exception
                        DrIEPS = Nothing
                    End Try

                    If DrIEPS IsNot Nothing Then
                        DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble
                        TmpDTImpuestosIVAIEPS.AcceptChanges()
                    Else
                        Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
                        If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
                            DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.03, "2", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.06, "3", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.07, "4", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.09, "5", ""))))
                            TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
                            TmpDTImpuestosIVAIEPS.AcceptChanges()
                        End If
                    End If

                    If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso Now.Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
                        dr1("CodigoObjetoImpuesto") = "04"
                    End If

                Next

                Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC")

                If ObjVentas.GetVentasFirmas(CveVenta) Then
                    Vta.DtFirmas = ObjVentas.DtResultados
                End If


                'CFDI RELACIONADO
                If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then
                    Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
                    If Vta.Timbre.Comprobante.TipoComprobante = "E" Then
                        If Vta.TipoDocto.Contiene("Egs") Then
                            Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
                            Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
                        End If
                        If Vta.TipoDocto.Contiene("Dev") Then
                            Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                            Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                        End If
                        Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
                    End If
                    ' cuando es refacturacoin es cfdirelacionado, con relacion 04
                    If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
                        Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
                        Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
                        Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos"
                    End If

                    If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then

                        Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}")

                        Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString()
                        Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString()

                        If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
                            Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                        End If

                    End If

                End If

                'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
                If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
                    If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then
                        If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
                            ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal))
                            ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total")
                            Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                            If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
                                Vta.DtNCVinculadas = ObjVentas.DtResultados
                                Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                                If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
                                    If Vta.TipoDocto.Contiene("Dev") Then
                                        Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                                        Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                                    End If
                                End If
                            End If
                        End If
                    End If
                Else

                    If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then

                        If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
                            Vta.DtNCVinculadas = ObjVentas.DtResultados
                            Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                            If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
                                If Vta.TipoDocto.Contiene("Dev") Then
                                    Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                                    Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                                End If
                            End If
                        End If
                    End If
                End If

                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then
                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
                        Vta.DtNCVinculadas = ObjVentas.DtResultados
                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL")
                        If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
                            If Vta.TipoDocto.Contiene("Ing") Then
                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
                            End If

                            If Vta.TipoDocto.Contiene("Egs") Then
                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
                            End If

                            If Vta.TipoDocto.Contiene("Dev") Then
                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                            End If
                        End If
                    End If
                End If

                'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS
                If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then
                    Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}")

                    Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString()
                    Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString()

                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                    End If
                End If

            End If

        End If
        ObjVentas.Dispose()

        If Not IsNothing(Vta) Then
            Dim Archivo As New System.IO.FileInfo(PathArchivo)

            Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True))

            Dim CveTimbreCartaPorteVenta As Integer = -1
            Dim CartaPorte As Modelos.MSubReportData = Nothing
            'SI EL ARCHIVO NO EXISTE O SE VA REGENERA EL PDF, SE DEBEN LLENAR LOS DATOS
            If Not Archivo.Exists OrElse RegenerarPDF OrElse UsarStimulsoft Then
                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then
                    Using ObjGral As New ClsGenerales
                        If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
                            Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
                            CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero()
                        End If
                    End Using

                    If CveTimbreCartaPorteVenta > 0 Then
                        CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True)
                    Else
                        CartaPorte = New Modelos.MSubReportData()
                        CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                    End If
                Else
                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                        CartaPorte = New Modelos.MSubReportData()
                        CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                    End If
                End If
            Else
                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                    CartaPorte = New Modelos.MSubReportData()
                    CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                End If
            End If

            If UsarStimulsoft Then
                ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=True, SubReportData:=CartaPorte, UsarStimulsoft:=UsarStimulsoft), Vta.SerieFolio, "PDF")
            Else
                If Archivo.Exists Then
                    If RegenerarPDF Then
                        Archivo.Delete()
                        If UsuarioActual.Empresa.CvePlataforma = 2 Then
                            GeneraPDFVtaPyMe(Vta, "PDF")
                        Else
                            ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=True, SubReportData:=CartaPorte), Vta.SerieFolio, "PDF")
                            Vta = Nothing
                        End If
                    Else
                        HttpContext.Current.Response.Clear()
                        HttpContext.Current.Response.ClearContent()
                        HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".txt", "text/plain", "application/pdf")
                        HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
                        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                        HttpContext.Current.Response.TransmitFile(PathArchivo)
                        'HttpContext.Current.Response.Flush()
                        HttpContext.Current.Response.End()
                        Archivo = Nothing
                    End If
                Else

                    '04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME
                    If UsuarioActual.Empresa.CvePlataforma = 2 Then
                        GeneraPDFVtaPyMe(Vta, "PDF")
                    Else
                        ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar, SubReportData:=CartaPorte), Vta.SerieFolio, "PDF")
                        Vta = Nothing
                    End If
                End If
            End If


        End If

    End Sub
#End Region

#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "

    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False)
        Dim ObjInventarios As New ClsInventarios

        ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)

        Dim CveConcepto As Integer = ObjInventarios.CveConcepto
        Dim Folio As String = ObjInventarios.Folio.ToString
        Dim CveCompra = ObjInventarios.CveCompra
        Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString
        Dim FechaHora As DateTime = ObjInventarios.FechaHora
        Dim Almacen As String = ObjInventarios.Almacen
        Dim RazonSocial As String = ObjInventarios.Proveedor
        Dim RazonSocialOC As String = ObjInventarios.RazonSocialOC
        Dim CalleOrigen As String = ObjInventarios.CalleOrigen
        Dim NoExtOrigen As String = ObjInventarios.NoExtOrigen
        Dim ColoniaOrigen As String = ObjInventarios.ColoniaOrigen
        Dim LocalidadOrigen As String = ObjInventarios.LocalidadOrigen
        Dim MunicipioOrigen As String = ObjInventarios.MunicipioOrigen
        Dim EstadoOrigen As String = ObjInventarios.EstadoOrigen
        Dim PaisOrigen As String = ObjInventarios.PaisOrigen
        Dim CPOrigen As String = ObjInventarios.CPOrigen
        Dim CalleDestino As String = ObjInventarios.CalleDestino
        Dim NoExtDestino As String = ObjInventarios.NoExtDestino
        Dim ColoniaDestino As String = ObjInventarios.ColoniaDestino
        Dim LocalidadDestino As String = ObjInventarios.LocalidadDestino
        Dim MunicipioDestino As String = ObjInventarios.MunicipioDestino
        Dim EstadoDestino As String = ObjInventarios.EstadoDestino
        Dim PaisDestino As String = ObjInventarios.PaisDestino
        Dim CPDestino As String = ObjInventarios.CPDestino
        Dim Proveedor As String = ObjInventarios.Proveedor
        Dim Remision As String = ObjInventarios.Remision
        Dim SubProyecto As String = ObjInventarios.SubProyecto
        Dim Observaciones As String = ObjInventarios.Observaciones
        Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
        Dim NombreCapturo As String = ObjInventarios.NombreCapturo
        Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
        Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
        Dim Recibio As String = ObjInventarios.Recibio
        Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
        Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
        Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
        Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
        Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")

        If String.IsNullOrEmpty(Recibio) Then
            Dim ObjRH As New ClsRH
            If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
                Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
            End If
            ObjRH.Dispose()
        End If

        Dim Personal As String = ObjInventarios.NombreCompleto
        Dim Capturo As String = ObjInventarios.NombreCapturo
        Dim AlmacenDestino As String = ObjInventarios.AlmacenDestino
        Dim CveConsignacion As Integer = ObjInventarios.CveConsignacion
        Dim Moneda As String = ObjInventarios.Moneda
        Dim CveMoneda As Integer = ObjInventarios.CveMoneda
        Dim FolioVenta As String = ObjInventarios.FolioVenta
        Dim FolioOC As String = ObjInventarios.FolioOC
        Dim FolioInterno As String = ObjInventarios.FolioInterno

        Dim CveCliente As Integer = ObjInventarios.CveCliente
        Dim NombreCliente As String = ObjInventarios.NombreCliente
        Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal
        Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
        Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro

        Dim CveMovimientoRelacionado As Integer = -1
        Dim FolioRelacionado As String = ""
        Dim CveConceptoMovtoRelacionado As Integer = -1

        Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero

        'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
            CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
            If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
                CveMovimientoRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero
                CveConceptoMovtoRelacionado = 37
            ElseIf CveConcepto.Contiene(36, 37) Then
                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
                CveConceptoMovtoRelacionado = 3
            ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then
                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
                CveConceptoMovtoRelacionado = 3
            End If
        End If



        Dim CantidadProductos As Decimal = 0
        Dim CantidadUsados As Decimal = 0

        If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
            If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                DtMovimientos = ObjInventarios.DtResultados

                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
                    If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa, Resumen:=Resumen) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
                        Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
                        Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero

                        'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
                        If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
                            If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
                                Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
                                CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
                                Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1

                                For Each Dr As DataRow In DtUsados.Rows
                                    Dr("No") = IndexInicialUsados
                                    IndexInicialUsados += 1
                                Next

                                DtMovimientos.Merge(DtUsados)
                            End If
                        End If
                    End If
                End If

                DtMovimientos.Columns("No").AutoIncrement = True
                DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
                DtMovimientos.Columns("No").AutoIncrementStep = 1
                Dim keys(1) As DataColumn
                keys(0) = DtMovimientos.Columns("No")
                DtMovimientos.PrimaryKey = keys
            End If
        Else
            If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                DtMovimientos = ObjInventarios.DtResultados.Copy()
                CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
                    If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
                        Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
                        Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero

                        'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
                        If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
                            If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
                                Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
                                CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
                                Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1

                                For Each Dr As DataRow In DtUsados.Rows
                                    Dr("No") = IndexInicialUsados
                                    IndexInicialUsados += 1
                                Next

                                DtMovimientos.Merge(DtUsados)
                            End If
                        End If
                    End If
                End If

                DtMovimientos.Columns("No").AutoIncrement = True
                DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
                DtMovimientos.Columns("No").AutoIncrementStep = 1
                Dim keys(1) As DataColumn
                keys(0) = DtMovimientos.Columns("No")
                DtMovimientos.PrimaryKey = keys
            End If
        End If

        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then
            If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
                Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0")
                If DtFaltante.Rows.Count > 0 Then
                    Dim SbPendientes As New StringBuilder
                    SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:")
                    For Each Row As DataRow In DtFaltante.Rows
                        SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF"))
                    Next
                    SbPendientes.Remove(SbPendientes.Length - 1, 1)

                    SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total"))

                    If Not String.IsNullOrEmpty(Observaciones) Then
                        Observaciones = SbPendientes.ToString() + ".<br/>" + Observaciones
                    Else
                        Observaciones = SbPendientes.ToString()
                    End If
                End If
                DtFaltante.Dispose()
            End If
        End If

        If CveTipoAlmacen = 20 Then
            CveConcepto = 24
        End If

        ObjInventarios.Dispose()
        If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente

        ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio,
                          Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
                          FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC,
                          Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
                          EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                          MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)

    End Sub
    Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
        If CveMoneda > 1 Then
            DtMovimientos.Columns("PU").ColumnName = "PUx"
            DtMovimientos.Columns("Total").ColumnName = "Totalx"
            DtMovimientos.Columns("PUExtranjero").ColumnName = "PU"
            DtMovimientos.Columns("TotalExtranjero").ColumnName = "Total"
        End If
    End Sub
    Private Sub ImprimePDFAlmacen(CveConcepto As Integer, CveCompra As Integer, Folio As String, Fecha As String, Almacen As String, SubProyecto As String, Observaciones As String, Recibio As String,
                                  Personal As String, Capturo As String, AlmacenDestino As String, CveConsignacion As Integer, CveMoneda As Integer, Moneda As String, FolioVenta As String, FolioOC As String,
                                  FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String,
                                  Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                  EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                  EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")


        Select Case CveConcepto
            Case 1 'INICIAL
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)
                Dim SBDireccion As New StringBuilder()

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Inventario Inicial"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
                'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
                'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))

                If Archivo.Exists Then
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                Else
                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                End If

            Case 2, 32, 33, 36, 48  ' E N T R A D A S

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

                Dim dr As DataRow = Nothing
                If CveCompra > 0 Then
                    'buscar en compras, para mandar los datos
                    Dim ObjCompra As New ClsCompras()
                    If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                        dr = ObjCompra.DtResultados.Rows(0)
                    End If
                    ObjCompra.Dispose()

                End If


                Dim params As New List(Of ReportParameter)
                If Archivo.Exists Then

                    If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
                        params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                    End If
                    If UsuarioActual.CveEmpresa = 119 Then

                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
                        params.Add(New ReportParameter("RazonSocial", RazonSocial))
                        params.Add(New ReportParameter("Remision", Remision))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("FolioOC", FolioOC))
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
                        params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                    End If

                    Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN"
                    If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE"
                    If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"

                    'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", ConceptoFormato))
                        params.Add(New ReportParameter("Almacen", Almacen))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))


                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))

                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                            params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                        Else
                            params.Add(New ReportParameter("Fecha", Fecha))
                        End If

                        If UsuarioActual.CveEmpresa = 72 Then
                            params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString()))
                        End If

                        params.Add(New ReportParameter("Observaciones", Observaciones))

                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                            params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
                            params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
                            params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
                            params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
                            params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDouble.Texto2Letras(CveMoneda).ToUpper)))
                            params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
                            params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                            params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, "")))
                            params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, "")))
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                            params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
                            params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
                        Else
                            params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio)))
                            params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                        End If

                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                    ElseIf UsuarioActual.CveEmpresa = 140 Then

                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        Dim concepto As String = ""
                        If CveConcepto.Contiene(2, 32, 33) Then
                            concepto = "ENTRADA DE ALMACÉN"
                        ElseIf CveConcepto.Contiene(36) Then
                            concepto = "ENTRADA VIRTUAL"
                        End If

                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", concepto))
                        params.Add(New ReportParameter("Almacen", Almacen))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("FacturadoA", NombreCliente))
                        params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
                        params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                        params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                        params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
                        'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))

                        ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                    Else

                        params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
                        params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
                        params.Add(New ReportParameter("Folio", Folio.ToString))
                        params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, "")))
                        params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
                        params.Add(New ReportParameter("NombreProveedor", RazonSocial))
                        params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
                        params.Add(New ReportParameter("CiudadProveedor", " "))
                        params.Add(New ReportParameter("EstadoProveedor", " "))
                        params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))

                        params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
                        params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                        params.Add(New ReportParameter("IVA", If(CveCompra > 0, dr("IVA").ToString.FormatoNumero(2), "")))
                        params.Add(New ReportParameter("Total", If(CveCompra > 0, dr("Total").ToString.FormatoNumero(2), "")))
                        params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), "")))

                        params.Add(New ReportParameter("Observaciones", If(CveCompra > 0, dr("Observaciones").ToString, "")))
                        params.Add(New ReportParameter("Capturo", If(CveCompra > 0, dr("NombreCapturo").ToString, "")))

                        PUanacExtr(CveMoneda)


                        ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                    End If


                Else


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("FacturadoA", NombreCliente))
                    params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
                    params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                    params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                    params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                    If (UsuarioActual.CveEmpresa = 72) Then
                        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                    End If

                    If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
                        ImprimirPDFStimulsoft("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString))
                    Else
                        ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                    End If

                End If

            Case 3, 16, 37, 40  ' S A L I D A S
                'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
                'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)
                Dim concepto As String = ""
                If CveConcepto.Contiene(3, 40) Then
                    concepto = "SALIDA DE ALMACÉN"
                ElseIf CveConcepto = 37 Then
                    concepto = "SALIDA VIRTUAL"
                Else
                    concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
                End If

                If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
                    If Archivo2.Exists Then
                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                            Dim CiudadSucursal As String = ""
                            Dim DomicilioSucursal As String = ""
                            Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

                            If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                            If DtMovimientos(0)("CveVenta").ToString <> "" Then
                                CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                                DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                            Else
                                DomicilioSucursal = DomicilioCliente
                            End If

                            params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno"))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                            params.Add(New ReportParameter("Observaciones", Observaciones))
                            params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
                            params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
                            params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
                            params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
                            params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
                            params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
                            params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
                            params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
                            params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))

                        End If
                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
                    End If
                Else
                    If Archivo.Exists Then

                        'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
                            Dim CiudadSucursal As String = ""
                            Dim DomicilioSucursal As String = ""
                            Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

                            If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                            If DtMovimientos(0)("CveVenta").ToString <> "" Then
                                CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                                DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                            Else

                                DomicilioSucursal = DomicilioCliente
                            End If


                            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then

                                params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                                params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))
                                params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString))
                                params.Add(New ReportParameter("DireccionCliente", DomicilioCliente))
                                params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString))
                                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                                params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString))

                                If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
                                    Dim StrEnvioDi As New StringBuilder
                                    StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
                                    If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
                                    If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)

                                    params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                    params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString))
                                    params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString))
                                    params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
                                    params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
                                    params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
                                    params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
                                    params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
                                    params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
                                    params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                    params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                                    params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
                                Else
                                    Dim StrEnvioDi As New StringBuilder
                                    StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
                                    If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
                                    If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)

                                    Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
                                    Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()

                                    params.Add(New ReportParameter("Fecha", Fecha))
                                    params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                    params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString))
                                    params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString))
                                    params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString))
                                    params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString))
                                    params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString))
                                    params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                                    params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio))
                                    params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString))
                                    params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                    params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                                    params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
                                End If
                            End If

                            params.Add(New ReportParameter("Concepto", concepto))
                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))
                            params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                            params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                            params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                            params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                            params.Add(New ReportParameter("Observaciones", Observaciones))

                            If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
                            If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
                            If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                            If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha))


                            'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        ElseIf UsuarioActual.CveEmpresa = 140 Then


                            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                            params.Add(New ReportParameter("Concepto", concepto))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("Fecha", Fecha))
                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                            params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
                            params.Add(New ReportParameter("Observaciones", Observaciones))
                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Descuentos", ""))
                            params.Add(New ReportParameter("IVA", ""))
                            params.Add(New ReportParameter("Total", ""))
                            'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                            params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                            params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))

                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        Else
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Fecha", Fecha))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("SubProyecto", SubProyecto))
                            params.Add(New ReportParameter("Observaciones", Observaciones))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        End If

                    Else
                        Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))

                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", concepto))
                        params.Add(New ReportParameter("Almacen", Almacen))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                        params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Descuentos", ""))
                        params.Add(New ReportParameter("IVA", ""))
                        params.Add(New ReportParameter("Total", ""))
                        'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                        params.Add(New ReportParameter("NombreRecibio", Recibio))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))



                        If UsuarioActual.CveEmpresa.Contiene(143) Then
                            Dim objclientes As New ClsClientes
                            If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then
                                params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString))
                            End If
                            If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
                                Dim StrEnvioDi As New StringBuilder
                                StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
                                If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
                                If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)

                                params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
                                params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
                                params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
                                params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
                                params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
                                params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
                                params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                            Else
                                Dim StrEnvioDi As New StringBuilder
                                StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
                                If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
                                If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)

                                Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
                                Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()

                                params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
                                params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
                                params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
                                params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
                                params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
                                params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
                                params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                            End If
                        End If


                        If A.Exists Then
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        Else
                            If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
                                ImprimirPDFStimulsoft("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString))
                            Else
                                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                            End If
                        End If

                    End If
                End If

            Case 4 ' ENTRADA POR DESARMADO 
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                End If

                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 5 'SALIDA POR ARMADO
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                End If
                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 6, 23 ' ENTRADA RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                    Dim params As New List(Of ReportParameter)
                    If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Personal))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))

                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                        If DtMovimientos.COUNT("Serie") > 0 Then
                            params.Add(New ReportParameter("MostrarSerieLote", "1"))
                        Else
                            params.Add(New ReportParameter("MostrarSerieLote", "0"))
                        End If
                    Else
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                        params.Add(New ReportParameter("NombreRecibio", Personal))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        params.Add(New ReportParameter("NombreProveedor", Proveedor))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    End If

                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                Else
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                    Dim params As New List(Of ReportParameter)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""

                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"

                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                    End If


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                    params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                    params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))

                    Dim Mov As New ClsInventarios
                    If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
                        If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
                            TipoResponsable = "Personal"
                            Responsable = Recibio
                            'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
                        ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
                            TipoResponsable = "Cliente"
                            Responsable = Mov.DtResultados(0)("Nombre").ToString
                        ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
                            TipoResponsable = "Proveedor"
                            Responsable = Mov.DtResultados(0)("RazonSocial").ToString
                        End If
                    End If
                    Mov.Dispose()

                    params.Add(New ReportParameter("Responsable", Responsable))
                    params.Add(New ReportParameter("TipoResponsable", TipoResponsable))

                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If
            Case 7 ' SALIDA RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                    Dim params As New List(Of ReportParameter)
                    If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("NombreRecibio", Personal))

                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        If DtMovimientos.COUNT("Serie") > 0 Then
                            params.Add(New ReportParameter("MostrarSerieLote", "1"))
                        Else
                            params.Add(New ReportParameter("MostrarSerieLote", "0"))
                        End If
                    Else
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                        params.Add(New ReportParameter("NombreRecibio", Personal))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        params.Add(New ReportParameter("NombreProveedor", Proveedor))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))

                    End If

                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                Else
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                    Dim params As New List(Of ReportParameter)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""

                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"

                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                    End If


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                    params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                    params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))

                    Dim Mov As New ClsInventarios
                    If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
                        If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
                            TipoResponsable = "Personal"
                            Responsable = Recibio
                            'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
                        ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
                            TipoResponsable = "Cliente"
                            Responsable = Mov.DtResultados(0)("Nombre").ToString
                        ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
                            TipoResponsable = "Proveedor"
                            Responsable = Mov.DtResultados(0)("RazonSocial").ToString
                        End If
                    End If
                    Mov.Dispose()

                    params.Add(New ReportParameter("Responsable", Responsable))
                    params.Add(New ReportParameter("TipoResponsable", TipoResponsable))

                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If

            Case 8, 26 ' T R A S L A D O   -   S A L I D A

                Dim params As New List(Of ReportParameter)
                Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
                If CveTipoAlmacen = 22 Then
                    RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
                End If

                params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
                'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
                params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
                params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString
                params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
                params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
                params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
                params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó
                params.Add(New ReportParameter("Observaciones", Observaciones))


                Dim DTCliente As New DataTable
                Dim SBDireccionO As New StringBuilder()
                Dim SBDireccionD As New StringBuilder()
                Dim CveCliente As Integer = 0
                Dim CveDireccionEnvio As Integer = 0
                Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
                    Paqueteria = "", NumContrato = "", Guia = ""

                Dim CveContrato As Integer = 0
                If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
                    CveContrato = DtMovimientos(0)("CveContrato").ToString.ToEntero
                End If

                If CveContrato > 0 Then
                    Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                    NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                    CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
                    CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero

                    If CveCliente > 0 Then
                        DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
                        Dim ObjVentas As New ClsClientes
                        If ObjVentas.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
                            If ObjVentas.DtResultados.Rows.Count > 0 Then
                                ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
                                ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
                                EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
                                EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
                                EnvioColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
                                EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
                                EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString
                                EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString
                            Else
                                ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
                                EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto")
                                EnvioDireccion = DTCliente.FiltroPrimeroValor("Direccion")
                                EnvioColonia = DTCliente.FiltroPrimeroValor("Colonia")
                                EnvioCiudad = DTCliente.FiltroPrimeroValor("Ciudad")
                                EnvioEstado = DTCliente.FiltroPrimeroValor("Estado")
                                ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
                                EnvioCP = DTCliente.FiltroPrimeroValor("CP")
                            End If
                        End If
                        ObjVentas.Dispose()
                    End If

                    params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
                    params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                    params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
                    params.Add(New ReportParameter("EnvioColonia", EnvioColonia))
                    params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
                    params.Add(New ReportParameter("EnvioEstado", EnvioEstado))
                    params.Add(New ReportParameter("ClientePais", ClientePais))
                    params.Add(New ReportParameter("EnvioCP", EnvioCP))
                    params.Add(New ReportParameter("Contrato", Contrato))
                    params.Add(New ReportParameter("Paqueteria", Paqueteria))
                    params.Add(New ReportParameter("NumeroContrato", NumContrato))
                    params.Add(New ReportParameter("Guia", Guia))

                    'CAMBIAMOS DE FORMATO POR QUE TIENE CONTRATO
                    RutaFormato = "{0}Formatos\TrasladoAlmacen.rdlc"
                    'CAMBIAMOS LA OBSERVACION POR LA DE LA SOLICITUD DE TRASLADO
                    Observaciones = ObservacionesSolicitud
                End If

                If UsuarioActual.CveEmpresa = 119 Then
                    If CalleOrigen.Length > 0 Then
                        SBDireccionO.AppendFormat("{0}", CalleOrigen)
                        If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
                        If ColoniaOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", ColoniaOrigen)
                        If CPOrigen.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", CPOrigen)
                        If LocalidadOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", LocalidadOrigen)
                        If MunicipioOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", MunicipioOrigen)
                        If EstadoOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", EstadoOrigen)
                        If PaisOrigen.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", PaisOrigen)
                        params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
                    End If
                    If CalleDestino.Length > 0 Then
                        SBDireccionD.AppendFormat("{0}", CalleDestino)
                        If NoExtDestino.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", NoExtDestino)
                        If ColoniaDestino.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", ColoniaDestino)
                        If CPDestino.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", CPDestino)
                        If LocalidadDestino.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", LocalidadDestino)
                        If MunicipioDestino.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", MunicipioDestino)
                        If EstadoDestino.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", EstadoDestino)
                        If PaisDestino.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", PaisDestino)
                        params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
                    End If
                End If


                Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                If Archivo.Exists Then
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                    If UsuarioActual.CveEmpresa = 140 Then
                        params.Add(New ReportParameter("Origen", Almacen))
                        params.Add(New ReportParameter("Destino", AlmacenDestino))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                    ElseIf UsuarioActual.CveEmpresa = 153 Then
                        params.Add(New ReportParameter("Origen", Almacen))
                        params.Add(New ReportParameter("Destino", AlmacenDestino))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
                        params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
                    Else
                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
                        params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
                    End If

                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
                        params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))

                        DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
                    End If

                    ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                Else
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                    params.Add(New ReportParameter("Origen", Almacen))
                    params.Add(New ReportParameter("Destino", AlmacenDestino))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
                        ImprimirPDFStimulsoft(String.Format("Empresas/Grales/Formatos/Traslado.mrt", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                    Else
                        ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                    End If

                End If



            Case 9, 27 ' T R A S L A D O   -   E N T R A D A
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta))
                Dim params As New List(Of ReportParameter)

                params.Add(New ReportParameter("CveConcepto", "9")) 'FolioTraspaso.ToString
                'params.Add(New ReportParameter("TipoTraslado", "RECEPCIÓN")) 'FolioTraspaso.ToString
                params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de:  {0} A {1}", AlmacenDestino, Almacen))) 'DdlAlmacenDestino.SelectedItem.ToString
                params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString
                params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
                params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                'params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
                params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
                params.Add(New ReportParameter("Accion", "RECIBIÓ"))

                If Archivo.Exists Then
                    params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
                    params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
                    params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                    params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))

                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
                    ElseIf UsuarioActual.CveEmpresa = 140 Then
                        params.Add(New ReportParameter("CantidadProductos", "500"))
                        params.Add(New ReportParameter("CantidadUsados", "500"))
                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")


                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                        params.Add(New ReportParameter("Destino", Almacen))

                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                    ElseIf UsuarioActual.CveEmpresa = 153 Then
                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                        params.Add(New ReportParameter("Destino", Almacen))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    End If



                    ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                Else
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                    params.Add(New ReportParameter("Origen", Almacen))
                    params.Add(New ReportParameter("Destino", AlmacenDestino))

                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                End If

            Case 10 'E N T R A D A   P O R   C O N S I G N A C I Ó N
                If CveConsignacion > 0 Then
                    'buscar en compras, para mandar los datos
                    Dim ObjInventarios As New ClsInventarios()
                    If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
                        Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
                        Dim params As New List(Of ReportParameter)
                        params.Add(New ReportParameter("TipoDocumento", "Entrada por Consignación"))
                        params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
                        params.Add(New ReportParameter("Folio", Folio.ToString))
                        params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
                        params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
                        params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
                        params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
                        params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
                        params.Add(New ReportParameter("Moneda", Moneda))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        PUanacExtr(CveMoneda)
                        ImprimirPDF(String.Format("{0}Formatos/EntradasConsignacion.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios")
                    End If
                    ObjInventarios.Dispose()

                End If
            Case 11 'S A L I D A   P O R   C O N S I G N A C I Ó N
                Dim params As New List(Of ReportParameter)
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("SubProyecto", SubProyecto))
                params.Add(New ReportParameter("Observaciones", Observaciones))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("Observaciones", Observaciones))
                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasConsignacion.rdlc", DtMovimientos, params, String.Format("Salida por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios")
            Case 12 'D E V O L U C I O N  D E  C O N S I G N A C I O N
                Dim params As New List(Of ReportParameter)
                Dim ObjInventarios As New ClsInventarios()

                If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then

                    Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
                    params.Add(New ReportParameter("CveConcepto", "12"))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("SubProyecto", SubProyecto))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                    params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
                    params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
                    params.Add(New ReportParameter("CiudadProveedor", " "))
                    params.Add(New ReportParameter("EstadoProveedor", " "))
                    params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
                    params.Add(New ReportParameter("Consignacion", dr("SerieFolio").ToString))
                    'params.Add(New ReportParameter("Serie", Serie))
                    'params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
                    'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
                    'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
                    'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
                    'params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))

                End If

                If UsuarioActual.CveEmpresa = 119 Then
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                End If
                'ObjInventarios.Dispose()
                Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
                If ObjInventarios.GetMovimientosDetalle(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                    Dim TotalFinal As Double = ObjInventarios.DtResultados.SUM("Total") * 1.16
                    Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
                    'params.Add(New ReportParameter("IVA", dr("IVA").ToString))
                    params.Add(New ReportParameter("TotalLetra", String.Format("({0})", TotalFinal.Texto2Letras().ToUpper)))

                End If
                ObjInventarios.Dispose()

                'If CveCompra > 0 Then
                '    Dim ObjCompra As New ClsCompras()
                '    If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
                '        Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                '        params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
                '        params.Add(New ReportParameter("Serie", dr("SerieFolio").ToString))
                '        params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
                '        params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
                '        params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
                '        params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
                '        params.Add(New ReportParameter("TotalLetra", String.Format("({0})", (dr("Total").ToString.ToDouble).Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))

                '    End If
                '    ObjCompra.Dispose()
                'End If

                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios")
            Case 13 'D E V O L U C I O N  D E  P R O V E E D O R
                Dim params As New List(Of ReportParameter)
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))

                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("SubProyecto", SubProyecto))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))

                Dim ObjCompra As New ClsCompras()
                If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                    Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                    Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
                    Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
                    params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
                    params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
                    params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
                    'params.Add(New ReportParameter("Folio", Folio.ToString))
                    params.Add(New ReportParameter("Serie", dr("Serie").ToString))

                    'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString))
                    params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
                    params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
                    params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
                    params.Add(New ReportParameter("CiudadProveedor", " "))
                    params.Add(New ReportParameter("EstadoProveedor", " "))
                    params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
                    params.Add(New ReportParameter("CodigoProveedor", dr("FolioMovimiento").ToString))
                    params.Add(New ReportParameter("OrigenCompra", dr("SerieFolio").ToString))
                    params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
                    params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
                    params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
                    params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
                    params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))

                    params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
                    params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))

                Else
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                End If
                ObjCompra.Dispose()

                If Not Archivo.Exists Then

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
                Else
                    ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
                End If

                'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
            Case 14 'E N T R E G A   P O R   G A R A N T I A

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)

                If UsuarioActual.CveEmpresa = 72 Then
                    Dim SisEmpresa As New ClsSisEmpresas()
                    Dim EmpInfo As DataRow
                    Dim domicilioFiscal As String = ""
                    If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
                        EmpInfo = SisEmpresa.DtResultados.Rows(0)
                        domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
                        params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal))
                    End If
                End If

                Dim CiudadSucursal As String = ""
                Dim DomicilioSucursal As String = ""
                If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                If DtMovimientos(0)("CveVenta").ToString <> "" Then
                    CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                    DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                End If

                params.Add(New ReportParameter("Concepto", "Entrada por garantia"))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                params.Add(New ReportParameter("EnviarA", ""))
                params.Add(New ReportParameter("Entrega", ""))
                params.Add(New ReportParameter("Observaciones", Observaciones))

                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaGarantia.rdlc", DtMovimientos, params, String.Format("EntradaPorGarantia{0}", Folio.ToString), RDSName:="DsInventarios")

            Case 15 'S A L I D A   G A R A N T I A

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)

                'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
                Dim CiudadSucursal As String = ""
                Dim DomicilioSucursal As String = ""
                If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                If DtMovimientos(0)("CveVenta").ToString <> "" Then
                    CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                    DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                End If


                params.Add(New ReportParameter("Concepto", "Salida Garantía"))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                params.Add(New ReportParameter("EnviarA", ""))
                params.Add(New ReportParameter("Entrega", ""))
                params.Add(New ReportParameter("Observaciones", Observaciones))

                '  If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))

                'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                End If
                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
                    'Else
                    '    params.Add(New ReportParameter("Folio", Folio))
                    '    params.Add(New ReportParameter("Fecha", Fecha))
                    '    params.Add(New ReportParameter("Almacen", Almacen))
                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                    'End If


            Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)

                If Archivo.Exists Then
                    'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES
                    'If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
                    Dim CiudadSucursal As String = ""
                    Dim DomicilioSucursal As String = ""

                    If DtMovimientos(0)("CveVenta").ToString <> "" Then
                        CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                        DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                    End If
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                    params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                    params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))

                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        If UsuarioActual.CveEmpresa = 72 Then
                            Dim SisEmpresa As New ClsSisEmpresas()
                            Dim EmpInfo As DataRow
                            Dim domicilioFiscal As String = ""
                            If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
                                EmpInfo = SisEmpresa.DtResultados.Rows(0)
                                domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
                                params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal))
                            End If
                        End If
                    End If
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
                    'End If
                Else

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    Dim CiudadSucursal As String = ""
                    Dim DomicilioSucursal As String = ""

                    If DtMovimientos(0)("CveVenta").ToString <> "" Then
                        CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                        DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                    End If
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                    params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                    params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

                    ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
                    'End If
                End If

            Case 19 'ARMADO DE PAQUETE
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                End If

                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 20 'DESARMADO DE PAQUETE
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                End If
                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")


            Case 21, 22 'SALIDA POR PRESTAMO
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)

                Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
                If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
                    Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
                End If

                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                If CveConcepto = 21 Then
                    params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
                Else
                    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
                End If
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                Else
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                End If
                If CveConcepto = 21 Then
                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                ElseIf CveConcepto = 22 Then
                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If

            'Case 22 'ENTRADA POR PRESTAMO
            '    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            '    Dim params As New List(Of ReportParameter)

            '    
            '    If Imagen.Exists Then
            '        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
            '    Else
            '        params.Add(New ReportParameter("LogoPath", ""))
            '    End If

            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
            '    params.Add(New ReportParameter("Almacen", Almacen))
            '    params.Add(New ReportParameter("Fecha", Fecha))
            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
            '    params.Add(New ReportParameter("Folio", Folio))
            '    params.Add(New ReportParameter("Descuentos", ""))
            '    params.Add(New ReportParameter("IVA", ""))
            '    params.Add(New ReportParameter("Total", ""))
            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
            '    If (UsuarioActual.CveEmpresa = 72) Then
            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
            '    End If
            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 24 'SALIDA POR RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                    Dim params As New List(Of ReportParameter)

                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta))
                    Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)

                    If Not ArchivoRuta.Exists Then
                        Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                    End If

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))

                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Descuentos", ""))
                    params.Add(New ReportParameter("IVA", ""))
                    params.Add(New ReportParameter("Total", ""))
                    params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    If UsuarioActual.CveEmpresa = 72 Then
                        params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
                        params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
                        params.Add(New ReportParameter("Sucursal", SubProyecto))
                        params.Add(New ReportParameter("DepartamentoRecibio", DepartamentoRecibe))
                        params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))

                    End If
                    params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("Observaciones", Observaciones))


                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
                Else
                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                    Dim params As New List(Of ReportParameter)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""

                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"

                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                    End If


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                    params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                    params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))

                    Dim Mov As New ClsInventarios
                    If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
                        If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
                            TipoResponsable = "Personal"
                            Responsable = Recibio
                            'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
                        ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
                            TipoResponsable = "Cliente"
                            Responsable = Mov.DtResultados(0)("Nombre").ToString
                        ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
                            TipoResponsable = "Proveedor"
                            Responsable = Mov.DtResultados(0)("RazonSocial").ToString
                        End If
                    End If
                    Mov.Dispose()

                    params.Add(New ReportParameter("Responsable", Responsable))
                    params.Add(New ReportParameter("TipoResponsable", TipoResponsable))

                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If

            Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", ConceptoReporte))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Proveedor", Proveedor))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

                ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 30
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

                Dim params As New List(Of ReportParameter)

                'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                Dim CiudadSucursal As String = ""
                Dim DomicilioSucursal As String = ""
                Dim DomicilioCliente As String = "" 'String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

                If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                If DtMovimientos(0)("CveVenta").ToString <> "" Then
                    CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                    DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                Else
                    DomicilioSucursal = DomicilioCliente
                End If

                params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                params.Add(New ReportParameter("Observaciones", Observaciones))
                params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
                params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
                params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
                params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
                params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
                params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
                params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
                params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
                params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("NombreEntrego", Capturo))
                params.Add(New ReportParameter("NombreRecibio", Recibio))

                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                'End If

                If Archivo2.Exists Then
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
                Else
                    ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If

            Case 31  'SALIDA POR DEMOSTRACION
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta))
                Dim params As New List(Of ReportParameter)

                If Archivo.Exists Then
                    params.Add(New ReportParameter("Concepto", "SALIDA POR DEMOSTRACIÓN"))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("Observaciones", Observaciones))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If
            Case 34, 35  ' S A L I D A S     P O R   A J U S T E  ---  S A L I D A   M A N U A L
                'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
                'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                Dim params As New List(Of ReportParameter)

                If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
                    If Archivo2.Exists Then
                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                            Dim CiudadSucursal As String = ""
                            Dim DomicilioSucursal As String = ""
                            Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

                            If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                            If DtMovimientos(0)("CveVenta").ToString <> "" Then
                                CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                                DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                            Else
                                DomicilioSucursal = DomicilioCliente
                            End If

                            params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                            params.Add(New ReportParameter("Observaciones", Observaciones))
                            params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
                            params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
                            params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
                            params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
                            params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
                            params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
                            params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
                            params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
                            params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))

                        End If
                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
                    End If
                Else
                    If Archivo.Exists Then

                        Dim ConceptoReporte As String = "SALIDA POR AJUSTE"
                        If CveConcepto = 35 Then ConceptoReporte = "SALIDA MANUAL"

                        'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then
                            Dim CiudadSucursal As String = ""
                            Dim DomicilioSucursal As String = ""
                            Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

                            If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal

                            If DtMovimientos(0)("CveVenta").ToString <> "" Then
                                CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                                DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                            Else

                                DomicilioSucursal = DomicilioCliente
                            End If


                            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then

                                params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                                params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))
                                params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString))
                                params.Add(New ReportParameter("DireccionCliente", DomicilioCliente))
                                params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString))
                                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                                params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString))

                                If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
                                    Dim StrEnvioDi As New StringBuilder
                                    StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
                                    If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
                                    If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)

                                    params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                    params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString))
                                    params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString))
                                    params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
                                    params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
                                    params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
                                    params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
                                    params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
                                    params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
                                    params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                    params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                                    params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
                                Else
                                    Dim StrEnvioDi As New StringBuilder
                                    StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
                                    If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
                                    If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)

                                    Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
                                    Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()

                                    params.Add(New ReportParameter("Fecha", Fecha))
                                    params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                    params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString))
                                    params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString))
                                    params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString))
                                    params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString))
                                    params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString))
                                    params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                                    params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio))
                                    params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString))
                                    params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                    params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                                    params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
                                End If
                            End If

                            params.Add(New ReportParameter("Concepto", ConceptoReporte))
                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))
                            params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                            params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                            params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                            params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                            params.Add(New ReportParameter("Observaciones", Observaciones))

                            If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
                            If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
                            If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                            If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha))


                            'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        Else
                            If UsuarioActual.CveEmpresa = 140 Then
                                params.Add(New ReportParameter("Concepto", ConceptoReporte))
                                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                                params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
                            End If
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Fecha", Fecha))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("SubProyecto", SubProyecto))
                            params.Add(New ReportParameter("Observaciones", Observaciones))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        End If

                    Else
                        Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
                        params.Add(New ReportParameter("Almacen", Almacen))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Descuentos", ""))
                        params.Add(New ReportParameter("IVA", ""))
                        params.Add(New ReportParameter("Total", ""))
                        'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                        params.Add(New ReportParameter("NombreRecibio", Recibio))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))



                        If UsuarioActual.CveEmpresa.Contiene(143) Then
                            Dim objclientes As New ClsClientes
                            If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then
                                params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString))
                            End If
                            If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
                                Dim StrEnvioDi As New StringBuilder
                                StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
                                If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
                                If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)

                                params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
                                params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
                                params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
                                params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
                                params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
                                params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
                                params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                            Else
                                Dim StrEnvioDi As New StringBuilder
                                StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
                                If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
                                If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)

                                Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
                                Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()

                                params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
                                params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
                                params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
                                params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
                                params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
                                params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
                                params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
                                params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
                                params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
                            End If
                        End If


                        If A.Exists Then
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        Else
                            ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        End If

                    End If
                End If

            Case 42 'ENTRADAS USADOS

                Dim ObjAcum As New ClsAcumuladores
                Dim DatosEntradasUsados As New DataTable
                Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen))
                If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then
                    DatosEntradasUsados = ObjAcum.DtResultados

                End If
                ObjAcum.Dispose()

                'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
                'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)

                'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))

                Dim params As New List(Of ReportParameter)

                params.Add(New ReportParameter("Direccion", Almacen))
                params.Add(New ReportParameter("FechaConFormato", Fecha))
                'params.Add(New ReportParameter("FechaInicial", Fecha))
                'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Sucursal", "Sucursal"))
                params.Add(New ReportParameter("Cliente", NombreCliente))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy hh:mm tt")))
                params.Add(New ReportParameter("Recibio", Recibio))
                params.Add(New ReportParameter("Observaciones", Observaciones))
                'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico."))

                ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
            Case 7
                Dim params As New List(Of ReportParameter)
                Dim CiudadSucursal As String = ""
                Dim DomicilioSucursal As String = ""

                If DtMovimientos(0)("CveVenta").ToString <> "" Then
                    CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                    DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                End If
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", Recibio))
                params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
                'End If

        End Select

        If CveConcepto = 2 Then
        ElseIf CveConcepto = 3 Then
        End If
    End Sub


#End Region

#Region "OP = 'OC' - IMPRIME PDF OC"
    Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
        Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
        'Dim reporte As Byte() = GeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
        If IsNothing(reporte) Then
        Else
            Dim ObjOC As New ClsOC
            Dim Folio As Integer = 0
            If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
                Folio = ObjOC.Folio
            End If
            ObjOC.Dispose()
            If Folio > 0 Then
                ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
            End If

        End If
    End Sub

    Private Sub ImprimePDFCotOC(CveOrdenCompra As Integer)
        Dim reporte As Byte()

        reporte = NewGeneraOCCotizacion(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
        If IsNothing(reporte) Then
        Else
            Dim ObjOC As New ClsOC
            Dim Folio As Integer = 0
            If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
                Folio = ObjOC.Folio
            End If
            ObjOC.Dispose()
            If Folio > 0 Then
                ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
            End If
        End If
    End Sub

#End Region

#Region "OP = 'VAL' - IMPRIME PDF VAL"
    Private Sub GenerarPDFVale(CveVale As Integer)

        Dim ObjAF As New ClsAF
        If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
            Dim dtVC As DataTable = ObjAF.DtResultados
            Dim dr As DataRow = dtVC.Rows(0)

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("Folio", dr("Folio").ToString))
            params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString))
            params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString))
            params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString))
            params.Add(New ReportParameter("Fecha", dr("Fecha").ToString))
            params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString))
            params.Add(New ReportParameter("Combustible", dr("Combustible").ToString))
            params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString))
            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params)

            'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1)
            'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta))
            'If Archivo.Exists Then

            'Else
            '    'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
            '    ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible")
            'End If
        End If
        ObjAF.Dispose()
    End Sub
#End Region

#Region "OP = 'OS' - IMPRIMIR PDF OS"
    Private Sub GenerarPDFOS(CveOS As Integer)
        Dim ObjOS As New ClsOS()
        Dim params As New List(Of ReportParameter)
        Dim CveFolio = ""
        CreaDT()

        Dim RutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))

        If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            If ObjOS.DtResultados.Rows.Count > 0 Then

                Dim dtOS As DataTable = ObjOS.DtResultados
                Dim dr As DataRow = dtOS.Rows(0)
                params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
                params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
                params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
                params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString.ToDate.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
                params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
                params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
                params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
                params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
                params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
                CveFolio = dr("Folio").ToString

                'If RutaReporte.Exists Then
                params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
                params.Add(New ReportParameter("RFC", dr("RFC").ToString))
                params.Add(New ReportParameter("Vendedor", " "))
                params.Add(New ReportParameter("Correo", dr("Correo").ToString))
                params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
                params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
                params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
                params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
                'params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
                params.Add(New ReportParameter("Copia", "Copia: Original"))
                params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))

                params.Add(New ReportParameter("DireccionOS", dr("DireccionOS").ToString))
                params.Add(New ReportParameter("Telefono", dr("Telefono").ToString))
                params.Add(New ReportParameter("CorreoOS", dr("CorreoOS").ToString))

                params.Add(New ReportParameter("ModeloMarca", dr("ModeloMarca").ToString))
                params.Add(New ReportParameter("Año", dr("Año").ToString))
                params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))

                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))




                'End If



            End If
        End If

        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        If Not RutaReporte.Exists Then

            RutaReporte = New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\OrdenServicio.rdlc", ModExtensiones.DirectorioBaseEmpresas))

            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        End If

        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
            TmpDTOS = ObjOS.DtResultados
        End If

        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
            TmpDTMaterialesOS = ObjOS.DtResultados
        End If
        Dim lrds As New List(Of ReportDataSource)
        Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
        Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}

        lrds.Add(rds)
        lrds.Add(rds2)
        ObjOS.Dispose()

        ImprimirPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
    End Sub
    Private Sub CreaDT()
        TmpDTOS = New DataTable
        TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))

        TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer))
        TmpDTOS.Columns.Add("Clasificacion", GetType(String))
        TmpDTOS.Columns.Add("CvePS", GetType(Integer))
        TmpDTOS.Columns.Add("CveUM", GetType(Integer))
        TmpDTOS.Columns.Add("UM", GetType(String))
        TmpDTOS.Columns.Add("Cantidad", GetType(Integer))
        TmpDTOS.Columns.Add("PS", GetType(String))
        TmpDTOS.Columns.Add("Especificaciones", GetType(String))
        TmpDTOS.Columns.Add("Materiales", GetType(String))
        TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer))
        TmpDTOS.Columns.Add("Observaciones", GetType(String))
        TmpDTOS.Columns.Add("FechaAtencion", GetType(String))
        TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer))
        TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String))
        TmpDTOS.Columns.Add("FechaTermino", GetType(String))
        TmpDTOS.Columns.Add("FechaEntrega", GetType(String))
        TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer))
        TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String))
        TmpDTOS.Columns.Add("SeFacturara", GetType(String))
        TmpDTOS.Columns.Add("SeSuperviso", GetType(String))
        TmpDTOS.Columns.Add("Estatus", GetType(String))
        TmpDTOS.Columns.Add("Archivo", GetType(String))
        TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String))
    End Sub
    Private Sub CreaDTMateriales()
        TmpDTMaterialesOS = New DataTable
        TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))

        TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
        TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
        TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
        TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer))
        TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer))
        TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer))
        TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String))
        TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String))
        TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
        TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
        TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
    End Sub
#End Region

#Region "OP = 'OI' - Crear Archivo "
    Private Sub CrearArchivo(Archivo As String)
        Dim ObjEventos As New ClsOIEventos

        Dim path As String = Server.MapPath(String.Format(Archivo))
        Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server

        DescargarArchivo(file)
    End Sub


#End Region

#Region "OP = 'Contratos' - Crear Archivo "
    Private Sub CrearArchivoContratos(Archivo As String)


        Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server

        DescargarArchivo(file)
    End Sub


#End Region

#Region "OP = 'OI' - Descargar Archivo "
    Private Sub DescargarArchivo(File As System.IO.FileInfo)
        If File.Exists Then 'set appropriate headers
            Response.Clear()
            Response.AddHeader("Content-Disposition", "attachment; filename=" & File.Name)
            Response.AddHeader("Content-Length", File.Length.ToString())
            Response.ContentType = "application/octet-stream"

            'Select Case Path.GetExtension(File.Name).ToLower()
            '    Case ".jpg"
            '        Response.ContentType = "image/jpg"
            '    Case ".gif"
            '        Response.ContentType = "image/gif"
            '    Case ".png"
            '        Response.ContentType = "image/png"
            '    Case ".docx"
            '        Response.ContentType = "application/ms-word"
            '    Case ".xlsx"
            '        Response.ContentType = "application/ms-excel"
            '    Case ".xlsx"
            '        Response.ContentType = "application/ms-excel"
            'End Select

            Response.WriteFile(File.FullName)
            Response.End() 'if file does not exist
        Else
            Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")

        End If 'nothing in the URL as HTTP GET
    End Sub
#End Region

#Region "OP = 'AFR' - AF"

    Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
        Dim ObjAF As New ClsAF
        'Dim ObjSubProyecto As New ClsSubProyectos
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta))

        Dim dtVC As DataTable = Nothing
        Dim dtHijos As DataTable = Nothing

        Dim params As New List(Of ReportParameter)
        Dim dr As DataRow = Nothing
        Dim NomArchivo As String = "Reporte"

        If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then
            dtVC = ObjAF.DtResultados
        End If


        dr = dtVC.Rows(0)

        Select Case Tipo
            Case 1
                params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
                NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}"

                If dtVC.Rows.Count > 0 Then
                    If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then
                        dtHijos = ObjAF.DtResultados
                        dtVC.Merge(dtHijos)
                    End If
                End If
            Case 2
                params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
                NomArchivo = $"Traslado_Folio{dr("Folio").ToString}"
            Case 3
                params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
                NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}"
            Case 4
                params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
                NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}"

                If dtVC.Rows.Count > 0 Then
                    If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then
                        dtHijos = ObjAF.DtResultados
                        dtVC.Merge(dtHijos)
                    End If
                End If
        End Select

        ObjAF.Dispose()

        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("Folio", dr("Folio").ToString))
        params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString))
        params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString))


        If UsuarioActual.CveEmpresa.Contiene(72) Then
            Dim SBDomicilioSucursal As New StringBuilder()
            Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")

            If DRSucursal IsNot Nothing Then
                Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
                Dim DomicilioSucursal As String = ""

                SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
                If DRSucursal("NoExt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString.ToEntero)
                If DRSucursal("NoInt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString.ToEntero)
                If DRSucursal("Colonia").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString)
                If DRSucursal("CP").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString)
                If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
                If DRSucursal("Pais").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString)
            End If

            params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString))
            params.Add(New ReportParameter("RFC", dr("RFC").ToString))
            params.Add(New ReportParameter("Puesto", dr("Puesto").ToString))
            params.Add(New ReportParameter("PuestoEntrego", dr("PuestoEntrego").ToString))
            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString))
            params.Add(New ReportParameter("DepartamentoEntrego", dr("DepartamentoEntrego").ToString))
            params.Add(New ReportParameter("Folio", dr("Folio").ToString))
            params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
            params.Add(New ReportParameter("Telefono", dr("Celular").ToString))
            params.Add(New ReportParameter("Direccion", dr("DireccionPersonal").ToString))
            params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString))
        End If


        If Archivo.Exists Then
            ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo)
        Else
            ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
        End If


    End Sub
    Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer)

        Dim ObjAF As New ClsAF

        Dim dtVC As DataTable = Nothing
        Dim params As New List(Of ReportParameter)
        Dim dr As DataRow = Nothing
        Dim NomArchivo As String = "Reporte"

        If Tipo = 1 OrElse Tipo = 2 Then
            If ObjAF.GetActivosFijosResguardos(-1, -1, -1, CveAFR) Then
                dtVC = ObjAF.DtResultados
            End If
        ElseIf Tipo = 3 OrElse Tipo = 4 Then
            If ObjAF.GetActivosFijosResguardos(-1, -1, -1, -1, CveResguardo2:=CveAFR) Then
                dtVC = ObjAF.DtResultados
            End If
        End If
        ObjAF.Dispose()

        dr = dtVC.Rows(0)


        Select Case Tipo
            Case 1
                params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
                NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}"
            Case 2
                params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString} "))
                NomArchivo = $"Traslado_Folio{dr("Folio").ToString}"
            Case 3
                params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
                NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}"
            Case 4
                params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO"))
                params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
                params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString))
                params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
                params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
                NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}"
        End Select

        params.Add(New ReportParameter("Subproyecto", dr("SubProyecto").ToString))
        params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))

        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.NombreCorto))
        params.Add(New ReportParameter("Folio", dr("Folio").ToString))
        params.Add(New ReportParameter("Responsable", dr("Nombre").ToString))
        params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))


        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)

    End Sub
#End Region

#Region "OP = 'POL' "
    Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
        'Dim ObjConta As New ClsContabilidad
        Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)

        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
        Dim params As New List(Of ReportParameter)

        If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
            Dim dtVC As DataTable
            Dim dr As DataRow
            dtVC = ObjPoliza.DtResultados
            dr = dtVC.Rows(0)

            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
            params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
            params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
            params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
            'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
            'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
            params.Add(New ReportParameter("Numero", dr("Folio").ToString))
            params.Add(New ReportParameter("Moneda", ""))
            params.Add(New ReportParameter("CodigoPostal", ""))

            If UsuarioActual.CveEmpresa = 119 Then
                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
            End If

            If Archivo.Exists Then
                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza")
            Else
                ImprimirPDF("Empresas/Grales/Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza")
            End If
        End If

        ObjPoliza.Dispose()

    End Sub
#End Region

#Region "OP = 'CAN' - CANCELACION"
    Public Sub ImprimeCancelacion(CveVenta As Integer)
        Dim drv As DataRow = Nothing

        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
            drv = ObjVentas.DtResultados.FiltroPrimero("")
        End If
        ObjVentas.Dispose()

        If drv IsNot Nothing Then
            Dim Total = drv("Total").ToString().ToDecimal()
            Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero()
            Dim FolioFiscal = drv("FolioFiscal").ToString()
            Dim RFCReceptor = drv("RFCReceptor").ToString()
            Dim SelloCancelacion = drv("SelloCancelacion").ToString()
            Dim SelloSolicitudCancelacion = drv("SelloSolicitudCancelacion").ToString()
            Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
            Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime

            Dim RFCEmisor = UsuarioActual.Empresa.RFC
            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))

            Dim Titulo As String = "Acuse de cancelación de CFDI"
            Dim EstadoCFDI As String = "Cancelado"


            'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
            If String.IsNullOrEmpty(SelloCancelacion) Then
                Dim ObjCancelacion As New Timbrado
                If ObjCancelacion.ObtenerAcuse(CveVenta, UsuarioActual) Then
                    SelloCancelacion = ObjCancelacion.CancelacionAcuse

                    If FechaCancelacion = Nothing OrElse FechaCancelacion = MinFecha Then
                        FechaCancelacion = ObjCancelacion.CancelacionFecha
                    End If
                End If
            End If

            If CveEstatusFactura = 20 Then
                Titulo = "Acuse de solicitud de cancelación de CFDI"
                EstadoCFDI = "Vigente"

                'SI TIENE DATOS EN EL SELLO DE SOLICITUD Y ESTA EN PROCESO, ENVIAR ESTE SELLO
                If Not String.IsNullOrEmpty(SelloSolicitudCancelacion) Then
                    SelloCancelacion = SelloSolicitudCancelacion
                End If

                If String.IsNullOrEmpty(EstadoCancelacion) Then
                    EstadoCancelacion = "Cancelable con aceptación"
                End If
            ElseIf CveEstatusFactura = 5 Then
                If String.IsNullOrEmpty(EstadoCancelacion) Then
                    If Total >= 5000 And FechaCancelacion.Year < 2022 Then
                        EstadoCancelacion = "Cancelado con aceptación"
                    End If

                    If Total >= 1000 And FechaCancelacion.Year >= 2022 Then
                        EstadoCancelacion = "Cancelado con aceptación"
                    End If

                    If String.IsNullOrEmpty(EstadoCancelacion) Then
                        EstadoCancelacion = "Cancelado sin aceptación"
                    End If
                End If
            End If

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("Titulo", Titulo))
            params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
            params.Add(New ReportParameter("RFCEmisor", RFCEmisor))
            params.Add(New ReportParameter("RFCReceptor", RFCReceptor))
            params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion))
            params.Add(New ReportParameter("EstadoCFDI", EstadoCFDI))
            params.Add(New ReportParameter("EstadoCancelacion", EstadoCancelacion))
            params.Add(New ReportParameter("MsgError", ""))
            params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))

            ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)

        End If

    End Sub
#End Region

#Region "OP = 'DC' - DEPOSITOS CAJA"
    Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))

        Dim ObjIE As New ClsBancos()
        Dim Tabla As DataTable
        ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa)


        If ObjIE.DtResultados IsNot Nothing AndAlso ObjIE.DtResultados.Rows.Count > 0 Then
            Tabla = ObjIE.DtResultados

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
            params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
            params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
            params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))

            If Archivo.Exists Then
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
            Else
                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
            End If
        End If




        ObjIE.Dispose()

    End Sub
#End Region

#Region "I E   C H E Q U E S"

    Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
        Dim CveTipoTransaccion = -1
        Dim ObjIE As New ClsBancos()
        ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa)
        If ObjIE.DtResultados.Rows.Count > 0 Then
            CveTipoTransaccion = ObjIE.CveTipoTransaccion
        End If
        Dim params As New List(Of ReportParameter)


        If CveTipoTransaccion = 1 Then
            Dim Folio = ObjIE.Folio
            Dim Importe = ObjIE.Importe
            Dim Observacion = ObjIE.Observaciones
            Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
            Dim Beneficiario = ObjIE.PagueseA
            Dim Fecha = ObjIE.FechaDocumento.ToShortDateString
            Dim CveCuenta = ObjIE.CveCuenta
            params.Add(New ReportParameter("Fecha", Fecha))
            params.Add(New ReportParameter("Folio", Folio))
            params.Add(New ReportParameter("Beneficiario", Beneficiario))
            params.Add(New ReportParameter("Importe", Importe.FormatoNumero))
            params.Add(New ReportParameter("ImporteLetra", ImporteLetra.ToUpper))
            params.Add(New ReportParameter("Observaciones", Observacion))
            params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))

            Dim DtMovimientosPoliza As DataTable = Nothing
            If UsuarioActual.CveEmpresa = 48 Then
                'Movimientos del IE
                If ObjIE.IDPoliza > 0 Then

                    Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
                    If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
                        Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
                    Else
                        DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
                    End If

                    ObjConta.Dispose()
                Else
                    DtMovimientosPoliza = New DataTable
                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))

                    Dim Dr = DtMovimientosPoliza.NewRow
                    Dr("CODIGO") = ""
                    Dr("Cuenta") = ""
                    Dr("Cargo") = 0
                    Dr("Abono") = 0
                    DtMovimientosPoliza.Rows.Add(Dr)
                End If
            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
                Dim PreP As New ClsContabilidad
                If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                    DtMovimientosPoliza = New DataTable
                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))

                    If PreP.DtResultados.Rows.Count > 0 Then

                        For Each drt As DataRow In PreP.DtResultados.Rows
                            Dim Dr = DtMovimientosPoliza.NewRow
                            Dr("CODIGO") = drt("CuentaCodigo")
                            Dr("Cuenta") = drt("CuentaNombre")
                            Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
                            Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
                            DtMovimientosPoliza.Rows.Add(Dr)

                        Next


                    End If
                End If
                PreP.Dispose()
            End If


            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))

            If Archivo.Exists Then
                ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
            Else
                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
                ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
            End If


        ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then

            Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
            Dim FechaExpedicion As Date = Now
            Dim Importe As Double
            Dim FormatoCheque As String = ""

            Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
            Dim tIdPoliza As Integer
            Dim DtMovimientosPoliza As DataTable = Nothing
            Dim RFC As String = ""
            Dim Correo As String = ""
            Dim CLABE As String = ""
            Dim NoSucursal As String = ""
            Dim Telefono As String = ""
            Dim IVA As Double = 0

            Folio = ""
            TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
            CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
            Ruta = UsuarioActual.Empresa.Ruta

            PagueseA = ObjIE.PagueseA
            Folio = ObjIE.Folio
            Importe = ObjIE.Importe
            CveTipoTransaccion = ObjIE.CveTipoTransaccion
            Banco = ObjIE.Banco
            NumCuenta = ObjIE.DepositoCuenta
            If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
            CLABE = ObjIE.DepositoCLABE
            If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
            NoSucursal = ObjIE.DepositoSucursal
            RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
            TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
            FechaExpedicion = ObjIE.FechaDocumento
            Observacion = ObjIE.Observaciones
            UsuarioRegistro = ObjIE.UsuarioNombre
            SubProyecto = ObjIE.SubProyecto
            AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
            NotificarA = ObjIE.NotificarA
            tIdPoliza = ObjIE.IDPoliza

            Dim PreP As New ClsContabilidad
            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                If PreP.DtResultados.Rows.Count > 0 Then
                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero

                    IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA

                    If CveProveedor > 0 Then
                        Dim Prov As New ClsCompProveedores
                        If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
                            If Prov.DtResultados.Rows.Count > 0 Then
                                RFC = Prov.DtResultados.Rows(0)("RFC").ToString
                                Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
                            End If
                        End If
                        Prov.Dispose()
                    End If

                    If CvePersonal > 0 Then
                        Dim RH As New ClsRH
                        If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
                            If RH.DtResultados.Rows.Count > 0 Then
                                Correo = RH.DtResultados.Rows(0)("Correo").ToString
                                Banco = RH.DtResultados.Rows(0)("Banco").ToString
                                NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
                                CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
                            End If


                        End If

                        RH.Dispose()

                    End If
                End If
            End If
            PreP.Dispose()


            params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
            params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
            params.Add(New ReportParameter("PagueseA", PagueseA))
            params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
            params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
            params.Add(New ReportParameter("Banco", Banco))
            params.Add(New ReportParameter("NumCuenta", NumCuenta))
            params.Add(New ReportParameter("CLABE", CLABE))
            params.Add(New ReportParameter("Concepto", Observacion))
            params.Add(New ReportParameter("Factura", ""))
            params.Add(New ReportParameter("RFC", RFC))
            params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
            params.Add(New ReportParameter("NumSucursal", NoSucursal))
            params.Add(New ReportParameter("Correo", Correo))
            params.Add(New ReportParameter("Telefono", Telefono))
            params.Add(New ReportParameter("NotifiqueA", NotificarA))
            params.Add(New ReportParameter("Obra", SubProyecto))
            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
            params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))

            If UsuarioActual.CveEmpresa = 66 Then
                params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
            End If


            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
            If Archivo.Exists Then
                ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
            Else
                ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
            End If

        ElseIf CveTipoTransaccion.Contiene(6) Then
            'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
            Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
            Dim Ruta As String = UsuarioActual.Empresa.Ruta
            Dim FechaExpedicion As Date = Now
            Dim Importe As Double
            Dim FormatoCheque As String = ""

            DtDetalle = Nothing

            PagueseA = ObjIE.PagueseA
            Folio = ObjIE.Folio
            Importe = ObjIE.Importe
            CveTipoTransaccion = ObjIE.CveTipoTransaccion

            TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
            Observacion = ObjIE.Observaciones
            UsuarioRegistro = ObjIE.UsuarioNombre

            params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
            params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
            params.Add(New ReportParameter("PagueseA", PagueseA))
            params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
            params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))

            params.Add(New ReportParameter("Concepto", Observacion))
            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
            params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))

            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta))
            If Archivo.Exists Then
                ImprimirPDF(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE))
                'Else
                '    ImprimirPDF("Empresas\Grales\Formatos\ComprobanteEgreso.rdlc", DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE))
            End If
        End If

        ObjIE.Dispose()

    End Sub

    Private Sub ImprimeMov(CveIE As Integer)
        Dim ObjIE As New ClsBancos()
        Dim DtGvRH As New DataTable
        Dim DtComprobacion As New DataTable
        Dim ParamComprobacion As New DataTable

        'Movimientos Relacionados de Comprobacion - Hijo
        If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
            DtGvRH = ObjIE.DtResultados
        End If

        If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then

            If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
                ParamComprobacion = ObjIE.DtResultados
            End If

            Dim ObjMov As New ClsMovimientos
            For Each dr As DataRow In DtGvRH.Rows
                If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
                    DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
                End If
            Next
            ObjMov.Dispose()

            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
            '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)

            Dim logouri As String = ""
            Dim RutaLogo As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)

            Dim Imagen As New System.IO.FileInfo(RutaLogo)

            If Imagen.Exists Then
                logouri = String.Format("file://{0}", RutaLogo)
            Else
                logouri = ""
            End If

            Dim params As New List(Of ReportParameter)

            If Archivo.Exists Then

                If UsuarioActual.CveEmpresa = 72 Then
                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
                    params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
                    params.Add(New ReportParameter("CveFyE", "0")) '

                    params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                    params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                    params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
                    params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
                    params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                    params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))

                    ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
                Else
                    params.Add(New ReportParameter("Numero", "")) '
                    params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
                    params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
                    params.Add(New ReportParameter("Fecha", Now.Date.ToString))
                    params.Add(New ReportParameter("Elaboro", ""))
                    params.Add(New ReportParameter("Autorizo", ""))
                    params.Add(New ReportParameter("ElaboroPuesto", ""))
                    params.Add(New ReportParameter("AutorizoPuesto", ""))
                    ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
                End If
            Else
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))

                params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
                params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
                params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
                params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))

                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
            End If
        Else
            If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
                If ObjIE.DtResultados.Rows.Count > 0 Then

                    Dim reportDataSetsList As New List(Of ReportDataSource)

                    Dim dtMovs As New DataTable
                    Dim Mov As New ClsContabilidad
                    If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then

                        dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")

                        If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                            'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
                            For Each Dr As DataRow In dtMovs.Rows
                                Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
                                Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                                Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                                Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                            Next
                        End If

                    End If
                    Mov.Dispose()
                    Dim rds = New ReportDataSource("DataSet1", dtMovs)
                    reportDataSetsList.Add(rds)

                    Dim dtnc As New DataTable
                    Dim ObjCompra As New ClsCompras()
                    If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
                        dtnc = ObjCompra.DtResultados
                    End If
                    ObjCompra.Dispose()
                    Dim rds2 = New ReportDataSource("DataSet2", dtnc)
                    reportDataSetsList.Add(rds2)
                    dtnc.Dispose()

                    Dim paramList As New List(Of ReportParameter)
                    With paramList

                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

                        .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                        .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                        .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
                        .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
                        .Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
                        .Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
                        .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
                        .Add(New ReportParameter("Folio", ObjIE.Folio, True))
                        .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))


                        If Imagen.Exists Then
                            .Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                        Else
                            .Add(New ReportParameter("LogoPath", ""))
                        End If

                    End With
                    dtMovs.Dispose()

                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")

                End If

            End If
        End If

        DtGvRH.Dispose()
        DtComprobacion.Dispose()
        ParamComprobacion.Dispose()

        ObjIE.Dispose()
    End Sub

#End Region

#Region "OP = RECIBO DE PAGOS"
    Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)

        PDFReciboDePagos(CveVenta, CveIE, -1)

    End Sub
#End Region

#Region "OP = VTA - PyME"

    ' 04/05/2018 - Pruebas de impresion de factura PyME
    Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
        Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta)
        Dim File As FileInfo = New FileInfo(Directorio1)

        If File.Exists Then
            Dim Reporte As StiReport = New StiReport()
            Reporte.Load(Directorio1)
            Reporte.Dictionary.DataSources.Clear()

            Dim ds As DataSet = New DataSet()
            Venta.DtDetalle.TableName = "Datos"

            ds.Tables.Add(Venta.DtDetalle)

            Reporte.RegData(ds)

            Reporte.Dictionary.Variables("Empresa").Value = UsuarioActual.Empresa.Empresa

            Reporte.Dictionary.Variables("Tipo").Value = "Ingreso"
            Reporte.Dictionary.Variables("RFC").Value = UsuarioActual.Empresa.RFC
            Reporte.Dictionary.Variables("Serie").Value = Venta.Serie
            Reporte.Dictionary.Variables("Folio").Value = Venta.Folio.ToString()

            Reporte.Dictionary.Variables("ClienteNombre").Value = Venta.Cliente.Nombre
            Reporte.Dictionary.Variables("ClienteDireccion").Value = Venta.Cliente.Direccion
            Reporte.Dictionary.Variables("ClienteLugar").Value = Venta.Cliente.Ciudad
            Reporte.Dictionary.Variables("ClienteRFC").Value = Venta.Cliente.RFC

            Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion

            Dim SubtTotal As Double = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA?
            Dim IVA As Double = SubtTotal * 0.16 'lleva IVA?
            Dim Total As Double = SubtTotal + IVA

            'Reporte.Dictionary.Variables("Importe").Value =
            Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras()

            Reporte.Dictionary.Variables("SubTotal").Value = SubtTotal.ToString()
            Reporte.Dictionary.Variables("IVA").Value = IVA.ToString()
            Reporte.Dictionary.Variables("Total").Value = Total.ToString()

            Reporte.Dictionary.Variables("UsoCFDI").Value = Venta.UsoCFDI
            Reporte.Dictionary.Variables("MetodoPago").Value = Venta.MetodoPago33
            Reporte.Dictionary.Variables("FormaPago").Value = Venta.FormaPago33

            Reporte.Dictionary.Variables("QR").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
            Reporte.Dictionary.Variables("SelloCFDI").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
            Reporte.Dictionary.Variables("SelloSAT").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
            Reporte.Dictionary.Synchronize()

            StiReportResponse.ResponseAsPdf(Me, Reporte)
        Else
            RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
        End If
    End Sub
#End Region

#Region "OP = ENTREGAS - Entregas por realizar"
    Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
        Dim Correcto As Boolean = False
        Dim DtPaqueteriasGuias As DataTable = Nothing
        Dim ObjGeneral As New ClsGenerales
        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
            DtPaqueteriasGuias = ObjGeneral.DtResultados
            Correcto = True
        End If
        ObjGeneral.Dispose()
        If Correcto Then
            Dim RepParams As New List(Of ReportParameter)
            RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
            RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
            RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

            ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos\EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
        End If

    End Sub
#End Region

#Region "OP = Etiqueta - Etiquetas de recepcion"
    Private Sub ImprimirEtiqueta(CveMovimiento As Integer, Modalidad As String)

        Dim ObjInventarios As New ClsInventarios
        Dim PS As String = ""
        Dim All As Byte()
        Using ms As New MemoryStream
            Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
                pdfdoc.InitializeOutlines()
                If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                    If ObjInventarios.DtResultados IsNot Nothing Then
                        For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
                            Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero
                            Dim Lote As String = DetalleRow.Item("Lote").ToString
                            Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
                            PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
                            If Modalidad = "Individual" Then
                                Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

                                Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                docEtiqueta.Close()
                            Else
                                Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1

                                For i As Integer = 0 To Cant
                                    Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

                                    Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                    docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                    docEtiqueta.Close()
                                Next
                            End If
                        Next
                    End If
                End If
                pdfdoc.Close()

            End Using
            All = ms.ToArray()
        End Using
        ImprimirbytesPDF(All, PS.ToString)


        If Modalidad = "Individual" Then
        Else

        End If
        ObjInventarios.Dispose()
    End Sub

    Private Sub ImprimirEtiqueta2(CvePS As Integer, PS As String, CveAlmacen As String, Modalidad As String)

        Dim ObjInventarios As New ClsInventarios

        Dim All As Byte()
        Using ms As New MemoryStream
            Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
                pdfdoc.InitializeOutlines()
                If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then
                    If ObjInventarios.DtResultados IsNot Nothing Then
                        For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
                            Dim Lote As String = DetalleRow.Item("Lote").ToString
                            Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
                            If Modalidad = "Individual" Then
                                Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

                                Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                docEtiqueta.Close()
                            Else
                                Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1

                                For i As Integer = 0 To Cant
                                    Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

                                    Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                    docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                    docEtiqueta.Close()
                                Next
                            End If
                        Next
                    End If
                End If
                pdfdoc.Close()

            End Using
            All = ms.ToArray()
        End Using
        ImprimirbytesPDF(All, PS.ToString)


        If Modalidad = "Individual" Then
        Else

        End If
        ObjInventarios.Dispose()
    End Sub

    Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As Date, PS As String) As Byte()
        Dim QrDescarga As String = ""
        Dim Cfdi As New RVCFDI33.GeneraCFDI()
        Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, Format(FechaCaducidad, "dd/MM/yyyy").ToString()))
        QrDescarga = Convert.ToBase64String(b)
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("QR", QrDescarga))
        params.Add(New ReportParameter("PS", PS))
        params.Add(New ReportParameter("Lote", Lote))
        params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString("dd/MM/yyyy")))
        Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params)
    End Function
#End Region

#Region "OP = AJUSTE"
    Private Sub ImprimirPDFAjuste(CveGarantiaDetalle As Integer)
        ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim RowAjuste As DataRow = Nothing

        Using ObjAcum As New ClsAcumuladores
            If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle) Then
                If ObjAcum.DtResultados.Rows.Count > 0 Then
                    RowAjuste = ObjAcum.DtResultados.Rows(0)
                End If
            End If
        End Using

        Dim CvePSAjuste As Integer = RowAjuste("CvePS").ToString.ToEntero()
        Dim CveCliente As Integer = RowAjuste("CveCliente").ToString.ToEntero()
        Dim CveClienteDistribuidor As Integer = RowAjuste("CveClienteDistribuidor").ToString.ToEntero()
        Dim Consec As String = RowAjuste("Consecutivo").ToString
        Dim FolioGarantia As String = RowAjuste("FolioGarantia").ToString
        Dim FechaAjuste As DateTime = RowAjuste("FechaVenta").ToString.ToDateTime()
        Dim FechaReclamacion As DateTime = RowAjuste("FechaReclamacion").ToString.ToDateTime()
        Dim TipoDefecto As String = RowAjuste("TipoDefecto").ToString
        Dim CveTipoUso As Integer = RowAjuste("CveTipoUso").ToString.ToEntero()
        Dim CodigoEnsamble As String = RowAjuste("CodigoEnsamble").ToString
        Dim CodigoLinea As String = RowAjuste("CodigoLinea").ToString
        Dim CodigoInspeccion As String = RowAjuste("CodigoInspeccion").ToString

        Dim MesesUso As String = "0"
        Dim PorcentajeAjuste As String = RowAjuste("PorcentajeAjuste").ToString
        Dim BCIAjuste As String = RowAjuste("BCIAjuste").ToString
        Dim Etiqueta As String = RowAjuste("Etiqueta").ToString

        Dim Año As String = RowAjuste("Año").ToString
        Dim Comprobante As String = RowAjuste("Comprobante").ToString

        Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString
        Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString
        Dim CodigoTD As String = RowAjuste("CodigoTD").ToString

        Dim PSAjuste As String = ""
        Dim MarcaPS As String = ""
        Dim CveMarca As Integer = -1

        Dim FechaI As Date = FechaAjuste.AddDays(1)
        Dim FechaF As Date = FechaReclamacion

        Dim Dia As Integer = FechaI.Day
        Try
            'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
            If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
            Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual

            Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo

            If FechaT > FechaF Then
                'todavía está en el  mes actual.
                MesesTrascurridos = MesesTrascurridos
            Else
                MesesTrascurridos = MesesTrascurridos + 1
            End If

            MesesUso = MesesTrascurridos.ToString

        Catch ex As Exception
            OnError("Ocurrió un error al calcular los meses de uso", ex)
        End Try


        Dim ObjPS As New ClsProductosServicios
        If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
            Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste))
            If RowPS IsNot Nothing Then
                PSAjuste = RowPS("PS").ToString()
                MarcaPS = RowPS("Marca").ToString()
                'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO
                If RowPS("CveClasificacion").ToString() = "20517" Then
                    BCIAjuste = PSAjuste
                End If
            End If
        End If
        ObjPS.Dispose()

        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
        Dim DtDatos As New DataTable

        Dim params As New List(Of ReportParameter)


        'Informacion Distribuidor
        If (CveClienteDistribuidor > 0) Then

            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor))
            Dim CiudadEstado As String = ""
            Dim Telefono As String = ""
            Dim Nombre As String = ""

            If DatosClienteSeleccionado IsNot Nothing Then
                CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
                Telefono = DatosClienteSeleccionado("Telefono").ToString
                Nombre = DatosClienteSeleccionado("Nombre").ToString
            End If

            params.Add(New ReportParameter("NombreDistribuidor", Nombre))
            params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
            params.Add(New ReportParameter("TelCliente", Telefono))
        End If


        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("Consec", Consec))
        params.Add(New ReportParameter("FolioAcuse", FolioGarantia))

        'Informacion de Garantia o ajuste
        params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("Defecto", TipoDefecto))
        params.Add(New ReportParameter("MesesUso", MesesUso))
        params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste))

        'Informacion Acumulador
        params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble))
        params.Add(New ReportParameter("CodLinea", CodigoLinea))
        params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion))
        params.Add(New ReportParameter("Tipo", BCIAjuste))
        params.Add(New ReportParameter("Marca", MarcaPS))
        params.Add(New ReportParameter("Etiqueta", Etiqueta))

        'Informacion Vehiculo
        params.Add(New ReportParameter("MarcaAuto", MarcaAuto))
        params.Add(New ReportParameter("TipoAuto", ModeloAuto))

        'Informacion Consumidor
        If (CveCliente > 0) Then

            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))

            Dim Nombre As String = ""
            Dim Ciudad As String = ""
            Dim Estado As String = ""
            Dim Direccion As String = ""
            Dim Telefono As String = ""

            If DatosClienteSeleccionado IsNot Nothing Then
                Nombre = DatosClienteSeleccionado("Nombre").ToString
                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
                Estado = DatosClienteSeleccionado("Estado").ToString
                Direccion = DatosClienteSeleccionado("Direccion").ToString
                Telefono = DatosClienteSeleccionado("Telefono").ToString
            End If

            params.Add(New ReportParameter("NombreCliente", Nombre))
            params.Add(New ReportParameter("Direccion", Direccion))
            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
            params.Add(New ReportParameter("TelConsumidor", Telefono))
        End If

        params.Add(New ReportParameter("Anio", Año))
        params.Add(New ReportParameter("Comprobante", Comprobante))
        params.Add(New ReportParameter("CodigoTD", CodigoTD))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
    End Sub

    Private Sub ImprimirPDFAjuste(CvePSAjuste As Integer, CveCliente As Integer, CveClienteDistribuidor As Integer, Consec As String, FolioGarantia As String, FechaAjuste As DateTime, FechaReclamacion As DateTime,
                                  TipoDefecto As String, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, PorcentajeAjuste As String,
                                  BCIAjuste As String, Etiqueta As String, Año As String, Comprobante As String, ModeloAuto As String, MarcaAuto As String, CodigoTD As String)

        Dim MesesUso As String = "0"

        Dim PSAjuste As String = ""
        Dim MarcaPS As String = ""
        Dim CveMarca As Integer = -1

        Dim FechaI As Date = FechaAjuste.AddDays(1)
        Dim FechaF As Date = FechaReclamacion

        Dim Dia As Integer = FechaI.Day
        Try
            'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
            If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
            Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual

            Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo

            If FechaT > FechaF Then
                'todavía está en el  mes actual.
                MesesTrascurridos = MesesTrascurridos
            Else
                MesesTrascurridos = MesesTrascurridos + 1
            End If

            MesesUso = MesesTrascurridos.ToString

        Catch ex As Exception
            OnError("Ocurrió un error al calcular los meses de uso", ex)
        End Try


        Dim ObjPS As New ClsProductosServicios
        If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
            Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste))
            If RowPS IsNot Nothing Then
                PSAjuste = RowPS("PS").ToString()
                MarcaPS = RowPS("Marca").ToString()
                'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO
                If RowPS("CveClasificacion").ToString() = "20517" Then
                    BCIAjuste = PSAjuste
                End If
            End If
        End If
        ObjPS.Dispose()

        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
        Dim DtDatos As New DataTable

        Dim params As New List(Of ReportParameter)


        'Informacion Distribuidor
        If (CveClienteDistribuidor > 0) Then

            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor))
            Dim CiudadEstado As String = ""
            Dim Telefono As String = ""
            Dim Nombre As String = ""

            If DatosClienteSeleccionado IsNot Nothing Then
                CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
                Telefono = DatosClienteSeleccionado("Telefono").ToString
                Nombre = DatosClienteSeleccionado("Nombre").ToString
            End If

            params.Add(New ReportParameter("NombreDistribuidor", Nombre))
            params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
            params.Add(New ReportParameter("TelCliente", Telefono))
        End If


        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("Consec", Consec))
        params.Add(New ReportParameter("FolioAcuse", FolioGarantia))

        'Informacion de Garantia o ajuste
        params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("Defecto", TipoDefecto))
        params.Add(New ReportParameter("MesesUso", MesesUso))
        params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste))

        'Informacion Acumulador
        params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble))
        params.Add(New ReportParameter("CodLinea", CodigoLinea))
        params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion))
        params.Add(New ReportParameter("Tipo", BCIAjuste))
        params.Add(New ReportParameter("Marca", MarcaPS))
        params.Add(New ReportParameter("Etiqueta", Etiqueta))

        'Informacion Vehiculo
        params.Add(New ReportParameter("MarcaAuto", MarcaAuto))
        params.Add(New ReportParameter("TipoAuto", ModeloAuto))

        'Informacion Consumidor
        If (CveCliente > 0) Then

            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))

            Dim Nombre As String = ""
            Dim Ciudad As String = ""
            Dim Estado As String = ""
            Dim Direccion As String = ""
            Dim Telefono As String = ""

            If DatosClienteSeleccionado IsNot Nothing Then
                Nombre = DatosClienteSeleccionado("Nombre").ToString
                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
                Estado = DatosClienteSeleccionado("Estado").ToString
                Direccion = String.Format("{0} {1}{2} COL. {3}", DatosClienteSeleccionado("Direccion"), DatosClienteSeleccionado("NoInt"), DatosClienteSeleccionado("NoExt"), DatosClienteSeleccionado("Colonia"))
                Telefono = DatosClienteSeleccionado("Telefono").ToString
            End If

            params.Add(New ReportParameter("NombreCliente", Nombre))
            params.Add(New ReportParameter("Direccion", Direccion))
            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
            params.Add(New ReportParameter("TelConsumidor", Telefono))
        End If

        params.Add(New ReportParameter("Anio", Año))
        params.Add(New ReportParameter("Comprobante", Comprobante))
        params.Add(New ReportParameter("CodigoTD", CodigoTD))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
    End Sub
#End Region

End Class