Painel de líderes

Boa tarde Fernando, Porque não usar o ACBrNFe ? Ele tem tudo o que você precisa e esta funcionando 100%.

Para remover manualmente o ACBr do computador quando necessário sigam os procedimentos abaixo: 1) Apague todos os arquivos seguintes: ACBr*.bpl ACBr*.dcp ACBr*.dcu PCN*.bpl PCN*.dcp PCN*.dcu SYNA*.bpl SYNA*.dcp SYNA*.dcu Nota importante: Visto que o Delphi busca os arquivos para compilar em diretórios diferentes é necessário apagar os arquivos na pasta do ACBr, na pasta do seu aplicativo, nas pastas públicas ou de default do Delphi (Documentos públicos), nas pastas que estiverem no PATH do Windows, etc... Assim aconselhamos a apagar os arquivos mencionados logo do computador inteiro. 2) Remova as entradas antigas dos pacotes no registro do sistema. Seguindo um dos seguintes modos: 2.a - Removendo manualmente do registro do Windows que fica em uma destas chaves, dependendo da versão do Delphi: HKEY_CURRENT_USER\Software\Borland\<versao>\Known Packages HKEY_CURRENT_USER\Software\CodeGear\BDS\<versao>\Known Packages HKEY_CURRENT_USER\Software\Embarcadero\BDS\<versao>\Known Packages Lembrando que pode variar dependendo e versão, procure sempre por "Known Packages" que são os pacotes instalados no Delphi. 2.b - Ou pode-se abrir o Delphi e dizer não para os erros de pacote não encontrados, automaticamente o delphi não os carregará mais. Após isso, reinstale utilizando o ACBrInstall.

Bom dia. Antes de mais nada gostaria de dizer que já fiz uma pesquisa sobre assunto aqui no fórum e só estou criando um novo tópico pelo fato de não ter encontrado nada muito concreto que desvende claramente o processo de Contingência OFF LINE. Primeiro passo... Emitindo uma Danfe NFCe em Contingência OFF LIne (Sem conexão com Internet, por exemplo) ACBrNFe1.Configuracoes.Geral.FormaEmissao :=teOffLine ; Gera o xml com a tag Ide.tpEmis := teOffLine ; Não executa o método ACBrNFe1.Enviar Executa impressão da DANFE com ACBrNFe1.NotasFiscais.Imprimir ; Segundo Passo, enviar a NFCe emitida em contingência OFFLIne (qdo voltar a internet) ACBrNFe1.Configuracoes.Geral.FormaEmissao :=teNormal ; Gera o xml com a tag Ide.tpEmis := teNormal ; executa o método ACBrNFe1.Enviar(Nota,False,True) ; Seria isso ?? Não sei se é o correto, mas fazendo dessa forma, a Danfe imprimiu sem a chave de acesso e sem nenhuma mensagem que é em modo de contingência OFF Line . Isso está correto ?

Por favor atualize os fontes e verifique as modificações que acabo de enviar para essa Classe Note que você precisará usar a DLL Bemafi32, versão 7, que também subi para o SVN...

Obrigado pela contribuição... Notei algumas dificuldades para que os fontes possam fazer parte do Package do ACBrTCP - Os fontes não estão no formato de componente... (a implementação da comunicação é feita no Projeto) - Os fontes usam a Indy, e não a Synapse... (isso causaria uma dependência no ACBrTCP) Os fontes podem servir de estudo para o caso de alguém desejar criar um componente para essa finalidade... mas não podem ser incorporados ao Projeto ACBr no momento...

Entao, mas vc leu os posts anteriores? É exatamente assim q faço hj, mas o Italo aconselhou a fazer o contrario olha só:

A prefeitura de Contagem me deu um retorno. O problema está no ambiente de homologação.

Bom dia Pessoal. Segundo a Embarcadero o Delphi XE6 não é compatível com Windows XP. Porém encontrei uma solução no fórum da embarcadero que resolve o problema. http://qc.embarcadero.com/wc/qcmain.aspx?d=124627 No meu caso somente adicionei a pasta {Diretorio de Inspalação do Delphi XE6}/Source/Soap/ no meu LibraryPath editei o arquivo Soap.SoapHTTPTrans.pas substituindo o código: {$IFDEF UNICODE} HttpSendRequest(Request, nil, 0, DatStr.Bytes, DatStr.Size); {$ELSE} HttpSendRequest(Request, nil, 0, @DatStr.DataString[1], Length(DatStr.DataString)); {$ENDIF} RetVal := HandleWinInetError(GetLastError, Request, True); Por: {$IFDEF UNICODE} WinInetResult := HttpSendRequest(Request, nil, 0, DatStr.Bytes, DatStr.Size); {$ELSE} WinInetResult := HttpSendRequest(Request, nil, 0, @DatStr.DataString[1], Length(DatStr.DataString)); {$ENDIF} if not WinInetResult then RetVal := HandleWinInetError(GetLastError, Request, True); Lembrando de Criar a variável local WinInetResul : Boolean; Basta dar um Build e o executável volta a funcionar normalmente. Esta solução foi postada pra Windows 7 com instalação Original (I.E. 9) mas no meu caso (Windows XP com IE 8) o sistema funcionou normalmente. Se alguém quiser testar e compartilhar o resultado seria de grande ajuda. Att, Jonas

Boa tarde João ele pode só não estar implementado mas não especificamente por não estar no padrão Abrasf mas sim por ninguém ter necessitado! Comece pegando os manuais e schema , bem como endereços do provedor! veja se alguma unit de provedores seja compatível para utilizar e comece a implementação! após poste o código em anexo aqui no fórum que avaliamos e subimos!

Bom dia Celso, Verifiquei, no arquivo: 269948-sit-soap.xml note que a situação é 2, ou seja, o lote não foi processado ainda. Descobri que o componente ao extrair o xml de resposta do retorno, esta removendo também a TAG que fecha o grupo de resposta. Esse problema foi corrigido. Favor atualizar os fontes.

Se emitida em homologação o texto não sai automaticamente, para emissão em produção sim. Isso acontece porque na área onde ficaria a informação fiscal estará constando que foi emitida em homologação.

Veja, pelo codigo que você passou, você não chegou a gerar e assinar o XML, tentou enviar diretamente, para emissão off-line você deve gerar e assinar utilizando os métodos próprios, ai sim tudo será gerado corretamente, a diferença é não enviar, porque o envio será feito em outro momento. ACBrNFe.NotasFiscais.GerarNFe; <--- gera o xml corretamente ACBrNFe.NotasFiscais.Assinar; <-- assina utilizando o certificado ACBrNFe.NotasFiscais.Valida; <-- valida o xml perante os schemas

Na primeira parte você não envia, somente assina e imprime. Quando a internet voltar você carrega os xml e ai sim envia, sem altera nada neles, somente carregue o componente e chame o enviar.