Компиляция

[by_HT]

Не возможно провести компиляцию объекта: кодеюнит: 99008528.
Нава зависает в лучшем случае, в худшем перезагружает машину.... Что то не понятно стало твориться с базой...

[RedFox]

Цитата:

Сообщение от by_HT

Не возможно провести компиляцию объекта: кодеюнит: 99008528.
Нава зависает в лучшем случае, в худшем перезагружает машину.... Что то не понятно стало твориться с базой...

Давай уточним что ты добавил в этот кодеюнит (или закоменть свои изменения и по очереди откоменчивай)

[by_HT]

Я в этот кодеюнит вообще не лазил.....

Documentation()

OnRun()
BizTalkManagement.GET;
IF (BizTalkManagement."Check BizTalk Suspd. Queue") AND
   (BizTalkManagement."Suspd. Queue Monitor Interval" > 0) THEN BEGIN
  CREATE(SuspQueueTimer);
  SuspQueueTimer.Interval := BizTalkManagement."Suspd. Queue Monitor Interval" * 60000;
  SuspQueueTimer.Enable;
END;

IF BizTalkManagement."Outbnd. Doc. Monitor Interval" > 0 THEN BEGIN
  CREATE(OutboundDocTimer);
  OutboundDocTimer.Interval := BizTalkManagement."Outbnd. Doc. Monitor Interval" * 60000;
  OutboundDocTimer.Enable;
END;

CREATE(TcpCom);

MESSAGE(Text001 + COMPANYNAME);

SubstString(StringToSearch : Text[250];SearchString : Text[250];StringToSub : Text[250]) : Text[250]
res := StringToSearch;

IF (STRLEN(StringToSearch) > 0) AND (STRLEN(SearchString) > 0) THEN BEGIN
  EOS := FALSE;
  inx := 0;
  REPEAT
	inx := inx + 1;
	IF inx <= STRLEN(res) THEN BEGIN
	  TestChar := COPYSTR(res,inx,STRLEN(SearchString));
	  IF TestChar = SearchString THEN
		res := COPYSTR(res,1,inx-1) + StringToSub + COPYSTR(res,inx + STRLEN(SearchString),250);
	END
	ELSE
	  EOS := TRUE;
  UNTIL EOS;
END;

EXIT(res);

StartTcpListen(PortNumber : Integer) ReturnBool : Boolean
IF PortNumber = 0 THEN
  BEGIN
	TcpCom.Cryptography := BizTalkManagement."Use Encryption";
	ReturnBool := TcpCom.TcpListen(BizTalkManagement."Appln. Srv./Broker Port No.");
  END
ELSE
  BEGIN
	TcpCom.Cryptography := BizTalkManagement."Use Encryption";
	ReturnBool := TcpCom.TcpListen(PortNumber);
  END;
EXIT(ReturnBool);

OutboundDocTimer::TimerEvent()
OutboundDocTimer.Disable;
WatchDog.CheckOutbound;
OutboundDocTimer.Enable;

SuspQueueTimer::TimerEvent()
SuspQueueTimer.Disable;
WatchDog.CheckBTSQueue;
SuspQueueTimer.Enable;

TcpCom::DataAvailable(VAR XmlData : Automation "''.IDISPATCH";VAR XmlResponse : Text[1024])
xmlin := XmlData;
CREATE(xmlout);

XMLDocReceive.PutXMLIn(xmlin);
XMLDocReceive.RUN;
COMMIT;

XMLDocReceive.GetXMLOut(xmlout);
XmlResponse := xmlout.xml;

XMLDocReceive.GetInboundDocumentType(DocumentType);
XMLDocReceive.GetInboundDocumentNo(DocumentNo);
XMLDocAccept.Init(DocumentType,DocumentNo);
IF NOT XMLDocAccept.RUN THEN BEGIN
  IF (BizTalkManagement."Send System Error Description") AND
	(BizTalkManagement."System Administrator E-Mail" <> '')
  THEN
	Mail.NewMessage(BizTalkManagement."System Administrator E-Mail",
	  Text002,
	  STRSUBSTNO(Text003,SELECTSTR(DocumentType+1,Text004),DocumentNo),'');
END;

CLEAR(xmlin);
CLEAR(xmlout);

[by_HT]

И еще один кодеюнит: 99008518 XML Document-Transform. Признаки те же... перезагрузка ОС

[apanko]

1. Так чего его компилировать, если он не менялся?

2. Можно загрузить уже откомпилированный с ProductCD

3. У меня тоже не перекомпилируется, но при этом сообщает "Не удалось загрузить выбранную библиотеку типов."
Видно, не установлены какие-то компоненты, вот их GUIDы:

• OutboundDocTimer@1003 : Automation "{3B478FE2-881D-48C8-B9B5-588235ECE609} 3.0:{8A1C648F-F288-4958-A998-521A9058E5BA}:Unknown Automation Server.Unknown Class" WITHEVENTS;
• TcpWrp@1001 : Automation "{7FCF3C85-8CD0-489C-BACA-58B143AC6B08} 1.0:{94DFB518-4974-4E98-9F13-ABF94005FA41}:Unknown Automation Server.Unknown Class" WITHEVENTS;
  Возможно их переустановка поможет в компиляции.

Что касается 99008518 - ему видно тоже не хватает компонентов, но там проще - MSXML (RUN regsvr32 C:\WINDOWS\system32\msxml6.dll по моему должен помочь)

[by_HT]

У меня библиотеки стоят!!!

Ну вообще я пытаюсь открыть персонал и зарплату - Журнал расчета зарплаты и сделать РАСЧЕТ.. Он мне говорит что объект не скомпилирован... хм....
Все таблицы, форым, отчеты скомпилировал на три раза.... первая часть кодеюнитов тоже скомпилировал...
и один фиг, Объект не скомпилирован!!!!

[apanko]

В обжект дизайнере есть поле Скомпилирован. Если по нему отфильтровать (=Нет) - то какие объекты не скомпилированы?
Их и не помешало бы откомпилировать в первую очередь.

Зарплату никогда не видел, но думаю что из журнала он пытается запустить кодеюнит, и вот с этим кодеюнитом и есть проблема. Посмотрите в дизайнере - что вызывается и откомпилируйте именно его.

[by_HT]

говорит нет таких объектов!

у меня нет слов.......

Теперь работает!

[Alterant]

У меня было подобное при компиляции модуля для работы с ФРом. Правда комп не перезагружался, а просто вылетал из Нава при попытке компиляции. Это было связано с OCX. С последней версией библиотеки - вылетал, переустановил драйвер на более ранний - все нормально скомпилилось. Потом ради эксперимента поставил опять последнюю версию - опять начал вылетать. Остановился на одной из предпоследних версий драйвера.
К сожалению, это проблемы на уровне ядра или OCX и исправить тут что-то самостоятельно тяжело.