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

cambios en el formato

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-23 13:15:31 -07:00
parent 7216833c1e
commit efe9488ede
2 changed files with 653 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
Ventas/Ventas.aspx.vb
View File

@@ -22681,6 +22681,11 @@ Partial Class Ventas
Dim EnvioCiudad As String = ""
Dim EnvioTel As String = ""
Dim Guia As String = ""
Dim EnvioNoExt As String = ""
Dim EnvioNoInt As String = ""
Dim EnvioEstado As String = ""
Dim Pais As String = ""
Dim CP As String = ""
If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString
@@ -22690,13 +22695,52 @@ Partial Class Ventas
If ObjVentas.DtResultados.Rows.Count > 0 Then
SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
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
If ObjVentas.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").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
EnvioNoExt = ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString
EnvioNoInt = ObjVentas.DtResultados.Rows(0)("EnvioNoInt").ToString
EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString
Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString
CP = ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString
Else
If ObjVentas.DtResultados.Rows(0)("CveClienteSucursal").ToString.ToEntero > 0 Then
'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString}"
'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
EnviarCalle = ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString
EnviarColonia = ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("SucClienteCiudad").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
EnvioNoExt = ObjVentas.DtResultados.Rows(0)("SucClienteNoExt").ToString
EnvioNoInt = ObjVentas.DtResultados.Rows(0)("SucClienteNoInt").ToString
EnvioEstado = ObjVentas.DtResultados.Rows(0)("SucClienteEstado").ToString
Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString
CP = ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString
Else
'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("CPCliente").ToString}"
'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
EnviarCalle = ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString
EnviarColonia = ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("ClienteCiudad").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
EnvioNoExt = ObjVentas.DtResultados.Rows(0)("ClienteNoExt").ToString
EnvioNoInt = ObjVentas.DtResultados.Rows(0)("ClienteNoInt").ToString
EnvioEstado = ObjVentas.DtResultados.Rows(0)("ClienteEstado").ToString
Pais = ObjVentas.DtResultados.Rows(0)("ClientePais").ToString
CP = ObjVentas.DtResultados.Rows(0)("CPCliente").ToString
End If
EnvioContacto = ""
EnviarOficina = ""
End If
End If
End If
Dim Dt As DataTable = Nothing
@@ -22720,7 +22764,12 @@ Partial Class Ventas
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))
params.Add(New ReportParameter("NoExt", EnvioNoExt))
params.Add(New ReportParameter("NoInt", EnvioNoInt))
params.Add(New ReportParameter("EnvioEstado", EnvioEstado))
params.Add(New ReportParameter("Pais", Pais))
params.Add(New ReportParameter("CP", CP))
ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString), "PDF")
End If
End Sub
#End Region