Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Вылетает всегда в разных местах, как будто от фонаря.edward_K писал(а):logstrtofile вам в помощь.
сначала редко, потом на выявленном куске чаще.
Вылетает молча? причин много есть - без кода и локализации куска в нем тяжко предположить.
Может вылетать на криво построенном запросе или попытке вставки с использованием полей массивов или данных с другой view.
Код: Выделить всё
stmt:=sqlAllocStmt;
sqlAddStr(query,'insert into schfact (direct,tipuser,subtip,dfact,dpost,num,corg,csoprhoz,sum[2],sum[3],summa,summareg) values ');
sqlAddStr(query,'(1,7218,16,#date(31,12,2013),#date(31,12,2013),'#39+String(i-1)+''#39);
sqlAddStr(query,',#comp('+zap1[1]+'),#comp('+zap2[1]+'),');
xlGetCellValue(i,4,yach);
if trim(yach)=''
then { xlGetCellValue(i,5,yach);
yach:='-'+yach };
sqlAddStr(query,Replace(yach,',','.')+','+zap2[2]+','+zap2[2]+','+zap2[2]+')');
k_osh:=sqlPrepare(stmt,query); Код: Выделить всё
//******************************************************************************
Procedure ClearQuery(var liHandle : longint);
{
if (liHandle <> 0)
{
sqlFreeStr(liHandle);
liHandle := 0;
}
}
Код: Выделить всё
sqlFreeStmt(stmt);
ClearQuery(vliSQLCommand);
вам покажет в какой именно момент вы вылетаете. Вроде именно это приводит к случайным вылетам в момент инициализации.