Option Strict On
Option Explicit On

Imports System.Data
Imports System.IO
Imports System.Xml
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports ZXing


Partial Class PopUpVerFactura
    Inherits ClsPaginas


#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()
                If CveEmpresaToken > 0 AndAlso CveUsuario > 0 Then
                    Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)

                    If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
                        Context.Session("UsuarioSIG") = UsuarioToken
                    End If
                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
                    imprimirpalletWalmart(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
                If Request("onlyPrint").ToString() = "CitrusInventarioDiario" AndAlso Not IsNothing(Request("fecha")) Then
                    imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "PDF")
                End If
                If Request("onlyPrint").ToString() = "CitrusInventarioDiarioxls" AndAlso Not IsNothing(Request("fecha")) Then
                    imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "Excel")
                End If
                If Request("onlyPrint").ToString() = "CitrusInventarioDiarioSendMail" AndAlso Not IsNothing(Request("fecha")) Then
                    imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "PDF", True)
                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

        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 As Integer = 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 imprimirRepcitrusInventarioDiario(fecha As String, formato As String, Optional EnviarCorrreo As Boolean = False)
        Dim totalPallets As String = ""
        Dim totalBachas As String = ""
        Dim dfec As DateTime = fecha.ToDateTime()
        Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} DE {0:MMMM} DEL {0:yyyy}", dfec).ToUpper()
        Dim totalcajas As String = ""
        Dim TotalBins As String = ""


        Dim tablaReportePallets As New DataTable
        Dim tablaReporteBins As New DataTable

        Using objnom As New ClsCGame
            If objnom.REPInventarioDiarioPallets(dfec, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
                tablaReportePallets = objnom.DtResultados
                totalPallets = tablaReportePallets.SUM("Pallets", "GroupId =1").FormatoNumero(0)
                totalBachas = tablaReportePallets.SUM("Bachas", "GroupId =1").FormatoNumero(0)
                totalcajas = tablaReportePallets.SUM("CajasTotal", "GroupId =1").FormatoNumero(0)
            End If
            If objnom.REPInventarioDiarioBins(dfec, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
                tablaReporteBins = objnom.DtResultados
                TotalBins = tablaReporteBins.SUM("Bins").FormatoNumero(0)
            End If
            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
        End Using
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("totalPallets", totalPallets))
        params.Add(New ReportParameter("totalBachas", totalBachas))
        params.Add(New ReportParameter("totalcajas", totalcajas))
        params.Add(New ReportParameter("TotalBins", TotalBins))
        params.Add(New ReportParameter("Fecha", fechas))

        Dim lrds As New List(Of ReportDataSource)
        Dim rds As New ReportDataSource With {.Name = "DataSetsPallets", .Value = tablaReportePallets}
        lrds.Add(rds)
        Dim rds2 As New ReportDataSource With {.Name = "DataSetBins", .Value = tablaReporteBins}
        lrds.Add(rds2)

        '"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        Dim rutardlc As String = "Formatos\RepAgroInventarioDiario.rdlc"
        If EnviarCorrreo Then
            Dim para As String = ""
            Dim dtCorreos As DataTable = New DataTable()

            Using objnom As New ClsCGame
                If objnom.MailsGet(-1, -1, -1, UsuarioActual.CveEmpresa, 2) Then
                    dtCorreos = objnom.DtResultados
                End If
            End Using
            Dim coma As String = ""
            For Each row As DataRow In dtCorreos.Rows
                para = String.Format("{0}{2}{1}", para, row("Correo"), coma)
                coma = ","
            Next

            Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
            Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})


            Dim Mail As New ClsSisMail()
            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, String.Format("Reporte de Inventario del {0}", fechas), "", "", Archivos:=LSRutasMail)

        Else
            ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline")
        End If
    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)

        '"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        Dim rutardlc As String = "Formatos\Agro\EmbarqueManifiesto.rdlc"
        If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
            rutardlc = "Formatos\Agro\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("Formatos\Agro\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("{0dd/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("{0hh }:{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 As Byte() = StreamPDF("Formatos\Agro\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("Formatos\Agro\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 As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
        Dim barcodebyte As Byte()
        Using ms As 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("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
    End Sub


    Private Sub imprimirpalletWalmart(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("{000}", noPallet.ToEntero())
                'NumberBig = String.Format("{000}", 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 As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
        Dim barcodebyte As Byte()
        Using ms As 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 As Drawing.Image = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
        Dim barcodebyte2 As Byte()
        Using ms As 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 = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
        'If CvetypeImpresion = 2 Then
        '    ruta = "Formatos\Agro\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("{000}", noPallet.ToEntero())
                NumberBig = String.Format("{000}", 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 As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
        Dim barcodebyte As Byte()
        Using ms As 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 = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
        'If CvetypeImpresion = 2 Then
        '    ruta = "Formatos\Agro\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, CveUsuario As Integer) As Usuario

        Dim UsuarioToken As Usuario = Nothing
        'Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)

        Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
        UsuarioToken = ObjUsuarios.GetUsuarioDetalle(CveUsuario, CveEmpresa)
        If UsuarioToken IsNot Nothing Then
            Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
            Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
            UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
            UsuarioToken.CveEmpresa = CveEmpresa
        End If
        ObjUsuarios.Dispose()
        Return UsuarioToken
    End Function

#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

                'Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1

                Dim EsTransitorio As Boolean = If(UrlParametros("ESTRANSITORIO") Is Nothing, False, Boolean.Parse((UrlParametros("ESTRANSITORIO").ToString)))
                Dim CveAlmacenRecepcion As Integer = If(UrlParametros("CVEALMACENRECEPCION") Is Nothing, -1, (UrlParametros("CVEALMACENRECEPCION").ToString.ToEntero))
                Dim CveAlmacenTransitorioRecepcion As Integer = If(UrlParametros("CVEALMACENTRANSITORIORECEPCION") Is Nothing, -1, (UrlParametros("CVEALMACENTRANSITORIORECEPCION").ToString.ToEntero))
                Dim FolioBusquedaTrasitorio As Integer = If(UrlParametros("FOLIOBUSQUEDATRASITORIO") Is Nothing, -1, (UrlParametros("FOLIOBUSQUEDATRASITORIO").ToString.ToEntero))

                Dim Consola As String = If(UrlParametros("CONSOLA") IsNot Nothing, UrlParametros("CONSOLA").ToString.Trim, "")

                CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=False, EsTransitorio:=EsTransitorio, CveAlmacenRecepcion:=CveAlmacenRecepcion, CveAlmacenTransitorioRecepcion:=CveAlmacenTransitorioRecepcion,
                                        FolioBusquedaTrasitorio:=FolioBusquedaTrasitorio, Consola:=Consola)

            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 ACUSE
        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 ETIQUETA
        If UrlParametros("OP").ToString = "ETIQUETA" Then
            If UrlParametros("PRODUCTOS") IsNot Nothing AndAlso UrlParametros("CVEPRECIOLISTA").ToString.ToEntero > 0 Then
                ImprimeEtiqueta(UrlParametros("PRODUCTOS").ToString, UrlParametros("CVEPRECIOLISTA").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 STIMUL As Boolean = UrlParametros("STIMULSOFT") IsNot Nothing AndAlso UrlParametros("STIMULSOFT").ToString() = "1"
                Dim EsTicket As Boolean = UrlParametros("TICKET") IsNot Nothing AndAlso UrlParametros("TICKET").ToString() = "1"

                GenerarPDFVenta(UrlParametros("CVEVENTA").ToString.ToEntero, AplicaPagare, GuardarPDF:=Guardar, RegenerarPDF:=RegenerarPDF, UsarStimul:=STIMUL, EsTicket:=EsTicket)
            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) OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                Dim CveSubProyecto As Integer = -1
                Dim FechaConsulta As Date = ModExtensiones.MaxFecha

                If UrlParametros("CVESUBPROYECTO") IsNot Nothing Then
                    CveSubProyecto = UrlParametros("CVESUBPROYECTO").ToString.ToEntero
                End If
                If UrlParametros("FECHA") IsNot Nothing Then
                    FechaConsulta = UrlParametros("FECHA").ToString.ToDate()
                End If
                ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString, CveSubProyecto, FechaConsulta)
            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
                Dim TipoPago As String = ""
                If UrlParametros("TIPOPAGO") IsNot Nothing Then
                    TipoPago = UrlParametros("TIPOPAGO").ToString()
                End If
                CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString, TipoPago)
            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


        'IMPRIME POLIZA
        If UrlParametros("OP").ToString = "PREPO" Then
            If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
                ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
            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, Optional FechaConsulta As Date = ModExtensiones.MaxFecha)
        Dim DtCortesVentasResumen As DataTable = Nothing
        Dim DtCortesVentas As DataTable = Nothing
        Dim DtReporteCorte As DataTable = Nothing
        Dim DtIngresosRetiros As DataTable = Nothing
        Dim DtDepositos As DataTable = Nothing

        Dim Fecha As String = "", Nombre As String = ""
        Dim OpcionDetallado As Integer = 1
        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then OpcionDetallado = 2

        Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1"

        If ConsultaPorSucursal Then
            'SI NO TIENE ESTOS VALORES, SARCALOS DEL CORTE
            If CveCorte > 0 AndAlso (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then
                Using ObjVta As New ClsPuntoVenta
                    If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then
                        FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date
                        CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero()
                    End If
                End Using
            End If

            CveCorte = -1
        End If

        Dim ObjVenta As New ClsVentas

        If ObjVenta.GetVta_ReporteCortesDetalle(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa, 2, ConsultaIVA:=UsuarioActual.CveEmpresa.Contiene(190, 192), FechaConsulta:=FechaConsulta) Then
            Dim DsDatos = ObjVenta.DataSetResultados.Copy()
            If DsDatos IsNot Nothing Then
                DtCortesVentas = DsDatos.Tables(0)

                DtCortesVentasResumen = DsDatos.Tables(1)
            End If
        End If


        If DtCortesVentas.Rows.Count > 0 Then
            Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")

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

        End If

        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
            If ConsultaPorSucursal Then
                If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaConsulta, FechaConsulta, CveSubProyecto) Then
                    DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("FechaInicial IS NOT NULL")
                    Fecha = FechaConsulta.ToString("dd/MM/yyyy")
                End If
            Else
                If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
                    DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("CveCorte > 0")
                    Fecha = DtReporteCorte.FiltroPrimeroValor("FechaInicial", "")
                End If
            End If

            If ObjVenta.GetVta_MovimientosCajas(CveCorte, -1, CveSubProyecto:=CveSubProyecto, FechaConsulta:=FechaConsulta) Then
                DtIngresosRetiros = ObjVenta.DtResultados.Copy()
            End If

            If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVenta.GetCortesDetalleDepositosCaja(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa, FechaConsulta:=FechaConsulta) Then
                DtDepositos = ObjVenta.DtResultados.Copy()
            End If
        End If

        ObjVenta.Dispose()


        Dim FechaCorte As String = $"&emsp;<b>Fecha fin</b> {Fecha}"
        If ConsultaPorSucursal Then
            FechaCorte = $"&emsp;<b>Fecha: </b> {Fecha}"
        End If

        Dim Usuario As String = $"&emsp;<b>Usuario</b> {Nombre}"
        If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
            Dim lrds As New List(Of ReportDataSource)

            Dim DtMetodosPago = DtCortesVentasResumen.Copy()

            'MOVER EL VENTAS CREDITO DE LA DERECHA A LA IZQUIERDA EN EL PDF
            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
            End If

            Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"

            If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
                DirFormato = UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc"
            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", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")))
            params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

            If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
                If DtReporteCorte IsNot Nothing Then
                    Dim dtDatos = DtReporteCorte.Clone()
                    dtDatos.ImportRow(DtReporteCorte.Rows(0))

                    Dim DtTT = GenerateTransposedTable(dtDatos)
                    Dim DtDatosVentas As New DataTable()
                    DtDatosVentas.Columns.Add(New DataColumn("Orden", GetType(Integer)))
                    DtDatosVentas.Columns.Add(New DataColumn("Columna", GetType(String)))
                    DtDatosVentas.Columns.Add(New DataColumn("Importe", GetType(Decimal)))

                    Dim DtDatosCajas As DataTable = DtDatosVentas.Copy()

                    For Each row As DataRow In DtTT.Rows
                        Dim Total = row(1).ToString()
                        If IsNumeric(Total) OrElse row(0).ToString().Contiene("TotalRetiros", "TotalIngresos") Then
                            Dim TipoTabla As Integer = 0

                            Dim Orden As Integer = 0
                            Dim rowData = DtDatosVentas.NewRow()
                            Select Case row(0).ToString()
                                Case "VentasCorte"
                                    rowData("Columna") = "Total Ventas"
                                    Orden = 1
                                    TipoTabla = 1
                                Case "NotasCredito"
                                    rowData("Columna") = "N.C."
                                    Orden = 2
                                    TipoTabla = 1
                                Case "VentasCredito"
                                    rowData("Columna") = "Ventas Crédito"
                                    Orden = 3
                                    TipoTabla = 1
                                Case "VentasContado"
                                    rowData("Columna") = "Ventas Contado"
                                    Orden = 4
                                    TipoTabla = 1

                                Case "VentaTotalIngreso"
                                    rowData("Columna") = "Ventas Ingreso"
                                    If UsuarioActual.CveEmpresa = 193 Then
                                        Orden = 0
                                    Else
                                        Orden = 5
                                    End If

                                    TipoTabla = 1
                                Case "VentaTotalRemision"
                                    If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
                                        rowData("Columna") = "Ventas Remisiones"
                                        Orden = 6
                                        TipoTabla = 1
                                    Else
                                        Orden = 0
                                    End If
                                Case "TotalEfectivo"
                                    rowData("Columna") = "Total Efectivo"
                                    Orden = 7
                                    TipoTabla = 1
                                Case "TotalCheque"
                                    rowData("Columna") = "Total Cheque"
                                    Orden = 8
                                    TipoTabla = 1
                                Case "TarjDebito"
                                    rowData("Columna") = "Tarj. Débito"
                                    Orden = 9
                                    TipoTabla = 1
                                Case "TarjCredito"
                                    rowData("Columna") = "Tarj. Crédito"
                                    Orden = 10
                                    TipoTabla = 1
                                Case "VentasTransferencia"
                                    rowData("Columna") = "Total Transf."
                                    Orden = 11
                                    TipoTabla = 1
                                Case "TotalDevRNC"
                                    rowData("Columna") = "Total DEV-RNC."
                                    Orden = 12
                                    TipoTabla = 1
                                'Case "SaldoAnteriorAplicado"
                                '    rowData("Columna") = "Saldo Aplicado"
                                '    Orden = 0
                                '    TipoTabla = 0
                                Case "ImporteInicial"
                                    rowData("Columna") = "Importe Inicial"
                                    Orden = 1
                                    TipoTabla = 2
                                Case "TotalRetiros"
                                    rowData("Columna") = "Total Retiro"
                                    Orden = 2
                                    TipoTabla = 2
                                Case "TotalIngresos"
                                    rowData("Columna") = "Total Ingreso"
                                    Orden = 3
                                    TipoTabla = 2
                                Case "Devoluciones"
                                    rowData("Columna") = "Devoluciones"
                                    Orden = 4
                                    TipoTabla = 2
                                Case "TotalCaja"
                                    rowData("Columna") = "Total Caja"
                                    Orden = 5
                                    TipoTabla = 2
                                Case Else
                                    rowData("Columna") = row(0).ToString()
                                    Orden = 0
                            End Select

                            rowData("Importe") = Total.ToDecimal()
                            rowData("Orden") = Orden

                            If TipoTabla = 1 Then
                                DtDatosVentas.Rows.Add(rowData.ItemArray)
                            ElseIf TipoTabla = 2 Then
                                DtDatosCajas.Rows.Add(rowData.ItemArray)
                            End If

                            'If row(0).ToString() = "SaldoAnteriorAplicado" Then
                            '    Dim RowMP As DataRow = DtMetodosPago.NewRow
                            '    RowMP("MetodoPago") = "Saldo Aplicado"
                            '    RowMP("Importe") = Total.ToDecimal()

                            '    DtMetodosPago.Rows.Add(RowMP)
                            'End If

                        End If
                    Next

                    'Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")

                    'Dim rowCredito = DtDatosVentas.NewRow()
                    'rowCredito("Columna") = "Crédito"
                    'rowCredito("Importe") = TotalCredito
                    'rowCredito("Orden") = 4
                    'DtDatosVentas.Rows.Add(rowCredito)

                    Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosVentas.FiltraParametros("Orden > 0", "Orden")}
                    lrds.Add(rds3)

                    Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = DtDatosCajas.FiltraParametros("Orden > 0", "Orden")}
                    lrds.Add(rds4)

                    Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = DtIngresosRetiros}
                    lrds.Add(rds5)


                    If UsuarioActual.CveEmpresa.Contiene(197, 193) Then
                        Dim CveCuenta As Integer = -1
                        If UsuarioActual.CveEmpresa = 193 Then
                            CveCuenta = 186367
                        Else
                            CveCuenta = 0

                            If CveSubProyecto = 12756 Then 'nav
                                CveCuenta = 188796
                            End If

                            If CveSubProyecto = 12755 Then 'hillo
                                CveCuenta = 188795
                            End If
                        End If

                        If CveCuenta >= 0 Then
                            Using ObjConta As New ClsContabilidad
                                If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
                                    Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
                                    lrds.Add(rdsConta)
                                End If
                            End Using
                        End If

                        If DtDepositos IsNot Nothing Then
                            Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
                            lrds.Add(rdsDepositos)
                        End If

                    End If

                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
                    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
                    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
                    'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
                End If
            End If

            Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
            lrds.Add(rds)
            Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
            lrds.Add(rds2)


            ImprimirPDF(DirFormato, lrds, params, "ReporteCortes", Formato)
        End If

    End Sub

    Private Function GenerateTransposedTable(ByVal inputTable As DataTable) As DataTable
        Dim outputTable As DataTable = New DataTable()
        outputTable.Columns.Add(inputTable.Columns(0).ColumnName.ToString())

        For Each inRow As DataRow In inputTable.Rows
            Dim newColName As String = inRow(0).ToString()
            outputTable.Columns.Add(newColName)
        Next

        For rCount As Integer = 1 To inputTable.Columns.Count - 1
            Dim newRow As DataRow = outputTable.NewRow()
            newRow(0) = inputTable.Columns(rCount).ColumnName.ToString()

            For cCount As Integer = 0 To inputTable.Rows.Count - 1
                Dim colValue As String = inputTable.Rows(cCount)(rCount).ToString()
                newRow(cCount + 1) = colValue
            Next

            outputTable.Rows.Add(newRow)
        Next

        Return outputTable
    End Function

#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 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", NowADS().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", RutaImagenLogo))

        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", NowADS().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}", NowADS().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 As String = 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 GeneraQRSAT(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaGuardado:=RutaCBB)

                        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

                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", NowADS().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}", NowADS().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


#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 As 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 = NowADS()
            ObjFactura.CvePrePoliza = -1
            ObjFactura.FechaPago = NowADS()
            ObjFactura.MotivoDescuento = ""
            ObjFactura.Observaciones = ""
            ObjFactura.FechaEjecucion = NowADS()
            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 = NowADS()
            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

#End Region

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

    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False,
             Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1, Optional Consola As String = "")
        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 As Integer = 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 Guia As String = ObjInventarios.Guia
        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")


        Dim Ruta As String = ""
        Dim Supervisor As String = ""

        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
                If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
                    Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString
                    Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString
                End If
            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.Contiene(3, 18, 30, 34, 16, 7, 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")
                                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 EsTransitorio Then

                If ObjInventarios.GetMovimientosTransitorios(CveAlmacenRecepcion, -1, CveAlmacenTransitorioRecepcion, -1, FolioBusquedaTrasitorio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                    DtMovimientos = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4 AND CvePS > 0"))
                    CantidadProductos = DtMovimientos.SUM("Cantidad")

                    If Not DtMovimientos.Columns.Contains("No") Then
                        DtMovimientos.Columns.Add("No", GetType(Integer))
                        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
            Else
                If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                    DtMovimientos = ObjInventarios.DtResultados.Copy()
                    CantidadProductos = DtMovimientos.SUM("Cantidad")
                    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")
                                    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
        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

        If EsTransitorio Then

            Observaciones = If(Observaciones.Trim.Length = 0, "Impresión con cantidades pendientes de recibir", $"Impresión con cantidades pendientes de recibir - {Observaciones}")

        End If

        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,
                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola)

    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 = "",
                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1")


        Select Case CveConcepto
            Case 1 'INICIAL
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))

                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", NowADS().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", RutaImagenLogo))

                    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 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", RutaImagenLogo))
                        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, 186, 193) 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", NowADS().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(186) Then
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                        End If


                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) 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.ToDecimal.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", RutaImagenLogo))
                        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", NowADS().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.ToDecimal.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", RutaImagenLogo))

                    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", NowADS().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
                        ImprimirPDFStimul("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, 45, 47 ' 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 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"
                ElseIf CveConcepto = 45 Then
                    concepto = "SALIDA DE USADOS"
                ElseIf CveConcepto = 47 Then
                    concepto = "SALIDA POR CAMBIO DE VIGENCIA"
                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", NowADS().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, 186) 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(186) Then
                                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                            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", NowADS().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", RutaImagenLogo))

                            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", NowADS().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", RutaImagenLogo))

                        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", NowADS().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
                                ImprimirPDFStimul("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString))
                            Else
                                ImprimirPDF("Empresas/Grales/Formatos/Salida.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 params As New List(Of ReportParameter)

                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                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", NowADS().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 params As New List(Of ReportParameter)

                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

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

                        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", NowADS().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 params As New List(Of ReportParameter)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""

                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                    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))
                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                        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", NowADS().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 params As New List(Of ReportParameter)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""
                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

                    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, 35 ' 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 As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "",
                    Paqueteria As String = "", NumContrato As String = "", Documentacion As String = ""

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

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

                    CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
                    DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")

                    If CveCliente = 819998 Then
                        RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
                    End If

                    If Consola <> "-1" And Consola.Trim.Length > 0 Then
                        RutaFormato = "{0}Formatos\Consola.rdlc"
                        params.Add(New ReportParameter("Consola", Consola))
                        params.Add(New ReportParameter("SerieConsola", Guia))
                        params.Add(New ReportParameter("SeriePedal", Recibio))
                    End If

                    Dim CveVentaConsulta As Integer = DtMovimientos.FiltroPrimeroValor("CveVenta").ToEntero
                    params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))

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

                        params.Add(New ReportParameter("ClienteCodigo", dtVentas.Rows(0)("ClienteCodigo").ToString))
                        params.Add(New ReportParameter("ClienteNombre", dtVentas.Rows(0)("ClienteNombre").ToString))
                        params.Add(New ReportParameter("ClienteSucursal", dtVentas.Rows(0)("SucursalCliente").ToString))
                        params.Add(New ReportParameter("ClienteRFC", dtVentas.Rows(0)("ClienteRFC").ToString))

                        params.Add(New ReportParameter("ClienteCalle", dtVentas.Rows(0)("ClienteDireccion").ToString))
                        params.Add(New ReportParameter("ClienteNoExt", dtVentas.Rows(0)("ClienteNoExt").ToString))
                        params.Add(New ReportParameter("ClienteColonia", dtVentas.Rows(0)("ColoniaCliente").ToString))
                        params.Add(New ReportParameter("ClienteCiudad", dtVentas.Rows(0)("ClienteCiudad").ToString))
                        params.Add(New ReportParameter("ClienteEstado", dtVentas.Rows(0)("ClienteEstado").ToString))

                        params.Add(New ReportParameter("ClienteMunicipio", dtVentas.Rows(0)("SucClienteCiudad").ToString))
                        params.Add(New ReportParameter("ClienteCP", dtVentas.Rows(0)("CPCliente").ToString))

                    End If
                    ObjVentas.Dispose()

                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.Contiene(119, 186) 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))
                Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")

                If Archivo.Exists Then
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                    If UsuarioActual.CveEmpresa = 140 Then
                        params.Add(New ReportParameter("Origen", Almacen))
                        params.Add(New ReportParameter("Destino", AlmacenDestino))
                        params.Add(New ReportParameter("FechaImpresion", NowADS().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", NowADS().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.Contiene(72, 119, 186) Then
                        params.Add(New ReportParameter("FechaImpresion", NowADS().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, NombreArchivo, RDSName:="DsInventarios")
                Else

                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                    params.Add(New ReportParameter("Origen", Almacen))
                    params.Add(New ReportParameter("Destino", AlmacenDestino))
                    params.Add(New ReportParameter("FechaImpresion", NowADS().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
                        ImprimirPDFStimul(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, NombreArchivo, 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 UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                    Dim CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
                    Dim DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
                    params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))

                    'If CveCliente = 819998 Then
                    '    RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
                    'End If
                End If

                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.Contiene(72, 119, 186) Then
                        params.Add(New ReportParameter("FechaImpresion", NowADS().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"))
                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                        params.Add(New ReportParameter("Destino", Almacen))

                        params.Add(New ReportParameter("FechaImpresion", NowADS().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
                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                        params.Add(New ReportParameter("Destino", Almacen))
                        params.Add(New ReportParameter("FechaImpresion", NowADS().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
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                    params.Add(New ReportParameter("Origen", Almacen))
                    params.Add(New ReportParameter("Destino", AlmacenDestino))

                    params.Add(New ReportParameter("FechaImpresion", NowADS().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", NowADS().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 Decimal = ObjInventarios.DtResultados.SUM("Total") * 1.16D
                    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 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.ToDecimal.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", RutaImagenLogo))

                    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 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 <> "" AndAlso DtMovimientos.Columns.Contains("Municipio") 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", NowADS().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 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", NowADS().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 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", NowADS().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", NowADS().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", RutaImagenLogo))

                    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", NowADS().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", NowADS().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 params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

                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", NowADS().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 params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

                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", NowADS().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 params As New List(Of ReportParameter)
                Dim Archivo As String = RutaFormatoReporte("EntradaSalida.rdlc")
                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                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", NowADS().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("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 params As New List(Of ReportParameter)


            '    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", NowADS().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 params As New List(Of ReportParameter)
                    Dim Archivo As String = RutaFormatoReporte("EntradaSalidaUniforme.rdlc")
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

                    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", NowADS().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 params As New List(Of ReportParameter)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""

                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

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

                    If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
                        params.Add(New ReportParameter("Ruta", Ruta))
                        params.Add(New ReportParameter("Supervisor", Supervisor))
                        params.Add(New ReportParameter("NombreEmpleado", Recibio))
                        params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro))
                    End If

                    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 params As New List(Of ReportParameter)


                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                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", NowADS().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 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", NowADS().ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("NombreEntrego", Capturo))
                params.Add(New ReportParameter("NombreRecibio", Recibio))
                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))


                ImprimirPDF(RutaFormatoReporte("ConsumoInterno.rdlc"), DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")


            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", NowADS().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 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", NowADS().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", NowADS().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", NowADS().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

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

                        ImprimirPDF(RutaFormatoReporte("EntradaSalida.rdlc"), DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")


                    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, Fecha.ToDate, Today.ToDate) Then
                    DatosEntradasUsados = ObjAcum.DtResultados

                End If
                ObjAcum.Dispose()

                Dim params As New List(Of ReportParameter)

                params.Add(New ReportParameter("Direccion", Almacen))
                params.Add(New ReportParameter("FechaConFormato", Fecha))
                params.Add(New ReportParameter("Sucursal", "Sucursal"))
                params.Add(New ReportParameter("Cliente", NombreCliente))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("FechaImpresion", NowADS().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."))


                Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/UsadosEntradas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim PathRutaReporte As String = "\Formatos\UsadosEntradas.rdlc"

                If Not FIRutaReporte.Exists Then
                    PathRutaReporte = "\Empresas\Grales\Formatos\UsadosEntradas.rdlc" 'No existe el General solo se hizo para la 140
                End If


                ImprimirPDF(PathRutaReporte, 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", NowADS().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", NowADS().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 As String = ""
        CreaDT()

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

        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", NowADS().ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
                params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy hh:mm tt"), "")))
                params.Add(New ReportParameter("TecnicoAsignado", dr("UsuarioAtendio").ToString))




                'End If



            End If
        End If



        If Not FIRutaReporte.Exists Then

            PathRutaReporte = "\Empresas\Grales\Formatos\OrdenServicio.rdlc"

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

            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

        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(PathRutaReporte, 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 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()

        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
        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 As DataRow = GlobalDTSubProyectos(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

        ImprimirPDF(RutaFormatoReporte("ResguardoAF.rdlc"), dtVC, params, NomArchivo)

    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, UsuarioActual.CveEmpresa).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 As Decimal = drv("Total").ToString().ToDecimal()
            Dim CveEstatusFactura As Integer = drv("CveEstatusFactura").ToString().ToEntero()
            Dim FolioFiscal As String = drv("FolioFiscal").ToString()
            Dim RFCReceptor As String = drv("RFCReceptor").ToString()
            Dim SelloCancelacion As String = drv("SelloCancelacion").ToString()
            Dim SelloSolicitudCancelacion As String = drv("SelloSolicitudCancelacion").ToString()
            Dim EstadoCancelacion As String = drv("EstadoCancelacion").ToString()
            Dim FechaCancelacion As DateTime = drv("FechaCancelacion").ToString.ToDateTime

            Dim MotivoCancelacion As String = ""
            Dim FolioSustitucion As String = ""

            Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"

            Dim RFCEmisor As String = UsuarioActual.Empresa.RFC

            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

                DirectorioArchivo = "Empresas/Grales/Formatos/AcuseCancelacionSolicitud.mrt"

                Titulo = "Acuse de solicitud de cancelación de CFDI"
                EstadoCFDI = "Vigente"

                Using ObjV As New ClsVentas
                    If ObjV.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveVenta:=CveVenta) Then
                        Dim RowCancelacion As DataRow = ObjV.DtResultados.FiltroPrimero("")
                        If RowCancelacion IsNot Nothing Then
                            Dim CveMotivoCancelacion As Integer = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
                            FolioSustitucion = RowCancelacion("FolioFiscalSustitucion").ToString()

                            If CveMotivoCancelacion > 0 Then
                                MotivoCancelacion = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CodigoSATDescripcion")
                            End If
                        End If
                    End If
                End Using


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

            Dim DtAcuse As New DataTable("DtAcuse")
            DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
            DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
            DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
            DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))

            If CveEstatusFactura = 20 Then

                Dim RowCFDI As DataRow = DtAcuse.NewRow()

                RowCFDI("FolioFiscal") = FolioFiscal
                RowCFDI("Estatus") = "Solicitud de cancelación recibida"
                RowCFDI("MotivoCancelacion") = MotivoCancelacion
                RowCFDI("FolioSustitucion") = FolioSustitucion

                DtAcuse.Rows.Add(RowCFDI)
            End If
            ImprimirPDFStimul(DirectorioArchivo, DtAcuse, 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, TipoPago As String)
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))

        Dim Tabla As DataTable = Nothing

        Dim ObjIE As New ClsBancos()
        If ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa) Then
            Tabla = ObjIE.DtResultados.Copy()
        End If

        Dim TipoTransaccion As String = ""
        Dim Observaciones As String = ""

        If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
            TipoTransaccion = ObjIE.TipoTransaccion
            Observaciones = ObjIE.Observaciones
        End If

        ObjIE.Dispose()

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

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("Fecha", NowADS().ToDateTime.ToString))
            params.Add(New ReportParameter("FechaIE", Tabla(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
            params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
            params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
            params.Add(New ReportParameter("TipoPago", TipoPago))
            params.Add(New ReportParameter("TipoTransaccion", TipoTransaccion))
            params.Add(New ReportParameter("Observaciones", Observaciones))

            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

    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 As Integer = -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 As String = ObjIE.Folio
            Dim Importe As Decimal = ObjIE.Importe
            Dim Observacion As String = ObjIE.Observaciones
            Dim ImporteLetra As String = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
            Dim Beneficiario As String = ObjIE.PagueseA
            Dim Fecha As String = ObjIE.FechaDocumento.ToShortDateString
            Dim CveCuenta As Integer = 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", "")))

            If UsuarioActual.CveEmpresa.Contiene(141) Then
                Dim InicialesUsuarioGenero As String = ""
                Try
                    Dim NombreUsuarioRenero As String = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
                    If NombreUsuarioRenero.Trim.Length > 0 Then
                        NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
                    End If
                Catch ex As Exception

                End Try
                params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))

            End If

            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 As DataRow = 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

                If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) 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 ObjIE.DtResultados.Rows.Count > 0 Then

                        For Each drt As DataRow In ObjIE.DtResultados.Rows
                            Dim Dr As DataRow = 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

            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 = NowADS()
            Dim Importe As Decimal
            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

            If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
                If ObjIE.DtResultados.Rows.Count > 0 Then
                    CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
                    CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero

                    IVA = ObjIE.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


            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 = NowADS()
            Dim Importe As Decimal
            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", NowADS().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", NowADS().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", NowADS().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().ToDate().ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))

                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))

                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 CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
                    Dim dtMovs As New DataTable
                    If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then

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

                        If dtMovs IsNot Nothing AndAlso dtMovs.Rows.Count > 0 Then
                            'CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero

                            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


                    End If

                    Dim rds As 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 As New ReportDataSource("DataSet2", dtnc)
                    reportDataSetsList.Add(rds2)
                    dtnc.Dispose()

                    Dim paramList As New List(Of ReportParameter)
                    With paramList
                        .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        .Add(New ReportParameter("FechaImpresion", NowADS().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))
                        .Add(New ReportParameter("LogoPath", RutaImagenLogo))
                    End With
                    dtMovs.Dispose()

                    If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) And CvePrePoliza > 0 Then

                        Dim ObjContabilidad As New ClsContabilidad

                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
                        Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
                        ObjContabilidad.Dispose()

                        Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
                        reportDataSetsList.Add(rdsPrePoliza)

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



                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 = 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 As 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 As 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 As 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 As 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 = System.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")))
        Dim tRuta As String = String.Format("{0}Formatos/EtiquetaDeRecepcion.rdlc", UsuarioActual.Empresa.Ruta)

        If Not IO.File.Exists(tRuta) Then tRuta = "Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc"
        Return StreamPDF(tRuta, 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 logouri As String = 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", RutaImagenLogo))

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

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

#Region "OP = 'E T I Q U E T A'"
    Public Sub ImprimeEtiqueta(CvesProductos As String, CvePrecioLista As Integer)
        Dim DtPrecios As DataTable = Nothing

        Dim ObjVentas As New ClsProductosServicios
        If ObjVentas.GetPSPrecios(CvePrecioLista, CvesProductos) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
            DtPrecios = ObjVentas.DtResultados.Copy()
        End If
        ObjVentas.Dispose()

        If DtPrecios IsNot Nothing Then

            DtPrecios.Columns.Add(New DataColumn("CBBase64", GetType(String)))

            For Each Row As DataRow In DtPrecios.Rows
                Row("CBBase64") = System.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
            Next

            Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"
            If System.IO.File.Exists(UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt") Then
                DirectorioArchivo = UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt"
            End If
            Dim params As New List(Of ReportParameter)

            ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
        End If

    End Sub
#End Region

#Region "IMPRESION POLIZAS"

    Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)

        If Not CvePrePoliza > 0 Then Exit Sub

        Dim ObjConta As New ClsContabilidad

        If ObjConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then

            Dim drp As DataRow = ObjConta.DtResultados.FiltroPrimero("")

            If drp IsNot Nothing Then

                Dim DtDetalle As New DataTable
                Dim CveTipoPolizaImp As Integer
                Dim FolioPoliza As String
                Dim Fecha As Date
                Dim ConceptoPolizaImp As String
                Dim CveMonedaImp As Integer
                Dim TipoPolImp As String
                Dim RutaReporte As String
                Dim params As New List(Of ReportParameter)

                TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
                CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
                ConceptoPolizaImp = drp("Concepto").ToString
                FolioPoliza = drp("FolioPoliza").ToString
                Fecha = drp("Fecha").ToString.ToDate
                CveMonedaImp = drp("CveMoneda").ToString.ToEntero
                Dim TipoPolizaString As String = If(CveTipoPolizaImp = 1, "I", If(CveTipoPolizaImp = 2, "E", "D")).ToString

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

                    Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
                    RutaReporte = RutaFormatoReporte("PolizasResumen.rdlc")

                    If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
                        Dim dr As DataRow
                        DtDetalle = ObjConta.DtResultados
                        dr = DtDetalle.Rows(0)
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
                        params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("Numero", FolioPoliza))
                        params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
                        params.Add(New ReportParameter("CodigoPostal", ""))
                        params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
                        params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
                        params.Add(New ReportParameter("Folio", FolioPoliza))
                        params.Add(New ReportParameter("pImg", RutaImagenLogo))
                    End If
                    ObjConta.Dispose()
                Else
                    RutaReporte = RutaFormatoReporte("Polizas.rdlc")
                    'If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, Fecha, Fecha, CVePrePoliza:=CvePrePoliza) Then
                    If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then

                        'DtDetalle = ObjConta.DtResultados
                        'Dim dr As DataRow
                        DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
                        'dr = DtDetalle.Rows(0)

                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
                        params.Add(New ReportParameter("Finicio", Fecha.ToShortDateString))
                        params.Add(New ReportParameter("FFin", Fecha.ToShortDateString))
                        params.Add(New ReportParameter("Numero", FolioPoliza))
                        params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
                        params.Add(New ReportParameter("CodigoPostal", ""))

                        If RutaReporte.Contains("Grales\Formatos\") Then
                            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                        End If

                        If UsuarioActual.CveEmpresa.Contiene(141) Then
                            params.Add(New ReportParameter("Fecha", Fecha.ToString("dd/MM/yyyy hh:mm:ss")))
                        Else
                            params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
                        End If
                        If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
                            params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
                        End If
                        If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        End If
                    End If
                    ObjConta.Dispose()
                End If

                ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")

            Else
                Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
            End If

        End If

        ObjConta.Dispose()

    End Sub


#End Region


    Private Function GeneraCodigoQR(CodigoBarras As String, Alto As Integer, Largo As Integer, Margen As Integer, Formato As String, Optional PureBacode As Boolean = False) As Byte()

        Dim barcodeWriter As New BarcodeWriter
        Dim opciones As New ZXing.Common.EncodingOptions
        Dim FormatoBar As New BarcodeFormat
        'Dim Respuesta As Byte()

        opciones.Height = Alto
        opciones.Width = Largo
        opciones.Margin = Margen
        opciones.PureBarcode = PureBacode
        barcodeWriter.Options = opciones

        Select Case Formato
            Case "All_1D"
                barcodeWriter.Format = BarcodeFormat.All_1D
                Exit Select
            Case "AZTEC"
                barcodeWriter.Format = BarcodeFormat.AZTEC
                Exit Select
            Case "CODABAR"
                barcodeWriter.Format = BarcodeFormat.CODABAR
                Exit Select
            Case "CODE_128"
                barcodeWriter.Format = BarcodeFormat.CODE_128
                Exit Select
            Case "CODE_39"
                barcodeWriter.Format = BarcodeFormat.CODE_39
                Exit Select
            Case "CODE_93"
                barcodeWriter.Format = BarcodeFormat.CODE_93
                Exit Select
            Case "DATA_MATRIX"
                barcodeWriter.Format = BarcodeFormat.DATA_MATRIX
                Exit Select
            Case "EAN_13"
                barcodeWriter.Format = BarcodeFormat.EAN_13
                Exit Select
            Case "EAN_8"
                barcodeWriter.Format = BarcodeFormat.EAN_8
                Exit Select
            Case "IMB"
                barcodeWriter.Format = BarcodeFormat.IMB
                Exit Select
            Case "ITF"
                barcodeWriter.Format = BarcodeFormat.ITF
                Exit Select
            Case "MAXICODE"
                barcodeWriter.Format = BarcodeFormat.MAXICODE
                Exit Select
            Case "MSI"
                barcodeWriter.Format = BarcodeFormat.MSI
                Exit Select
            Case "PDF_417"
                barcodeWriter.Format = BarcodeFormat.PDF_417
                Exit Select
            Case "PLESSEY"
                barcodeWriter.Format = BarcodeFormat.PLESSEY
                Exit Select
            Case "QR_CODE"
                barcodeWriter.Format = BarcodeFormat.QR_CODE
                Exit Select
            Case "RSS_14"
                barcodeWriter.Format = BarcodeFormat.RSS_14
                Exit Select
            Case "RSS_EXPANDED"
                barcodeWriter.Format = BarcodeFormat.RSS_EXPANDED
                Exit Select
            Case "UPC_A"
                barcodeWriter.Format = BarcodeFormat.UPC_A
                Exit Select
            Case "UPC_E"
                barcodeWriter.Format = BarcodeFormat.UPC_E
                Exit Select
            Case "UPC_EAN_EXTENSION"
                barcodeWriter.Format = BarcodeFormat.UPC_EAN_EXTENSION
                Exit Select

        End Select

        Dim imgCod As Drawing.Bitmap = barcodeWriter.Write(CodigoBarras)
        Dim memoriStream As New System.IO.MemoryStream
        imgCod.Save(memoriStream, Drawing.Imaging.ImageFormat.Bmp)

        'Respuesta = Convert.ToBase64String(memoriStream.ToArray())

        Return memoriStream.ToArray()

    End Function
End Class