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!Chofer.Value + =Parameters!ResponsableRecibio.Value + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox22 + 12.88411cm + 2.21206cm + 0.52062cm + 5.78664cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox22 + 12.88411cm + 11.60471cm + 0.52062cm + 5.78664cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IDENTIFICACIÓN: + + + + =Parameters!Identificacion.Value + + + + + + + =Parameters!Domicilio.Value + + + + + + + =Parameters!Telefono.Value + + + + + + + =Parameters!Ciudad.Value + + + + + + + =Parameters!Licencia.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOCUMENTACIÓN DEL CHOFER + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 6.27115in + 8.91698in