Relatório Paf - Registro E2

[matheusguerra]

Bom dia galera.

Vamos usar agora o componente PAF ECF ACBr.

Estou implementando os relatórios PAF. Notei que no ATO COTEPE/ICMS 9, DE 13 DE MARÇO DE 2013 (http://www1.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2013/AC009_13.htm). O registro E2 deve enviar o campo 06 -  Mensuração do estoque, onde, não esta implementado na classe

 

 TRegistroE2 = class

  private

    fRegistroValido: boolean;

    fCOD_MERC: string;     /// Código da mercadoria ou produto cadastrado na tabela a que se refere o requisito XI

    fDESC_MERC: string;    /// Descrição da mercadoria ou produto cadastrada na tabela a que se refere o requisito XI

    fUN_MED: string;       /// Unidade de medida cadastrada na tabela a que se refere o requisito XI

    fQTDE_EST: currency;   /// Quantidade da mercadoria ou produto constante no estoque, com duas casas decimais.

    //fDT_EST: TDateTime;    /// Data de emissão do DAV

  public

    constructor Create; virtual; /// Create

 

    property RegistroValido: Boolean read fRegistroValido write fRegistroValido default True;

    property COD_MERC: string read FCOD_MERC write FCOD_MERC;

    property DESC_MERC: string read FDESC_MERC write FDESC_MERC;

    property UN_MED: string read FUN_MED write FUN_MED;

    property QTDE_EST: currency read FQTDE_EST write FQTDE_EST;

  end;

 

Será que estou usando o componente antigo? Deve ser implementado esse campo?

[matheusguerra]

Ou a quantidade mandamos negativa quando for e o componente seta esse campo?

[matheusguerra]

Desculpa, achei aqui no código que o componente mesmo faz isso.

          strRegistroE2 := strRegistroE2 + LFill('E2') +

                                           LFill(FRegistroE1.CNPJ, 14) +

                                           RFill(COD_MERC, 14) +

                                           RFill(DESC_MERC, 50) +

                                           RFill(UN_MED, 6, ifThen(RegistroValido, ' ', '?')) +

                                           LFill(ifThen(QTDE_EST < 0, '-', '+')) +

                                           LFill(ifThen(QTDE_EST < 0, (QTDE_EST * (-1)), QTDE_EST), 9, 3) +

                                           //LFill(DT_EST, 'yyyymmdd') +

                                           sLineBreak;

 

Desculpe, desconsiderem.