Ir para o conteúdo
CodeHero

Conversores de código

Delphi para ABAP

A mesma rotina, escrita à mão em Delphi e em ABAP. Ela está aqui para você ver o que muda e o que continua igual antes de alguém te passar um preço.

O que você tem · Delphi

function Interest(Balance, Rate: Currency): Currency;
begin
  Result := RoundTo(Balance * Rate, -2);
end;

No que isso vira · ABAP

DATA: lv_balance  TYPE p DECIMALS 2 VALUE 0,
      lv_rate     TYPE p DECIMALS 4 VALUE '0.0425',
      lv_interest TYPE p DECIMALS 2.

lv_interest = lv_balance * lv_rate.
WRITE: / 'INTEREST:', lv_interest.
Uma rotina: um saldo vezes uma taxa, arredondado ao centavo. Escrita por uma pessoa nas duas linguagens, sem ferramenta no meio. O seu arquivo é mais longo e tem mais coisa acontecendo, que é justamente o ponto.
Ler dois arquivos lado a lado é a metade fácil. A metade difícil é o resto do sistema: que arquivos nada mais chama, que job escreve às 02:00 o registro que outro lê depois e se a reescrita ainda produz os números que seus auditores viram no mês passado. Esse trabalho roda na nossa plataforma com um engenheiro acompanhando, e começa com uma olhada na sua base de código.

Quando o conversor deixa de bastar

Comparar dois arquivos é a metade fácil. Nada nesta página consegue dizer que arquivos nada mais chama, que job batch escreve às 02:00 o registro que outro lê depois, nem se a versão reescrita ainda produz os números que seus auditores viram no mês passado. O diagnóstico responde isso sobre a sua base de código real.