BigWings

Para um RPS apenas você pode usar a função [Gerar e enviar um RPS] do demo. Veja o código: if not(InputQuery('Gerar e Enviar NFSe', 'Numero do RPS', vNumRPS)) then exit; ACBrNFSe1.NotasFiscais.Clear; AlimentaComponente(vNumRPS); ACBrNFSe1.Gerar(StrToInt(vNumRPS));

Nas configurações: ACBrNFSe1.Configuracoes.Geral.CNPJPrefeitura := <cnpj>; ACBrNFSe1.Configuracoes.Geral.Emitente.WebChaveAcesso := <chave digital>; Ao gerar a nota: with ACBrNFSe1 do begin NotasFiscais.NumeroLote:='1'; NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin (...) Prestador.ChaveAcesso := <chave digital>;

Não haverá o grupo, o grupo é apenas para não contribuintes. Quando a empresa destinatária é contribuinte do ICMS, mesmo sendo a nota de entrada para consumo próprio, é obrigação dela fazer, ou não, dependendo da legislação estadual, o recolhimento do diferencial de alíquota. O emitente deve destacar apenas o ICMS interestadual.

Se o destinatário tem inscrição estadual, ele é contribuinte, então não se aplica o grupo de ICMS para UF destino, o pagamento do DIFAL será feito da forma convencional.

Se você vai usar o IBPTax como tabela de NCM, a mais recente é a versão 16.2.A. https://deolhonoimposto.ibpt.org.br/

Não conferi todos os .ini pra ver ser algum tinha o VersaoSoap em branco, infelizmente causou esse efeito colateral. Acredito que editando o .ini do provedor e colocando qualquer valor diferente de 1.2 ou em branco vai resolver. Update: Analisando o wsdl do Inffisc a versão do Soap deles é 1.1. http://stackoverflow.com/questions/736845/can-a-wsdl-indicate-the-soap-version-1-1-or-1-2-of-the-web-service https://nfse.campobom.rs.gov.br/portal/Servicos?wsdl

A mensagem de erro é a falta do preenchimento do CNPJ da prefeitura, mas desenvolvi com base no layout para Ariquemes, o layout de Sorriso, apesar de ser o mesmo provedor, é diferente. A tag <UnidadeGestora> não existe no layout de Sorriso, por exemplo.

Se está dando duplicidade quer dizer que o evento de cancelamento já foi enviado, basta consultar a situação da nota para verificar o cancelamento.

Unit pcnConversao: function indIEDestToStr(const t: TpcnindIEDest ): string; begin result := EnumeradoToStr(t, ['1', '2', '9'], [inContribuinte, inIsento, inNaoContribuinte]); end; function StrToindIEDest(out ok: boolean; const s: string): TpcnindIEDest; begin result := StrToEnumerado(ok, s, ['1', '2', '9'], [inContribuinte, inIsento, inNaoContribuinte]); end;

Não existe webservice que retorne essa informação. A meu ver só existem duas alternativas nesse caso. 1) Fazer uma consulta à SEFAZ do estado informando o ocorrido e solicitando o número da última nota. 2) Tentar, por força bruta, emitir NFCe em sequência, desde a última numeração conhecida (a contabilidade deve ter a última NFCe do mês anterior), e testar até que não retorne erro de duplicidade. A desvantagem do método 1 é que a consulta em si servirá como autodenúncia de que a empresa não tem os XML que ela é obrigada a guardar. A desvantagem do método 2 é o tempo gasto e consumo do webservice que não deve causar consumo indevido já que é de envio de XML.

Tenha certeza de não estar preenchendo nenhum campo do tomador para que as tags não sejam geradas, veja o código do ACBr: procedure TNFSeW_ABRASFv2.GerarTomador; begin if (NFSe.Tomador.IdentificacaoTomador.CpfCnpj <> '') or (NFSe.Tomador.RazaoSocial <> '') or (NFSe.Tomador.Endereco.Endereco <> '') or (NFSe.Tomador.Contato.Telefone <> '') or (NFSe.Tomador.Contato.Email <>'') then begin (...) end else begin // Gera a TAG vazia quando nenhum dado do tomador for informado. if FProvedor in [proActcon, proVersaTecnologia] then Gerador.wCampoNFSe(tcStr, '#', 'TomadorServico', 0, 1, 1, '', '') else Gerador.wCampoNFSe(tcStr, '#', 'Tomador', 0, 1, 1, '', ''); end; end;

As empresas já embutem o valor do ICMS normal no valor do produto, já que ele também não pode ser somado ao total da nota. Se não me engano a maioria das empresas já era obrigada a destacar o ICMS interno nas vendas interestaduais pra consumidor final, então na prática não vai fazer muita diferença no valor dos produtos, apenas precisa levar em consideração as alíquotas internas dos demais estados. Empresas do Simples Nacional, salvo engano, estão desobrigadas a destacar o DIFAL, basta gerar o grupo de ICMSUFDest com os valores zerados.

Também é necessário tratar o retorno 202 caso faça por OpenSSL. ACBrDFeOpenSSL.pas

Fiz algumas alterações no .ini e ACBrNFSeWebServices.pas para passar os dados do XML fora do envelope e o mime type "application/xml". Aparentemente está funcionando, mas só testei o serviço de consulta pois o ambiente de homologação está fora do ar. Segue anexo. ACBrNFSeWebServices.pas Agili.ini

Bom dia, O Webservice não aceitou o envio do XML como envelope. Segue arquivos de retorno. 2016010120160101-lista-nfse.xml 2016010120160101-lista-nfse-soap.xml

O layout de ariquemes tem a tag Versao = 1.00. O de Sorriso não tem tag de versão.

Segundo o que foi postado no outro tópico, sim, tem algumas diferenças pequenas no layout. O xsd também é diferente.

Boa tarde, Não sei se o @Italo Jurisato Junior ou outro moderador chegaram a analisar os fontes que postei, mas de qualquer forma eles devem estar desatualizados, vou postar novamente aqui. Você pode aplicar eles por conta própria nas devidas pastas do ACBr e recompilar. Lembrando que é o layout de Ariquemes, não o de Sorriso. AgiliAriquemes.rar

Você tem a fundamentação dessa afirmação? A NT 2015/003 diz claramente que deve ser usada a alíquota interna para o produto, mesmo caso para o FECOEP.

Várias validações entraram em vigor em 01/07/2016. Veja as notas técnicas 2015/002 e 2015/003 que a rejeição que você não informou exatamente qual é deve estar lá.

Provavelmente é algum problema na SEFAZ mesmo, no ambiente de homologação. Imagino que o outro sistema que aceita a nota esteja em produção, correto? Tente enviar e-mail pra eles, um responsável pela SEFAZ participou aqui de outro tópico e deixou e-mail para contato. Envie o XML pra eles pra verificarem lá.

Também estou com este problema. O webservice SVRS parece estar bem instável hoje e o executável trava, mesmo com o timeout no padrão. Estou usando método síncrono.

O Fast nativo do Delphi não tem suporte a scripts então provavelmente é esse o problema. Use a versão comercial do Fast ou o Fortes Report.

Isso porque o Delphi 7 vinha por padrão com os componentes no estilo do Windows 95 e 98. Até pra ficar no modo do Windows XP precisava adicionar um componente, o XPManifest. Nas versões seguintes do Delphi os componentes se adaptam ao tema do Windows, seja XP, Vista, 7 ou 10. Pra usar o estilo Windows 9X de ser - que em minha opinião ficam horríveis em um windows com temas ativados - basta desmarcar a opção "Enable runtime themes" na tela Project - Options - Application.

Boa tarde, Pelo layout ABRASF o numero da NFSe pode ter até 15 dígitos o que é mais do que a combinação de série e número da NFe. Só acho que está sendo usado a série do RPS pra representar a NFSe e que são documentos diferentes, apesar de um estar vinculado ao outro. Aqui, por exemplo, a NFSe pode ser emitida diretamente no site da prefeitura, sem RPS, no XML da nota não vai constar série alguma. Eu tive que tirar do meu código porque a série aqui está sendo informada "1", o que gera os XML com nome 11-nfse.xml, 21-nfse.xml, 111-nfse.xml, etc., e causa confusão para o usuário localizar o arquivo pelo número. De novo, é só minha opinião. O bom de usarmos código aberto é que temos liberdade de alterar como acharmos melhor. Grato.