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

-- almacenasignado en clientes

Browse Source
This commit is contained in:
rrene
2023-12-13 19:07:28 -07:00
parent c7621f23bc
commit e2d1945990
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsClientes.vb
View File

@@ -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