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

Datos del vendedor en formato de factura

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-01-20 15:45:55 -07:00
parent 92ebec10a8
commit a4b5cefad2
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
App_Code/ClsPaginas.vb
View File

@@ -7131,13 +7131,22 @@ Public Class ClsPaginas
Dim VendedorMail As String = "" Dim VendedorMail As String = ""
Dim VendedorTelefono As String = "" Dim VendedorTelefono As String = ""
Dim VendedorCelular As String = "" Dim VendedorCelular As String = ""
Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
Dim RowVendedor As DataRow = Nothing
Dim ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
RowVendedor = ObjVendedores.DtResultados.FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
End If
ObjVendedores.Dispose()
If Not IsNothing(RowVendedor) Then If Not IsNothing(RowVendedor) Then
VendedorNombre = RowVendedor("Vendedor").ToString VendedorNombre = RowVendedor("Vendedor").ToString
VendedorMail = RowVendedor("Correo").ToString VendedorMail = RowVendedor("Correo").ToString
VendedorTelefono = RowVendedor("Telefono").ToString VendedorTelefono = RowVendedor("Telefono").ToString
VendedorCelular = RowVendedor("Celular").ToString VendedorCelular = RowVendedor("Celular").ToString
End If End If
params.Add(New ReportParameter("VendedorNombre", VendedorNombre)) params.Add(New ReportParameter("VendedorNombre", VendedorNombre))
params.Add(New ReportParameter("VendedorMail", VendedorMail)) params.Add(New ReportParameter("VendedorMail", VendedorMail))
params.Add(New ReportParameter("VendedorTelefono", VendedorTelefono)) params.Add(New ReportParameter("VendedorTelefono", VendedorTelefono))