Implementação De Novos Campos Acbrpaf

[jperim]

Por favor analisarem minhas alterações.

ACBrPAF.rar

Editado 27 Abril, 2015 por jperim

[EMBarbosa]

Por favor, poderia descrever suas alterações?

[jperim]

ACBrPAF_F

  FER_PAF_ECF: string;     // Versão da Especificação de Requisitos do PAF-ECF

 

ACBrPAF_F_Class;

  lin. 194 => LFill(COO, IfThen(ER_PAF_ECF='0202',9,6)) +

  lin. 193 => LFill(CCF, IfThen(ER_PAF_ECF='0202',9,6)) +

 

  lin. 234 => LFill(StrUtils.IfThen(RegistroValido, COD_TSER, '??'), 2) +

 

ACBrPAF_L_Class;

  lin.140 => RFill(MODELO_ECF, 20, ifThen(RegistroValido, ' ', '?')) +

  lin.142 => LFill(COO, IfThen(ER_PAF_ECF='0202',9,6)) +

  

ACBrPAF_M;

  //M2 - Cupom de embarque

  TRegistroM2 = class

  private

    fRegistroValido: Boolean;

    fPERC_DESC: Currency;            // Percentual do desconto praticado sobre a tarifa

    fCPF_PAS: string;                // Número CPF do passageiro.

    fTEL_PAS: string;                // Número de celular do passageiro

    FER_PAF_ECF: string;             // Versão da Especificação de Requisitos do PAF-ECF

 

ACBrPAF_M_Class;

  WriteRegistroM2

  lin. 138 => RFill(MODELO_ECF, 20, ifThen(RegistroValido, ' ', '?')) +

  lin. 140 => LFill(CCF, IfThen(ER_PAF_ECF='0202',9,6)) +

  lin. 141 => LFill(COO, IfThen(ER_PAF_ECF='0202',9,6)) +

  lin. adicionadas => LFill(PERC_DESC, 5, 2) +

                      RFill(CPF_PAS, 11) +

                      RFill(TEL_PAS, 14) +

 

ACBrPAF_R_Class;

  WriteRegistroR02

  lin. 397 =>  LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  WriteRegistroR04

  lin. 476 =>  LFill(NUM_CONT, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  lin. 477 =>  LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  WriteRegistroR05

  lin. 526 =>  LFill(RegR04.COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  lin. 527 =>  LFill( IfThen(NUM_CONT=-1, RegR04.NUM_CONT, NUM_CONT), IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  WriteRegistroR06

  lin. 579 =>  LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  WriteRegistroR07

  lin. 660 =>  LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  lin. 661 =>  LFill(CCF, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  lin. 676 =>  LFill(COO, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

  lin. 677 =>  LFill(CCF, IfThen(RegR01.ER_PAF_ECF='0202',9,6)) +

[EMBarbosa]

Desculpe acho que não fui claro. Eu quis dizer descrever os motivos das alterações, não alistar as alterações em si...

[jperim]

VERSÃO PAF_ECF='0202'

COO e CCF deve ser 9 digitos

 

e campos novos nos outros registros do PAF, blocos ref. a Venda de Bilhete de Passagem