diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 36062ea23..dd3d1ade6 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -123,6 +123,8 @@ Public Class ClsInventarios
Public Property PuestoRecibio As String
Public Property PuestoEntrego As String
Public Property CveRemanufactura As Integer
+ Public Property ResponsableCarga As String
+ Public Property ResponsableRecibio As String
@@ -834,6 +836,8 @@ Public Class ClsInventarios
GastoIndirecto = dr("GastoIndirecto").ToString.ToDouble
PuestoEntrego = dr("PuestoRecibio").ToString
PuestoRecibio = dr("PuestoEntrego").ToString
+ ResponsableCarga = dr("ResponsableCarga").ToString
+ ResponsableRecibio = dr("ResponsableRecibio").ToString
Retorno = True
End If
@@ -942,7 +946,8 @@ Public Class ClsInventarios
Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "",
Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "",
- Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "") As Integer
+ Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
+ Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "") As Integer
Dim Retorno As Integer = -1
@@ -988,7 +993,13 @@ Public Class ClsInventarios
.Add("@Placa", SqlDbType.VarChar).Value = Placa
.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
-
+ .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
+ .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
+ .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
+ .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
+ .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+ .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
+ .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
End With
Try
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 8afa6ab5c..05a1015ba 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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
diff --git a/Empresas/119/Formatos/Traslado.rdlc b/Empresas/119/Formatos/Traslado.rdlc
index fa0483cf8..d3c81f0dd 100644
--- a/Empresas/119/Formatos/Traslado.rdlc
+++ b/Empresas/119/Formatos/Traslado.rdlc
@@ -1133,8 +1133,10 @@ Hermosillo, Sonora, Mexico
- =Parameters!NombreEntrego.Value
-
+ =Parameters!ResponsableCarga.Value
+
-
-
-
-
-
- Textbox1
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- UNIDAD
-
-
-
-
-
-
- Textbox15
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- DESCRIPCIÓN
-
-
-
-
-
-
- Textbox9
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- OBSERVACIONES
-
-
-
-
-
-
- Textbox17
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- P.U.
-
-
-
-
-
-
- Textbox13
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- IMPORTE
-
-
-
-
-
-
- Textbox5
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.25in
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!UM.Value
-
-
-
-
-
-
- UM
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value
-
-
-
-
-
-
- PS
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Obs.Value
-
-
-
-
-
-
- Obs
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PU.Value
-
-
-
-
-
-
- PU
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value*Fields!PU.Value
-
-
-
-
-
-
- Textbox18
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DsOC
- 3.50398in
- 0.13746in
- 0.5in
- 7.1093in
-
-
-
-
-
- true
- true
-
-
-
-
- Atención a:
-
-
-
- =Parameters!ClienteContacto.Value
-
-
-
-
-
-
-
-
- Empresa:
-
-
-
- =Parameters!ClienteNombre.Value
-
-
-
-
-
-
-
-
- Teléfono:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
-
-
-
- Textbox4
- 5.55633cm
- 3.76464in
- 2.00758cm
- 8.84471cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Fecha:
-
-
-
- =Parameters!FechaSolicitud.Value
-
-
-
-
-
-
-
-
- No.Cotización:
-
-
-
-
-
-
-
- =Parameters!Folio.Value
-
-
-
-
-
-
-
-
-
-
- Textbox4
- 2.15054cm
- 12.26628cm
- 1.47842cm
- 6.14066cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- CLIENTE
-
-
-
-
-
-
- Textbox2
- 5.03951cm
- 9.56206cm
- 0.51682cm
- 8.84471cm
- 3
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- COTIZACIÓN
-
-
-
-
-
-
- Textbox12
- 1.63372cm
- 12.26624cm
- 0.51682cm
- 6.14066cm
- 4
-
-
- #a21b1f
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Soluciones en Telemediciones JAR SA de CV
-
-
-
-
-
-
-
-
- Paseo Florido 62A. Col. Nueva Galicia
-
-
-
-
-
-
-
-
- Tel. (662) 2 2162270
-
-
-
-
-
-
-
-
- Hermosillo, Sonora, México.
-
-
-
-
-
-
- Textbox1
- 2.19667in
- 0.13746in
- 0.89583in
- 2.99896in
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- Embedded
- LOGO
- FitProportional
- 0.41889in
- 2.11597in
- 4.12706in
- 6
-
-
-
-
-
- Embedded
- VISTAPREVIA22
- FitProportional
- 6.37722in
- 7.53738in
- 7
-
- =IIf(Parameters!CveVenta.Value > 0, True,False)
-
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- I.V.A.
-
-
-
-
-
-
- Textbox20
- 1.60474cm
- 13.3038cm
- 0.45183cm
- 2.5cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- TOTAL:
-
-
-
-
-
-
- Textbox20
- 2.05658cm
- 13.3038cm
- 0.45183cm
- 2.5cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- SUB-TOTAL 2:
-
-
-
-
-
-
- Textbox20
- 1.15291cm
- 13.3038cm
- 0.45183cm
- 2.5cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!IVA.Value
-
-
-
-
-
-
- Textbox20
- 1.60474cm
- 15.8038cm
- 0.45183cm
- 2.5cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Total.Value
-
-
-
-
-
-
- Textbox20
- 2.05658cm
- 15.8038cm
- 0.45183cm
- 2.5cm
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!SubTotal2.Value
-
-
-
-
-
-
- Textbox20
- 1.15291cm
- 15.8038cm
- 0.45183cm
- 2.5cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- DESCUENTOS
-
-
-
- :
-
-
-
-
-
-
- Textbox20
- 0.70108cm
- 13.3038cm
- 0.45183cm
- 2.5cm
- 6
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Descuento.Value
-
-
-
-
-
-
- Textbox20
- 0.70108cm
- 15.8038cm
- 0.45183cm
- 2.5cm
- 7
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
-
-
-
-
- Son:
-
-
-
- =Parameters!ImporteLetra.Value
-
-
-
-
-
-
- Textbox46
- 2.05658cm
- 0.08302in
- 0.72155cm
- 12.95182cm
- 8
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 0.06944in
- 0.09691in
- 0in
- 7.10935in
- 9
-
- 2pt
-
-
-
-
- true
- true
-
-
-
-
- SUB-TOTAL:
-
-
-
-
-
-
- Textbox20
- 0.24695cm
- 13.3038cm
- 0.45183cm
- 2.5cm
- 10
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!SubTotal.Value
-
-
-
-
-
-
- Textbox20
- 0.24695cm
- 15.8039cm
- 0.45183cm
- 2.5cm
- 11
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 2.77813cm
- 5.23772in
- 0cm
- 5.00022cm
- 12
-
- 2pt
-
-
-
-
- true
- 10.31122cm
- 0.09346cm
- 2.95451cm
- 19.05149cm
- 8
-
-
-
-
-
- 6.44697in
-
-