Rafael Müler

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

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

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!');

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

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

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.

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.

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

Acabei passando por esse mesmo problema com o provedor ISSNet, e mesmo tentando falar para eles que retornava um valor incorreto no xml (&lt;br&gt;) 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

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.

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

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

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

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.

Í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

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

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

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?

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.

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

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

Í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

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

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

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