Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por Alex De Sousa,
  • Este tópico foi criado há 2431 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

2 minutos atrás, kmkeila disse:

Jéter,

Bom dia !

Onde posso baixar a unit com as atualizações ?  Já está disponível no SVN ?

Muito Obrigada !

Keila

 

Keila,

É unit que postei na quarta feira. Baixe para testar, pois logo o Jéter deve disponibilizar a versão para subir ao SVN.

Dercide.

Editado por Dercide Alvarez
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

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

  • Curtir 2

------------------------------------------------

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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?

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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.

------------------------------------------------

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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 por JP_ZANIN
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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.

 

Link para o comentário
Compartilhar em outros sites

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

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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

  • Curtir 2

------------------------------------------------

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

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?

Link para o comentário
Compartilhar em outros sites

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. 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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 por K2 SOFTWARE
Link para o comentário
Compartilhar em outros sites

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.

  • Curtir 1

------------------------------------------------

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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.

 

Link para o comentário
Compartilhar em outros sites

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

------------------------------------------------

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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.

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores
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...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2431 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...