Странное предупреждение
Модераторы: m0p3e, edward_K, Модераторы
Странное предупреждение
При компиляции проги мне выпадает предупреждение "Поле, указанное в качестве ключевого, имеет недопустимый для дальнейшего использования тип...", которое спрашивает продолжить или нет. В программе ничего особенного вывод в exel. Причем данное предупреждение выдается в начале текста и в конце. Если вставлять в код программы пустые строчки в месте где пишет ошибку(например строка 16), срочка не меняется с ошибкой, хотя по сути эта строчка пуста. И пробовала константы туда вставлять и опредение временных таблиц не помогает. Ресурс получается рабочим все равно. Подскажите может кто сталкивался
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Re: Странное предупреждение
как правило это касается пред.строки. Кусок кода приведите - строк 10 вперед от этой строки. Бывает что скобки не там стоят в getfirst или ";" не хватает.
Re: Странное предупреждение
Это кусок когда первый раз ругается, ругается на строке где стоит 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;
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;
Re: Странное предупреждение
Оказывается такое предупреждение выдалось на groupby, когда группировка идет по полю с тимо дата.