Antonio Gomes

ACBrNFSeDANFSeFR.zip

@Italo Giurizzato Junior Segue fonte do provedor Adm anexo nao esta indo, 319 kb aff

aqui em mg, uba: caixa, intojo sicoob, menos chato bb: intojo ate santander deu pitaco uma vez. mas se passou ai no crivo deles, certamente o resto passa.

Ficou legal a impressão, os banco chatos aprovaram ? pq tentei uma vez com logo da empresa, pediram pra remover. o rotulo do cnpj do pagador ficou errado, está como cpf.

voce não vai ter essa informação, a menos que pegue todos os manuais e catalogue: Ex da caixa: Modalidade da Carteira: SINCO, SIGCB Sicoob: 1/01-Simples Com Registro onde: 1=modalidade e 01=carteira Dica, rastreie todos as units que usa o campo modalidade, pois vc olha no manual do banco qual valor ele pede. varia;

Opa: Essa informação, você precisa pegar no banco, pois você precisa colocar o que o cliente contratou, um banco chato nesse negócio de modalidade, é o banco do brasil, sicoob sei que tem também, mas vai valor 1, se não me engano. Tem banco, que apenas a carteira já basta. Mas tem uma tabela com os campos que precisa colocar de acordo com a câmara de compensação. https://acbr.sourceforge.io/ACBrLib/ConfiguracoesdaBiblioteca18.html https://acbr.sourceforge.io/ACBrLib/Particularidades.html

vc renomeia o arquivo no final da geracao.

vc setou o codigo do banco?

Ficou muito bom, tentei inclusive mudar minha conta MEI para PJ, pediram 12 paginas de um pdf preenchido a mão, desisti. Mas o que fez ficou legal.

faltou url. a api deles é presa por senha... so quem tem conta PJ acessa, se puder passar a Url de acionamento.

opa, tem como vc gerar um pdf ou copiar a api ? Fiz pedido da conta PJ, mas ainda não fui atendido para acessar essa api, e na conta MEI nao tem isso (porre viu).

é, se vc analisar, o campo nosso numero é carregado bem abaixo no codigo fonte : NossoNumero := Copy(Linha,63,11);

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:

Então dante.. vc pode criar um servidor restdataware, colocar o acbr boleto la, e enviar para ele os dados para gerar o boleto. Não sei se é tipo essa sua intenção, mas já ajuda.

https://www2.sicoob.com.br/pesquisa-cooperativa?p_auth=L1hLD3Bb&p_p_id=pesquisacooperativa_WAR_portalsicoobinternetsb&p_p_lifecycle=1&p_p_state=normal&p_p_mode=view&p_p_col_id=column-1&p_p_col_count=2&_pesquisacooperativa_WAR_portalsicoobinternetsb_javax.portlet.action=pesquisar

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

na planilha as agencias começam do 1001, de onde é essa agencia 312 ?

Que campo é esse dessa posicao? Dê mais detalhes..

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.

Entendi seu caso, para resolver isso, vc tem que pegar a parte que corresponde ao nosso numero na fração antes de ser formatado. Geralmente a parte final, sem o DV.

Voce precisa salvar no seu banco de dados o nosso numero sem formatar, o do acbr, é formatado, e como falaram ali para cima, ele sempre formata novamente. Logo, os dados que precisam entrar no acbrboleto, tem que ser como se estivesse fazendo a 1a impressão. Não sei vai ajudar, mas eu resolvi esse problema criando os campos tudo separado. Figura:

não tive problemas, enviei poucos dias para o sicoob, dica, valida no site deles. a sua remessa.

essa daqui ainda acusa 2 retorno e um inutil: Delphi .rio function TACBrWinINetReqResp.InternalOpenRequest: Boolean; var RequestFlags: DWORD; begin Result := inherited InternalOpenRequest; if (UseSSL) then begin RequestFlags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE; RequestFlags := RequestFlags or INTERNET_FLAG_SECURE; if (UseCertificate) then RequestFlags := RequestFlags or ( INTERNET_FLAG_IGNORE_CERT_CN_INVALID or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID ); end else RequestFlags := INTERNET_SERVICE_HTTP; FpRequest := HttpOpenRequest( FpConnection, PChar(Method), PChar(URI), nil, nil, nil, RequestFlags, 0); Result:= Assigned(FpRequest); end;

deixa eu dar um clear up entao.

Unit ACBrBase function THttpHeader.AddHeader(const AHeader, AValue: string): Integer; var I: Integer; LinhaHeader: String; begin LinhaHeader := AHeader + ': ' + AValue; I := GetHeaderIndex(AHeader); if I < 0 then Add(LinhaHeader) else Strings := LinhaHeader; end; E em unit ACBrWinINetReqResp está acusando result nao usado, realmente, alguem deixou-a com 2 possiveis retornos. function TACBrWinINetReqResp.InternalOpenRequest: Boolean; var RequestFlags: DWORD; begin Result := inherited InternalOpenRequest; if (UseSSL) then begin RequestFlags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE; RequestFlags := RequestFlags or INTERNET_FLAG_SECURE; if (UseCertificate) then RequestFlags := RequestFlags or ( INTERNET_FLAG_IGNORE_CERT_CN_INVALID or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID ); end else RequestFlags := INTERNET_SERVICE_HTTP; FpRequest := HttpOpenRequest( FpConnection, PChar(Method), PChar(URI), nil, nil, nil, RequestFlags, 0); Result:= Assigned(FpRequest); end;