Não, no meu caso a minha aplicação a requisição o QtdParcelas está restornando = 1, gerando uma mensagem de alerta.
O problema esta neste bloco no ACBrTEFCliSitefComum
// leitura de parcelas conforme nova documentação
// 141 e 142 foram removidos em Setembro de 2014
Parcelas.Clear;
if (QtdParcelas > 0) then
begin
wValParc := RoundABNT((ValorTotal / QtdParcelas), -2);
wTotalParc := 0;
for I := 1 to QtdParcelas do
begin
Parc := TACBrTEFRespParcela.Create;
if I = 1 then
begin
Parc.Vencimento := LeInformacao(140, I).AsDate;
Parc.Valor := LeInformacao(524, I).AsFloat;
end
else
begin
Parc.Vencimento := IncDay(LeInformacao(140, I).AsDate, LeInformacao(508, I).AsInteger);
Parc.Valor := LeInformacao(525, I).AsFloat;
end;
// caso não retorne os dados acima prencher com os defaults
if Trim(Parc.NSUParcela) = '' then
Parc.NSUParcela := NSU;
if Parc.Vencimento <= 0 then
Parc.Vencimento := IncDay(DataHoraTransacaoHost, I * 30);
if Parc.Valor <= 0 then
begin
if (I = QtdParcelas) then
wValParc := ValorTotal - wTotalParc
else
wTotalParc := wTotalParc + wValParc;
Parc.Valor := wValParc;
end;
Parcelas.Add(Parc);
end;
end;
O QtdParcelas esta retornando 1 porem as outras infromações adicionais estão retornando vazio como por exemplo o
oLeInformacao(140, I).AsDate, assim dando erro