INIT();
  BDCSETDATE(Dat(96,3,2));
  CLISTAT();
  BDCHIST("LOJA");
  BDCADDENT("LOJA","L1",Dat(96,3,2),["Nome"->"Pingo Doce"]);
  BDCHIST("LOJA");
  CLIBACKLOG("C1");