AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--imprimir nombre del cleinte, en e ntrada almacen

Browse Source
This commit is contained in:
rrene
2019-11-18 19:01:32 -07:00
parent 9853ae6889
commit 44dadbb19b
2 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsInventarios.vb
View File

@@ -96,7 +96,8 @@ Public Class ClsInventarios
Public Property CveGrupoPS As Integer
Public Property CveFlete As Integer
Public Property CveCliente As Integer
Public Property CveClienteSucursal As Integer
Public Property CveClienteSucursal As Integer
Public Property NombreCliente As String
Public Property DepartamentoEntrega As String
Public Property PedidoContrato As String
Public Property GastoIndirecto As Double
@@ -820,6 +821,7 @@ Public Class ClsInventarios
FolioInterno = dr("VentaAnticipo").ToString
CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1)
NombreCliente = dr("Nombre").ToString
DepartamentoEntrega = dr("DepartamentoEntrega").ToString
PedidoContrato = dr("PedidoContrato").ToString
TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero

22
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1178,7 +1178,8 @@ Partial Class PopUpVerFactura
Dim FolioOC As String = ObjInventarios.FolioOC
Dim FolioInterno As String = ObjInventarios.FolioInterno
Dim CveCliente As Integer = ObjInventarios.CveCliente
Dim CveCliente As Integer = ObjInventarios.CveCliente
Dim NombreCliente As String = ObjInventarios.NombreCliente
Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal
Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
@@ -1214,6 +1215,7 @@ Partial Class PopUpVerFactura
End If
ObjInventarios.Dispose()
If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente
ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio,
Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
@@ -1221,7 +1223,7 @@ 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, CveCliente)
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio)
End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1238,15 +1240,8 @@ 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, CveCliente As Integer)
Dim NombreCliente As String = ""
If CveCliente <> Nothing Then
Dim ObjClientes As New ClsClientes
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then
NombreCliente = ObjClientes.Nombre
End If
ObjClientes.Dispose()
End If
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String)
Select Case CveConcepto
Case 1 'INICIAL
@@ -1297,6 +1292,7 @@ Partial Class PopUpVerFactura
End If
Dim params As New List(Of ReportParameter)
If Archivo.Exists Then
@@ -1369,7 +1365,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Folio", Folio.ToString))
params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, "")))
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
params.Add(New ReportParameter("NombreProveedor", RazonSocial))
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
params.Add(New ReportParameter("CiudadProveedor", " "))
params.Add(New ReportParameter("EstadoProveedor", " "))
@@ -1407,7 +1403,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, NombreCliente)))
params.Add(New ReportParameter("FacturadoA", RazonSocial))
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))