diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index a268761f6..40d862b7f 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1554,7 +1554,9 @@ Public Class ClsClientes
 
         Return Retorno
     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, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean
+    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String,
+                                              Pais As String, 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) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ClientesNoFrecuenteAdd")
 
@@ -1575,6 +1577,8 @@ Public Class ClsClientes
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33
+            .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33
             .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
 
@@ -1604,8 +1608,8 @@ Public Class ClsClientes
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #Region "UNIFICAR CLIENTES"
     Public Function UnificarClientes(CveClienteAUnificar As Integer, CveClienteOriginal As Integer) As Boolean
         Dim Retorno As Boolean = False
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 9b317a159..57b6bfab0 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1648,10 +1648,12 @@ Partial Class PV
                     CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
                     DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
                     DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
-                    DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
+                    DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString)
+                    'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
                     DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
 
-                    DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
+                    DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33.ToString)
+                    'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
                     DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
                 End If
                 TxtFechaPago.Text = (Now.AddDays(ObjCliente.PlazoCobranza)).ToShortDateString
@@ -4729,7 +4731,10 @@ Partial Class PV
 
         Dim ObjCliente As New ClsClientes
 
-        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim,
+                                                TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim,
+                                                TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
+                                                UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
                 ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero