Boleto Itau WebService

[BrunoD]

Bom dia,

Na última atualização do ACBr, começamos a ter problemas para emissão de boletos via WebServices do Banco Itaú.

O campo de CPF/CNPJ tinha uma formatação para 11 caracteres, o que fazia "cortar" quando o documento era CNPJ.

procedure TBoletoW_Itau.GerarPagador(AJson: TJsonObject);
var
  JsonDadosPagador: TJsonObject;
  JsonPairPagador: TJsonPair;

begin
  if Assigned(Titulos) then
    with Titulos do
    begin
      if Assigned(AJson) then
      begin
        JsonDadosPagador := TJSONObject.Create;

        try
          JsonDadosPagador.Add('cpf_cnpj_pagador').Value.AsString := OnlyNumber(Sacado.CNPJCPF);//ACBrUtil.PadLeft(OnlyNumber(Sacado.CNPJCPF), 11, '0');
          JsonDadosPagador.Add('nome_pagador').Value.AsString := Copy(Sacado.NomeSacado, 1, 30);
          JsonDadosPagador.Add('logradouro_pagador').Value.AsString := Trim(Copy(Sacado.Logradouro + ' ' + Sacado.Numero, 1, 40));
          JsonDadosPagador.Add('bairro_pagador').Value.AsString := Copy(Sacado.Bairro, 1, 15);
          JsonDadosPagador.Add('cidade_pagador').Value.AsString := Copy(Sacado.Cidade, 1, 20);
          JsonDadosPagador.Add('uf_pagador').Value.AsString := Sacado.UF;
          JsonDadosPagador.Add('cep_pagador').Value.AsString := ACBrUtil.PadLeft(OnlyNumber(Sacado.CEP), 8, '0');
          if (Sacado.Email <> '') then
            GerarEmailPagador(JsonDadosPagador);

          JsonPairPagador := TJsonPair.Create(AJson, 'pagador');
          try
            JsonPairPagador.Value.AsObject := JsonDadosPagador;
            AJson.Add('pagador').Assign(JsonPairPagador);
          finally
            JsonPairPagador.Free;
          end;
        finally
          JsonDadosPagador.Free;
        end;
      end;

    end;

end

 

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo