Antonio Gomes

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;

Pois é, eu pensei nisso também, pensei alem ainda, o cara ser emissor de certificado, na hora ali, que chega a chave ele gerar um certificado temporário para fazer a consulta, pois ele tem o principal na chave, o cnpj. Mas como diz um amigo meu, mas aí é teoria da conspiração demais.

Muito se fala em salvar o xml 5 anos.. Cliente sem saber de uma nota antiga, fora do prazo do webservice de distribuição. Não aparece mais. Porém, de posse da chave, se jogar em sites na internet que propõem fazer isso, eles tem acesso a nota, ao xml, e ainda me da o pdf gerado pelo xml. Será que existe a regra de um webservice oculto, que apenas um semi Deus tem acesso para essa consulta? Não é assunto do ACBr, mas queria trocar umas ideias de como isso é possível.

Engraçado, duas estatais, leiautes de webservices totalmente distintos. já podemos criar algum banco e mandar para vcs ?

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

Idade! Como ela é maldosa com a gente que trabalha com programação.. Não posso falar muito, os olhos já reclamam.Grato! Atualizarei.

ara pois... está em roxo ali, destacado.bota o "cao" no homologacao hoje está homologauba.versatecnologia.com.br mas o certo é: homologacaouba.versatecnologia.com.br Lembra de apertar CTRL + F e pesquisar a cidade 3169901....Grato.

@Italo Jurisato Junior Poderia corrigir no codigo fonte do NFS-e, o endereco correto da cidade 3169901 no arquivo cidades.ini ? Trocar de NomeURL_H=homologauba.versatecnologia.com.br Mudar para: (somente a url homologação) [3169901] Nome=Uba UF=MG Provedor=VersaTecnologia NomeURL_H=homologacaouba.versatecnologia.com.br NomeURL_P=nfe.uba.mg.gov.br Grato!

ACBR não vai atender ao que o manual pede, veja os seguimentos que pede no manual, difere dos seguimentos de cobrança.

Geralmente os erros ocorrem, no gerar esse número, quando voce fala que o sicred gera diferente, está simulando 2a via? ou está com opção de banco emite?

o if sim, linha 1848 desnecessário mesmo... pois o x vai receber novamente valor na linha 1853... mas ok... não entendi. fecha o topico.

tem uma coisa ainda nessa unit "synautil": que dá um hint: não sei se é descuido de quem fez, ou a primeira atribuição estava ali antes para algo e não mais precisa. O primeiro x é inutil. No build all que detecta esse hint... veja a imagem:

Com a sua correção passou vir as notas. Isso vai para o repositório quando eu atualizar? lá no svn

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

Errata! ambos dá o erro, producao ou homologação.

Crendeuspai.. não tem alternativa... bora lá..

Rejeicao: Nao informada vBCSTRet, pST, vICMSSubstituto e vICMSSTRet Cliente é revenda, não veio ST na nota de compra, pois já veio como 060. Antigamente aceitava enviar tudo zerado, agora na versão mais atualizada não se aplica. pensei colocar o percentual 18 fixo em pST, para resolver, estamos colocando 1 centavo na venda. Empresa emissora: Simples nacional: Venda interna, MG -> MG, item comprado em compra MG. Estou pensando, se for comprado de um distribuidor, se vai ter ST igual a primeira compra da industria, penso que não... ST morre no primeiro.

Lucas, ainda hoje em 2020 deparei com esse erro, isso porque quis enfeitar pavão e carregar xml de nf de compra do cliente... O que vc fez para resolver? Detalhe: Tem retorno da chamada do webservice.

Property LayoutVersaoArquivo : Integer read fpLayoutVersaoArquivo; Property LayoutVersaoLote : Integer read fpLayoutVersaoLote; vc muda no acbrboleto... Posta aqui o manual com essa versao 87? Tenho aqui que até a 81.. muito estranho esse erro.