Накладные

[n0where]

Такой вопрос можно ли какнибудь вызвать интерфейс накладной (любой) - по типу документа, нреку.

Как вариант может конечно через case все типы и по каждомк свой интерфейс запускать, но может есть какаято функция или чтото такое, типо - сопроводителньый документ из меню ордера.

[edward_K]

посмотрите на просмотр накладных из ордеров. Там вызывается промежуточный фейс, из которого уже по F4 попадаете в соотв.

[Vik]

Как вариант, используйте интерфейс GetKau :
iGetKau.GetCodeKau(cgiPick, cgKau_KatSopr, ccKatSop);

Откроется список накладных, по правой кнопке меняете тип документа.

[n0where]

посмотрите на просмотр накладных из ордеров. Там вызывается промежуточный фейс, из которого уже по F4 попадаете в соотв.

Я в курсе как это делается. мне это и нужно. Как это сделать программно, не по каждой накладной вызывать свой интерфейс, а как то проще - по типу документа - попасть в документ. Причем не только накладных, но и актов короче всех доков из таблицы KATSOPR.

iGetKau.GetCodeKau нашел в доке только

iGetKau.GetCodeKau(cgiPick, cgKau_KatSopr, ccKatSop);

В доке по этому фейсу нет ничего. Как параметры юзать?

[Vik]

Не в тех доках смотрите) Файл F_GetAn.chm содержит описание этого интерфейса.
Использовать просто. Подключаете GetKau.vih и GetKau.var, там, где нужно, пишете вышеприведенный код. То есть:

Код: Выделить всё

#include GetKau.vih
interface blablabla;

#include GetKau.var

...
HandlEvent
cmOk:
 {
     iGetKau.GetCodeKau(cgiNo /*смотри GloConst.inc*/, cgKau_KatSopr /*Смотри KauConst.inc*/, ccKatSoprNrec /*Выбранная накладная в случае одиночного выбора*/);
 }
...
end;
...
end.

[n0where]

Прямо что доктор прописал. Спасибо

[LaaLaa]

Еще есть.

Код: Выделить всё

ObjInterface F_COMMON::ObjEditDoc
Запуск интерфейсов редактирования документов. 

Методы

Procedure RunEditBaseDoc (VidDoc : Word; cBaseDoc : Comp); 
Редактирование ДО. 

Procedure RunEditHozDoc (CurTbl : Word; TipGal : Word; CurTip : Word; CurRec : Comp); 
Редактирование первичного документа. 

Реализован в объектах F_COMMON::EditDoc 

[zna]

Подскажите, пож., синтаксис вызова сего метода. Пытаюсь сделать так:

Код: Выделить всё

#component "F_Common"
ObjInterface ObjEditDoc;
Procedure RunEditBaseDoc (VidDoc : Word; cBaseDocNr : Comp);
end;
...
cmDefault:
{
  RunEditBaseDoc(t_tempDo.viddo, t_tempDo.cBaseDoc);    //<- Здесь ругается, говорит "Не найден.." 

F_Common.res подключен

[LaaLaa]

Это объектный интерфейс. См. описание синтаксиса для объектных интерфейсов в справке по Viper

Код: Выделить всё

#define ComponentVersion
#include EditDoc.vih

interface YourInterface;

var iEditDoc : EditDoc;

HandleEvent
  cmEdit:
  {
    iEditDoc.RunEditBaseDoc(t_tempDo.viddo, t_tempDo.cBaseDoc);
  }
end;

end.

[zna]

А можно файлик EditDoc.vih и входящие в него? На nizamyat@mail.ru

[edward_K]

А сами поbскать не пробовали?
у меня он есть по пути
GAL810\FRM\src\CompSrc\F\F_Common\Vip\EditDoc.vih
получается распаковокой архивов с формами после установки патчей вот таким бантиком (лежит в frm)

Код: Выделить всё

".....\WinRAR\winrar.exe"  x -y -u *.rar

[zna]

Искал, распаковав всю кучу- не нашёл. У нас Экспресс, возможно урезанная поставка
Вот содержимое в папке ...\FRM\F_Common.rar\src\CompSrc\F\F_Common\Vip\:

Вопрос актуален..

[RAJAH]

Код: Выделить всё

//------------------------------------------------------------------------------
//                                                      (c) Корпорация ГАЛАКТИКА
//------------------------------------------------------------------------------
// Галактика 8.1 - Бухгалтерский контур
// Запуск интерфейсов редактирования документов
//------------------------------------------------------------------------------

#ifndef _EditDoc_vih_Included
#define _EditDoc_vih_Included

#ifdef ComponentVersion
#Component "F_Common"
#end

!-------------------------------------------------------------------------------
#doc
Запуск интерфейсов редактирования документов.
#end
ObjInterface ObjEditDoc;
  //----------------------------------------------------------------------------
  #doc
  Редактирование ДО.
  #end
  procedure RunEditBaseDoc (VidDoc   : word;   // BaseDoc.VidDoc
                            cBaseDoc : comp    // BaseDoc.NRec
                           );
  //----------------------------------------------------------------------------
  #doc
  Редактирование первичного документа.
  #end
  procedure RunEditHozDoc  (CurTbl,            // coTable - (в реализации используется только coOborot)
                            TipGal,            // TiDkGal
                            CurTip    : word;  // TiDk
                            CurRec    : comp   // NRec записи
                           );
!-------------------------------------------------------------------------------
end;
!-------------------------------------------------------------------------------
VipInterface EditDoc implements ObjEditDoc #Licensed_Free;
!-------------------------------------------------------------------------------
#end // _EditDoc_vih_Included

[zna]

Да, всё получилось, благодарю!

[LaaLaa]

Вы че-то путаете в дистрибутиве эксперсса все формы и вихи запакованы в один файл C:\Gal\GalExpress\FRM\galFrm.rar. А обновлений к экспрессу не идет.

А вы откуда-то взяли файл F_common.rar это очевидно файл из какого то обновления к коммерческой Галактике. В обновлениях идут только те файлы которые менялись относительно galFrm.rar, но не все.