Oi Daniel,  segundo sua dica eu fiz algo como: procedure TfrmPrincipal.ACBrTEFD1CliSiTefObtemCampo(Titulo: string;   TamanhoMinimo, TamanhoMaximo, TipoCampo: Integer;   Operacao: TACBrTEFDCliSiTefOperacaoCampo; var Resposta: AnsiString;   var Digitado, VoltarMenu: Boolean);  .... ....   function no_parcelas_cartao:integer;   var total:currency;   begin      total:=totaliza();      if total<=100 then result:=1      else if ((total>100) and (total<=500)) then result:=3      els
    • Like
    3