diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 037e3f9c5..e0ee095db 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -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 = ""