Geração De Arquivo Magnético Convênio 115/03

[Jéter Rabelo Ferreira]

Keila, bom dia

Segue abaixo a unit

Quaisquer dúvidas, favor postarem aqui até que o componente esteja OK para subir ao SVN.

Atenciosamente.

ACBrConvenio115.pas

[Dercide Alvarez]

16 minutos atrás, Jéter Rabelo Ferreira disse:

Keila, bom dia

Segue abaixo a unit

Quaisquer dúvidas, favor postarem aqui até que o componente esteja OK para subir ao SVN.

Atenciosamente.

ACBrConvenio115.pas

Bom dia Jéter,

Olhei este fonte que você disponibilizou, e pelo o que vi, esta gerando o nome do arquivo (DoNomeArquivo) sem o sequencia após o status.

Não testei no novo validador liberado em 10/02, mas no beta dava erro, pois o nome te que ter 33 posições no total.

No teu fonte esta assim :

IfThen(Status = scv115Normal, 'N', 'S');

Eu fiz assim (quebra galho):

IfThen(Status = scv115Normal, 'N01', 'S');

 

É apenas uma observação, não testei.

 

Dercide.

[Jéter Rabelo Ferreira]

Dercide, bom dia.

Realmente, faltava essa informação.

Como essa informação pode ser alterada, criei uma nova property contemplando. Por default será inciada como 1.

Segue a unit.

Atenciosamente.

ACBrConvenio115.pas

[Juliomar Marchetti]

1 hora atrás, Jéter Rabelo Ferreira disse:

Dercide, bom dia.

Realmente, faltava essa informação.

Como essa informação pode ser alterada, criei uma nova property contemplando. Por default será inciada como 1.

Segue a unit.

Atenciosamente.

ACBrConvenio115.pas

Jéter poderia confirmar se existe este recibo e se  é necessário?

 

[Jéter Rabelo Ferreira]

Just now, Juliomar Marchetti said:

Jéter poderia confirmar se existe este recibo e se  é necessário?

 

Juliomar.

Esse arquivo eu disponibilizei apenas como exemplo, de como preencher o componente e impressão. Pois na época me solicitaram.

Eu não o utilizo. Para mim é indiferente a atualização do mesmo.

Ademais, não há nenhuma regulamentação quanto a impressão da nota, pois a função desse componente, desde o inicio, é o preenchimento e a geração do arquivo magnético.

Portanto, se você quiser atualizar, por mim tudo bem.

Atenciosamente.

[Juliomar Marchetti]

Boa tarde

favor atualizar e testar no svn

obrigado

46 minutos atrás, Jéter Rabelo Ferreira disse:

Juliomar.

Esse arquivo eu disponibilizei apenas como exemplo, de como preencher o componente e impressão. Pois na época me solicitaram.

Eu não o utilizo. Para mim é indiferente a atualização do mesmo.

Ademais, não há nenhuma regulamentação quanto a impressão da nota, pois a função desse componente, desde o inicio, é o preenchimento e a geração do arquivo magnético.

Portanto, se você quiser atualizar, por mim tudo bem.

Atenciosamente.

 

[JP_ZANIN]

Boa noite.

Atualizei a unit e gerei o arquivo. Porém na hora de validar apresenta o erro: Quantidade de bytes do aquivo item (38.073) não é um múltiplo de 333.

Abro o arquivo item e ele está com 342 caracteres por linha.

Se alguém tiver alguma ideia do que pode ser, grato.

Att

João Paulo 

 

Editado 13 Fevereiro, 2017 por JP_ZANIN

[Dercide Alvarez]

14 horas atrás, JP_ZANIN disse:

Boa noite.

Atualizei a unit e gerei o arquivo. Porém na hora de validar apresenta o erro: Quantidade de bytes do aquivo item (38.073) não é um múltiplo de 333.

Abro o arquivo item e ele está com 342 caracteres por linha.

Se alguém tiver alguma ideia do que pode ser, grato.

Att

João Paulo 

 

João Paulo,

Você baixou do SVN ou a unit que o Jéter disponibilizou ?

Pois acredito que o SVN esteja desatualizado.

Se for o caso, baixe a que o Jéter disponibilizou e teste.

Se o erro persistir, baixe a que eu disponibilizei na quarta feira.

Favor dar um retorno.

 

Dercide.

 

[JP_ZANIN]

3 minutos atrás, Dercide Alvarez disse:

João Paulo,

Você baixou do SVN ou a unit que o Jéter disponibilizou ?

Pois acredito que o SVN esteja desatualizado.

Se for o caso, baixe a que o Jéter disponibilizou e teste.

Se o erro persistir, baixe a que eu disponibilizei na quarta feira.

Favor dar um retorno.

 

Dercide.

 

Bom dia Dercide.

Baixei o que você postou na quarta-feira e funcionou, consegui validar o arquivo.

Aparece uma advertência na validação para clientes com CPF: MEST 154-CNPJ numericamente inválido, porém consegui validar e Gerar Controle normalmente.

Muito Obrigado!

João Paulo

[Dercide Alvarez]

João Paulo,

Mas com qual Unit que estava dando erro anteriormente, a do Jéter ou do SVN ?

Dercide.

[JP_ZANIN]

9 minutos atrás, Dercide Alvarez disse:

João Paulo,

Mas com qual Unit que estava dando erro anteriormente, a do Jéter ou do SVN ?

Dercide.

Dercide,

A Unit do Jéter estava dando erro, SVN até ontem a hora que consultei não tinha sido atualizado ainda.

João Paulo

[Dercide Alvarez]

Jéter,

No arquivo de itens, o campo 28 ( Numero do Contrato ) esta com 25 posições e o correto são 15.

function TACBrConvenio115Item.RegistroEAssinatura(AVersaoAnterior: Boolean): TConvenio115AssinaturaMD5;

Linha 947 ==>  28) Contrato => são 15 digitos e não 25. 

Isso esta causando erro na geração do arquivo, pois o mesmo esta sendo gerado com 342 posições por linha e o correto são 331.

Segue a UNIT que esta no SVN alterada e testada.

Dercide.

ACBrConvenio115.pas

[Juliomar Marchetti]

Correção no svn! está sendo aplicado conforme o manual certo?

[Dercide Alvarez]

Juliomar,

As alterações foram feitas conforme o manual referente a 2017. 

Essa unit que postei é a que estava no SVN, apenas corrigi conforme relatei.

Dercide.

 

[Jéter Rabelo Ferreira]

Boa tarde

Eu fiz algumas alterações ontem, corrigindo a retrocompatibilidade do componente, caso seja necessário gerar o arquivo com data anterior a 2017.

Também corrigi o contrato Dercide, obrigado pela dica.

Segue a unit corrigida

Atenciosamente.

ACBrConvenio115.pas

[Juliomar Marchetti]

No svn as alterações!

[jlhenriques]

Estou tendo problemas no arquivo destinatário, se colocar o nome da cidade "Caçapava do Sul" dá erro no md5 porém se colocar "Cacapava do Sul" apresenta o Erro: 340 - Nome do Município não consta, ou não coincide com a tabela do IBGE
         Arquivo: Cadastro, registro:          1, campo: 09, posições: 152 a 181, conteúdo:[Inf.=[Cacapava do Sul]; IBGE=[Caçapava do Sul]], porém fiz outro teste coloquei outra cidade que não possui acentos, validou. Alguém com mesmo problema?

[marcosdiasvendramini]

Bom dia, também estou tendo um problema, estou usando a última Unit postada pelo Jéter, o meu emite a seguinte mensagem de erro no validador:

Quantidade de bytes do arquivo Cadastro (846) não é um múltiplo de 289.
A 1ª linha do arquivo Destinatário deve conter 287 caracteres, seguidos de CR + LF, totalizando 289 bytes por linha. 

[K2 SOFTWARE]

Bom dia a todos.

Quando vou gerar o período de 01/2017 dá a mensagem: tipo de assinante inválido para a nota fiscal.

Entra na exceção abaixo. O que preciso preencher para não dar mais essa mensagem?

procedure TACBrConvenio115.Gerar;
    if FMestre.TipoAssinanteAte201612 = tac111None then
      raise Exception.Create(Tipo de assinante inválido para a Nota Fiscal:
 

Obrigado.

Atenciosamente

Hélio Almeida.

Editado 15 Fevereiro, 2017 por K2 SOFTWARE

[Jéter Rabelo Ferreira]

1 hour ago, K2 SOFTWARE said:

Bom dia a todos.

Quando vou gerar o período de 01/2017 dá a mensagem: tipo de assinante inválido para a nota fiscal.

Entra na exceção abaixo. O que preciso preencher para não dar mais essa mensagem?

procedure TACBrConvenio115.Gerar;
    if FMestre.TipoAssinanteAte201612 = tac111None then
      raise Exception.Create(Tipo de assinante inválido para a Nota Fiscal:
 

Obrigado.

Atenciosamente

Hélio Almeida.

Bom dia

Duas coisas:

• o TipoAssinanteATE201612 não é para ser utilizando em 2017
• Se você verificar o final, NONE, significa que não foi informando nenhum valor válido para o Tipo de Assinante

Atenciosamente.

1 hour ago, marcosdiasvendramini said:

Bom dia, também estou tendo um problema, estou usando a última Unit postada pelo Jéter, o meu emite a seguinte mensagem de erro no validador:

Quantidade de bytes do arquivo Cadastro (846) não é um múltiplo de 289.
A 1ª linha do arquivo Destinatário deve conter 287 caracteres, seguidos de CR + LF, totalizando 289 bytes por linha. 

Bom dia

Verifique se você informou o Código do IBGE com 7 caracteres, pois isso o componente não trata

Atenciosamente

15 hours ago, jlhenriques said:

Estou tendo problemas no arquivo destinatário, se colocar o nome da cidade "Caçapava do Sul" dá erro no md5 porém se colocar "Cacapava do Sul" apresenta o Erro: 340 - Nome do Município não consta, ou não coincide com a tabela do IBGE
         Arquivo: Cadastro, registro:          1, campo: 09, posições: 152 a 181, conteúdo:[Inf.=[Cacapava do Sul]; IBGE=[Caçapava do Sul]], porém fiz outro teste coloquei outra cidade que não possui acentos, validou. Alguém com mesmo problema?

Bom dia

Uma dúvida, está informando o IBGE como Caçapava em vez do código da cidade?

Atenciosamente.

[K2 SOFTWARE]

Obrigado Jéter por responder.

Por isso que achei estranho, eu não estou passando nenhum valor para as propriedades   TipoAssinanteATE201612 . Na verdade estou usando apenas o que já usava antes que é a propriedade Omestre.TipoAssinante conforme abaixo, porém a procedure verifica o TipoAssinanteATE201612:

      if TNFSAIDA2TIPO_ASSINANTE.AsString = '1' then //Comercial
       OMestre.TipoAssinante := tac11182Comercial
      else if TNFSAIDA2TIPO_ASSINANTE.AsString = '6' then //Residencial
       OMestre.TipoAssinante := tac11182PessoaFisicaResidencial;
 

Preciso informar alguma coisa para que não verifique isso?

 

Obrigado

Hélio Almeida.

 

[Jéter Rabelo Ferreira]

28 minutes ago, K2 SOFTWARE said:

Obrigado Jéter por responder.

Por isso que achei estranho, eu não estou passando nenhum valor para as propriedades   TipoAssinanteATE201612 . Na verdade estou usando apenas o que já usava antes que é a propriedade Omestre.TipoAssinante conforme abaixo, porém a procedure verifica o TipoAssinanteATE201612:

      if TNFSAIDA2TIPO_ASSINANTE.AsString = '1' then //Comercial
       OMestre.TipoAssinante := tac11182Comercial
      else if TNFSAIDA2TIPO_ASSINANTE.AsString = '6' then //Residencial
       OMestre.TipoAssinante := tac11182PessoaFisicaResidencial;
 

Preciso informar alguma coisa para que não verifique isso?

 

Obrigado

Hélio Almeida.

 

Bom dia

Realmente tinha uma falha na validação.

Corrigido nessa unit anexa.

Obrigado pela dica

Atenciosamente.

ACBrConvenio115.7z

[K2 SOFTWARE]

Que isso Jéter, eu que agradeço.

Agora referente ao problema de acentuação no município que o jlhenriques passou, realmente a procedure TACBrConvenio115.DoGerarDestinatario está removendo os acentos conforme abaixo. Se tirar a acentuação dá erro no validador.

{09} PadRight(TiraAcentos(FMestre.Destinatario.Municipio), 30) +

 

Obrigado

Hélio Almeida.

 

[Daniel Simoes]

1 hora atrás, Jéter Rabelo Ferreira disse:

Corrigido nessa unit anexa.

Obrigado pela dica

Já no SVN... Muito Obrigado @Jéter Rabelo Ferreira

1 hora atrás, K2 SOFTWARE disse:

Que isso Jéter, eu que agradeço.

Agora referente ao problema de acentuação no município que o jlhenriques passou, realmente a procedure TACBrConvenio115.DoGerarDestinatario está removendo os acentos conforme abaixo. Se tirar a acentuação dá erro no validador.

 

Acentos podem ser um problema... Se o arquivo for gerado em ANSI ou UTF8 os acentos são tratados de forma completamente diferente...

[Dercide Alvarez]

Boa tarde,

Eu já havia comentado anteriormente que teria que tirar o TiraAcentos da linha :

              {09} PadRight(TiraAcentos(FMestre.Destinatario.Municipio), 30) +

 

Conforme post que fiz em 08/02

DESTINATARIOS

09 ) Cidade => Deve ser conforme a tabela TXT dos código IBGE que vem junto com o validador. Tive que carregar a tabela em um DataSet e buscar os nomes das cidades. Tirei a função TirarAcentos.

11) Telefone => esta preenchendo com zeros, deve ser brancos quando vazio, tive que trocar PadLeft por PadRight para evitar erro.

Pois isso causa erros de criticas no validador.

Esta versão esta com todos os problemas anteriores os quais eu já relatei.

Acabei de compilar, gerar e validar o arquivo. São os mesmos erros que eu já corrigi e postei.

178 Mestre => Número do Terminal Telefônico Principal com valor inválido diferente de LLNNNNNNNN ou LLNNNNNNNNN

186 Mestre => Campo 33 é reservado: preencher com zeros

195 Mestre => Informar o Número do Terminal Telefônico, no formato LLNNNNNNNN ou LLNNNNNNNNN 

340 Destinatários => Nome do Município não consta, ou não coincide com a tabela do IBGE 

 

Dercide.

 

Editado 15 Fevereiro, 2017 por Dercide Alvarez