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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-10 09:39:47 -07:00
parent c64051ce62 51c593eb1b
commit 65aca22883
7 changed files with 2464 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Ventas/Ventas.aspx.vb
View File

@@ -22498,6 +22498,11 @@ Partial Class Ventas
Dim PedidoContrato As String = ""
Dim EnvioContacto As String = ""
Dim EnvioDireccion As String = ""
Dim EnviarOficina As String = ""
Dim EnviarCalle As String = ""
Dim EnviarColonia As String = ""
Dim EnvioCiudad As String = ""
Dim EnvioTel As String = ""
Dim Guia As String = ""
If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
@@ -22510,6 +22515,11 @@ Partial Class Ventas
PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}"
EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
End If
End If
Dim Dt As DataTable = Nothing
@@ -22528,6 +22538,11 @@ Partial Class Ventas
params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
params.Add(New ReportParameter("Guia", Guia))
params.Add(New ReportParameter("EnviarOficina", EnviarOficina))
params.Add(New ReportParameter("EnviarCalle", EnviarCalle))
params.Add(New ReportParameter("EnviarColonia", EnviarColonia))
params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
params.Add(New ReportParameter("EnvioTel", EnvioTel))
ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString))
End If
End Sub