Iniciando A Usar Acbr Registro C481

[petry]

Alguem poderia me dar um exemplo de codigo para gerar os registros C400 C481.  agradeço.

[Juliomar Marchetti]

  with ACBrSPEDPisCofins1.Bloco_C.RegistroC400New do
  begin
       COD_MOD      :='';
       ECF_MOD      :='';
       ECF_FAB      :='';
       ECF_CX       :=0;

  end;
  with ACBrSPEDPisCofins1.Bloco_C.RegistroC481New do
  begin
       CST_PIS        :=stpisValorAliquotaNormal;
       VL_ITEM        :=0;
       VL_BC_PIS      :=0;
       ALIQ_PIS       :=0;
       QUANT_BC_PIS   :=0;
       ALIQ_PIS_QUANT :=0;
       VL_PIS         :=0;
       COD_ITEM       :='';
       COD_CTA        :='';
  end;                                          

Bem simples tudo igual ao restante que já tem no demo 

[petry]

Valeu Obrigado