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

[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

[Daniel Simoes]

24 minutos atrás, Dercide Alvarez disse:

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

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

Se deseja sugerir melhorias ou correções nos fontes, favor anexar (zip) as Units modificadas, para a analise de todos os envolvidos...

[marcosdiasvendramini]

Muito obrigado @Jéter Rabelo Ferreira, o problema era aquele mesmo, eu não tinha adicionado o código do município, obrigado.

No momento eu estou com o erro citado pelo @Dercide Alvarez:

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 

Obrigado a todos pela ajuda.

[Dercide Alvarez]

39 minutos atrás, Daniel Simoes disse:

Se deseja sugerir melhorias ou correções nos fontes, favor anexar (zip) as Units modificadas, para a analise de todos os envolvidos...

Daniel,

Eu já havia postado a unit com as correções. Depois o Jéter fez novas implementações, e deu alguma confusão.

Estou falando com o Jéter e estamos ajustando.

 

Dercide.

[K2 SOFTWARE]

Jéter, os erros que o marcosdiasvendramini acabou de passar, para corrigir precisa mudar essas linhas:

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

de: {26} PadLeft(NumeroTelefonePrincipal, 12, '0') +  para: {26} PadRight(NumeroTelefonePrincipal, 12) + 

 

procedure TACBrConvenio115.DoGerarDestinatario;

De: {11} PadLeft(OnlyNumber(FMestre.Destinatario.Telefone), 12, '0') +  para {11} PadRight(OnlyNumber(FMestre.Destinatario.Telefone), 12) + 

 

Obrigado.

 

Hélio Almeida

Editado 15 Fevereiro, 2017 por K2 SOFTWARE

[Dercide Alvarez]

Jéter,

Fiz os ajustes necessários, geramos o arquivo e validamos.

Segue a unit com as correções.

OBS: Existem outras alterações além dessa mencionada por K2 SOFTWARE.

Dercide.

ACBrConvenio115.pas

Editado 15 Fevereiro, 2017 por Dercide Alvarez

[Jéter Rabelo Ferreira]

7 minutes ago, K2 SOFTWARE said:

Jéter, os erros que o marcosdiasvendramini acabou de passar, para corrigir precisa mudar essas linhas:

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

de: {26} PadLeft(NumeroTelefonePrincipal, 12, '0') +  para: {26} PadRight(NumeroTelefonePrincipal, 12) + 

 

procedure TACBrConvenio115.DoGerarDestinatario;

De: {11} PadLeft(OnlyNumber(FMestre.Destinatario.Telefone), 12, '0') +  para {11} PadRight(OnlyNumber(FMestre.Destinatario.Telefone), 12) + 

 

Obrigado.

 

Hélio Almeida

Boa tarde

O Estranho é que isso está corrigido na minha unit aqui.

Vou enviar novamente e você pode verificar.

Dercide, verifica com essa unit para vermos se agora está ok, por favor.

Atenciosamente.

ACBrConvenio115.zip

[Dercide Alvarez]

Jéter, 

Esse fonte que vc mandou esta dando erro :

EReadError - Error reading ACBrConvenio115.NumeroArquivoSubstituido: Property NumeroArquivoSubstituido does not exist

Aquela que te enviei esta validando, e possui essa propriedade que você criou para o sequencial do nome do arquivo.

    property NumeroArquivoSubstituido: SmallInt read FNumeroArquivoSubstituido write FNumeroArquivoSubstituido;
 

Dercide.

[Jéter Rabelo Ferreira]

1 hour ago, Dercide Alvarez said:

Jéter, 

Esse fonte que vc mandou esta dando erro :

EReadError - Error reading ACBrConvenio115.NumeroArquivoSubstituido: Property NumeroArquivoSubstituido does not exist

Aquela que te enviei esta validando, e possui essa propriedade que você criou para o sequencial do nome do arquivo.

    property NumeroArquivoSubstituido: SmallInt read FNumeroArquivoSubstituido write FNumeroArquivoSubstituido;
 

Dercide.

Boa tarde.

Muito obrigado Dercide pela ajuda.

Segue a unit agora validada pelo Dercide.

Atenciosamente.

ACBrConvenio115..pas.zip

[Juliomar Marchetti]

No svn as alterações

[sonoreis]

Bom Dia!

Aqui esta dando o seguinte erro

[Juliomar Marchetti]

Anexe o arquivo e por favor o endereço para baixar o validador! Obrigado

[Jéter Rabelo Ferreira]

4 hours ago, sonoreis said:

Bom Dia!

Aqui esta dando o seguinte erro

Bom dia

Verifique se você informou o Código do IBGE.

Como explicado acima, esse campo obrigatoriamente deve ter 7 dígitos.

Atenciosamente.

[sonoreis]

Bom dia!

Informei sim, será que esqueci de informar outro campo?

[Dercide Alvarez]

Posta o arquivo de destinatarios, ai podemos dar uma analisar.

Dercide.

[Alex Pereira]

Bom dia pessoal.

Atualizei os fontes "ACBrConvenio115.pas" e "uFrmACBrConvenio115_PRN.pas" e "uFrmACBrConvenio115_PRN.dfm" mas está dando os seguintes erros:

[DCC Error] uFrmACBrConvenio115_PRN.pas(384): E2003 Undeclared identifier: 'Modelo'

procedure TFrmACBrConvenio115_PRN.RLLabel19BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  inherited;
  Text := IntToStr(Convenio115.Mestre[0].Modelo);
end;

 

[DCC Error] uFrmACBrConvenio115_PRN.pas(398): E2003 Undeclared identifier: 'Serie'

procedure TFrmACBrConvenio115_PRN.RLLabel21BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  inherited;
  Text := Convenio115.Mestre[0].Serie;
end;

 

No caso faltou eu fazer alguma outra coisa?

Obrigado.

[armando.boza]

20 minutos atrás, Alex Pereira disse:

Bom dia pessoal.

Atualizei os fontes "ACBrConvenio115.pas" e "uFrmACBrConvenio115_PRN.pas" e "uFrmACBrConvenio115_PRN.dfm" mas está dando os seguintes erros:

[DCC Error] uFrmACBrConvenio115_PRN.pas(384): E2003 Undeclared identifier: 'Modelo'

procedure TFrmACBrConvenio115_PRN.RLLabel19BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  inherited;
  Text := IntToStr(Convenio115.Mestre[0].Modelo);
end;

 

[DCC Error] uFrmACBrConvenio115_PRN.pas(398): E2003 Undeclared identifier: 'Serie'

procedure TFrmACBrConvenio115_PRN.RLLabel21BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  inherited;
  Text := Convenio115.Mestre[0].Serie;
end;

 

No caso faltou eu fazer alguma outra coisa?

Obrigado.

Tente usar 

Text := IntToStr(Convenio115.Modelo);
Text := Convenio115.Serie;

[Alex Pereira]

37 minutos atrás, armando.boza disse:

Tente usar 

Text := IntToStr(Convenio115.Modelo);
Text := Convenio115.Serie;

Deu certo Armando, muito obrigado.

Só pra conhecimento, caso ocorra com mais alguém, tinha outro ajuste tb que esqueci de colocar.

[DCC Error] uFrmACBrConvenio115_PRN.pas(574): E2035 Not enough actual parameters

procedure TFrmACBrConvenio115_PRN.RLMemo2BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  Text := Convenio115.Mestre[0].AutenticacaoDocumentoFiscal;
end;

Aí passei (parâmetro "AVersaoAnterior") 

Text := Convenio115.Mestre[0].AutenticacaoDocumentoFiscal(False);

Att, Alex.

[Juliomar Marchetti]

Tem erro?

favor anexar as units para merge

[armando.boza]

3 horas atrás, Juliomar Marchetti disse:

Tem erro?

favor anexar as units para merge

O erro é apenas no programa exemplo @Juliomar Marchetti

uFrmACBrConvenio115_PRN.pas

[clodemar]

Pessoal só para informação alguns erros de código IBGE, o nome do município tem que estar igual a tabela do validador, senão ele gera este erro, inclusive com os acentos, e também  "case sensitive"

[Dercide Alvarez]

18 horas atrás, clodemar disse:

Pessoal só para informação alguns erros de código IBGE, o nome do município tem que estar igual a tabela do validador, senão ele gera este erro, inclusive com os acentos, e também  "case sensitive"

O descrição deve estar de acordo com relação das cidades e seus devidos códigos do IBGE , conforme o arquivo :

SPED_Tabela_de_Municipios_IBGE_tb1325_v_11.txt

Esse arquivos esta disponível junto com o validador.

Eu carreguei o arquivo em um DataSet e através do código do IBGE localizo a descrição do nome da cidade, ai não tive mais críticas.

Dercide.

[Juliomar Marchetti]

Em 2/17/2017 at 15:09, armando.boza disse:

O erro é apenas no programa exemplo @Juliomar Marchetti

uFrmACBrConvenio115_PRN.pas

No svn a correção da impressão

[kleberson]

Bom dia. Estou com problemas ao gerar o arquivo.

Não está gerando as informações do modelo, série e CNPJ. Ao validar apresenta esses erros.

[Dercide Alvarez]

Kleberson,

Passe mais detalhes dos erros, se gerou o log de erros, verifique quais são os erros na tabela.

Ai fica mais facil para te ajudar.

 

Dercide.