Se agregó apartado de "Documentacion del chofer"

Compras/PopUpVerFactura.aspx.vb

@@ -661,6 +661,13 @@ Partial Class PopUpVerFactura
             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()
@@ -704,6 +711,14 @@ Partial Class PopUpVerFactura
                             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
@@ -743,6 +758,13 @@ Partial Class PopUpVerFactura
                 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
@@ -1121,6 +1143,8 @@ Partial Class PopUpVerFactura
         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
@@ -1182,7 +1206,7 @@ Partial Class PopUpVerFactura
                           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)
+                          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
@@ -1198,7 +1222,7 @@ Partial Class PopUpVerFactura
                                   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)
+                                  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))
@@ -1948,6 +1972,8 @@ Partial Class PopUpVerFactura
                         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