From 6d574f3b378e73de7922d9a3d79ccd72b3a23bf8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 17 May 2022 17:13:08 -0700 Subject: [PATCH] Sucursales carta porte --- Ventas/Ventas.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index cdd38b500..2313b57c3 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -34252,11 +34252,11 @@ Partial Class Ventas Dim CveDireccionDestino As Integer = -1 If SucursalOrigenCP IsNot Nothing Then - CveDireccionOrigen = 0 'ObjClientes.DireccionEnvioAdd(-1, SucursalOrigenCP.Direccion, SucursalOrigenCP.NoExt, SucursalOrigenCP.NoInt, SucursalOrigenCP.Colonia, SucursalOrigenCP.Municipio, SucursalOrigenCP.Estado, SucursalOrigenCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalOrigenCP.CveEstado, CvePais:=SucursalOrigenCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa) + CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, SucursalOrigenCP.Direccion, SucursalOrigenCP.NoExt, SucursalOrigenCP.NoInt, SucursalOrigenCP.Colonia, SucursalOrigenCP.Municipio, SucursalOrigenCP.Estado, SucursalOrigenCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalOrigenCP.CveEstado, CvePais:=SucursalOrigenCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa) End If If SucursalDestinoCP IsNot Nothing Then - CveDireccionDestino = 0 'ObjClientes.DireccionEnvioAdd(-1, SucursalDestinoCP.Direccion, SucursalDestinoCP.NoExt, SucursalDestinoCP.NoInt, SucursalDestinoCP.Colonia, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalDestinoCP.CveEstado, CvePais:=SucursalDestinoCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa) + CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, SucursalDestinoCP.Direccion, SucursalDestinoCP.NoExt, SucursalDestinoCP.NoInt, SucursalDestinoCP.Colonia, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalDestinoCP.CveEstado, CvePais:=SucursalDestinoCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa) End If If Not (CveDireccionOrigen > 0 And CveDireccionDestino > 0) Then @@ -34371,9 +34371,9 @@ Partial Class Ventas SucursalOrigenCP.Colonia = Row("Colonia").ToString() SucursalOrigenCP.CP = Row("CP").ToString() SucursalOrigenCP.Municipio = Row("Municipio").ToString() - 'SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero() + SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero() SucursalOrigenCP.Estado = Row("Estado").ToString() - 'SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero() + SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero() SucursalOrigenCP.Pais = Row("Pais").ToString() SBDomicilioSucursal.AppendFormat("{0}", Row("Calle").ToString()) @@ -34435,9 +34435,9 @@ Partial Class Ventas SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString() SucursalDestinoCP.Colonia = Row("EnvioColonia").ToString() SucursalDestinoCP.Municipio = Row("EnvioCiudad").ToString() - 'SucursalDestinoCP.CveEstado = Row("CveEstado").ToString().ToEntero() + SucursalDestinoCP.CveEstado = Row("CveEstado").ToString().ToEntero() SucursalDestinoCP.Estado = Row("EnvioEstado").ToString() - 'SucursalDestinoCP.CvePais = Row("CvePais").ToString().ToEntero() + SucursalDestinoCP.CvePais = Row("CvePais").ToString().ToEntero() SucursalDestinoCP.Pais = Row("Pais").ToString() SucursalDestinoCP.CP = Row("EnvioCP").ToString()