Danny

Boa tarde pessoal. Estou com um problema a muito tempo e não consegui resolver até o momento. Observe na imagem em anexo que alguns itens são impressos de forma comprimida e outros não. Procurei na internet e no fórum e não encontrei nada relacionado a este problema. O mesmo ocorre com impressoras de marcas diferentes em clientes diferentes. Sabem me dizer se pode ser alguma configuração que eu deva fazer ou se pode ser problema na impressora? Alguém já passou por isso? Agradeço antecipadamente. Danny

Bom dia pessoal, Daniel, os parâmetros passados são datas inicial e final e path do arquivo, onde é executada para a seguinte procedure: procedure TACBrECFFiscNET.ArquivoMFD_DLL(DataInicial, DataFinal: TDateTime; NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet; Finalidade: TACBrECFFinalizaArqMFD); Didaticamente falando, a marca do ECF, apesar de ser Elgin, a variável fsMarcaECF fica igual a "zpm", portanto não executa as funções binárias (Elgin_LeMemoriasBinario e Elgin_GeraArquivoATO17Binario) e sim as "não binárias" (DLLReadLeMemorias e DLLATO17GeraArquivo). Fiz testes ajustando o ACBrECFFiscNET.pas mudando de "(fsMarcaECF = 'elgin')" para "(fsMarcaECF = 'elgin') or (fsMarcaECF = 'zpm')", mas o resultado dos arquivos binários foram os mesmos relacionado aos não binários. Estou com uma limitação, pois não consigo debugar os fontes, pois o ECF está no estabelecimento do cliente e os testes estão sendo feitos remotamente. Continuarei fazendo testes e qualquer novidade posto aqui. Obrigado pelo retorno. Danny

Olá pessoal, Sei que houveram outros tópicos como este: Depois de vários testes não consegui entender o problema. Em uma ZPM Elgin e utilizando o exemplo ECFTeste, estou selecionando o botão "Arq. MFD" para gerar o arquivo do Ato Cotepe 17/04. Aparentemente o componente gera o arquivo TDM corretamente, mas o TXT fica faltando informações e com tamanho pequeno. Em determinadas tentativas a aplicação cai repentinamente. No site da Elgin é possível baixar um "TestaDllElgin32" para utilizar as Dlls para gerar o arquivo. Ao executar este no mesmo ECF o TDM é gerado com tamanho exatamente igual ao TDM que foi gerado pelo ECFTeste. Porém o TXT ficou com muito mais informações. Também do site da Elgin baixei e instalei o Gera1704 que também gerou o TDM com tamanho igual e o TXT com tamanho semelhante ao TXT gerado pelo TestaDllElgin32. Pelo que entendi o problema está no componente e ocorre no momento depois de gerar o arquivo TDM. Isto está ocorrendo com mais alguém? Obrigado. Danny

Pessoal, bom dia. Ao enviar o 1º RPS em Produção ocorreu um fato que em Homologação não ocorre. O problema é que envio um determinado CodigoTributacaoMunicipio e no retorno este campo vem igual ao ItemListaServico. Entrei em contato com o suporte e não teve jeito, tive que fazer uma alteração na impressão da NFS-e, pois orientaram a enviar o que seria o CodigoTributacaoMunicipio como CodigoCnae. Não sei se isso ocorre com todos os municípios do provedor SimplISS e é por isso que fiz a alteração somente para o município de Cerquilho/SP. Todas as units (ACBrNFSeDANFSe*) onde o campo qrmCodServico é impresso (2 em cada unit) deverão ser alteradas conforme abaixo: De: qrmCodServico.Lines.Add(FNFSe.Servico.ItemListaServico + ' / ' + FNFSe.Servico.CodigoTributacaoMunicipio + ' - ' + FNFSe.Servico.xItemListaServico); Para: if (StrToIntDef(FNFSe.PrestadorServico.Endereco.CodigoMunicipio, 0) = 3511508) and //Cerquilho/SP (FNFSe.Servico.CodigoCnae <> '') then qrmCodServico.Lines.Add(FNFSe.Servico.ItemListaServico + ' / ' + FNFSe.Servico.CodigoCnae + ' - ' + FNFSe.Servico.xItemListaServico) else qrmCodServico.Lines.Add(FNFSe.Servico.ItemListaServico + ' / ' + FNFSe.Servico.CodigoTributacaoMunicipio + ' - ' + FNFSe.Servico.xItemListaServico); end Peço que vejam se essa alteração é viável para o componente. Obrigado.

Bom dia Italo, Muito obrigado.

Italo, eu que agradeço. Abraços.

Pessoal, Consegui emitir a primeira NFS-e para o município de Cerquilho/SP em ambiente de Homologação. Segue anexadas as units que adaptei. Ainda não testei em Produção. Obrigado. ACBrProvedorSimplISS.pas pnfsConversao.pas

Boa tarde Michel, Seguem as URLs: Homologação: ConfigURL.HomNomeCidade := ''; ConfigURL.HomRecepcaoLoteRPS := 'http://187.45.245.217/ws_nfse/nfseservice.svc'; ConfigURL.HomConsultaLoteRPS := 'http://187.45.245.217/ws_nfse/nfseservice.svc'; ConfigURL.HomConsultaNFSeRPS := 'http://187.45.245.217/ws_nfse/nfseservice.svc'; ConfigURL.HomConsultaSitLoteRPS := 'http://187.45.245.217/ws_nfse/nfseservice.svc'; ConfigURL.HomConsultaNFSe := 'http://187.45.245.217/ws_nfse/nfseservice.svc'; ConfigURL.HomCancelaNFSe := 'http://187.45.245.217/ws_nfse/nfseservice.svc'; Produção: 3511508: begin // Cerquilho/SP ConfigURL.ProNomeCidade := 'cerquilho'; ConfigURL.ProRecepcaoLoteRPS := 'http://187.45.245.217/ws_' + ConfigURL.ProNomeCidade + '/nfseservice.svc'; ConfigURL.ProConsultaLoteRPS := 'http://187.45.245.217/ws_' + ConfigURL.ProNomeCidade + '/nfseservice.svc'; ConfigURL.ProConsultaNFSeRPS := 'http://187.45.245.217/ws_' + ConfigURL.ProNomeCidade + '/nfseservice.svc'; ConfigURL.ProConsultaSitLoteRPS := 'http://187.45.245.217/ws_' + ConfigURL.ProNomeCidade + '/nfseservice.svc'; ConfigURL.ProConsultaNFSe := 'http://187.45.245.217/ws_' + ConfigURL.ProNomeCidade + '/nfseservice.svc'; ConfigURL.ProCancelaNFSe := 'http://187.45.245.217/ws_' + ConfigURL.ProNomeCidade + '/nfseservice.svc'; end; Estou fazendo as alterações no componente incluindo este município. Ao enviar um RPS no ambiente de homologação tem retornado o seguinte erro: <Codigo>E974</Codigo> <Mensagem>Nao existe nenhuma serie de Nfs-e liberada para ser usada com o web service.</Mensagem> <Correcao>Entre em contato com a prefeitura para mais informacoes.</Correcao> Vou aguardar a resposta do cliente. Assim que tiver novidades estarei postando aqui. Muito obrigado pela dica.

Pessoal, boa tarde. Alguém sabe qual o provedor do município de Cerquilho/SP (3511508) ? Gostaria de saber se alguém tem esta informação antes de eu entrar em contato com a prefeitura. Baixei o manual do site e o padrão é Abrasf. O componente ainda não emite para este município, mas posso estar colaborando para a implementação. Obrigado.

Adilson, Italo, bom dia. Adilson, não sei dizer sobre isso porque foi o contador que entrou em contato com a prefeitura e me passou a orientação. Italo, fiz algumas mudanças na impressão da NFS-e em RL, pois o Enabled não tem o mesmo efeito que no QuickReport, portanto troquei para Visible conforme abaixo: rlsLinhaH1.Visible:=MostrarObra; rllTituloConstCivil.Visible:=MostrarObra; rllCodigoObra.Visible:=MostrarObra; rllCodObra.Visible:=MostrarObra; rllCodigoArt.Visible:=MostrarObra; rllCodART.Visible:=MostrarObra; Também corrigi a acentuação de "DISCRIMINAÇãO DOS SERVIÇOS". A unit segue em anexo. Não tenho permissão para enviar o frm. Obrigado. ACBrNFSeDANFSeRLRetrato.pas

Adilson, O prestador onde o retorno vem com a taxa é do Simples? Acabei de falar com o contador, que tem um "canal de informação" rápido lá na prefeitura, para ver essa possibilidade de incluir uma alíquota automaticamente quando no envio do RPS estiver zerado. Porém a prefeitura disse que isso não é possível e pediu para enviar zerado no RPS e informou que ficará zerada no site. Orientou para enviar no campo descrição uma informação fixa "aliquota do simples .... base de cálculo.... valor do iss....". Bem, por enquanto é assim que vou proceder, deixar a última linha da descrição com essa informação fixa. Qualquer novidade vamos nos falando. Muito obrigado pela dica.

Adilson, bom dia. Consegui gerar NFS-e de 2 RPS no ambiente de produção e 1 no ambiente de homologação. Só é possível fazer isso enviando esses campos zerados e no retorno eles continuam zerados. Acessando a NFS-e pelo site visualizei que também estão zerados. Falei com o contador da empresa e com a prefeitura de Tatuí e ambos disseram que estes campos não podem estar zerados e pediram pra eu entrar em contato com a 4R, porém o suporte não me dá retorno. Inclusive já liguei lá e disseram que é com a prefeitura e a prefeitura diz que é com a 4R sistemas. Tem algum cliente enquadrado no simples do qual vocês conseguiram enviar esses campos com valores? Obrigado.

Bom dia Italo. Segue em anexo a unit. Obrigado. ACBrNFSeWebServices.pas

Pessoal, boa tarde. Estou implementando NFS-e para uma empresa de Tatuí. Para realizar o cancelamento tive que fazer a seguinte mudança em DoNFSeCancelarNFSe a partir da linha 1728: DE: if (TNFSeCancelarNfse(Self).FCNPJ = '') then if FProvedor = proDigifred then TNFSeCancelarNfse(Self).FCNPJ := SomenteNumeros(TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.Prestador.Cnpj) else TNFSeCancelarNfse(Self).FCNPJ := SomenteNumeros(TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj); if (TNFSeCancelarNfse(Self).FIM = '') then if FProvedor = proDigifred then TNFSeCancelarNfse(Self).FIM := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal else TNFSeCancelarNfse(Self).FIM := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal; PARA: if (TNFSeCancelarNfse(Self).FCNPJ = '') then begin if (FProvedor = proDigifred) or (FProvedor = pro4R) then TNFSeCancelarNfse(Self).FCNPJ := SomenteNumeros(TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.Prestador.Cnpj) else TNFSeCancelarNfse(Self).FCNPJ := SomenteNumeros(TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj); end; if (TNFSeCancelarNfse(Self).FIM = '') then begin if (FProvedor = proDigifred) or (FProvedor = pro4R) then TNFSeCancelarNfse(Self).FIM := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal else TNFSeCancelarNfse(Self).FIM := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal; end; Porém estou com problema no retorno deste cancelamento que estarei verificando logo mais. Vejam se é uma boa esta sugestão, testei aqui e funcionou. Um outro problema é que ao enviar os campos ValorISS e Aliquota obtenho o retorno que segue em anexo (E220 e E221). Será que esta informação deve contar em outros campos? Obrigado. 9-lista-nfse.xml

Olá pessoal, Alguns clientes meus também estão com o mesmo problema. Alguém sabe se esta dica abaixo do Italo também é válida para NFe ou se há alguma novidade sobre este problema? Obrigado.

Desculpa, testei aqui e ficou faltando alteração na unit ACBrEFDBloco_G_Class, trocando as 3 linhas: De: DFill( IND_PER_SAI, 4 ) + Para: DFill( IND_PER_SAI, 8 ) + Testei com esta alteração e funcionou conforme o esperado. Obrigado.

Boa tarde pessoal, No GUIA PRÁTICO DA ESCRITURAÇÃO FISCAL DIGITAL – EFDICMS/IPI consta a informação que as casas decimais do campo IND_PER_SAI deve ser de 8. Porém está gravando com 4 caracteres e para a solução do problema sugiro a seguinte mudança na linha 91 da unit ACBrEFDBloco_G.pas: Trocar de: property IND_PER_SAI: Double read fIND_PER_SAI write fIND_PER_SAI; /// Foi renomeado na versão 103 Para: property IND_PER_SAI: Extended read fIND_PER_SAI write fIND_PER_SAI; /// Foi renomeado na versão 103 Obrigado. Danny

Bom dia pessoal, Estou com o mesmo problema desde ontem para o GINFES do município de Itú/SP. Sei que já ocorreram vários problemas com este provedor. Alguém mais está com problema?

Olá Régys, Meus fontes estão atualizados. A questão agora é a diferença nessas Notas Técnicas. Por que a NT mais recente não informa que a DI deve ser validada?

Pessoal, bom dia. Fiz uma comparação entre as Notas Técnicas 2013.005 e 2013.005 v1.02. A validação do Numero do DI, da forma como o componente está fazendo, está na primeira versão. Já na v1.02 esta validação não consta mais e acredito que agora seja desnecessário "ValidaDIDSI" Tive que desativar manualmente a função DFeUtil.ValidaDIDSI para conseguir validar a NF-e de importação de um cliente meu. Me corrijam se eu estiver enganado. Obrigado. Danny

Bom dia pessoal. A imagem em anexo consta "problema" no canhoto. Antes, quando a Razão do emitente era muito grande, automaticamente era dividido em 2 linhas, impedindo este estouro nas margens direita e esquerda. Hoje estou vendo que existe a propriedade ExibirResumoCanhoto e acredito que ela acabou ocasionando isto. É possível fazer alguma alteração de modo que quando ExibirResumoCanhoto = False automaticamente dividir em 2 linhas caso a Razão seja grande? Obrigado.

Régys, O problema realmente era que não estava com o novo direcionamento. Obrigado!

Obrigado pelo esclarecimento Regys, Mencionei para esses clientes que não informando a Fonte e houver fiscalização ele será obrigado a justificar a Fonte e os números informados. Você disse que subiu a alteração. Acabei de baixar mas ainda não detectei nenhuma alteração no ACBrECF.pas. Até mais.

Pessoal, boa tarde. A NT2013.003 não menciona a obrigatoriedade da impressão da Fonte, somente o valor aproximado é obrigatório. Ocorreram algumas situações que clientes não querem que saia a fonte, porém se eu deixar o campo "InfoRodapeCupom.Imposto.Fonte" vazio o componente imprime automaticamente depois do imposto a palavra "Fonte: " simplesmente, sem nada na frente. Sei que posso utilizar o campo "InfoRodapeCupom.Imposto.Texto" para deixar da maneira como acho conveniente. Gostaria de sugerir uma alteração na função GetRodapeImposto do ACBrECF.pas trocando: Este: Result := 'Val.Aprox.Impostos R$' + FormatFloat(',#0.00', VlImposto) + FormatFloat('(,#0.00%)', VlPercentual) + ' Fonte:' + InfoRodapeCupom.Imposto.Fonte; Para: Result := 'Val.Aprox.Impostos R$' + FormatFloat(',#0.00', VlImposto) + FormatFloat('(,#0.00%)', VlPercentual) + ifThen(Trim(InfoRodapeCupom.Imposto.Fonte<>'',' Fonte:' + InfoRodapeCupom.Imposto.Fonte,''); O que vocês acham? Obrigado.

Ok Italo, Sobre o erro E160 enviei um e-mail para o atendimento da Ginfes. Qualquer novidade posto aqui. Muito obrigado.