[Porque você acha que a NFe 3.10 deve continuar em atividade ?]

o que a versão 3.1 não vai mais funcionar? 

[OPERACAO DE TROCA na NFCE]

Bom dia,

 

acredito que não vá conseguir, visto que no manual constam apenas:

 

01=Dinheiro

02=Cheque

03=Cartão de Crédito

04=Cartão de Débito

05=Crédito Loja

10=Vale Alimentação

11=Vale Refeição

12=Vale Presente

13=Vale Combustível

99=Outros

Terá que optar por um destes apenas

[NFe Atualizar XML]

bom dia,

 

Já tive o mesmo problema de uma nf-e enviada não ter os recibos e protocolos, então acabamos aqui na empresa criando uma rotina para consultar a nota novamente.

 

Carrega_NFE; // Aqui faço o mesmo código de alimentação do componente que o de envio para a nota  

ACBrNFe1.NotasFiscais.GerarNFe;

  ACBrNFe1.NotasFiscais.Assinar;
  ACBrNFe1.NotasFiscais.Validar;
  ACBrNFe1.Consultar;
  if ACBrNFe1.WebServices.Consulta.cStat = 100 then
    begin
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.tpAmb    := ACBrNFe1.WebServices.Consulta.TpAmb; // cdsNFe.FieldByName('AMBIENTE').AsString;
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe    :=  ACBrNFe1.WebServices.Consulta.NFeChave;//A chave de acesso que já foi enviada
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto :=  ACBrNFe1.WebServices.Consulta.DhRecbto;
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt    :=  ACBrNFe1.WebServices.Consulta.Protocolo;
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal   := ''; //ACBrNFe1.WebServices.Consulta.TpAmb;
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat    :=  ACBrNFe1.WebServices.Consulta.cStat;
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo  :=  ACBrNFe1.WebServices.Consulta.XMotivo;
      ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.verAplic :=  ACBrNFe1.WebServices.Consulta.verAplic;
     

     // Aqui caso não tenha recebido os protocolos, tu podes colocar o codigo para salvar na base de dados os recibos e protocolos
      ACBrNFe1.NotasFiscais.ImprimirPDF;
    end
  else
    ShowMessage('Nota Fiscal não enviada para o SEFAZ!');

 

 

[NFSe trunk2 thema.ini]

Aos amigos que tem NF-e e NFS-e no mesmo executável, o problema pode ser solucionado instalando o trunk2 normalmente, e após isso utilizar os fontes e pacotes da NFS-e do trunk, com pequenas mudanças em funções que mudam de nome e um pouco de paciência é possível utilizar ambas, NF-e e NFS-e, e em paralelo ir testando a NFS-e no trunk2. Pelo menos foi isso que fiz, e os provedores que utilizo, estou tentando fazer os ajustes nos arquivos .ini para ajudar no desenvolvimento do componente

[Erro ao suporte a canais seguros]

Bom dia, já experimentou remover os *** da descrição do produto item 1 para testar?

 

Geralmente o erro de suporte a canais seguros é na instalação do certificado, configuração do IE, ou cadeia de certificados não instalada, mas se é só em uma NF-e, então com certeza é alguma informação nela

[Rejeição: IE do destinatário inválida - Erro 210]

Felipe,

 

Passei pelo mesmo problema, um cliente aqui do rio grande do sul tentava emitir uma nota para o distrito federal, para um cliente que eles tinham cadastrado como Não contribuinte, retornava erro na IE, mesmo no cadastro do sintegra informando IE como não contribuinte. O cliente conseguiu até um xml de terceiro onde constava a nota aceita com a IE não contribuinte. Ai eu consultei no SEFAZ-RS e lá constava uma IE, informamos e passou. Posso estar falando besteira, mas talvez tu tenhas que consultar no SEFAZ do teu estado, para ver se não existe uma IE vinculada. 

[Indisponibilidade Acesso Sat-Sefaz Sp]

Aos amigos programadores que estão com o problema de comunicação com o SEFAZ, nos testes do SAT. Fiquei alguns dias parado, pelo mesmo problema. O Aparelho utilizado é da ELGIN. Liguei para o fornecedor e o mesmo informou que é comum ficar sem comunicação, que eles acabam levando a culpa mas o SEFAZ que vive fora do ar. Ele me aconselhou a "errar" 4 vezes a senha de ativação, e aguardar uns 20 minutos, e fazendo isso a luz vermelha do bloqueio autônomo sumiu. Então agora, quando fico sem comunicação também tento fazer isso, resolveu para mim.

[Novos Fontes do ACBrNFSe]

Fiz uma nota para o provedor ISSNet para um cliente do exterior, e para isso tive que fazer algumas mudanças na unit pnfsNFSeW, em anexo a mesma.

pnfsNFSeW.pas

[Erro Xml Tag Outrasinformacoes Nfse]

Acabei passando por esse mesmo problema com o provedor ISSNet, e mesmo tentando falar para eles que retornava um valor incorreto no xml (<br>) não alteraram nada, e meus clientes começaram a me pressionar para resolver, pois quem recebia o xml não conseguia abrir ele pela má formatação. Então fiz uma alteração na Unit ACBRNFSeWebService para tratar isso e limpar antes de salvar o xml:

if FProvedor = proISSNet then
  FRetNfse := AnsiString(StringReplace(String(NFSeRetorno.ListaNfse.CompNfse.Items[iNFRetorno].Nfse.XML), '<br>', '', [rfReplaceAll]))
else
  FRetNfse := ParseText(NFSeRetorno.ListaNfse.CompNfse.Items[iNFRetorno].Nfse.XML);

Acredito que isso resolveria esse problema. Em anexo a unit alterada

ACBrNFSeWebServices.pas

[Sempre Que Eu Fecho O Delphi Tenho Que Reinstalar O Acbr]

Já tentaste fazer toda instalação manual sem usar o ACBRInstall ? existe um arquivo texto com o passo a passo. Uma dúvida que pode parecer meio boba, talvez tu tenha instalado como administrador o ACBR  e esteja abrindo o delphi sem usar a opção Executar como administrador.

[Sempre Que Eu Fecho O Delphi Tenho Que Reinstalar O Acbr]

Nada ainda... 

Já desinstalei todos os programas e componentes do Delphi, removi a pasta Embarcadeiro após a desinsitalação do Delphi, removi tudo sobre Acbr, passei um cCleaner pra limpar registros quebrados ou relacionados ao Acbr, fiz limpeza de disco através do cCleaner também.

 

Instalai o Delphi novamente, criei a pasta ACBR dentro da minha partição D:\, fiz um Checkout na pasta através do SVN, verifiquei se os componentes QuickReport, FortesReport, RaveReports e FastReports estavão funcionando certinho no delphi, instalei o Acbr através do instalador AcbrInstall, reiniciei o computador e iniciei o Delphi.

 

Antes mesmo do Delphi carregar já surge a mensagem:

Can't load package D:\Delphi\Acbr\Lib\LibD14\AcbrOpenSSL.bpl. Access violation at address 0C49B10B. Read of address 0000000. Do you want to attept to load this package the next time a project is loaded?

 

Clico em YES para continuar tentando carregar essa lib. Em seguida o Delphi tentar abrir e surge mais uma mensagem de erro, desta vez relacionado ao FortesReports: O programa não pode ser iniciado por que está faltando RLibWinD2010.bpl no seu computador. Tente reinstalá-lo para resolver esse problema.

 

Para este erro eu copio essa bpl para dentro da pasta RAD Studio que fica nos Meus Documentos. Logo essa mensagem de erro desaparece.

 

Após essa chatisse toda também aparece um erro dizendo: Cant't load package D:\Delphi\Acbr\Lib\Del...\Acbr_Extrato_Fortes.bpl. Não foi possível encontrar o módulo especificado. Fico me perguntando por que raios essa mensagem veio agora também. Será que estou instalando o Acbr no local errado? Mas não aparece mensagem de erro nenhum no instalador do Acbr, diz que os pacotes foram compilados e instalados. Mas o delphi não reconhece nada e aparece esse monte de erros.

 

Sinceramente já não sei o que fazer, estou tentando de toda forma não precisar formatar esse PC. Já busquei no google alguma solução mas não encontrei, a nao ser que eu esteja procurando errado. O mais triste disso é que até ontem essa naba toda estava funcionando corretamente.

 

Acredito ser alguma coisa besta mas que não está ao meu olho.

Agradeço se alguém puder se importar com esse problema.

 

Richard

multirac,

 

Aconteceu algo parecido comigo, fiz os seguintes passos:

 

Eliminei todos os arquivos *.dcu, *.bpl, *.dcp relacionados ao acbr que ficavam no computador.

Criei uma nova pasta para o ACBR para receber a atualização dos fontes, para me certificar que nenhum arquivo teria problemas de conflito

Utilizei o ACBRInstall e ocorreu um erro semelhante da falta do arquivo ACBRDiversos.bpl , então compilei ele manualmente.

 

Talvez se fizer os passos que eu fiz resolva teu problema, e ao aparecer algum erro de falta de bpl, tente compilar o package que aparecer no erro manualmente

[Formas De Pagamento/troco Na Nfc-E]

Italo,

 

Tenho o seguinte problema. Vi que para o troco sair impresso na Danfe da NFC-e é feito um somatório dos valores informados nos pagamentos, e se esse valor for superior o troco é impresso. Porém ao informar um valor diferente do total da NF é retornado o erro "Total do produto difere do somatório do total de pagamentos para NFC-e".

 

Anexei o xml para análise. Sabe me dizer se estou informando incorretamente?

43140793635175000156650010000000249000000249-nfe.xml

[Ainda Erro Na Nota De Estancia Velha (Provedor Tecnos)]

Bom dia Daniel,

 

Estou fazendo alguns testes no mesmo provedor, e no início me retornava o erro exatamente como o seu. Então li o tópico e segui o conselho do Ítalo e usei o teste que consta nos exemplos do ACBRNFSE, e lá esse erro não acontece, passou e agora estou resolvendo outros ajustes.

 

Então sugiro que use realmente o teste como está lá, pois é algum campo do teu xml faltando provavelmente

 

exemplo: pra mim faltava informar      

 

Servico.CodigoPais := 1058; // Brasil

Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0);

 

fui comparando o xml que era gerado por mim e o que o exemplo gerava, até o erro sumir

[Erro No Xml Retornado Pelo Issnet - Nota Control]

Acabei passando pelo mesmo problema só agora, o problema é na função que recoloca o prefixo4 no xml, na unit ACBRNFSEWebServices ele deixa o xml mal formatado, e o acbr não reconhece posteriormente para impressão

 

          // Recoloca o prefixo4 quando o provedor for ISSNet

          if FProvedor = proISSNet

           then begin

            m := length(FRetNFSe);

            FRetNfse2 := '';

            l := 1;

            while l <= m do

             begin

              if FRetNFSe[l] = '<'

               then begin

                if FRetNFSe[l+1] = '?'

                 then FRetNfse2 := FRetNfse2 + FRetNFSe[l]

                 else begin

                  if FRetNFSe[l+1] = '/'

                   then begin

                    FRetNfse2 := FRetNfse2 + '</' + Prefixo4;

                    inc(l);

                   end

                   else FRetNfse2 := FRetNfse2 + '<' + Prefixo4;

                 end;

               end

               else FRetNfse2 := FRetNfse2 + FRetNFSe[l];

              inc(l);

             end;

            FRetNFSe := FRetNfse2;

           end;

 

 

nessa parte do código acrescentei o '<' antes do prefixo4  e passou a funcionar. Talvez acrescentando na unit do provedor issnet funcionaria, mas como estava com uma certa urgência nisso, quando funcionou parei de testar.

[Telefone Do Prestador Nfs-E]

Ítalo, 

 

Fui atrás da informação, e realmente no cadastro da Prefeitura não está o telefone, então solicitei para que adicionem

 

muito obrigado pela atenção novamente

[Telefone Do Prestador Nfs-E]

Bom dia Italo, 

 

sim entendi, o que tentei explicar é que informando o campo PrestadorServico.Contato.Telefone := '5130385877' o telefone não aparece na Danfse.

[Telefone Do Prestador Nfs-E]

ok,

 

porém mesmo informando no grupo PrestadorServico o telefone não aparece no xml de retorno ou danfse, alguma dica?

[Telefone Do Prestador Nfs-E]

Boa Tarde,

 

Estou informando o campo:

 

     PrestadorServico.Contato.Telefone := '5130385877';

 

 

e o valor não sai na Danfse, ou não apareçe nada ou apareçe (00)0000-00000, alguém já passou por isso?

 

debugando cheguei na na construção do xml, que diz:

 

 

 Gerador.wGrupoNFSe('Prestador');

 

 if VersaoXML='1'

  then begin

   Gerador.wGrupoNFSe('CpfCnpj');

 

   if length(SomenteNumeros(NFSe.Prestador.Cnpj))<=11

    then Gerador.wCampoNFSe(tcStr, '#34', 'Cpf ', 11, 11, 1, SomenteNumeros(NFSe.Prestador.Cnpj), '')

    else Gerador.wCampoNFSe(tcStr, '#34', 'Cnpj', 14, 14, 1, SomenteNumeros(NFSe.Prestador.Cnpj), '');

 

   Gerador.wGrupoNFSe('/CpfCnpj');

  end

  else Gerador.wCampoNFSe(tcStr, '#34', 'Cnpj', 14, 14, 1, SomenteNumeros(NFSe.Prestador.Cnpj), '');

 

 Gerador.wCampoNFSe(tcStr, '#35', 'InscricaoMunicipal', 01, 15, 0, NFSe.Prestador.InscricaoMunicipal, '');

 Gerador.wGrupoNFSe('/Prestador');

 

notei que não é criada a tag PrestadorServiço onde é informado o telefone, alguém já passou por isso? alguém consegue imprimir o telefone do prestador corretamente?

 

 

[Método recepcionarLoteRpsLimitado na NFSe de São Leopoldo]

Marcio,

Desenvolvi a Nfs-e para são leopoldo, e ajudei a adaptar a unit do provedor thema, diversos clientes que emitem a nota direto no site tem reclamado do tempo de processamendo, mesmo que vá enviar nota a nota, o tempo de esperar pelo processamento do lote é no minimo 3 minutos e chega a demorar até 10 as vezes, saiu até uma matéria no jornal sobre os clientes insatisfeitos pela demora.

[NFSeDanfe para Fortes Report]

Danilo,

Tive que fazer o mesmo que você, pois não tinha o QuickReport Professional, o meu é bem antigo na verdade, e precisava da função salvar em pdf, utilizei os fontes que você postou aqui, e gostaria de contribuir com o pacote de instalação, não achei no teu anexo, então criei um e estou anexando aqui para análise do moderador, e também para quem necessitar

DANFSERL.rar

[Cancelamento NFSe]

Rodrigo,

Sim acredito que atendam outros municípios também, porém a corda tá no pescoço pra são leopoldo, sabe como é cliente, avisando tudo em cima da hora, assim que finalizar o projeto pro cliente começar a emitir a NFS-e vou pesquisar o resto , por enquanto é só pra são leopoldo, mas acredito que pelo padrão abrasf a alteração que fiz na assinatura abrange todo mundo.

Abraço

[Cancelamento NFSe]

Ítalo,

Esquece o erro que relatei antes, em anexo estão as duas units que alterei, a do provedor thema fiz mais algumas mudanças, todas as rotinas estão funcionando agora, o cancelamento realmente exige assinatura, alterei tambem a unit ACBRNFSEUtil , modifiquei a rotina de assinatura pois antes acontecia o erro que comentei antes, agora tá 100 % nos testes que fiz.

Novamente agradeço a todos do projeto, realmente salvou minha vida

Units.rar

[Cancelamento NFSe]

Bom dia,

Estou fazer algumas alterações, quase todas as rotinas do provedor thema estão funcionando, só falta o cancelamento.

o provedor thema exgige que o xml seja assinado antes de enviado para o web service, existe uma propriedade na função GetAssinarXML onde informe se quero assinar ou não o xml de cancelamento certo? porém ao marcar como true, na hora de assinar :

na unit ACBRNFSEUtil na função AssinarXML dá o erro:

if (not xmldoc.loadXML(AXML) )

then raise Exception.Create('Não foi possível carregar o arquivo: '+AXML);

Em anexo estão os arquivos que estão sendo gerados e os que estão retornando.

Alguem Consegue me dar um help? falta só essa rotina para finalizar, agradeço pela atenção

201241-can.xml

201241-can-c.xml

201241-ped-can.xml

201241-ped-can-c.xml

[Novos Fontes do ACBrNFSe]

Em anexo as units que mexi, comentei com o meu nome tentando explicar o porque.

na impressão da danfe e na unit de conversão tive que mudar, pois pra minha sorte o provedor do meu cliente adotou um método de validação próprio, parecido com o abrasf mas diferente no quesito da natureza de operação, então como não manjo tanto assim do componente copiei as units para o meu projeto e alterei elas com o que precisava, está funcionando, geração e envio de lote, consulta de situação de lote.

não esta funcionando a consulta de lote, e a consulta de RPS, porém entrei em contato com a prefeitura, e falaram que consultando a situação do lote, e obtendo exito o processo está concluído, isso o sistema está fazendo, então quem sou eu pra falar o contrário hehehe

estou passando pra minha aplicação, pois o cliente tem pressa em emitir a NFS-e

se mais alguém estiver desenvolvendo para o provedor Thema, gostaria de trocar experiências, pois foi bem complicado até sair do chão, acredito que posso tanto ajudar alguém como ser ajudado.

Desde já, agradeço a todos, sem a ajuda de vocês não seria possível nada disso.

ACBRProvedorThema.rar

nfse.rar

[Novos Fontes do ACBrNFSe]

Fiz algumas mudanças na unit do provedor Thema, como faço pra mandar minha alteração para o projeto?

havia algumas informações faltando e fiz umas correções