diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index d82462b17..5a6b5880d 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -893,6 +893,19 @@ Partial Class Ventas_PVCobranza
 
                 If TxtImporteEfectivo.Text.ToDecimal > 0 Then DtPagos.Rows.Add({1, TxtImporteEfectivo.Text.ToDecimal})
 
+                If TxtNCDev.Text.ToDecimal > 0 Then DtPagos.Rows.Add({21, TxtNCDev.Text.ToDecimal})
+
+                If TxtImporteOtrosContado.Text.ToDecimal() > 0 Then
+                    Select Case DdlOtroFormaPago.SelectedValue
+                        Case "1" 'Debito
+                            DtPagos.Rows.Add({18, TxtImporteOtrosContado.Text.ToDecimal})
+                        Case "2" 'Crédito
+                            DtPagos.Rows.Add({4, TxtImporteOtrosContado.Text.ToDecimal})
+                        Case "3" 'Transferencia
+                            DtPagos.Rows.Add({3, TxtImporteOtrosContado.Text.ToDecimal})
+                    End Select
+                End If
+
                 Dim PagoMaximo = DtPagos.MAX("Importe")
                 Dim CveFormaPago As Integer = DtPagos.FiltroPrimeroValor("CveFormaPago", $"Importe = {PagoMaximo}").ToEntero()
                 If CveFormaPago > 0 Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4e6421a58..874598e75 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25202,7 +25202,7 @@ Partial Class Ventas
 
     Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
 
-        If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
+        If TxtRFCCliente.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") Then
             DivNombreCliente.Visible = True
             DivTipoPersona.Visible = True
             DivDireccionCliente.Visible = True