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?

Boa tarde Italo, na verdade o ProvedorNFSeBrasil não existia eu o criei baseando na sugestão do Juliomar. Achei o problema. No arquivo ACBrNFSeConfiguracoes estava escrito errado o nome da classe, corrigida é na verdade ACBrProvedorNFSEBrasil Vou começar a realizar os testes nas próximas semanas, devo fechar o tópico ou deixar em aberto? Assim que estiver funcionando lhes envio o fonte para que possa realizar a inclusão. Foi necessário executar alteração nos arquivos de configuração para que a o provedor possa ser utilizado juntamente com os demais. Devo enviá-los também?

Boa tarde pessoal, creio que esteja chegando ao fim desta jornada. O único erro que está ocorrendo agora é: [Fatal Error] ACBrNFSeConfiguracoes.pas(373): File not found: 'ProvedorNFSEBrasil.dcu' Alguém tem alguma sugestão? Assim começarei as etapas de teste....

Obrigado pelo retorno Juliomar, estou fazendo isto...

Bom dia pessoal, Temos um novo cliente na cidade de Vespasiano,MG e pelo que verifiquei o ACBR não está implementado o modelo NFSEBRASIL. Estou correto? (Sinceramente espero que não) Alguns links de referência. http://www.vespasiano.mg.gov.br/ http://nfsebrasil.net.br/nfse/index.php?cl=3171204

Pessoal, acabei de receber a documentação atualizada do HSBC que creio que possar ser muito útil. Segue também a o fonte com as alterações no campo digitável conforme a documentação para ser atualizado no Tortoise. Acabei de enviar os boletos para o HSBC, creio que até 15/10/2013 obtenha a aprovação. Segue anexos. Codigo Barras COB.pdf ACBrBancoHSBC.pas

Boa tarde a todos, Também estava com o problema de enviar o RPS para a prefeitura, mas em alguns casos não obtinha o nº de protocolo. criei a rotina abaixo para resolver o problema. try ACBrNFSe1.Enviar(nroRPS, False) // False para não imprimir a NF, tenho um botão específico para isto except on E: Exception do begin // O ACBR (webservice) lança uma exceção informando que o RPS já foi informado // Caso este seja o caso, executa a rotina ConsultarNFSeporRps passando os parâmetros que já estavam carregados quandopedi para enviar o RPS if (E.Message = 'RPS ja informado.') then begin try ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); if ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero <> '' then begin // Campos com retorno útil para realizar o update no Banco de Dados ACBrNFSe1.NotasFiscais.Items[0].XML_NFSe; ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; ACBrNFSe1.NotasFiscais.Items[0].NFSe.DataEmissao; end;

Bom dia pessoal, Gostaria de saber se é possível gerar novamente o XML de uma NFSE que foi enviada para a prefeitura. Qual a variável do processo de nota fiscal que retorna o XML da NFSE pois os que tenho visto retornam a NFSE mas sem a parte de assinatura e gostaria de salvar no BD assim poderia gerar o arquivo novamente caso seja necessário.

Sim, Agora estou conseguindo enviar para a base de homologação de Contagem. A base de produção vou realizar novos testes. Em Contagem - Produção continuo aguardando o cliente. Em BH já está funcionando. Muito obrigado.

Italo, bom dia. Estou entrando em contato com a prefeitura de Contagem. você tem algum relato de estar funcionando para esta prefeitura?

Sim, atualizei hoje após verificar o erro. Se desejar posso enviar o meu fonte para analisar. Mas como no exemplo também ocorre o erro... Tem alguma forma de ajudar a localizar o erro? Estou usando o certificado de Token. Product name: eToken PRO 32K 4.2B Model: Token 4.28.1.0 2.7.195 O curioso é que a NFSe é assinada e ocorre o problema quando envia para a prefeitura. Segue anexo os arquivos que são gerados. LOG_0000000139.rar