tbalbinos

Olha aqui...

marciomoura aqui comigo deu certo, estou emitindo as nfse....

Olá MarcioMoura segue um arquivo compactar com a dll e a .TLB, primeiro você devera instalar a .TLB no seu delphi eu uso o 2010. Passo 1: Instalação no delphi 2010 1.1 - Import aType Library; clique em Next 1.2 - Add - Adicione a .tlb que mandei anexado; clique em Next 1.3 - Marque a Opção ( Generate componente Wrappers ); clique em Next 1.4 - Selecione a Opção ( Ceate unit ) ; clique em finish Pronto instalado a type Library 2) Altere o fonte do ACBr na Unit - ACBrNFSeUtil.pas ( ou se preferir substitua pelo unit que anexei ) 2.1 - Adicione na uses CAssinatura_TLB 2.2 - Na função AssinarMSXML linha 710 declare as variáveis abaixo na função. s : TStringList; cq2 : IAssinatura; xmlAbacoAssinado : String; e depois coloque este código para fazer a assinatura. if AProvedor = proAbaco then begin s := TStringList.Create; s.Text := AXML; xmlAbacoAssinado := ExtractFilePath(ParamStr(0)) + '-xxx3.xml'; s.SaveToFile(xmlAbacoAssinado); cq2 := CoClassAssinatura.Create(); XMLAssinado := cq2.AssinaRPSEnvio(xmlAbacoAssinado, Certificado.SerialNumber); FreeAndNil(s); Result := true; Exit; end; 3) Por fim e cloque a DLL no path da sua aplicação e faça o teste...aqui comigo deu certo, qualquer coisa se não der certo add no skype que acompanho com você. att ACBrNFSeUtil.pas CAssinatura.rar

Aqui no http://www.danfeonline.com.br/ o danfe já sai do jeito que o marcioaugustoprog postou lá em cima, só digitar uma chave de uma nfe e mandar gerar que vai sair... o Negocio é se vão implementar isso no ACBR e como vão fazer isso, ACHO que tem haver com a "Legislação sobre transparência nos impostos." vou tentar aqui ver se consigo algo se conseguir implementar no DANFE Eu posto aqui att

Para contornar o problema do erro na assinatura do XML para o ABACO contornei da seguinte forma, criei uma DLL em C#, que faz a assinatura de uma arquivo XML e retorna o Conteúdo em String assinado....Finalizei agora a integração da DLL com o Delphi agora vou testar no meu ACBR local, caso alguém se interesse dela GAMBIARRA se der certo é só se manifestar que eu posto aqui

Ítalo eu acho que já entendi, o Problema parece que quando executa a linha ( xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature[@' + Identificador + '=AssLote_' + URI + ']') não existe a tag ds:Signature na string que contem o valor do XML, dai xmldsig.signature fica = nill.. acho que é isso.

Italo, atualizei os fontes e olha o novo erro que aconteceu na linha ultima linha do trecho abaixo: if ALote then begin if (URI <> '') and (AProvedor <> proRecife) then xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature[@' + Identificador + '="AssLote_' + URI + '"]') else begin xmldsig.signature := xmldoc.selectSingleNode('.//ds1:' + EnviarLoteRps + '/ds:Signature'); end; end else xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); if (xmldsig.signature = nil) then raise Exception.Create('É preciso carregar o template antes de assinar.');

Bom dia Italo, o que eu anexei ai, foi só a adição da cidade no componente, mas não esta funcionando esta dando este erro ao assinar.

Segue Alterações para adição da Cidade de Cacheiro. ACBrProvedorAbaco.rar pnfsConversao.rar

Por favor adicionem cachoeiro...

Comigo esta dando o erro ao assinar na linha: signedKey := xmldsig.sign(dsigKey, $00000002); erro: " Erro não especificado."

Entendo Juliomar, porem acho que podiamos nesse caso para ser mais rapido fazer isso por Chat, e aqui postar a solução....isso é o que penso.. att

Pessoal me add no Skype estou fazendo uma NFSe para Abaco, também estava com o mesmo problema ao assinar, ja resolvi, agora estou em outro que sabe trocando ideias conseguimos corrigir e fazer funcionar. skype ==> tbalbinos ( Thiago Balbino )

Por favor adicionem a cidade: Cidade : Cachoeiro de Itapemirim/3201209/ES Provedor: Abaco

Onde você se cadastrou para receber este email Cássio Sena ?

Acho que seria interessante tentar emitir pelo emissor do governo em ambiente de testes e ver no que vai dar, caso dê certo é pegar o XML gerado pelo emissor e comparar pra ver.Agora infelizmente estou em viagem e não tenho como fazer isso, mas se quiserem emitir e postar aqui o xML eu posso ver se tem algo de diferente.

Estou com esse mesmo problema aqui em MG. "Rejeicao: IE do destinatario nao informada", pegando alguns xmls que já emiti de teste, está tudo igual, não mudou nada. Creio que seja problema no WS da SEFMG, direto dá problemas com MG é incrível.

Pessoal MG tem esse Delay mesmo tenho esse problema, você cancela a nota como evento mas ao consultar a CHAVE pelo ACBR não retorna os eventos, mais umas 2 horas depois passa a vir a consulta com eventos, lembrando que nesse período sempre consultando pelo site tem o evento de cancelamento. Espero ter ajudado.

Segue a unit com a alteração que fiz para analise. Unit1.pas Unit1.pas

Alguém já viu isso ?

Olá pessoal, identifiquei um erro no Demo do acbr, no botao da consulta das notas destinadas na hora de jogar as repostas para o Memo. segue a correção MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsNFeDest.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsNFeDest.RetornoWS);

Obrigado Peterson pela colaboração !

Entendi juaumkiko segue as alterações: ACBrNFeWebServices.pas -> function TNFeConsulta.Executar: Boolean; for j := 0 to NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Count-1 do begin if NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.tpEvento = teCancelamento then begin FretCancNFe.tpAmb := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.tpAmb; FretCancNFe.verAplic := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.verAplic; FretCancNFe.cStat := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.cStat; FretCancNFe.xMotivo := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.xMotivo; FretCancNFe.cUF := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.cOrgao; FretCancNFe.chNFE := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.chNFe; FretCancNFe.dhRecbto := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.dhRegEvento; FretCancNFe.nProt := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.nProt; end; FProtocolo := DFeUtil.SeSenao(DFeUtil.NaoEstaVazio( FretCancNFe.nProt ), FretCancNFe.nProt ,NFeRetorno.protNFe.nProt); FDhRecbto := DFeUtil.SeSenao(FretCancNFe.dhRecbto <> 0,FretCancNFe.dhRecbto,NFeRetorno.protNFe.dhRecbto); Acredito que nesse ultimo código, precise de if para cancelamento sem ser por evento, pegar o protocolo e o recibo do cancelamento sem evento.

rrodrigoffernandes eu mandei as alterações via skype para o peterson161, ele ficou de analisar e ver o que pode ser feito para mandar atualização para o SVN do acbr estou no aguardo, qualquer mais tarde eu posto aqui a minha solução para o problema. =)

Eu corrigi aqui e deu certo, me add no Skype que te passo o que fiz e você vê se esta de acordo. skype= tbalbinos nome -> Thiago Balbino