Total de usados y productos en traslados

Compras/PopUpVerFactura.aspx.vb

@@ -1207,6 +1207,9 @@ Partial Class PopUpVerFactura
             CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
         End If
 
+        Dim CantidadProductos As Decimal = 0
+        Dim CantidadUsados As Decimal = 0
+
         If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
             If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
                 DtMovimientos = ObjInventarios.DtResultados
@@ -1221,7 +1224,7 @@ Partial Class PopUpVerFactura
         Else
             If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                 DtMovimientos = ObjInventarios.DtResultados.Copy()
-
+                CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
                 If UsuarioActual.CveEmpresa = 140 AndAlso CveMovimientoRelacionado > 0 Then
                     If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
                         Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
@@ -1231,6 +1234,7 @@ Partial Class PopUpVerFactura
                         If CveTipoAlmacenRelacionado = 24 Then
                             If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
                                 Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
+                                CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
                                 Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
 
                                 For Each Dr As DataRow In DtUsados.Rows
@@ -1268,7 +1272,8 @@ Partial Class PopUpVerFactura
                           Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
                           EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
-                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente)
+                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
+                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1285,7 +1290,7 @@ Partial Class PopUpVerFactura
                                   Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String)
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0)
 
 
         Select Case CveConcepto
@@ -1937,6 +1942,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó
                 params.Add(New ReportParameter("Observaciones", Observaciones))
 
+
                 Dim DTCliente As New DataTable
                 Dim SBDireccionO As New StringBuilder()
                 Dim SBDireccionD As New StringBuilder()
@@ -2026,12 +2032,30 @@ Partial Class PopUpVerFactura
 
                 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
+                    If UsuarioActual.CveEmpresa = 140 Then
-                    params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+                        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                    params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+                        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("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+
-                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                        If Imagen.Exists Then
-                    params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+                            params.Add(New ReportParameter("LogoPath", logouri))
+                        Else
+                            params.Add(New ReportParameter("LogoPath", ""))
+                        End If
+                        params.Add(New ReportParameter("Origen", Almacen))
+                        params.Add(New ReportParameter("Destino", AlmacenDestino))
+                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
+                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+                    Else
+                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
+                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+                        params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+                    End If
 
                     If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))