Leonardo Gregianin

A entrada desses tipos é para versão 3.10, mas já poderia ter no componente.

Boa tarde, Aparentemente há inconsistências nos tipos de motivos de desoneração de ICMS depois da publicação da Nnota técnica 2013.005 da NFe. Os tipos atuais do ACBr constam: 1 = mdiTaxi 2 = mdiDeficienteFisico 3 = mdiProdutorAgropecuario 4 = mdiFrotistaLocadora 5 = mdiDiplomaticoConsular 6 = mdiAmazoniaLivreComercio 7 = mdiSuframa 8 = mdiVendaOrgaosPublicos 9 = mdiOutros 12 = mdiOrgaoFomento E os que constam na nota técnica: 1 = mdiTaxi 2 = mdiDeficienteFisico ****ELIMINADO**** 3 = mdiProdutorAgropecuario 4 = mdiFrotistaLocadora 5 = mdiDiplomaticoConsular 6 = mdiAmazoniaLivreComercio 7 = mdiSuframa 8 = mdiVendaOrgaosPublicos 9 = mdiOutros 10 = mdiDeficienteCondutor 11 = mdiDeficienteNaoCondutor 12 = mdiOrgaoFomento Vou anexar uma possível solução com os novos tipos para que analisem.

O mesmo acontece comigo, uma variável no ACBr.inc evita ter que alterar o componente a cada atualização.

Gabriel, Você terá que utilizar "Gerar e Enviar Lote" mesmo. Qual comando utiliza para receber o número do protocolo e a data? Eu utilizo assim: NFSe.WebServices.Enviar.Protocolo; NFSe.WebServices.Enviar.DataRecebimento;

Márcio, Atualiza seus fontes porque desde a data do post houve alterações no svn para este provedor.

http://isaquesp.blogspot.com.br/2011/09/varias-versoes-do-delphi-instaladas-sem.html

João, Uma solução elegante seria incluir uma diretiva no ACBr.inc como já há várias por lá. ACBr.inc: // Definições para o Rave Report Code Base // Descomente a linha abaixo caso o Rave Report tenha suporte a opção soAllowSaveFromPreview //------------------------------------------------------------------------------ //{$DEFINE RaveCB_Save} ACBrDANFeCBRave.pas: DANFeRave.SystemOptions:=[soShowStatus,soAllowPrintFromPreview,{$IFDEF RaveCB_Save}soAllowSaveFromPreview,{$ENDIF}soPreviewModal];

Na aplicação pode passar assim: if ACBrNFSe1.Configuracoes.WebServices.Ambiente = taProducao then ACBrNFSe1.NotasFiscais.Items[0].NFSe.Producao := snSim else ACBrNFSe1.NotasFiscais.Items[0].NFSe.Producao := snNao; E no componente ACBrNFSeDANFSeQRRetrato.pas ficaria assim: // Mensagem para modo Homologacao. qrlMsgTeste.Visible := False; qrlMsgTeste.Enabled := False; if FNFSe.Producao = snNao then begin qrlMsgTeste.Caption := 'AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL'; qrlMsgTeste.Enabled := True; qrlMsgTeste.Visible := True; end; if (FNFSe.NfseCancelamento.DataHora<>0) or FNFSeCancelada then begin qrlMsgTeste.Caption := 'NFS-e CANCELADA'; qrlMsgTeste.Visible := True; qrlMsgTeste.Enabled := True; end; qrlMsgTeste.Repaint;

Aceitar ou não fica a cargo dos mantenedores do projeto.

Boa tarde, Ao testar o cancelamento de NFSe em ambiente de homologação no provedor ISSNet, o provedor retorna mensagem de erro dizendo que o código da cidade do envio é diferente do código do cancelamento. O que acontece é que em ambiente de homologação o provedor ISSNet obriga a passar o código da cidade número "999" porém a cidade no XML de retorno da prefeitura está o código normal da cidade, ou seja, erro do provedor! Para corrigir isso, fiz uma condição para trocar a cidade quando está em ambiente de homologação: if (TNFSeCancelarNfse(Self).FCodigoMunicipio = '') then begin if (FProvedor = proISSNet) and (FConfiguracoes.WebServices.AmbienteCodigo = 2) then TNFSeCancelarNfse(Self).FCodigoMunicipio := '999' else TNFSeCancelarNfse(Self).FCodigoMunicipio:=TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; end;

Mesmo tópico deste:

Bom dia, Veja que já começaram a desenvolver este provedor. Infelizmente não tem uma fórmula mágica de incluir uma nova cidade, tem que estudar o componente e seguir o manual da prefeitura. Se tiver exemplos de xml da Nfse e do Rps fica mais fácil.

Bom dia Ítalo, Alterei a ordem da leitura como você sugeriu e funcionou corretamente, será que não causaria problemas para outros provedores? Segue anexo a unit pnfsNFSeR.pas com algumas alterações para este provedor.

Ítalo, Mesmo depois das alterações da rev. 5921 ainda não consegui ler corretamente as tags do xml. O problema é que o XML da NFSe tem a tag <Rps> e o código acaba entrando na função que lê o Rps e não a NFSe: function TNFSeR.LerXml: boolean; begin Result := False; if Pos('<Rps', Leitor.Arquivo) > 0 then Result := LerRPS; if Pos('<Nfse', Leitor.Arquivo) > 0 then Result := LerNFSe;

Boa tarde, Fiz a inclusão no relatório do QuickReport da propriedade "NFSeCancelada" que já existe no componente ACBrNFSeDANFSeQR. Isto é útil pois alguns provedores não retornam a tag de cancelamento no xml e por isso eu passo a propriedade como True na impressão. E o código da unit ACBrNFSeDANFSeQRRetrato.pas ficaria assim: if (FNFSe.NfseCancelamento.DataHora<>0) or FNFSeCancelada then begin qrlMsgTeste.Caption := 'NFS-e CANCELADA'; qrlMsgTeste.Visible := True; qrlMsgTeste.Enabled := True; end;

Boa tarde, A opção "Gerar e Enviar Lote - Sincrono" é utilizada por alguns provedores, a maioria dos provedores utiliza o envio Assíncrono. Consulte se seu provedor utiliza esta forma de envio/recebimento. Consulte na pasta dos schemas do seu provedor se o arquivo "servico_enviar_lote_rps_envio.xsd" está lá. Se ajudar, olhe

A correção pode ser vista aqui:

Tem que inserir o SysUtils no uses global da unit e inserir a diretiva de compilação {$IFDEF VER230} para não entrar no bloco quando for inferior ao Delphi XE2. Segue abaixo a correção: {$IFDEF DELPHI2009_UP} class function NotaUtil.LoadXML(CaminhoArquivo: string): TEncoding; var ArquivoXML: TStringList; begin ArquivoXML := TStringList.Create; ArquivoXML.LoadFromFile(CaminhoArquivo, TEncoding.UTF8); if ArquivoXML.Text <> '' then Result := TEncoding.UTF8 else begin {$IFDEF VER230} ArquivoXML.LoadFromFile(CaminhoArquivo ,TEncoding.ANSI); if ArquivoXML.Text <> '' then Result := TEncoding.ANSI else begin {$ENDIF} ArquivoXML.LoadFromFile(CaminhoArquivo, TEncoding.ASCII); if ArquivoXML.Text <> '' then Result := TEncoding.ASCII else begin ArquivoXML.LoadFromFile(CaminhoArquivo,TEncoding.Unicode); if ArquivoXML.Text <> '' then Result := TEncoding.Unicode else begin ArquivoXML.LoadFromFile(CaminhoArquivo ,TEncoding.UTF7); if ArquivoXML.Text <> '' then Result := TEncoding.UTF7 else Result := TEncoding.Default; end; end; {$IFDEF VER230} end; {$ENDIF} end; ArquivoXML.Free; end; {$ENDIF}

No delphi 2010 ainda não tinha o TEncoding.ANSI. Tem que inserir uma diretiva para entrar no TEncoding.ANSI somente acima do delphi XE2.

Esta é uma alteração feita hoje (rev 5921). Já existe a diretiva de compilação lá, deve estar errada.

Qual o erro, poste o log.

Seria interessante fazer no FastReport e no Fortes, já que o QuickReport já tem.

Utilize "Gerar e Enviar Lote", funciona!

medreis, A tarja de homologação para NFS-e não seria viável porque no XML não há uma tag específica para isso, diferentemente do que ocorre na NF-e que tem a tag tpAmb sendo 1 ou 2. Se criarmos uma variável no componente como a "NFSeCancelada" corre o risco do ambiente estar marcado como produção e o XML ser de homologação ou vice-versa. Alguns provedores como o ISSNet utilizam o código da cidade do prestador como "999" para diferenciar os ambientes. Nem o Quick e nem o Fortes tem a tarja de homologação.

Marcio, Eu testei esta situação que você passou e realmente aconteceu. Fui ver como estava no componente da NF-e para FastReport e está exatamente igual, ou seja, com o mesmo erro. Estou iniciando com o FastReport, não tenho conhecimento para arrumar isso.