Melhorias no arquivo ACBrIBPTax

[Waldir Paim]

Segue anexo

ACBrIBPTax.pas

[Régys Silveira]

Você precisa descrever o que fez e porque fez, também se utilizou o Trunk1 ou Trunk2, lembrando que não é dada mais manutenção no Trunk1.

[Waldir Paim]

Oi Regis,

Na unit anexada eu inclui a data de vigência, sendo assim a gente consegue testar se o NCM ainda está dentro do prazo de vigência, com o programador pode por um flag para inativar os NCM espirados.

Se puder avaliar a melhoria seria bem interessante ter essa funcionalidade.  

[Régys Silveira]

4 minutos atrás, Waldir Paim disse:

Oi Regis,

Na unit anexada eu inclui a data de vigência, sendo assim a gente consegue testar se o NCM ainda está dentro do prazo de vigência, com o programador pode por um flag para inativar os NCM espirados.

Se puder avaliar a melhoria seria bem interessante ter essa funcionalidade.  

Desculpe não entendi, hoje já existe uma data de vigência do arquivo, são duas datas um para inicio e outro para fim (data de validade) seria isso?

[Waldir Paim]

Regis,

Veja :

  TACBrIBPTaxRegistro = class
  private
    FTabela: TACBrIBPTaxTabela;
    FExcecao: String;
    FNCM: string;
    FDescricao: string;
    FEstadual: Double;
    FFederalNacional: Double;
    FFederalImportado: Double;
    FMunicipal: Double;
    fVigenciaInicio: TDateTime;
    fVigenciaFim: TDateTime;
  public
    property NCM: string read FNCM write FNCM;
    property Descricao: string read FDescricao write FDescricao;
    property Excecao: String read FExcecao write FExcecao;
    property Tabela: TACBrIBPTaxTabela read FTabela write FTabela;
    property FederalNacional: Double read FFederalNacional write FFederalNacional;
    property FederalImportado: Double read FFederalImportado write FFederalImportado;
    property Estadual: Double read FEstadual write FEstadual;
    property Municipal: Double read FMunicipal write FMunicipal;
    property VigenciaInicio : TDateTime read fVigenciaInicio write fVigenciaInicio; //essa aqui eu inclui
    property VigenciaFim : TDateTime read fVigenciaFim write fVigenciaFim;  //essa aqui eu inclui
  end;

Eu posso esta com a unit desatualizada, pode confirmar pra mim se tem essas duas propriedades na sua unit?

 

Achei as propriedade que você citou!

Elas estão na class TACBrIBPTax mas acredito que o lugar certo delas seria ali onde sugeri.

 

[Régys Silveira]

A data de vigencia de inicio e fim estão no objeto principal e não no item, não tem porque ela existir para o item, já que a vigência é para todo arquivo.

[Waldir Paim]

Entendido, já reverti a alteração.

Obrigado pela atenção.