Antonio Gomes

@Victor H. Gonzales - Panda @BigWings
 
Olá, foi aplicado ajuste da posição do ano da data do credito, estava na posição incorreta, com isso, acusava sempre como sendo ano 2000.
Segue fonte.
ACBrBancoC6.pas

a sua carteira no cadastro seu, não colocou numeros ?

ate onde sei, era assim...

@Italo Giurizzato Junior
Achei o bug de cortar o pdf
veja na imagem, acha parte do xml, que faz parte do pdf, o retorno nao vem em tag, mas vem direto o pdf.

A falha é na função: TACBrNFSeXWebservice.SalvarRetornoWebService, onde chama RemoverDeclaracaoXML
TACBrNFSeXWebservice.SalvarRetornoDadosMsg quando faz isso  ADadosMsg := RemoverDeclaracaoXML(ADadosMsg);
TACBrNFSeProviderPadraoNacional.TratarRetornoConsultaNFSeporChave:  Response.ArquivoRetorno := RemoverDeclaracaoXML(Response.ArquivoRetorno); // comentei isso, quando é pdf para testar.
Acho que o legal é testar de outra forma, já que nao tem tag xml abrindo de fechando nesse retorno, é um pdf só,.
Como chamei para pegar o pdf:
 FuncNFSeX.ACBrNFse.ObterDANFSE(IBDSPai.FieldByName('NFE_CHAVE_NF').AsString);
    ConsultaNFSe := FuncNFSeX.ACBrNFse.WebService.ConsultaNFSe;
...
os fontes alterados, é apenas para vc ver como veio o retorno, com o que eu mexi, nao suba para o seu fonte. Eu não sei como mexer nesse componente ainda, é novo para eu.
PadraoNacional.Provider.pas
ACBrNFSeXWebserviceBase.pas

Bug encontrado:
Ao dar loadfromfile no arquivo de DPS, o campo Servico.CodigoPais, vem com valor -1, ao inves de zero, fazendo com que coloque um ZZ no xml de envio.
bug nessa funcao:
function TNFSeW_PadraoNacional.GerarLocalPrestacao: TACBrXmlNode;
begin
  Result := CreateElement('locPrest');
  Result.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 0,
                                             NFSe.Servico.CodigoMunicipio, ''));
  if (NFSe.Servico.CodigoPais <> 0) and (NFSe.Servico.CodigoPais <> 1058) then
    Result.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 0,
                          CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), ''));
end;
quando vem NFSe.Servico.CodigoPais = -1, CodIBGEPaisToSiglaISO2 retorna: 'ZZ'
 
@Italo Giurizzato Junior
 
Olha se pode ser corrigido com isso?
unit PadraoNacional.LerXml; 
Linha 904
procedure TNFSeR_PadraoNacional.LerLocalPrestacao(const ANode: TACBrXmlNode);
var
  AuxNode: TACBrXmlNode;
begin
  AuxNode := ANode.Childrens.FindAnyNs('locPrest');
  if AuxNode <> nil then
  begin
    with NFSe.Servico do
    begin
      CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('cLocPrestacao'), tcStr);
      CodigoPais := SiglaISO2ToCodIBGEPais(ObterConteudo(AuxNode.Childrens.FindAnyNs('cPaisPrestacao'), tcStr));
      if CodigoPais < 0 then //// aqui
        CodigoPais := 0; // aqui
    end;
  end;
end;

esta atribuindo coisa alem de numero nos parametros, olha o erro, olha se esta colocando espacos tambem, na conta, cedente..
A agencia e beneficiario sua, tá repetido o numero 3886, pode ser um indicio de algo anormal.

dá uma lida em particularidades, de fato, tem que ser 01 mesmo, e sicoob está ok no projeto, nao tem erro, usando aqui.
olha onde vc salva os componentes: ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf
 
 

Mano: Explore o componente... linha digitável

DVBoleto             := ACBrBoleto.Banco.CalcularDigitoVerificador(ACBrTitulo);
            CodigoBarras         := ACBrBoleto.Banco.MontarCodigoBarras(ACBrTitulo);
            LinhaDigitavel       := ACBrBoleto.Banco.MontarLinhaDigitavel(CodigoBarras, ACBrTitulo);
            NossoNumeroFormatado := ACBrBoleto.Banco.BancoClass.MontarCampoNossoNumero(ACBrTitulo);

Atualiza que foi arrumado já, acabei de atualizar aqui.

CodOcorrencia := StrToIntDef(IfThen(copy(Linha,109,2) = '  ','00',copy(Linha,109,2)),0);
nessa posicao que pega a ocorrencia
e na 319 os motivos, em blocos de 2

o fi, ai no caso e o bancoob

qual banco ?

Voce nao colocou modalidade = 01
Confere se repassou esses dados tudo: Carteira: 1 e modalidade: 01
    Cedente.Modalidade := 1                   no titulo: ATituloNaLista.Carteira:= 01
Sugestão: https://acbr.sourceforge.io/ACBrMonitor/Particularidades.html
 

Acbr tem no projeto acesso e envio por api, o que você pode fazer, é pegar uma unit como base e desenvolver para essa carteira e anexar ao projeto, como ajuda.
Pasta: ACBr2wc\Fontes\ACBrBoleto\WS

Nick, vc tem que mexer nisso:
no titulo, na hora de gerar a remessa
    ATituloNaLista.DataBaixa       := AVencimento + AQryServico.FieldByName('REM_DIAS_BAIXAR_SER').AsInteger;
    ATituloNaLista.DataLimitePagto := AVencimento + AQryServico.FieldByName('REM_DIAS_BAIXAR_SER').AsInteger;
 

Isso não convém ao componente, mas ao banco que ele vai contratar. Eu mesmo, ja usei o banco itau para isso. Cabe a instituição liberar, e no componente, você apenas troca que é pj ou pf.

Nosso numero eu quase não tenho relevancia dele ... so no caso extremo, vc pode usar o campo livre, para pegar o seu identificador unico, pra baixar o titulo no retorno.
Porém, o campo se chama "SeuNumero", ao inves de nosso número. Ele, vc manda seu id da tabela receber, que ele volta intacto.
O banco do brasil, trabalha com convenios por tamanho, uma informação errada na ida, vem errado na volta.
tem banco, que o nosso numero vem diferente, precisa ficar cortanto.

Voce não pode alterar a unit para gerar o valor correto, vc precisa gravar ele certo, pois bancos não aceitam dados com mais de 4 decimais, no nosso país, são apenas 2 decimais, tanto, que ele vai na linha digitavel e no codigo de barras.
Penso que você precisa ajustar seu divisor de parcelas do sistema, para poder gravar isso certo, o componente é feito pra processar informações, não não pode corrigir, pois um local ou outro vai ocorrer esse problema.  @jdazevedo prefira trabalhar com valores no formato AsCurrency, e claro, acertar a quebra de caixa em alguma parcela, não deixando para o banco de dados resolver.
Como sugestão, eu lanço a quebra de caixa na 1a parcela, cabe do programador decidir. Ex: 100,00 de 3x, se deixar para o banco de dados, vai ficar 33,3333333333333...
 
Isso tem influencia no tipo de campo que você usa para armazenar valores, o decimal (15,2), era danado para acontecer isso, assim como aquele double precision. Eu particularmente, uso o numeric(18,2), fazendo o arredondamento dentro do programa.

Deve ser atribuido, isso dai ja foi discutido aqui: Tem que repassar pelo programador.
Tem agencia que pede, outras não.
Ex: 
    Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString;
Dá uma olhada: 
 
 
 
 
 

Esse numero que vc passou, e todo agencia, 7 não é DV. Na planilha parece ser a 3127-5 SIOOB CREDITAMA

vc tem que colocar carteira e variacao ou modalidade, no caso do bb, é modalidade um dos numeros. confere no manual, e no acbr vc atribui isso separado.

Sim.
Precisa só de dados da conta para o boleto ser feito.

vc vai precisar fazer isso manual, o componente lê apenas retorno, e a remessa os campos são tem a mesma posição.
Tarefa enjoada, não impossível.

vc que programa a data de protesto.
eu faço de acordo com a configuracao que o usuario tem na tela  da conta corrente.
  if AQryServico.FieldByName('REM_PROTESTAR_SER').AsInteger = 1 then /// vai protestar??? 1-sim
  begin
    ATituloNaLista.DataProtesto := AVencimento + AQryServico.FieldByName('REM_PROTESTAR_APOS_XDIAS_SER').AsInteger;
    ATituloNaLista.TipoDiasProtesto := diCorridos; // , diUteis
  end
  else
  begin
    ATituloNaLista.DataProtesto     := 0;
    ATituloNaLista.TipoDiasProtesto := diUteis;
  end;
 

por favor, fechem o topico, italo ja arrumou.
13/01/2020
-- pcnNFeW --
[*] Acrescentado a condição (OcorrenciasVICMSSubstituto > 0) para a geração das tags:
    vBCSTRET, pST, vICMSSubstituto e vICMSSTRET quando o CST for 60 e CSOSN for 500.
   Por: Italo Jurisato Junior

dá uma olhada: