Erro Após Atualizar Acbr

[Arnaldo Cruz]

Colegas Atualizei o ACBR hoje 21/12/2013

 

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Inifiles, Generics.Collections, Biblioteca,ProdutoController,
  ACBrPAF, ACBrPAF_E,SQLExpr,ACBrPAF_P, ACBrPAF_N, ACBrPAF_R,
  ACBrPAFRegistros, SWSystem,ImpressoraVO, ProdutoVO, UDataModule;

 

Quando fui compilar meu projeto apareceu as mensagens de erro abaixo.

 

 

with FDataModule.ACBrPAF.PAF_R.RegistroR01 do

 

Undeclared identifier 'InclusaoExclusao' e em todas as propriedades que estão dentro do with

   

 

end;

 

porem abro a unit ACBrPAF_R; e todas estas propriedades estão declaradas.

 

Já apaguei todas as bpl e dcu desinstalei o ACBR instalei novamente,  e o erro não desaparece,

se eu instalar o ACBR anterior ai some os erros, comparei as duas units e estão iguais.

 

se alguém puder mim ajudar eu agradeço, já estou ficando louco.

 

 

with FDataModule.ACBrPAF.PAF_R.RegistroR01 do
begin

     Not FDataModule.ExisteVerificao('R01','R01',FDatamodule.Conexao)  Then

          InclusaoExclusao:=TRUE;

     IF  ( InclusaoExclusao = TRUE)         then
     begin

          NFABRICA:=  Codifica('D',trim(ini.ReadString('ECF','SERIE1','') ));

          NUM_FAB      := Codifica('D',trim(ini.ReadString('ECF','SERIE1','') ));

          MF_ADICIONAL := Impressora.MFD;
          TIPO_ECF     := Impressora.Tipo;
          MARCA_ECF    := Impressora.Marca;
          MODELO_ECF   := Impressora.Modelo;
          VERSAO_SB    := Impressora.Versao;
          DT_INST_SB   := StrToDateTime(Impressora.DataInstalacaoSb);
          HR_INST_SB   := StrToDateTime(Impressora.HoraInstalacaoSb);
         NUM_SEQ_ECF  := StrToInt(Impressora.NumeroEcf);

          CNPJ_SH:=     Codifica('D',trim(ini.ReadString('ESTABELECIMENTO','CNPJ','') ));

          CNPJ         := R01.CnpjEmpresa;

          IE           := Empresa.InscricaoEstadual;

          CNPJ_SH      := Codifica('D',trim(ini.ReadString('SHOUSE','CNPJ','')));

         IE_SH        := '';

         IM_SH        := '';         

         NOME_SH      := Codifica('D',trim(ini.ReadString('SHOUSE','RAZAO','')));  
      NOME_PAF     := Codifica('D',trim(ini.ReadString('SHOUSE','NOME_PAF',''))); //R01.NomePafEcf;VERSAO=     VER_PAF      :=   Codifica('D',trim(ini.ReadString('SHOUSE','VERSAO','')));//R01.VersaoPafEcf;    MD5

      COD_MD5      :=Codifica('D',trim(ini.ReadString('SHOUSE','MD5','')));// R01.Md5PafEcf;
      DT_INI    := StrToDateTime(DataInicio);
      DT_FIN    := StrToDateTime(DataFim);
      ER_PAF_ECF   :='0112';

 

 

 

    end;

end;

Editado 21 Dezembro, 2013 por Arnaldo Cruz

[Régys Silveira]

O Registro R01 mudou já a algum tempo, cerca de 6 meses, verifique no demo do ACBrPAF como deve ser utilizado agora.

 

Dica: agora o arquivo do Paf-ECF é gerado para todos os ecfs, portanto, o registro R01 passou a ser uma lista.

with ACBrPAF.PAF_R.RegistroR01.Add do ....

 

Já existem alguns posts discutindo essa mudança, uma busca vai lhe mostrar: