#include "s_public.ch" //обязательно указывать во всех листингах

PROCEDURE MAIN
LOCAL cPATH_DB := LoadPath()+";"+LoadPath()+"sample2"+";"+LoadPath()+"sclad" //LoadPath()+"sclad" - для выполнения SchetInit()

DO WHILE .T.
//GlobalTask := 'sa' //идентификатор задачи Sample
  IF !IsBestIni('БЭСТ: ПРИМЕР',;
      cPATH_DB,{|| CreaMenu({"mymenu","mymenuh"})})
      RETURN
  ENDIF

  QMenu('0')
  IF !lNewFirm
     EXIT
  ENDIF
ENDDO
m->CURR_BREAK := !m->CURR_BREAK
SaveStatus()

DbCloseAll()
RETURN