diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a5c3a12c6..01ef2962d 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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))
diff --git a/Empresas/186/Formatos/Traslado.rdlc b/Empresas/186/Formatos/Traslado.rdlc
index 1f5390b8a..e81bdb454 100644
--- a/Empresas/186/Formatos/Traslado.rdlc
+++ b/Empresas/186/Formatos/Traslado.rdlc
@@ -69,6 +69,18 @@
FechaCaducidad
System.Date
+
+ PUVenta
+ System.Decimal
+
+
+ IVAVenta
+ System.Decimal
+
+
+ SubTotalVenta
+ System.Decimal
+
DsInventarios
@@ -91,22 +103,22 @@
1.37635cm
- 1.67779cm
+ 10.38681cm
- 1.86634cm
+ 2.73912cm
- 8.39839cm
-
-
- 1.82679cm
+ 3.49337cm
2.76458cm
- 2.41446cm
+ 2.5cm
+
+
+ 2.5cm
@@ -166,7 +178,7 @@
- Código
+ Descripción
@@ -203,66 +215,6 @@
-
-
-
- true
-
-
-
-
- U.M.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Textbox7
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- #9cc3e5
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
@@ -271,7 +223,7 @@
- Descripción
+ Referencia
- Textbox12
+ Textbox7
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ #9cc3e5
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Importe
+
+
+
+
+
+
+ Textbox15
@@ -490,14 +488,20 @@
- =Fields!Codigo.Value
+ =Fields!PS.Value
+
+
+
+
@@ -514,39 +518,6 @@
-
-
-
- true
- true
-
-
-
-
- =Fields!UnidadMedida.Value
-
-
-
-
-
-
- UnidadMedida
-
-
- Bottom
- 2pt
- 2pt
- =IIf(rownumber(nothing) = 1, "2pt", "0pt")
-
-
-
-
@@ -557,14 +528,14 @@
- =Fields!PS.Value
+ =Fields!Codigo.Value
@@ -650,16 +621,123 @@
-
+
true
true
- =Fields!Observaciones.Value
+ =Fields!PUVenta.Value
+
+
+
+
+
+ PUVenta
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SubTotalVenta.Value
+
+
+
+
+
+
+ SubTotalVenta
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ 0.33542cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox19
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
@@ -668,7 +746,649 @@
- Observaciones
+ Textbox20
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox23
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox40
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox41
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Sub Total
+
+
+
+
+
+
+ Textbox42
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!SubTotalVenta.Value, "DsInventarios")
+
+
+
+
+
+
+ Textbox43
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ 0.33542cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox44
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox45
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox46
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox47
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox48
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ I.V.A.
+
+
+
+
+
+
+ Textbox49
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!IVAVenta.Value, "DsInventarios")
+
+
+
+
+
+
+ Textbox50
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ 0.33542cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox51
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox52
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox53
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox54
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox55
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Importe Total
+
+
+
+
+
+
+ Textbox56
+
+
+ Bottom
+ 2pt
+ 2pt
+ =IIf(rownumber(nothing) = 1, "2pt", "0pt")
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios")
+
+
+
+
+
+
+ Textbox57
@@ -704,13 +1424,22 @@
+
+ Before
+
+
+ Before
+
+
+ Before
+
DsInventarios
0.14111cm
0.10068cm
- 0.84327cm
- 20.3247cm
+ 1.84953cm
+ 25.76023cm
@@ -718,13 +1447,13 @@
- 0.43055in
+ 0.88788in
-