- mejora en validación de EMD presupuesto

Compras/Compras.aspx.vb

@@ -4187,20 +4187,17 @@ Partial Class Compras_Compras
 
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
-
-
         If Not ValidaPresupuesto(2) Then
             Exit Sub
         End If
 
         '------------------ INICIA VALIDACIONES ------------------
 
-        If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 Then
+        If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then
             Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
-
         Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
 
         If Not CveSubProyectoPrincipal > 0 Then
@@ -4208,7 +4205,7 @@ Partial Class Compras_Compras
         End If
 
         If Not ValidaVinculacionNotaFactura() Then
-            Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia)
+            Alert("Se requiere que la nota este aplicada a las facturas", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -8615,7 +8612,6 @@ Partial Class Compras_Compras
                 'PORCENTAJE IVA
                 Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
-
                 Dim TmpCveRetIVAConcepto As Integer = If(CveRetIVAConceptoOriginal <> DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetIVAConcepto.SelectedValue.ToEntero, -1)
                 Dim TmpCveRetISRConcepto As Integer = If(CveRetISRConceptoOriginal <> DdlRetISRConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, -1)
                 Dim tNoDeducible As Integer = If(ChkEsNoDeducible.Checked, 1, 0)