diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f9f5b79ba..70099aba3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18591,6 +18591,25 @@ Partial Class Ventas
 
                     Dim DdlPrecioListaEdit = GvRow.FCDropDownList("DdlPrecioListaEdit")
 
+                    If UsuarioActual.CveEmpresa = 189 Then
+                        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot", "Ped") AndAlso GvRow.FCHtmlGenericControl("DivPrecioLista").Visible Then
+                            Using ObjVta As New ClsVentas
+                                If ObjVta.GetPreciosListaSPPermitidos(DdlSubProyectoDatos.SelectedValue.ToEntero(), CvePSParametro, UsuarioActual.CveEmpresa) Then
+                                    Dim Dt As DataTable = Nothing
+                                    If UsuarioActual.TienePermisoProceso(384) Then
+                                        Dt = ObjVta.DtResultados.Copy()
+                                    Else
+                                        Dt = ObjVta.DtResultados.FiltraParametros("Restringuida = 'False'")
+                                    End If
+
+                                    GvRow.FCDropDownList("DdlPrecioListaEdit").DataSource = Dt
+                                    GvRow.FCDropDownList("DdlPrecioListaEdit").DataBind()
+                                    GvRow.FCDropDownList("DdlPrecioListaEdit").SelectedValueExist(GvRow.DataKey("CvePrecioLista"))
+                                End If
+                            End Using
+                        End If
+                    End If
+
                     Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
                     If DrPS IsNot Nothing Then
                         'SUGIERE PRECIO
@@ -25423,6 +25442,16 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If DdlMetodoCliente.SelectedValue.ToEntero() <= 0 Then
+            Alert("El 'Método Pago' es requerido.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If DdlFormaCliente.SelectedValue.ToEntero() <= 0 Then
+            Alert("El 'Forma Pago' es requerido.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
             Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -25467,7 +25496,7 @@ Partial Class Ventas
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
                                                 TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
                                                 TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
-                                                DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista,
+                                                DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero(), DdlFormaCliente.SelectedValue.ToEntero(), CvePrecioLista:=CvePrecioLista,
                                                 RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI, CveClienteClasificacion:=DdlGiro.SelectedValue.ToEntero()) Then
 
             If ObjCliente.DtResultados.Rows.Count > 0 Then