Показать сообщение отдельно
  #14  
Старый 07.03.2013, 10:04
MaessstRo MaessstRo вне форума
Прохожий
 
Регистрация: 05.03.2013
Сообщения: 8
Репутация: 10
По умолчанию

Спасибо господа за соучастие. Причину ошибки я нашел. Оказалось что один модуль использовал две библиотеки в которых есть проц/функц - близнецы так сказать... Решил проблему таким образом, так как происходит "Неоднозначное обращение", то я перед каждой ошибочной строкой указывал библиотеку к которой компилятору надо обращаться.

Код:
 try
   if Not FIsEdit then begin // регистрация
     FSicId := StrToInt(App.FunA('sik.Pers.Ins_Sic',[vTrans,vReb,vIno,vDub,vNameNull,vBrId,vLN,vFN,vMN,e_RBD.AsDate,TTls.iif(cbSex1.Checked,1,0),
                           {cbDoc.Field('rfdt_id').AsString}'', eDocDate.AsDate, eDocSer.AsString, eDocNum.AsString, eDocPlace.AsString,
                           eBP.AsString,eAddr.AsString,TTls.iif(cbArea1.Checked,1,0),ePhone.AsString,vIIN,
                           '','']));
     Mes('Регистрация выполнена'#13#10+IntToStr(FSicId));
 
   end else begin
     IfRaise(FSicId=0,'Не определен идентификатор');
     App.PrcA('sik.Pers.Upd_Sic',[vTrans,vReb,vIno,vDub,vNameNull,
                              FSicId,{vBrId,}iif(cbSex1.Checked,1,0),'',eDocDate.AsDate,eDocSer.AsString,eDocNum.AsString,eDocPlace.AsString,
                              eBP.AsString,eAddr.AsString,iif(cbArea1.Checked,1,0),ePhone.AsString,vIIN,'','']);
     Mes('Редактирование выполнено'#13#10+IntToStr(FSicId));
 
   end;
Ответить с цитированием