Движок форума не любит длинныхсловбезпроделов
Код:
AppID = "Sh4Ole.Sh4App"; sh = новый COMОбъект(AppID);
Addr = "00.00.000.000";
Port = "2007";
Таймаут = "30000"; // таймаут полминуты ну совсем плохой инет
Протокол = ":pTa"; // ТСП\ИП
sh.SetServerName (Addr + Протокол +Port+ "t"+ Таймаут);
if sh.DBLoginEx("Admin", "") <> 0 then
сообщить("Фейл логина");
возврат;
конецесли;
procname = "CmItemsRpt";
IndQuery = Sh.pr_CreateProc(ProcName);
if sh.GetExcMessage() <> "OK" тогда
сообщить(sh.GetExcMessage());
sh.DBLogout();
возврат;
конецесли;
sh.pr_SetValByName(IndQuery, 0, "200.1.0", 169); // 169 - RID комплекта
sh.pr_SetValByName(IndQuery, 0, "0.1.0", текущаядата()); // дата, на которую берем комплект
sh.pr_ExecuteProc(IndQuery);
IndexDS =1;
номерстрокидетализированногокомплекта = 1;
while sh.pr_EOF( IndQuery,IndexDS )<>1 do
числ = sh.pr_FieldCount(IndQuery, IndexDS);
Сообщить("Номер строки: "+номерстрокидетализированногокомплекта);
для сч = 0 по числ-1 цикл
ик = sh.pr_FieldName(IndQuery, IndexDS, сч);
сообщить("Колонка = " + ик + " Значение = " + sh.pr_ValByNumber(IndQuery, IndexDS, сч));
конеццикла;
номерстрокидетализированногокомплекта=номерстрокидетализированногокомплекта+1;
sh.pr_Next(IndQuery,IndexDS);
конеццикла;
sh.pr_CloseProc(IndQuery);
sh.DBLogout();