Движок форума не любит длинныхсловбезпроделов
Код:
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();