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

.

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-23 14:52:30 -07:00
parent efe9488ede
commit 46623b633f
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -22708,7 +22708,8 @@ Partial Class Ventas
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
CP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString
'CP = "Envio"
Else
If ObjVentas.DtResultados.Rows(0)("CveClienteSucursal").ToString.ToEntero > 0 Then
'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
@@ -22722,7 +22723,8 @@ Partial Class Ventas
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
'CP = ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString
CP = "Sucursal"
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}"
@@ -22735,7 +22737,8 @@ Partial Class Ventas
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
'CP = ObjVentas.DtResultados.Rows(0)("CPCliente").ToString
CP = "Cliente"
End If
EnvioContacto = ""
EnviarOficina = ""