Option Strict On
Option Explicit On


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

Imports Stimulsoft.Report
Imports Stimulsoft.Report.Components
Imports Stimulsoft.Report.Dictionary
Imports Stimulsoft.Report.Web

Partial Class PopUpVerFactura
    Inherits ClsPaginas

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

#Region "  PROPIEDADES  "
    Public Property DtMovimientos() As DataTable
        Get
            Return CType(ViewState("DtMovimientos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtMovimientos") = value
        End Set
    End Property
    Public Property DtDetalle() As DataTable
        Get
            Return CType(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 Ruta As String
        Get
            Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
        End Get
    End Property
    Private ReadOnly Property DomicilioFiscalCompu As String
        Get
            Dim SisEmpresa As New ClsSisEmpresas()
            Dim EmpInfo As DataRow
            Dim domicilioFiscal As String = ""
            If SisEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1") Then
                EmpInfo = SisEmpresa.DtResultados.Rows(0)
                domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
                Return domicilioFiscal
            End If
            Return ""
        End Get
    End Property
    'Private Property SessionPorImpresion As Boolean
    '    Get
    '        Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
    '    End Get
    '    Set(value As Boolean)
    '        ViewState("SessionPorImpresion") = value
    '    End Set
    'End Property
#End Region


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

                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)

                If UsuarioToken IsNot Nothing AndAlso UsuarioActual Is Nothing Then
                    Context.Session("UsuarioSIG") = UsuarioToken
                End If
            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
            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).ExportToPDF("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


        End If
    End Sub

#Region "U S U A R I O - T O K E N"

    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


        'IMPRIME FACTURA
        If UrlParametros("OP").ToString = "VTA" Then
            If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
                Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1"

                imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0"), GuardarPDF:=Guardar)
            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)
            End If
        End If



        If UrlParametros("OP").ToString = "CORT" Then
            If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then
                ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString)
            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 DEPOSITOS CAJA
        If UrlParametros("OP").ToString = "DC" Then
            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
                CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString)
            End If
        End If

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

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

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

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

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

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

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

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

                If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
                    If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
                        PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
                    End If
                End If

                Archivo = Nothing
            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

    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)
        Dim ObjVenta As New ClsVentas
        Dim ObjPuntoVenta As New ClsPuntoVenta
        Dim DtCortesVentasResumen As DataTable = Nothing
        Dim DtCortesVentas As DataTable = Nothing
        Dim Fecha = "", Nombre = ""
        If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then
            DtCortesVentasResumen = ObjVenta.DtResultados

        End If
        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
            DtCortesVentas = ObjPuntoVenta.DtResultados
            If ObjPuntoVenta.DtResultados.Rows.Count > 0 Then
                Fecha = ObjPuntoVenta.DtResultados.Rows(0)("FechaInicial").ToString
                Nombre = ObjPuntoVenta.DtResultados.Rows(0)("Nombre").ToString
            End If
        End If
        ObjVenta.Dispose()
        ObjPuntoVenta.Dispose()
        Dim FechaCorte As String = $"&emsp;<b>Fecha Corte:</b> {Fecha}"
        Dim Usuario As String = $"&emsp;<b>Usuario:</b> {Nombre}"
        If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
            Dim Imagen As New System.IO.FileInfo(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 params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
            Dim lrds As New List(Of ReportDataSource)
            Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
            lrds.Add(rds)
            Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
            lrds.Add(rds2)
            ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
        End If

    End Sub

#End Region

#Region "   OP = FACTURA - IMPRIME COMPRA"
    Private Sub DescargaFactura(Parametros As Hashtable)
        If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then
            Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
            Dim Path As String = String.Format("{0}Compras\{1}\{2}.{3}", UsuarioActual.Empresa.Ruta, Parametros("RFC").ToString, Parametros("CVEFACTURA").ToString, Exten)
            Dim Archivo As New System.IO.FileInfo(Path)

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

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

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

#End Region

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

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

#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
    Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
        Dim Imagen As New System.IO.FileInfo(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 Dr As DataRow = Nothing
        Dim ObjContratos As New ClsContratos
        If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
            ObjContratos.Dispose()
            Exit Sub
        End If

        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
        params.Add(New ReportParameter("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} "))
        params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString)))
        params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString))
        params.Add(New ReportParameter("FechaFin", ObjContratos.FechaFinal.ToShortDateString))
        params.Add(New ReportParameter("TipoContrato", ObjContratos.DtResultados.Rows(0)("ContratoTipo").ToString))
        params.Add(New ReportParameter("TotalContrato", ObjContratos.ImporteTotal.FormatoNumero))
        Dim Nombre As String = If($"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Length > 20, $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Substring(0, 20), $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ")
        Dim SumaUtilidad As Double = 0
        Dim SumaGasto As Double = 0
        If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
            If ObjContratos.DtResultados.Rows.Count > 0 Then
                SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
            End If
        End If
        Dim dt As DataTable = Nothing
        If ObjContratos.GetContratoGastos(CveContrato) 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()}"))
        If Imagen.Exists Then
            params.Add(New ReportParameter("LogoPath", logouri))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
        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) Then
                If ObjVentas.DtResultados.Rows.Count > 0 Then
                    SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
                    PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
                    EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
                    EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
                    Guia = ObjVentas.DtResultados.Rows(0)("Guia").ToString
                End If
            End If
            Dim Dt As DataTable = Nothing
            If ObjVentas.GetVentaDetalle(CveVenta) Then
                Dt = ObjVentas.DtResultados
            End If
            ObjVentas.Dispose()
            If Dt.Rows.Count > 0 Then
                Dim params As New List(Of ReportParameter)
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                params.Add(New ReportParameter("SerieFolio", SerieFolio))
                params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
                params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
                params.Add(New ReportParameter("Guia", Guia))
                ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
            End If
        End If
    End Sub

#End Region

#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
    Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
        If CveMovimiento > 0 Then
            Dim ObjInv As New ClsInventarios
            Dim ObjAcar As New ClsAcarreos
            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()

            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
                        If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then
                            Chofer = ObjAcar.DtResultados.FiltroPrimeroValor("Chofer")
                        End If
                        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("Telefono").ToString
                        Ciudad = Dr("Ciudad").ToString
                        Licencia = Dr("Licencia").ToString
                    End If
                End If
            End If
            ObjAcar.Dispose()

            Dim Dt As DataTable = Nothing
            If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                Dt = ObjInv.DtResultados
            End If
            ObjInv.Dispose()
            If Dt.Rows.Count > 0 Then
                Dim params As New List(Of ReportParameter)
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {UsuarioActual.Empresa.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("Placa", Placa))
                params.Add(New ReportParameter("Recibio", Recibio))
                params.Add(New ReportParameter("FechaEntrega", FechaEntrega))
                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/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
            End If
        End If
    End Sub

#End Region

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

    Private Sub DescargaXMLTraslado(Parametros As Hashtable)
        If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").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("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("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").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("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 = '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) = "xml", "application/xml", "application/pdf")
                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
                HttpContext.Current.Response.TransmitFile(Path)
                'HttpContext.Current.Response.Flush()
                HttpContext.Current.Response.End()
            End If
            Archivo = Nothing
        End If
    End Sub
    Public Sub imprimirFacturaVenta(CveVenta As Integer, AplicaPagare As String, Optional GuardarPDF As Boolean = False)
        Dim ObjVentas As New ClsVentas
        Dim Vta As Modelos.Factura = Nothing

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

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

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

            ' se rellenan los campos de  la factura
            Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)

            Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
            'se rellena la sucursal
            'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
            Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
            Vta.Cliente = New Modelos.ClienteModel
            Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
            Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
            Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
            Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
            Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
            Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
            Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
            Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
            Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
            Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
            Vta.AtencionA = dtVentas(0)("AtencionA").ToString
            Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
            Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
            Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
            Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
            Vta.RefDocto = dtVentas(0)("Ref").ToString
            Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
            Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
            Vta.Version = dtVentas(0)("Version").ToString

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

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

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

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

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

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

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


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

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

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

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

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

            If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then

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

            End If

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

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

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

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

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

            Next

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

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


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

            'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
            If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
                If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then
                    If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
                        ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal))
                        ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total")
                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                    End If
                End If
            Else
                If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
                    'carga as notas de credito vinculadas
                    If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                    End If
                End If

                If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
                    If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                        If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
                            If Vta.TipoDocto.Contiene("Dev") Then
                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                            End If
                        End If
                    End If
                End If
            End If
            'End If

            If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then
                If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
                    Vta.DtNCVinculadas = ObjVentas.DtResultados
                End If
            End If

        End If
        ObjVentas.Dispose()

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

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

    End Sub
#End Region

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

    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
        Dim ObjInventarios As New ClsInventarios

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

        If Recibio.Trim = "" Then
            Dim ObjRH As New ClsRH

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

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

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

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

                DtMovimientos.Columns("No").AutoIncrement = True
                DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
                DtMovimientos.Columns("No").AutoIncrementStep = 1
                Dim keys(1) As DataColumn
                keys(0) = DtMovimientos.Columns("No")
                DtMovimientos.PrimaryKey = keys
            End If
        Else
            If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                DtMovimientos = ObjInventarios.DtResultados

                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

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

        If CveTipoAlmacen = 19 Or CveTipoAlmacen = 20 Then
            CveConcepto = 24
        End If

        ObjInventarios.Dispose()

        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)

    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)
        Select Case CveConcepto
            Case 1 'INICIAL
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", 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", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
                'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
                'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))

                If Archivo.Exists Then
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                Else
                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

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

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

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", 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
                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                        If Imagen.Exists Then
                            params.Add(New ReportParameter("LogoPath", logouri))

                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If
                        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) Then
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", ConceptoFormato))
                        params.Add(New ReportParameter("Almacen", Almacen))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))

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

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

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

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

                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                    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", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                        params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
                        params.Add(New ReportParameter("CiudadProveedor", " "))
                        params.Add(New ReportParameter("EstadoProveedor", " "))
                        params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))

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

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

                        PUanacExtr(CveMoneda)


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


                Else

                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
                    params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").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("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                    If (UsuarioActual.CveEmpresa = 72) Then
                        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                    End If
                    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If

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

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

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

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

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

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

                        'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) 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", concepto))
                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Almacen", Almacen))
                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                            params.Add(New ReportParameter("NombreEntrego", Capturo))
                            params.Add(New ReportParameter("NombreRecibio", Recibio))
                            params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                            params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                            params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                            params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                            params.Add(New ReportParameter("Observaciones", Observaciones))

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


                            'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        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))
                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                        If Imagen.Exists Then
                            params.Add(New ReportParameter("LogoPath", logouri))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        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("FacturaProveedor", FolioVenta))
                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Descuentos", ""))
                        params.Add(New ReportParameter("IVA", ""))
                        params.Add(New ReportParameter("Total", ""))
                        'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                        params.Add(New ReportParameter("NombreRecibio", Recibio))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))



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

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

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

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


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

                    End If
                End If

            Case 4 ' ENTRADA POR DESARMADO 
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

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

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

            Case 5 'SALIDA POR ARMADO
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

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

            Case 6, 23 ' ENTRADA RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                    Dim params As New List(Of ReportParameter)
                    If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Personal))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                        params.Add(New ReportParameter("LogoPath", logouri))
                        If DtMovimientos.COUNT("SerieLote") > 0 Then
                            params.Add(New ReportParameter("MostrarSerieLote", "1"))
                        Else
                            params.Add(New ReportParameter("MostrarSerieLote", "0"))
                        End If
                    Else
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                        params.Add(New ReportParameter("NombreRecibio", Personal))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        params.Add(New ReportParameter("NombreProveedor", Proveedor))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    End If

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

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

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

                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

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

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

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

                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                End If
            Case 7 ' SALIDA RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                    Dim params As New List(Of ReportParameter)
                    If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("NombreRecibio", Personal))
                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                        params.Add(New ReportParameter("LogoPath", logouri))
                        If DtMovimientos.COUNT("SerieLote") > 0 Then
                            params.Add(New ReportParameter("MostrarSerieLote", "1"))
                        Else
                            params.Add(New ReportParameter("MostrarSerieLote", "0"))
                        End If
                    Else
                        params.Add(New ReportParameter("Folio", Folio))
                        params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
                        params.Add(New ReportParameter("Fecha", Fecha))
                        params.Add(New ReportParameter("Observaciones", Observaciones))
                        params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                        params.Add(New ReportParameter("NombreRecibio", Personal))
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        params.Add(New ReportParameter("NombreProveedor", Proveedor))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))

                    End If

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

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

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

                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

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

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

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

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

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

                Dim params As New List(Of ReportParameter)
                Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"

                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", "Recibió")) 'Antes Trasladó
                params.Add(New ReportParameter("Observaciones", Observaciones))


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

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

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

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

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

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



                Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                If Archivo.Exists Then
                    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))

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

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

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



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

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

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

                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                        params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                        DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
                    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("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                End If

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

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

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

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

                End If

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

                End If
                ObjInventarios.Dispose()

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

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

                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios")
            Case 13 'D E V O L U C I O N  D E  P R O V E E D O R
                Dim params As New List(Of ReportParameter)
                Dim Imagen As New System.IO.FileInfo(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 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("Fecha").ToString.ToDate
                    Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
                    params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
                    params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
                    params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
                    params.Add(New ReportParameter("Folio", Folio.ToString))
                    params.Add(New ReportParameter("Serie", dr("Serie").ToString))

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

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

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

                If Not Archivo.Exists Then

                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

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

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

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", 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 <> "" Then
                    CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                    DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                End If

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

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

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

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", 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", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                params.Add(New ReportParameter("EnviarA", ""))
                params.Add(New ReportParameter("Entrega", ""))
                params.Add(New ReportParameter("Observaciones", Observaciones))

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

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


            Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", 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", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                    params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                    params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))

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

            Case 19 'ARMADO DE PAQUETE
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

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

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

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

            Case 20 'DESARMADO DE PAQUETE
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                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 'SALIDA POR PRESTAMO
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
                params.Add(New ReportParameter("Almacen", Almacen))
                params.Add(New ReportParameter("Fecha", Fecha))
                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                params.Add(New ReportParameter("Folio", Folio))
                params.Add(New ReportParameter("Descuentos", ""))
                params.Add(New ReportParameter("IVA", ""))
                params.Add(New ReportParameter("Total", ""))
                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                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 Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 22 'ENTRADA POR PRESTAMO
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

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

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

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

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

                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
                    params.Add(New ReportParameter("Almacen", Almacen))
                    params.Add(New ReportParameter("Fecha", Fecha))
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("Folio", Folio))
                    params.Add(New ReportParameter("Descuentos", ""))
                    params.Add(New ReportParameter("IVA", ""))
                    params.Add(New ReportParameter("Total", ""))
                    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
                    params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))


                    params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
                    params.Add(New ReportParameter("Observaciones", Observaciones))


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

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

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

                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                    If Imagen.Exists Then
                        params.Add(New ReportParameter("LogoPath", logouri))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If

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

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

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

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

            Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                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)
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
                Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")

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

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

            Case 30
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(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 params As New List(Of ReportParameter)

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

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

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

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

                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If

                'End If

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

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

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

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

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

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

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

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

                                DomicilioSucursal = DomicilioCliente
                            End If


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

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

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

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

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

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

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

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


                            'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        Else
                            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))
                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                        If Imagen.Exists Then
                            params.Add(New ReportParameter("LogoPath", logouri))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If

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



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

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

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

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


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

                    End If
                End If

        End Select

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


#End Region

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

        End If
    End Sub

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

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

#End Region

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

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

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

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

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

#Region "OP = 'OS' - IMPRIMIR PDF OS"
    Private Sub GenerarPDFOS(CveOS As Integer)
        Dim ObjOS As New ClsOS()
        Dim params As New List(Of ReportParameter)
        Dim CveFolio = ""
        CreaDT()
        Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))

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

                Dim dtOS As DataTable = ObjOS.DtResultados
                Dim dr As DataRow = dtOS.Rows(0)
                params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
                params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
                params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
                params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
                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 ReporteEmpresa.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))
                End If
            End If
        End If

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

        If Not ReporteEmpresa.Exists Then
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))

            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If

        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(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
    End Sub
    Private Sub CreaDT()
        TmpDTOS = New DataTable
        TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))

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

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

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

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

        DescargarArchivo(file)
    End Sub


#End Region

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


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

        DescargarArchivo(file)
    End Sub


#End Region

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

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

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

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

#Region "OP = 'AFR' - AF"

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

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

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

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


        dr = dtVC.Rows(0)

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

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

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

        ObjAF.Dispose()

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

        If Imagen.Exists Then
            params.Add(New ReportParameter("LogoPath", logouri))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If

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


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

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

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

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


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


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

        Dim ObjAF As New ClsAF

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

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

        dr = dtVC.Rows(0)


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

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

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


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

    End Sub
#End Region

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

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

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

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

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

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

        ObjPoliza.Dispose()

    End Sub
#End Region

#Region "OP = 'CAN' - CANCELACION"
    Public Sub ImprimeCancelacion(CveVenta As Integer)
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
            Dim FolioFiscal = drv("FolioFiscal").ToString
            Dim SelloCancelacion = drv("SelloCancelacion").ToString
            Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm:ss")
            Dim RFC = UsuarioActual.Empresa.RFC
            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", AppDomain.CurrentDomain.BaseDirectory))


            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString))
            params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
            params.Add(New ReportParameter("RFCEmisor", RFC))
            params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion))

            '   If Archivo.Exists Then
            ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
            '  End If

        End If
        ObjVentas.Dispose()
    End Sub
#End Region

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

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

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

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


        ObjIE.Dispose()

    End Sub
#End Region

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

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


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

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

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

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

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

                    If PreP.DtResultados.Rows.Count > 0 Then

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

                        Next


                    End If
                End If
                PreP.Dispose()
            End If


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

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


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

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

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

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

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

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

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

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

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


                        End If

                        RH.Dispose()

                    End If
                End If
            End If
            PreP.Dispose()


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

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


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

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

            DtDetalle = Nothing

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

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

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

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

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

        ObjIE.Dispose()

    End Sub

#End Region

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

        PDFReciboDePagos(CveVenta, CveIE, -1)

    End Sub
#End Region

#Region "OP = VTA - PyME"

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

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

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

            ds.Tables.Add(Venta.DtDetalle)

            Reporte.RegData(ds)

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

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

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

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

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

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

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

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

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

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

End Class