Ajuda - Erro no Bloco E - Erro RegistroE120New

[André Franco]

Olá! Peço a ajuda de vocês

Ao carrega o  RegistroE120New do SEF informo código do município correto, porém é gravado no arquivo gerado um número de código de muncicipio totalmente diferente, sendo rejeitado na importação.

Código:

    while not eof do
                begin
                  with RegistroE120New do
                    begin
                      IND_OPER := SefioSaida;
                      IND_EMIT := SefiePropria;
                      COD_PART := FieldByName('codigoclidest').AsString;
                      COD_MUN_SERV := 2605202;
                      COD_MOD := SrefCTe;

 

 

Retorna um código totalmente diferente 

|E120|1|0|542|18109032| 

 

 

[André Franco]

Encontrie esse BUg nesse código.
Fiz a alteração compilei e dai tudo certo.
Tem que alterar no Trunk2

No ACBrSEF2_BlocoE

no código:
  //Juliano Rosa 06/05/2014
  //LINHA E120: LANÇAMENTO - NOTA FISCAL DE SERVIÇO DE TRANSPORTE (CÓDIGO 07), CONHECIMENTOS DE TRANSPORTE RODOVIÁRIO DE CARGAS (CÓDIGO 08), AQUAVIÁRIO DE CARGAS (CÓDIGO 09), AÉREO (CÓDIGO 10), FERROVIÁRIO DE CARGAS (CÓDIGO 11), MULTIMODAL DE CARGAS (CÓDIGO 26), ELETRÔNICO (CÓDIGO 57), NOTA FISCAL DE SERVIÇO DE TRANSPORTE FERROVIÁRIO (CÓDIGO 27) E RESUMO DE MOVIMENTO DIÁRIO (CÓDIGO 18)
  TRegistroSEFE120 = class
  private
    fCOD_MUN_SERV: integer;
modifiquei para string

    fCOD_MUN_SERV: string;

 constructor Create(AOwner: TRegistroSEFE001); virtual;
   destructor Destroy; override;

 property COD_MUN_SERV : integer read fCOD_MUN_SERV      write fCOD_MUN_SERV; 

troquei o integer por string dai o arquivo gerado saiu com o codigo do municipio correto 
   property COD_MUN_SERV : string read fCOD_MUN_SERV write fCOD_MUN_SERV;

Editado 16 Janeiro, 2017 por André Franco

[Juliomar Marchetti]

Boa noite

a correção não é a sugerida acima mas sim a que subi no svn!

favor atualizar recompilar os componentes e testar.

 

[André Franco]

ok! 

obrigado

[André Franco]

2 horas atrás, Juliomar Marchetti disse:

Boa noite

a correção não é a sugerida acima mas sim a que subi no svn!

favor atualizar recompilar os componentes e testar.

 

Olha o que tá acontecendo!

Já mandei excluir todas os arquivos e nada, um outro amigo tá com o mesmo problema.

Esse: deprecated da chave tem algo a ver?

Copyright (c) 1983,2009 Embarcadero Technologies, Inc.
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1689) Error: E2169 Field definition not allowed after methods or properties
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1689) Error: E2029 ',' or ':' expected but string constant found
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2029 Type expected but 'PROPERTY' found
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2217 Published field 'deprecated' not a class or interface type
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2029 ',' or ':' expected but identifier 'FchCTe' found
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2029 ',' or ':' expected but identifier 'FchCTe' found
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1691) Error: E2029 Type expected but 'END' found
C:\Program Files (x86)\Embarcadero\Andre\ACBr\Fontes\ACBrDFe\ACBrCTe\ACBrCTeWebServices.pas(49) Fatal: F2063 Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas'
Compilation failure
Erro ao compilar o pacote "ACBr_CTe.dpk".

Editado 17 Janeiro, 2017 por André Franco

[Juliomar Marchetti]

Bom dia

você não atualizou todos os componentes! 

faça update e recompile todos. houveram mudanças ontem no CT-e!

[Marcelo Ogliari]

Boa tarde,

Também estou com o mesmo problema do André Franco, acabei de fazer o update e na hora de recompilar esta dando Erro ao compilar o pacote "ACBr_CTe.dpk".

[jffernandes]

Boa tarde, grupo. 

Mesmo removendo todos os componentes e baixando do SVN novamente continuo com esse erro, estou com o Delphi Berlin Update2, alguma idéia?

Desde já agradeço.

D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1689) Error: E2169 Field definition not allowed after methods or properties
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1689) Error: E2029 ',' or ':' expected but string constant found
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2029 Type expected but 'PROPERTY' found
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2217 Published field 'deprecated' not a class or interface type
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2029 ',' or ':' expected but identifier 'FchCTe' found
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1690) Error: E2029 ',' or ':' expected but identifier 'FchCTe' found
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\PCNCTe\pcteCTe.pas(1691) Error: E2029 Type expected but 'END' found
D:\OneDrive\Projetos CS\Componentes\ACBr2\Fontes\ACBrDFe\ACBrCTe\ACBrCTeWebServices.pas(2063) Fatal: F2063 Could not compile used unit 'pcteCTe.pas'
Compilation failure
Erro ao compilar o pacote "ACBr_CTe.dpk".

 

[Juliomar Marchetti]

Pronto.

Atualizem o svn removi o código para não ter problemas, mas eu instalei em meus delphis e lazarus sem problema algum.

mas lembre-se esse não erro não tem a ver com esse tópico é de outro ok

[jffernandes]

5 horas atrás, Juliomar Marchetti disse:

Pronto.

Atualizem o svn removi o código para não ter problemas, mas eu instalei em meus delphis e lazarus sem problema algum.

mas lembre-se esse não erro não tem a ver com esse tópico é de outro ok

Resolvido, obrigado pela atenção.

[André Franco]

8 minutos atrás, conceitosystem disse:

Resolvido, obrigado pela atenção.

Tudo ok!