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

[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.

 

[kleberson]

Segue erro em anexo

erro.bmp

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

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

 

Editado 23 Fevereiro, 2017 por kleberson