diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 6f088a049..4c79dccab 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -7362,11 +7362,12 @@ Public Class ClsContPAQi
StrSQL.Append(" SELECT P.Id,P.Fecha,T.Nombre as TipoPoliza, MP.IdPoliza, P.IdUsuario, P.Concepto AS ConceptoPoliza,P.Cargos,P.Abonos,P.Folio ,P.Folio AS Numero , SN.Nombre AS SegNeg, MP.Concepto, ")
StrSQL.Append(" CASE WHEN ISNUMERIC(C.CODIGO) = 1 THEN FORMAT(CAST (C.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE C.CODIGO END AS CuentaFormato , MP.TipoMovto ")
StrSQL.Append(" ,C.Nombre AS Cuenta ,MP.Referencia AS Referencia, CASE WHEN MP.TipoMovto=0 THEN MP.Importe ELSE 0 END AS Cargo ")
- StrSQL.Append(" , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono ")
+ StrSQL.Append(" , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono,U.Nombre AS UsuarioRegistro ")
StrSQL.Append(" FROM Polizas P ")
StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON P.Id= MP.IdPoliza ")
StrSQL.Append(" LEFT JOIN SERVIDOR.Ventas.dbo.Conta_PrePolizasDetalle PPD ON PPD.CvePrePolizaDetalle = MP.CvePrePolizaDetalle ")
StrSQL.Append(" LEFT JOIN SERVIDOR.Ventas.dbo.Conta_PrePolizas PP ON PP.CvePrePoliza = PPD.CvePrePoliza ")
+ StrSQL.Append(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ")
StrSQL.Append(" LEFT JOIN Cuentas C ON C.Id = MP.IdCuenta ")
StrSQL.Append(" LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ")
StrSQL.Append(" LEFT JOIN SegmentosNegocio SN ON SN.Id = MP.IdSegNeg ")
diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index 68a050d1a..9bffc2e1f 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -5033,7 +5033,7 @@ Public Class ClsGPS
#End Region
#Region "G A S T O S"
- Public Function AddGasto(Cantidad As Decimal, Precio As Decimal, Descripcion As String, Observaciones As String, Fecha As DateTime, TipoGasto As Integer, CveCliente As Integer, Optional CveDispositvo As Integer = -1, Optional CveTrayecto As Integer = -1) As Boolean
+ Public Function AddGasto(Cantidad As Decimal, Precio As Decimal, Descripcion As String, Observaciones As String, Fecha As DateTime, TipoGasto As Integer, CveUsuario As Integer, CveCliente As Integer, Optional CveDispositivo As Integer = -1, Optional CveTrayecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_GastosAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -5045,6 +5045,7 @@ Public Class ClsGPS
.Add("@TipoGasto", SqlDbType.TinyInt).Value = TipoGasto
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
.Add("@CveTrayecto", SqlDbType.Int).Value = CveTrayecto
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
End With
Try
@@ -5055,9 +5056,9 @@ Public Class ClsGPS
End Try
Return Retorno
End Function
- Public Function GetGastos(CveGPSGasto As Integer, CveCliente As Integer, Optional CveDispositvo As Integer = -1, Optional CveTrayecto As Integer = -1) As Boolean
+ Public Function GetGastos(CveGPSGasto As Integer, CveCliente As Integer, Optional CveDispositivo As Integer = -1, Optional CveTrayecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
- DataAdapter("PA_GPS_RutasGet")
+ DataAdapter("PA_GPS_GastosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveGPSGasto", SqlDbType.Int).Value = CveGPSGasto
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
@@ -5072,7 +5073,7 @@ Public Class ClsGPS
End Try
Return Retorno
End Function
- Public Function UpdateGasto(CveGPSGasto As Integer, Cantidad As Decimal, Precio As Decimal, Descripcion As String, Observaciones As String, Fecha As DateTime) As Boolean
+ Public Function UpdateGasto(CveGPSGasto As Integer, Cantidad As Decimal, Precio As Decimal, Descripcion As String, Observaciones As String, Fecha As DateTime, CveUsuarioModifico As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_GastosUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -5081,7 +5082,8 @@ Public Class ClsGPS
.Add("@Precio", SqlDbType.Money).Value = Precio
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
- .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+ .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+ .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
End With
Try
SqlAdapter.Fill(Data)
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/Polizas.rdlc b/Empresas/119/Formatos/Polizas.rdlc
index 284875867..253ea17b1 100644
--- a/Empresas/119/Formatos/Polizas.rdlc
+++ b/Empresas/119/Formatos/Polizas.rdlc
@@ -93,6 +93,10 @@
TipoMovto
System.Double
+
+ UsuarioRegistro
+ System.String
+
DataSet1
@@ -1292,6 +1296,11 @@
End
+
+
+ =Fields!UsuarioRegistro.Value
+
+
@@ -1364,7 +1373,7 @@
- 3.23618cm
+ 3.96847cm