diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ecce18717..d63a41e9e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -23892,9 +23892,21 @@ Partial Class Ventas
             UpPS.Update()
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
+            Dim ImporteMaximo As Decimal = DtPagos.MAX("Importe").ToDecimal()
+            Dim RowPagoMaximo As DataRow = DtPagos.FiltroPrimero($"Importe >= {ImporteMaximo}")
+            If RowPagoMaximo IsNot Nothing Then
+                Dim CveTipoTransaccion As Integer = RowPagoMaximo("CveTipoMovimiento").ToString().ToEntero()
+                If CveTipoTransaccion > 0 Then
+                    Dim CveFormaPago = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveFormaPago", RowFilter:=$"CveTipoTransaccion = {CveTipoTransaccion} AND Estatus = 1")
+                    DdlFormaPago33.SelectedValueExist(CveFormaPago)
+                End If
+            End If
+        End If
+
         CargaGridContado()
         UpContado.Update()
-
+        UPCondicionesPago.Update()
     End Sub
     Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
         LimpiaEscondeContado()