Форум

UCreateAdditionalBase()
#define cAmounts LoadPath()+"REAL\UTest.dbf"
#define cIndex LoadPath()+"REAL\UTest.cdx"
PROCEDURE UCreateAdditionalBase()
Local nExist:=3
Local aAmounts:=     {{"ID", "C", 22, 0}, ;
                     {"Grup", "C", 5,0},;
                     {"NNUM", "C", 13,0},;
                     {"BOM", "C", 30,0},;
                     {"DATE", "D", 8,0}}

nExist:=CheckIfBasesAlreadyExist()
DO CASE 
  CASE (nExist==1)
      SayAndWait("Какая-либо из таблиц (или все) уже существует. Создание невозможно!!!")
  CASE (nExist==0)
    //Ветка создания баз данных
    dbPush()
    DbCreate (cAmounts,aAmounts)
    Use (cAmounts) NEW
    INDEX ON UPPER(AllTrim(Grup)+AllTrim(NNUM)+AllTrim(BOM))+ID TAG BOM TO (cIndex)
    INDEX ON UPPER(AllTrim(Grup)+AllTrim(NNUM)+AllTrim(BOM))+Dtos(Date) TAG Date TO (cIndex)
    Append Blank
    UTEST->ID:=StepPlus()
    UTEST->Grup:="00004"
    UTEST->NNUM:="0000000000001"
    UTEST->BOM:="0000000102"
    UTEST->Date:=STod("20080810")
    Append Blank
    UTEST->ID:=StepPlus()
    UTEST->Grup:="00004"
    UTEST->NNUM:="0000000000001"
    UTEST->BOM:="0000000102"
    UTEST->Date:=STod("20080811")
    DBCLOSEAREA()
    DbPop()
    //Проверка ошибок
  CASE (nExist==3)
        SayAndWait("Неопознанная ошибка")
  ENDCASE
return

Function CheckIfBasesAlreadyExist()
Local nAlreadyExist:=3
//Local cFormuls:=LoadPath()+sPathToFormuls
If (File(cAmounts))
  nAlreadyExist:=1
else
  nAlreadyExist:=0
endif
//f:=2
return nAlreadyExist

CreateTest()
#define cAmounts LoadPath()+"REAL\UTest.dbf"
Procedure CreateTest()
DbPush()
USE (cAmounts) NEW Shared
SayAndWait("Нажмите ОК после теста")
DbCloseArea()
DbPop()
return

StartNettr()
#define cAmounts LoadPath()+"REAL\UTest.dbf"
Procedure StartNettr()
DBPUSH()
USE (cAmounts) Exclusive NEW
If NetErr()
  SayAndWait("Ошибка сети")
else
  DbCloseArea()
endif
DbPop()
return