-- almacenasignado en clientes

App_Code/ClsClientes.vb

@@ -540,7 +540,7 @@ Public Class ClsClientes
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
-                               Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True) As Boolean
+                               Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -638,12 +638,10 @@ Public Class ClsClientes
 
             .Add("@CveMotivoTraslado", SqlDbType.TinyInt).Value = CveMotivoTraslado
             .Add("@NumRegIdTrib", SqlDbType.VarChar).Value = NumRegIdTrib
-
             .Add("@ComExtEstado", SqlDbType.VarChar).Value = ComExtEstado
             .Add("@ComExtMunicipio", SqlDbType.VarChar).Value = ComExtMunicipio
             .Add("@ComExtColonia", SqlDbType.VarChar).Value = ComExtColonia
             .Add("@RequiereOC", SqlDbType.Bit).Value = RequiereOC
-
             .Add("@LT", SqlDbType.VarChar).Value = LT
             .Add("@LG", SqlDbType.VarChar).Value = LG
             .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor
@@ -670,6 +668,7 @@ Public Class ClsClientes
             .Add("@ComExtNumExt", SqlDbType.VarChar).Value = ComExtNumExt
             .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
             .Add("@Genero", SqlDbType.Bit).Value = Genero
+            .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -715,7 +714,7 @@ Public Class ClsClientes
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
-                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True) As Boolean
+                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -799,7 +798,6 @@ Public Class ClsClientes
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@ExtOtros", SqlDbType.VarChar).Value = ExtOtros
 
-
             .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI
             .Add("@CveFormaPago", SqlDbType.Int).Value = CveFormaPago
             .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
@@ -854,7 +852,7 @@ Public Class ClsClientes
             .Add("@ComExtNumExt", SqlDbType.VarChar).Value = ComExtNumExt
             .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
             .Add("@Genero", SqlDbType.Bit).Value = Genero
-
+            .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
 
         End With
         Try