parametros nuevos en cliente no frecuente

App_Code/ClsClientes.vb

@@ -1676,7 +1676,8 @@ Public Class ClsClientes
     End Function
     Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer,
                                               RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-                                              NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
+                                              NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1",
+                                              Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ClientesNoFrecuenteAdd")
 
@@ -1703,6 +1704,8 @@ Public Class ClsClientes
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
             .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+            .Add("@CveRegimenFiscal", SqlDbType.Int).Value = CveRegimenFiscal
+            .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI
 
         End With