Erro Nos Registros C481 E C485

[Lindomar]

Boa tarde.

 

Recentemente atualizei o acbr e voltou os erros no registros c481/c485. O codigo abaixo é o formato antigo que funcionava 100% sem que fosse preciso setar as variáveis pois o mesmo já setava de acordo com a cst recebida. Gostaria que avaliassem a possibilidade de manter o codigo abaixo.

Isso vale para o código do registro c485 também. A unit atual não possui as linhas em vermelho.

 

procedure TBloco_C.WriteRegistroC481(RegC405: TRegistroC405);

var

  intFor: integer;

  NullVL_BC_PIS: Boolean;

  NullALIQ_PIS: Boolean;

  NullQUANT_BC_PIS: Boolean;

  NullALIQ_PIS_QUANT: Boolean;

  NullVL_PIS: Boolean;

begin

   NullVL_BC_PIS      := False;

   NullALIQ_PIS       := False;

   NullQUANT_BC_PIS   := False;

   NullALIQ_PIS_QUANT := False;

   NullVL_PIS         := False;

   //--

   if Assigned(RegC405.RegistroC481) then

   begin

      for intFor := 0 to RegC405.RegistroC481.Count - 1 do

      begin

        with RegC405.RegistroC481.Items[intFor] do

        begin

          if Assigned(FOnBeforeWriteRegistroC481) then

             begin

                FOnBeforeWriteRegistroC481( RegC405.RegistroC481.Items[intFor],

                                            NullVL_BC_PIS,

                                            NullALIQ_PIS,

                                            NullQUANT_BC_PIS,

                                            NullALIQ_PIS_QUANT,

                                            NullVL_PIS);

             end else

             begin

               NullVL_BC_PIS      := ( CST_PIS in [ stpisQtdeAliquotaUnidade,

                                               stpisIsentaContribuicao,

                                               stpisSemIncidenciaContribuicao,

                                               stpisSuspensaoContribuicao  ]);

 

               NullALIQ_PIS       := ( CST_PIS in [ stpisQtdeAliquotaUnidade,

                                               stpisIsentaContribuicao,

                                               stpisSemIncidenciaContribuicao,

                                               stpisSuspensaoContribuicao  ]);

 

               NullQUANT_BC_PIS   := ( CST_PIS <> stpisQtdeAliquotaUnidade );

               NullALIQ_PIS_QUANT := ( CST_PIS <> stpisQtdeAliquotaUnidade );

             end;

 

          Add( LFill('C481')             +

               LFill(CstPisToStr(CST_PIS)) +

               LFill(VL_ITEM,0,2)        +

               DFill(VL_BC_PIS,      2, NullVL_BC_PIS) +

               DFill(ALIQ_PIS,       4, NullALIQ_PIS) +

               DFill(QUANT_BC_PIS,   3, NullQUANT_BC_PIS) +

               DFill(ALIQ_PIS_QUANT, 4, NullALIQ_PIS_QUANT) +

               LFill(VL_PIS,0,       2, NullVL_PIS)         +

               LFill(COD_ITEM)           +

               LFill(COD_CTA) ) ;

          //

          RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;

        end;

     end;

     // Variavél para armazenar a quantidade de registro do tipo.

     FRegistroC481Count := FRegistroC481Count + RegC405.RegistroC481.Count;

   end;

end;

[Isaque Pinheiro]

Realmente não devem existir, essa checagem deve ser feita no seu código no evento que foi criado.