Segmentos MultiPag Bradesco

[rodrigofernandes]

Bom dia amigos .. 

Na criação dos segmentos referente aos pagamentos tenho dúvidas dos tipos de lançamentos exmeplo:

Registro1.Servico.TipoServico := tsPagamentoFornecedor;  está opção estou utilizando para pagamentos de alguns tipos de boletos este é validado pelo banco.

Na no pagamento DOC/TED  estou tendo o seguinte retorno na validação do banco 

Registro1.Servico.TipoServico := tsPagamentoFornecedor;

Registro1.Servico.FormaLancamento := flDocTed;

============================================================================================================================
Linha 3, Segmento A, colunas 021 a 023, Código do banco inválido ou não informado.
Linha 3, Segmento A, colunas 218 a 219, Código finalidade de DOC inválido.
====================================================================================================================

 

Não localizei a tag para inserir o Código do banco.

 

[Diego Foliene]

2 horas atrás, rodrigofernandes disse:

Bom dia amigos .. 

Na criação dos segmentos referente aos pagamentos tenho dúvidas dos tipos de lançamentos exmeplo:

Registro1.Servico.TipoServico := tsPagamentoFornecedor;  está opção estou utilizando para pagamentos de alguns tipos de boletos este é validado pelo banco.

Na no pagamento DOC/TED  estou tendo o seguinte retorno na validação do banco 

Registro1.Servico.TipoServico := tsPagamentoFornecedor;

Registro1.Servico.FormaLancamento := flDocTed;

============================================================================================================================
Linha 3, Segmento A, colunas 021 a 023, Código do banco inválido ou não informado.
Linha 3, Segmento A, colunas 218 a 219, Código finalidade de DOC inválido.
====================================================================================================================

 

Não localizei a tag para inserir o Código do banco.

 

Bom dia!
Para preencher o Cód. do banco você precisa definir a propriedade Favorecido.Banco que o ACBr faz a conversão.
Vide função que gera o arquivo:

 

Para preencher essa propriedade você pode fazer 

PagFor := ACBrPagFor.Arquivos.New.PagFor;
Lote   := PagFor.Lote.New;
with Lote.SegmentoA.New do
begin
  //..
  with Favorecido do
  begin
    Banco := 
  end;
end;

Consulte a procedure AlimentarComponente do programa exemplo para mais informações.