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

27 minutos atrás, kleberson disse:

Segue erro em anexo

erro.bmp

Observei que no grupo AcbrConvenio115Mestre não possui mais as tags abaixo:

      OMestre.Modelo := 21;
      OMestre.Serie := '001';

 

Bom dia, atualize seu acbr e dá uma olhada no programa exemplo, isso foi corrigido lá.

Londrina - PR

Link para o comentário
Compartilhar em outros sites

Kleberson,

Esses campos foram retirados do lay-out, dever ser informado :

    with ACBrConvenio115 do
    begin
      Modelo       := 21;
      Serie        :=  ==> Não pode ser 000
      CnpjEmitente := ==> Esta sendo passado zerado

Essas informações erradas que estão causando os erros.

Ajuste e teste novamente, e vá postando os erros.

 

Dercide.

 

 

Link para o comentário
Compartilhar em outros sites

Consegui corrigir o problema apresentado na mensagem. Validando o arquivo verifiquei que ele não está gerando o valor de Isentas no registro mestre, mas o valor de outras gera normalmente, ocasionando erro de diferença entre o registro mestre e o itens. No item o valor de isentas aparece na posição corretamente.

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

Boa tarde.

Unit do ACBrConvenio115 validada e OK.

Efetuei algumas correções pois alguns usuários (inclusive nós), estavam com problemas com a quantidade caracteres no arquivo do cadastro. Resolvido.

Outros problemas e validações OK.

Agradeço a todos que contribuíram com essas alterações.

Atenciosamente..

ACBrConvenio115.zip

  • Curtir 1

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

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa tarde,

 

Pessoal, ontem a noite, depois de atualizar meus fontes (horas depois da postagem acima do Daniel) e fazendo alguns testes, na hora de validar, algo em específico tive que alterar nos fontes do componente. No arquivo de destinatários, o alinhamento do campo de telefone estava a direita.Isso ocasionou rejeição na hora de validar. Fiz a alteração para alinhar a esquerda e deu certo.

Cleber C. Ferreira
Analista de Sistemas e Consultor
Email e
Skype: [email protected]
Formiga-MG

Link para o comentário
Compartilhar em outros sites

56 minutos atrás, Cleber disse:

Boa tarde,

 

Pessoal, ontem a noite, depois de atualizar meus fontes (horas depois da postagem acima do Daniel) e fazendo alguns testes, na hora de validar, algo em específico tive que alterar nos fontes do componente. No arquivo de destinatários, o alinhamento do campo de telefone estava a direita.Isso ocasionou rejeição na hora de validar. Fiz a alteração para alinhar a esquerda e deu certo.

Acho que estão fazendo confusões com esses fontes, pois esse problema eu já tinha relatado e corrigido dia 15/02, e o arquivo foi validado sem problemas.

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

E agora testamos aqui com esses fontes e deu esse erro do telefone, erro 317 do campo 11.

Dercide.

 

 

Link para o comentário
Compartilhar em outros sites

Baixei o ACBr Hoje 03/03/2017 as 12:20

desinstalei o ACBr Anterior, instalei o novo ACBr.

 

Quando vou compilar ou dá um builder no meu projeto da os seguintes erros

[dcc32 Error] uFrmMain.pas(105): E2010 Incompatible types: 'TTipoAssinanteConv115_Tab11_8_2' and 'TTipoAssinanteConv115_Tab11_1'
[dcc32 Error] uFrmMain.pas(108): E2003 Undeclared identifier: 'Modelo'
[dcc32 Error] uFrmMain.pas(109): E2003 Undeclared identifier: 'Serie'
[dcc32 Error] uFrmMain.pas(185): E2010 Incompatible types: 'TTipoAssinanteConv115_Tab11_8_2' and 'TTipoAssinanteConv115_Tab11_1'
[dcc32 Error] uFrmMain.pas(189): E2003 Undeclared identifier: 'Serie'

case Query.FieldByName('TIPOASSINANTE').AsInteger  of
0 : OMestre.TipoAssinante :=  tac1182None;
1 : OMestre.TipoAssinante :=  tac111ComercialIndustrial;
2 : OMestre.TipoAssinante :=  tac111PoderPublico ;
3 : OMestre.TipoAssinante :=  tac111ResidencialPessoaFisica;
4 : OMestre.TipoAssinante :=  tac111Publico;
5 : OMestre.TipoAssinante :=  tac111SemiPublico;
6 : OMestre.TipoAssinante :=  tac111Outros;
end;

OMestre.Modelo               := StrToInt(Query.FieldByName('MODELO').AsString) ;
OMestre.Serie                := Serie;//Query.FieldByName('SERIE').AsString ;

 

No Projeto exemplo do ACBr também dá os mesmo erros.

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa tarde

seus fontes devem possuir algum arquivo alterado localmente!

acabei de testar e não deu o erro mencionado!

Falta só conferir o problema informado pelo @Dercide Alvarez

  • Curtir 1
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

Juliomar não existe nenhuma alteração feita do jeito que baixei  está.

verifiquei pasta por pasta do Acbr todas estão marcadas com o icone verdinho, qdo tem alteração aparece o icone vermelho.

continua dando o mesmo erro

 

[dcc32 Error] UArquivos.pas(156): E2010 Incompatible types: 'TTipoAssinanteConv115_Tab11_8_2' and 'TTipoAssinanteConv115_Tab11_1'

[dcc32 Error] UArquivos.pas(173): E2003 Undeclared identifier: 'Modelo'

[dcc32 Error] UArquivos.pas(174): E2003 Undeclared identifier: 'Serie'

 

se eu comento as linhas abaixo o projeto compila

 

//                      case Query.FieldByName('TIPOASSINANTE').AsInteger  of
//                        0 : OMestre.TipoAssinante :=  tac1182None;
//                        1 : OMestre.TipoAssinante :=  tac111ComercialIndustrial;
//                        2 : OMestre.TipoAssinante :=  tac111PoderPublico ;
//                        3 : OMestre.TipoAssinante :=  tac111ResidencialPessoaFisica;
//                        4 : OMestre.TipoAssinante :=  tac111Publico;
//                        5 : OMestre.TipoAssinante :=  tac111SemiPublico;
//                        6 : OMestre.TipoAssinante :=  tac111Outros;
//                      end;

//OMestre.Modelo               := StrToInt(Query.FieldByName('MODELO').AsString) ;
//OMestre.Serie                := Serie;//Query.FieldByName('SERIE').AsString ;

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

1 hora atrás, Arnaldo Cruz disse:

Juliomar não existe nenhuma alteração feita do jeito que baixei  está.

verifiquei pasta por pasta do Acbr todas estão marcadas com o icone verdinho, qdo tem alteração aparece o icone vermelho.

continua dando o mesmo erro

 

[dcc32 Error] UArquivos.pas(156): E2010 Incompatible types: 'TTipoAssinanteConv115_Tab11_8_2' and 'TTipoAssinanteConv115_Tab11_1'

[dcc32 Error] UArquivos.pas(173): E2003 Undeclared identifier: 'Modelo'

[dcc32 Error] UArquivos.pas(174): E2003 Undeclared identifier: 'Serie'

 

se eu comento as linhas abaixo o projeto compila

 

//                      case Query.FieldByName('TIPOASSINANTE').AsInteger  of
//                        0 : OMestre.TipoAssinante :=  tac1182None;
//                        1 : OMestre.TipoAssinante :=  tac111ComercialIndustrial;
//                        2 : OMestre.TipoAssinante :=  tac111PoderPublico ;
//                        3 : OMestre.TipoAssinante :=  tac111ResidencialPessoaFisica;
//                        4 : OMestre.TipoAssinante :=  tac111Publico;
//                        5 : OMestre.TipoAssinante :=  tac111SemiPublico;
//                        6 : OMestre.TipoAssinante :=  tac111Outros;
//                      end;

//OMestre.Modelo               := StrToInt(Query.FieldByName('MODELO').AsString) ;
//OMestre.Serie                := Serie;//Query.FieldByName('SERIE').AsString ;

Arnaldo,

Esse erros são porque houve alteração no lay-out, e algumas propriedade foram tiradas e outras acrescentadas.

Esse assunto já foi discutido aqui, no dia 23/02. Da uma lida nos posts.

 

Esses campos foram retirados do lay-out, dever ser informado :

    with ACBrConvenio115 do
    begin
      Modelo       := 21;
      Serie        :=  ==> Não pode ser 000
      CnpjEmitente := ==> Esta sendo passado zerado

Dercide.

 

Link para o comentário
Compartilhar em outros sites

1 hora atrás, Dercide Alvarez disse:

Arnaldo,

Esse erros são porque houve alteração no lay-out, e algumas propriedade foram tiradas e outras acrescentadas.

Esse assunto já foi discutido aqui, no dia 23/02. Da uma lida nos posts.

 

Esses campos foram retirados do lay-out, dever ser informado :

    with ACBrConvenio115 do
    begin
      Modelo       := 21;
      Serie        :=  ==> Não pode ser 000
      CnpjEmitente := ==> Esta sendo passado zerado

Dercide.

Dercide é que estou seguindo o exemplo do ACBR para geração do arquivo, que também está com o mesmo problema,

eu não tenho o novo layout já procurei na NET e não encontrei.

mas aparentemente já identifiquei onde está o problema como segue abaixo

TTipoAssinanteConv115_Tab11_1 = (
    tac111None,
    tac111ComercialIndustrial,
    tac111PoderPublico,
    tac111ResidencialPessoaFisica,
    tac111Publico,
    tac111SemiPublico,
    tac111Outros);
    tac11182Igrejas,
    tac11182Outros);

  TProdutoConv115_Tab11_2 = (
    pc112None,
    pc112Telefonia,
    pc112ComunicacaoDados,
    pc112TVAssinatura,
    pc112ProvimentoAcessoInternet,
    pc112Multimidia,
    pc112Outros);

eu poderia trocar para o TProdutoConv115_Tab11_2  porem estou com duvidas se não teria que ter um IF indicando qual propriedade usar.

se vc puder mim dá uma dica eu agradeço.

 

Obrigado

Link para o comentário
Compartilhar em outros sites

  • Moderadores
9 horas atrás, Dercide Alvarez disse:

Arnaldo,

Esse erros são porque houve alteração no lay-out, e algumas propriedade foram tiradas e outras acrescentadas.

Esse assunto já foi discutido aqui, no dia 23/02. Da uma lida nos posts.

 

Esses campos foram retirados do lay-out, dever ser informado :

    with ACBrConvenio115 do
    begin
      Modelo       := 21;
      Serie        :=  ==> Não pode ser 000
      CnpjEmitente := ==> Esta sendo passado zerado

Dercide.

 

 

Posso não estar pensando de forma lógica e estrutural o componente, mas será q esses atributos não poderiam ter ficado do jeito q estava antes? Modelo e série sendo informados no mestre do documento? Assim ficaria mais padronizado com os demais componentes envolvendo DFes(NFe, CTe...Etc).

É só uma sugestão mesmo...

Att.

Cleber C. Ferreira
Analista de Sistemas e Consultor
Email e
Skype: [email protected]
Formiga-MG

Link para o comentário
Compartilhar em outros sites

16 horas atrás, Cleber disse:

 

Posso não estar pensando de forma lógica e estrutural o componente, mas será q esses atributos não poderiam ter ficado do jeito q estava antes? Modelo e série sendo informados no mestre do documento? Assim ficaria mais padronizado com os demais componentes envolvendo DFes(NFe, CTe...Etc).

É só uma sugestão mesmo...

Att.

Dercide ou algum dos colegas  vc teria o novo manual e poderia disponibilizar para que eu possa atualizar minha geração de arquivo.

 

Obrigado

Link para o comentário
Compartilhar em outros sites

Consegui valir o arquivo com a advertencia abaixo, mostrado tambem na imagem

Arq. Descrição da Advertência                                                             Qtde    
--------------------------------------------------------------------------------------------------
MEST 154-CNPJ numericamente inválido                                                             1
--------------------------------------------------------------------------------------------------
                                                            Total de Advertências:               1
                                                            
Fiz a verificação no arquivo e está preenchido com NNNNNNNNNNNNNN(14 digitos)

Não sei como resolver esta pendência


Aproveitando Gostaria de tirar uma duvida que mim foi imposta pelo contador.

Na minha tela de emissão eu tenho os campos abaixo que servemo para geração do arquivo

1 - Valor do Serviço
2 - Base de Cáculo
3 - Desconto
4 - Acrescimo
5 - Isentas
6 - Outros
7 - Total da NF

O contador mim ligou dizendo que os campos de 2 a 6 são desnecessários, pois devem sempre ser preenchidos
com zeros seja qual for o regime tributario da empresa.

porém se no arquivo for preenchido conforme indicação deste contador o arquivo não é validado

exemplo como indicado pelo contador(Não Valida)

1 - Valor do Serviço      350,00
2 - Base de Cáculo          0,00
3 - Desconto                0,00
4 - Acrescimo               0,00
5 - Isentas                 0,00
6 - Outros                  0,00
7 - Total da NF           350,00

Na Validação o erro diz que o Valot total deve ser BC + Isentas + Outros

exemplo sem seguir indicação do contador(Validação OK)

1 - Valor do Serviço      350,00
2 - Base de Cáculo          0,00
3 - Desconto                0,00
4 - Acrescimo               0,00
5 - Isentas                 0,00
6 - Outros                350,00
7 - Total da NF           350,00

Pergunto este contador está certo ?
  A - se sim porque o arquivo não valida.
  B - Se não o meu preenchimento está correto
 
  Obrigado

Validador.jpg

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

Arnaldo,

Segue o manual atualizado e a tabela de erros.

1) A advertência é porque o preenchimento do CNPJ esta errado, verifique o valor, veja através do arquivo de LOG de erros, ele mostra o valor que esta sendo preenchido.

2) Quanto ao teu questionamento sobre o campo outras, pelo o que estou vendo ele deve ser zerado.

O valor de outras deve existir na nota fiscal, senão existir deve ir zerado.

Dercide.

 

 

 

 

cv115_2017.pdf

TabErros__v_3_00a.pdf

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

On 04/03/2017 at 1:17 AM, Cleber said:

 

Posso não estar pensando de forma lógica e estrutural o componente, mas será q esses atributos não poderiam ter ficado do jeito q estava antes? Modelo e série sendo informados no mestre do documento? Assim ficaria mais padronizado com os demais componentes envolvendo DFes(NFe, CTe...Etc).

É só uma sugestão mesmo...

Att.

Boa tarde.

Não Cleber, pois veja, a formação do Nome do Arquivo agora tem que constar Série do Documento fiscal, portanto,  mesma deve ir no mestre. E, por conseguinte, arquivos por série de Notas.

Atenciosamente.

Boa tarde.

Uma outra coisa, eu mão atualizei o programa de exemplo. 

Alguns dos erros acima é por causa disso, mas se Não em engano, teve um outro usuário que fez essa atualização.

Atenciosamente.

  • Curtir 1

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

Jéter Rabelo Ferreira
Campestre/MG

Link para o comentário
Compartilhar em outros sites

Colegas já estou ficando desesperado

 se eu informar somente valor total no mestre e no detalhe, da erro dizendo que o valor total dever ser BC+Insento + outros e não valida o arquivo.

Se eu informo valor total e o mesmo valor em Outros valores o arquivo é validado porem aparece advertencia(1;A;M;154;[00045266522453];000001251) em todos os itens

Segue os arquivos gerados se alguem puder mim dá uma força eu pago pela ajuda, o contador disse que só aceita se não tiver advertencia, já segui o manual

e o arquivo está conforme o layout do manual. Não sei como tirar esta advertencia.

 

Estou postando os arquivos e imagem da validação quando não informo  OutrosValores, e estou postando os arquivos e imagem da validação quando informo o valorTotal=Outros Valores(nesse caso o problema são as advertencias.

se alguem puder mim ajuda, ou cobrar pela ajuda eu agradeço.

 

O cnpj ou CPF do destinatario estou passando assim >>> OMestre.Destinatario.CnpjCpf := cnp;  cnp vem sem numeros e pontos e sem barras

 

os valores

OMestre.OutrosValores        := Query.FieldByName('VALORTOTALNF').AsFloat ;

ODetalhe.OutrosValores        := Query1.FieldByName('TOTALITEM').AsFloat ;

OMestre.ValorTotal           := Query.FieldByName('VALORTOTALNF').AsFloat ;

ODetalhe.ValorTotal               := Query1.FieldByName('TOTALITEM').AsFloat ;

Ambos os valores são iguais

 

 

ComOutros.jpg

Log de erros do PB05672250000191210011701N01 volume 001.txt

PB05672250000191210011701N01D.001

PB05672250000191210011701N01I.001

PB05672250000191210011701N01M.001

Log de erros do PB05672250000191210011701N01 volume 001.txt

PB05672250000191210011701N01D.001

PB05672250000191210011701N01I.001

PB05672250000191210011701N01M.001

SemValoroutros.jpg

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

Arnaldo,

A questão da advertencia do CNPJ, já vou ver

 

Quanto ao erro, faça assim :

Preencha assim o Mestre :

OMestre.ValorTotal                     := Query.FieldByName('VALORTOTALNF').AsFloat ;

OMestre.OutrosValores             := 0;

OMestre.IsentosNaoTributadas  := Query.FieldByName('VALORTOTALNF').AsFloat ;

 

Preencha assim os Itens:

ODetalhe.ValorTotal               := Query.FieldByName('VALORTOTALNF').AsFloat ;

ODetalhe.IsentoNaoTributados:= Query.FieldByName('VALORTOTALNF').AsFloat ;

 

Os outros valores todos zerados.

Faça a validação e poste o resultado.

 

Dercide.

 

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.