Homologação PagFor Sicoob

[infonacci]

Estou tentando homologar o arquivo de remessa do PagFor com o banco Sicoob, porém segundo o banco o layout está sendo gerado de maneira errada.

A equipe de homologação retornou que o campo G100 (que corresponde ao tipo de iniciação/chave Pix) está sendo preenchido com zeros em branco nas posições 15 a 17, onde deveria conter o código da transação. A questão em si ocorre quando a forma de lançamento é "45 - PIX TRANSFERÊNCIA".

Podem me ajudar com esta questão? 

[Juliomar Marchetti]

Abre a unit do banco em questão. depura a geração e olha se está fazendo correto.

tu tem o fonte todo do componente em seu delphi

[infonacci]

Segue trecho em questão que o banco está acusando erro. O problema em si está que nas posições 15 a 17 ao invés de preencher o código do tipo de chave, está sendo passado 3 caracteres em branco (definido em "GravarCampo(' ', 3, tcStr);") logo após a definição de "GravarCampo('B', 1, tcStr);".

 

procedure TArquivoW_Sicoob.GeraSegmentoB(mSegmentoBList: TSegmentoBList);

var

  J: Integer;

begin

  for J := 0 to mSegmentoBList.Count - 1 do

  begin

    FpLinha := '';

 

    with mSegmentoBList.Items[J] do

    begin

      Inc(FQtdeRegistros);

      Inc(FQtdeRegistrosLote);

      Inc(FSequencialDoRegistroNoLote);

 

      GravarCampo(BancoToStr(PagFor.Geral.Banco), 3, tcStr);

      GravarCampo(FQtdeLotes, 4, tcInt);

      GravarCampo('3', 1, tcStr);

      GravarCampo(FSequencialDoRegistroNoLote, 5, tcInt);

      GravarCampo('B', 1, tcStr);

      GravarCampo(' ', 3, tcStr);

      GravarCampo(TpInscricaoToStr(Inscricao.Tipo), 1, tcStr);

      GravarCampo(Inscricao.Numero, 14, tcStrZero);

      GravarCampo(Endereco.Logradouro, 30, tcStr, True);

      GravarCampo(Endereco.Numero, 5, tcStrZero);

      GravarCampo(Endereco.Complemento, 15, tcStr, True);

      GravarCampo(Endereco.Bairro, 15, tcStr, True);

      GravarCampo(Endereco.Cidade, 20, tcStr, True);

      GravarCampo(Endereco.CEP, 8, tcInt);

      GravarCampo(Endereco.Estado, 2, tcStr);

      GravarCampo(DataVencimento, 8, tcDat);

      GravarCampo(Valor, 15, tcDe2);

      GravarCampo(Abatimento, 15, tcDe2);

      GravarCampo(Desconto, 15, tcDe2);

      GravarCampo(Mora, 15, tcDe2);

      GravarCampo(Multa, 15, tcDe2);

      GravarCampo(CodigoDOC, 15, tcStr);

      GravarCampo(Aviso, 1, tcInt);

      GravarCampo(CodigoUG, 6, tcInt);

      GravarCampo(' ', 8, tcStr);

 

      ValidarLinha('B');

      IncluirLinha;

    end;

  end;

end;

[Juliomar Marchetti]

tá e ai o que diz o manual nesse campo?

modificou? gerou o arquivo ? enviou pra testarem?

[infonacci]

Ajustes feitos e aprovados para o banco.

Em anexo, arquivo corrigido para validarem e incorporarem ao fontes.

PagFor.Sicoob.GravarTxtRemessa.pas