Código Delphi [-] if Copy(TablaCuenta.AsString, 1, 3) = '412' Then Variable := Variable + TablaDebito.AsFloat else if Copy(TablaCuenta.AsString, 1, 3) = '422' Then Variable := Variable + TablaCredito.AsFloat;
if Copy(TablaCuenta.AsString, 1, 3) = '412' Then Variable := Variable + TablaDebito.AsFloat else if Copy(TablaCuenta.AsString, 1, 3) = '422' Then Variable := Variable + TablaCredito.AsFloat;