diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index e9826f77e..d7c296145 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1467,7 +1467,7 @@ Public Class ClsClientes
 #Region "D I R E C C I O N   D E    E N V I O "
     Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
                                       EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1",
-                                      Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer
+                                      Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd")
 
@@ -1486,6 +1486,7 @@ Public Class ClsClientes
             .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
             .Add("@CvePais", SqlDbType.Int).Value = CvePais
             .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
@@ -1528,7 +1529,7 @@ Public Class ClsClientes
 
     Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
                                       EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1",
-                                         Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean
+                                         Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate")
 
@@ -1548,6 +1549,7 @@ Public Class ClsClientes
             .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
             .Add("@CvePais", SqlDbType.Int).Value = CvePais
             .Add("@CveEstado", SqlDbType.Int).Value = CveEstado