Импорт файла DBF во временнйю таблицу
Добавлено: 19 май 2008, 17:37
Ребята,помогите, пожалуйста. Опыта практически у меня никакого.
Сразу при запуске этого интерфейса Галактика вылетает по Runtime. Что ей не хватает?
table struct ppmtemp
(
nn : string[30],
nob : string[60],
drasx : date,
gm : word,
cu : double,
bazost : double,
newost : double,
rasxod : double,
tekost : double,
sklkod : string[60],
cnrec : comp
)
with index
(
ppmtemp = gm+sklkod+nn
)
;
Interface nelikvid 'Æîû íѺ ñó¿ªÑ¡¿∩ ßóδΦÑ 12 ¼Ñß∩µÑó' DoAccept, EscClose, cyan;
Show at (1,1,70,15);
var
mOpen : longint;
mode,countr,kz : integer;
create view nel
as select ppmtemp.*;
Screen SRC show at (,,,);
Buttons
cmOk, Default;
cmCancel;
<<
<. OK .> <. ÄΓ¼Ñ¡á .>
>>
end;
HandleEvent
cmOk:
{
mode:= 15648;
mOpen:=DBFOpen('\\hq\public\galaxy\Gal712\TmpFrm\ppm43069.dbf',mode);
kz:=DBFGetFirst(mOpen);
logstrtofile('logs.log',kz);
while kz=0 do
{logstrtofile('logs.log',mode);
ppmtemp.nn:=DBFGetFieldValue(mOpen,'nn');
ppmtemp.gm:=DBFGetFieldValue(mOpen,'gm');
ppmtemp.cu:=DBFGetFieldValue(mOpen,'cu');
ppmtemp.bazost:=DBFGetFieldValue(mOpen,'bazost');
ppmtemp.newost:=DBFGetFieldValue(mOpen,'newost');
ppmtemp.rasxod:=DBFGetFieldValue(mOpen,'rasxod');
ppmtemp.tekost:=DBFGetFieldValue(mOpen,'tekost');
ppmtemp.sklkod:=DBFGetFieldValue(mOpen,'skl');
ppmtemp.cnrec:=DBFGetFieldValue(mOpen,'nrec');
insert current ppmtemp;
kz:=DBFGetNext(mOpen);
};
DBFClose(mOpen);
}
end;
end.
Сразу при запуске этого интерфейса Галактика вылетает по Runtime. Что ей не хватает?
table struct ppmtemp
(
nn : string[30],
nob : string[60],
drasx : date,
gm : word,
cu : double,
bazost : double,
newost : double,
rasxod : double,
tekost : double,
sklkod : string[60],
cnrec : comp
)
with index
(
ppmtemp = gm+sklkod+nn
)
;
Interface nelikvid 'Æîû íѺ ñó¿ªÑ¡¿∩ ßóδΦÑ 12 ¼Ñß∩µÑó' DoAccept, EscClose, cyan;
Show at (1,1,70,15);
var
mOpen : longint;
mode,countr,kz : integer;
create view nel
as select ppmtemp.*;
Screen SRC show at (,,,);
Buttons
cmOk, Default;
cmCancel;
<<
<. OK .> <. ÄΓ¼Ñ¡á .>
>>
end;
HandleEvent
cmOk:
{
mode:= 15648;
mOpen:=DBFOpen('\\hq\public\galaxy\Gal712\TmpFrm\ppm43069.dbf',mode);
kz:=DBFGetFirst(mOpen);
logstrtofile('logs.log',kz);
while kz=0 do
{logstrtofile('logs.log',mode);
ppmtemp.nn:=DBFGetFieldValue(mOpen,'nn');
ppmtemp.gm:=DBFGetFieldValue(mOpen,'gm');
ppmtemp.cu:=DBFGetFieldValue(mOpen,'cu');
ppmtemp.bazost:=DBFGetFieldValue(mOpen,'bazost');
ppmtemp.newost:=DBFGetFieldValue(mOpen,'newost');
ppmtemp.rasxod:=DBFGetFieldValue(mOpen,'rasxod');
ppmtemp.tekost:=DBFGetFieldValue(mOpen,'tekost');
ppmtemp.sklkod:=DBFGetFieldValue(mOpen,'skl');
ppmtemp.cnrec:=DBFGetFieldValue(mOpen,'nrec');
insert current ppmtemp;
kz:=DBFGetNext(mOpen);
};
DBFClose(mOpen);
}
end;
end.