Странное предупреждение

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Ruh
Посетитель
Сообщения: 32
Зарегистрирован: 07 дек 2006, 11:15
Откуда: ДИТ
Контактная информация:

Странное предупреждение

Сообщение Ruh »

При компиляции проги мне выпадает предупреждение "Поле, указанное в качестве ключевого, имеет недопустимый для дальнейшего использования тип...", которое спрашивает продолжить или нет. В программе ничего особенного вывод в exel. Причем данное предупреждение выдается в начале текста и в конце. Если вставлять в код программы пустые строчки в месте где пишет ошибку(например строка 16), срочка не меняется с ошибкой, хотя по сути эта строчка пуста. И пробовала константы туда вставлять и опредение временных таблиц не помогает. Ресурс получается рабочим все равно. Подскажите может кто сталкивался ;-)
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Странное предупреждение

Сообщение edward_K »

как правило это касается пред.строки. Кусок кода приведите - строк 10 вперед от этой строки. Бывает что скобки не там стоят в getfirst или ";" не хватает.
Ruh
Посетитель
Сообщения: 32
Зарегистрирован: 07 дек 2006, 11:15
Откуда: ДИТ
Контактная информация:

Re: Странное предупреждение

Сообщение Ruh »

Это кусок когда первый раз ругается, ругается на строке где стоит copymovefile:

StartNewVisual(vtRotateVisual,vfBreak+vfTimer,'вывод в EXCEL',1);
tek_put_out:=Getdefaultuserpath;
xls_f_n :=tek_put_out+'Форма №1.xls';
xls_sh_n :=TranslatePAth('%StartPath%')+'XLS\reestr_akt.xls';
CopyMoveFile(xls_sh_n, xls_f_n, false);//ecmfClientFrom+ecmfClientTo);
xlCloseWorkBookByName(xls_sh_n);

если коментарить строчку с copymovefile, то при компиляции всегда ругается на 16 строчку вне зависисмости от того что там находиться.
В 16 строке стоит определение логичесой таблицы, ругается на from. Сначало там стояли определения временных таблиц, я пересла их в другой файл, а предупреждение так и осталось на 16 строке. На другом компе пробовали компилить тот же эффект.
var
dat1, dat2:date;
i1:integer;
mol,pred_kom,chel_kom1, obj_rem:string;
mol_name,pred_name,chel_name1:string;
mol_nrec,pred_nrec,chel_nrec1,chel_nrec2,chel_nrec3,chel_nrec4,chel_nrec5:comp;
As select
*
From katsopr, spsopr, persons,KATOTPED,katmc, d_osn , d_osn2, catalogs, appointments,dit_makjk, OBJREM, pick

Второе предупреждение на akt_sym:=0

xlSetCellStringValue( GetSurnameWithInitials(mol_name), 23 ,10 , 23, 12 );
numstr:=28;
Setorder(tiByaktvip);
var tek_date:date;
var tek_akt:string;
var symit, symit2, akt_sym, akt_sym2:double;
symit:=0;
_loop d_osn
{
tek_date:=d_osn.dsopr;
groupby g1:d_osn.dsopr
{
akt_sym:=0;
Ruh
Посетитель
Сообщения: 32
Зарегистрирован: 07 дек 2006, 11:15
Откуда: ДИТ
Контактная информация:

Re: Странное предупреждение

Сообщение Ruh »

Оказывается такое предупреждение выдалось на groupby, когда группировка идет по полю с тимо дата. :oops:
Ответить