LuizFernando

Bom dia pessoal, O meu fonte modificado usando a carteira 'CSB' Cobranca Registrada está funcionando. Eles estão usando uma parte de prefixo que é fornecida ao cliente do banco. Estou corrigindo agora para usar a carteira CNR Segue fonte da modificação doCSB: function TACBrBancoHSBC.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String; var Parte1, Parte2, CodigoBarras :String; ACarteira, ANossoNumero, DigitoCodBarras: String; tx1, tx2, tx3, tx4, tx5, tx6:string; begin if (ACBrTitulo.Carteira = 'CSB') then ACarteira := '1' else if (ACBrTitulo.Carteira = 'CNR')then ACarteira := '2' else if (ACBrTitulo.Carteira <> '1') and (ACBrTitulo.Carteira <> '2') then raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "CSB", "CNR", "1" ou "2"') ) ; ANossoNumero := MontarCampoNossoNumero(ACBrTitulo); // precisa passar nosso numero + digito with ACBrTitulo do begin // Luiz Baião - 2013.10.22 Parte1 := IntToStr( ACBrBoleto.Banco.Numero ) + '9'; {'CSB' Cobranca Registrada} if aCarteira = '1' then begin tx1 := CalcularFatorVencimento(Vencimento); tx2 := IntToStrZero(Round(ValorDocumento * 100), 10); //tx3 := RightStr(padR(ANossoNumero, 13, '0'),11); //71870000035 Número original // tx3 := '5'+copy(ANossoNumero,1,4)+ // 57187 Prefixo tx3 := copy(ANossoNumero,1,5)+ // 57187 Prefixo copy(ANossoNumero,6,7); // 000035 NossoNúmero tx4 := padR(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0'); tx5 := padR(OnlyNumber( inttostr(strtoint(ACBrBoleto.Cedente.Conta))), 5, '0'); // tx6 := padR(ACBrBoleto.Cedente.ContaDigito,2,'0'); tx6 := padR(ACBrBoleto.Cedente.ContaDigito,2,'0')+'001'; Parte2 := tx1 + tx2 + tx3 + tx4 + tx5 + tx6; { // Original ACBR Parte2 := CalcularFatorVencimento(Vencimento) + IntToStrZero(Round(ValorDocumento * 100), 10) + RightStr(padR(ANossoNumero, 13, '0'),11) + // precisa passar nosso numero + digito padR(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') + padR(OnlyNumber(ACBrBoleto.Cedente.Conta), 7, '0')+ padR(ACBrBoleto.Cedente.ContaDigito,2,'0'); } end else begin {'CNR' Cobranca Nao Registrada} Parte2 := CalcularFatorVencimento(Vencimento) + IntToStrZero(Round(ValorDocumento * 100), 10) + // padR(trim(ACBrBoleto.Cedente.CodigoCedente), 7, '0') + padR(trim(ACBrBoleto.Cedente.CodigoCedente), 7, '0') + '0'+ padR(RightStr(NossoNumero, 13), 13, '0') + DataToJuliano(Vencimento); end; // Parte2 := Parte2 + ACarteira; CodigoBarras := Parte1 + Parte2; DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result := Parte1 + DigitoCodBarras + Parte2; end;

Já testei NFSE de Contagem - OK Belo Horizonte - OK* * Os processos de envio e de cancelamento estão demorando muito mais, comparativos foram realizados no intervalo de 10 minutos (tempo para criar cada nota em versões distintas do sistema. Na versão do sistema que usava a biblioteca fornecida a 30 dias demorou para enviar: 25s 34 ms para cancelar: 16s 38ms Na de hoje demorou: para enviar: 4m 32ms - 1 minuto para pedir a senha do token 3 minutos para enviar e obter o retorno, total de para cancelar: 4m 23ms Alguém identificou isto?

Pessoal também estou com o problema na indicado no _asseinfo no post #3 como vocês conseguiram resolver? Já atualizei os fontes, já reinstalei e já atualizei os schemas, mas sem sucesso. O que vocês fizeram para resolver o problema?

Bom dia pessoal, hoje reinstalei o ACBr mas o erro também está ocorrendo. Eu inclusive alterei o modo de cancelamento, mas o erro ocorre no momento que a NFSE/Cancelamento está ocorrendo. No meu caso ocorre no provedor ProvedorGovBR (Contagem). Alguma sugestão?

Fonte atualizado repassado para a publicação.

Fontes atualizados repassados hoje via e-mail para o Ítalo, obrigado a todos pelo apoio.

Desculpe.

Pessoal, estou finalizando... Já consigo transmitir e obter o retorno em pnfsConsSitLoteRpsResposta Só não encontrei ainda onde eu populo o componente com os dados da NFSE. Não gostaria se usar a leitura do XML, mas obter direto da memória. Alguma sugestão?

Bom dia Juliomar Marchetti, não compreendi o que quis dizer com a frase abaixo. "Viu postado em um local só o pessoal já vai achar, não precisa informar me todos que achar pelo caminho! Obrigado" Já estou enviando a "Chave de Acesso Web Service", agora só falta obter o retorno do processamento, para mim por enquanto está recebendo apenas o que está no wsdl.

EricMartins, não sei se você descobriu como informar o CNPJ e a senha. Então está ai embaixo, eu acabei de descobrir. if (Trim(qPesquisa.FieldByName('CHAVE_WEBSERVICE').asstring)) <> EmptyStr then begin NotasFiscais.Configuracoes.WebServices.SenhaWeb := (Trim(qPesquisa.FieldByName('CHAVE_WEBSERVICE').asstring)); NotasFiscais.Configuracoes.WebServices.UserWeb := SO_NRO(Trim(qPesquisa.FieldByName('CNPJ').asstring)); end;

Bom dia EricMartins, também estou batendo cabeça aqui.. Obs.: Coloquei o nome do provedor como NFSBrasil tendo como referência os sites: http://nfsebrasil.net.br/nfse/index.php?cl=3171204 Vespasiano http://www. nfsebrasil.net.br/nfse/index.php?cl=3118304 Conselheiro Lafaiete http://nfsebrasil.net.br/nfse/index.php?cl=3120904 Curvelo Vou implementar a sua dica. Eu já estou validando o XML pelo XSD, e repassei os fontes para o Italo, mas a parte de transmissão ainda não consegui. na parte que está logo abaixo você está colocando qual endereço? ConfigURL.HomNomeCidade := ''; ConfigURL.HomRecepcaoLoteRPS := 'http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php'; ConfigURL.HomConsultaLoteRPS := 'http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php'; ConfigURL.HomConsultaNFSeRPS := 'http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php'; ConfigURL.HomConsultaSitLoteRPS := 'http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php'; ConfigURL.HomConsultaNFSe := 'http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php'; ConfigURL.HomCancelaNFSe := 'http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php'; Já testei: http://web1.memory.com.br/nfse/ws/lote_rps_service.php?wsdl http://web1.memory.com.br:81/nfse/rps/xsd/rps.xsd http://web1.memory.com.br:81 http://web1.memory.com.br:81/nfse/ws/tm_lote_rps_service.php Sem sucesso, qual você está usando?

Gerei os fontes e repassei para o Italo para ser adicionado a biblioteca do AcBr. Estou finalizando a parte que envia um código do cliente fora da NFSE, diretamente no SOAP que eles chamam de "Chave de Acesso Web Service".

Gerei os fontes e repassei para o Italo para ser adicionado a biblioteca do AcBr. Estou finalizando a parte que envia um código do cliente fora da NFSE, diretamente no SOAP que eles chamam de "Chave de Acesso Web Service".

.

Boa tarde EricMartins, estou passado pelo mesmo processo, Vespasiano 3171204 também utiliza este mesmo provedor. Como está o seu processo? No meu está ocorrendo a mensagem: "Erro de autenticação". Em contato com o suporte me falaram que tem a ver com a tag hashValidador, você já passou deste ponto? Abri até uma postagem sobre este provedor: Poderia repassar os fontes para trabalharmos no mesmo projeto?