Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/PopUpVerFactura.aspx.vb

@@ -2,11 +2,13 @@
 Option Explicit On
 
 Imports System.Data
+Imports System.Data.Entity.Core.Metadata.Edm
 Imports System.IO
 Imports System.Xml
 Imports Extensiones
 Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
+Imports Modelos
 
 
 Partial Class PopUpVerFactura
@@ -3361,13 +3363,24 @@ Partial Class PopUpVerFactura
                 Dim CveCliente As Integer = 0
                 Dim CveDireccionEnvio As Integer = 0
                 Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "",
-                    Paqueteria As String = "", NumContrato As String = "", Guia As String = ""
+                    Paqueteria As String = "", NumContrato As String = "", Guia As String = "", Documentacion As String = ""
 
                 Dim CveContrato As Integer = 0
                 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
                     CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
                 End If
 
+
+                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                    CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
+                    DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
+                    params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))
+
+                    If CveCliente = 819998 Then
+                        RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
+                    End If
+                End If
+
                 If CveContrato > 0 Then
                     Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                     NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
@@ -3387,6 +3400,8 @@ Partial Class PopUpVerFactura
                                 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")
@@ -3401,6 +3416,8 @@ Partial Class PopUpVerFactura
                         ObjVentas.Dispose()
                     End If
 
+
+
                     params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
                     params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                     params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
@@ -3524,6 +3541,16 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
                 params.Add(New ReportParameter("Accion", "RECIBIÓ"))
 
+                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                    Dim CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
+                    Dim DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
+                    params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))
+
+                    'If CveCliente = 819998 Then
+                    '    RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
+                    'End If
+                End If
+
                 If Archivo.Exists Then
                     params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
                     params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))