Uniformes y RepAnexoCatalogoVertical(parametros)

Bancos/IE.aspx.vb

@@ -2469,17 +2469,25 @@ Partial Class Bancos_IE
 
 
 
-        'If CveOCSolicitudAnticipo > 0 Then
-        '    If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
 
-        '        EsValido = False
-        '        Alert($"El importe  del movimiento es mayor al saldo de la orden de compra  importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
+        If CveOCSolicitudAnticipo > 0 Then
 
-        '    End If
-        'End If
-
+            Dim ObjOC As New ClsOC
+            If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
+                SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
+            Else
+                SaldoOCAnticipo = 0
+            End If
+            ObjOC.Dispose()
+
+            If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
+                EsValido = False
+                Alert($"El importe  del movimiento es mayor al saldo de la orden de compra  importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
 
         Return EsValido
+
     End Function
 
     Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)