Страница 1 из 2
Накладные
Добавлено: 04 фев 2011, 10:02
n0where
Такой вопрос можно ли какнибудь вызвать интерфейс накладной (любой) - по типу документа, нреку.
Как вариант может конечно через case все типы и по каждомк свой интерфейс запускать, но может есть какаято функция или чтото такое, типо - сопроводителньый документ из меню ордера.
Re: Накладные
Добавлено: 04 фев 2011, 10:33
edward_K
посмотрите на просмотр накладных из ордеров. Там вызывается промежуточный фейс, из которого уже по F4 попадаете в соотв.
Re: Накладные
Добавлено: 04 фев 2011, 11:09
Vik
Как вариант, используйте интерфейс GetKau :
iGetKau.GetCodeKau(cgiPick, cgKau_KatSopr, ccKatSop);
Откроется список накладных, по правой кнопке меняете тип документа.
Re: Накладные
Добавлено: 04 фев 2011, 13:01
n0where
посмотрите на просмотр накладных из ордеров. Там вызывается промежуточный фейс, из которого уже по F4 попадаете в соотв.
Я в курсе как это делается. мне это и нужно. Как это сделать программно, не по каждой накладной вызывать свой интерфейс, а как то проще - по типу документа - попасть в документ. Причем не только накладных, но и актов короче всех доков из таблицы KATSOPR.
iGetKau.GetCodeKau нашел в доке только
iGetKau.GetCodeKau(cgiPick, cgKau_KatSopr, ccKatSop);
В доке по этому фейсу нет ничего. Как параметры юзать?
Re: Накладные
Добавлено: 04 фев 2011, 13:21
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.
Re: Накладные
Добавлено: 04 фев 2011, 16:32
n0where
Прямо что доктор прописал. Спасибо
Re: Накладные
Добавлено: 05 фев 2011, 01:38
LaaLaa
Еще есть.
Код: Выделить всё
ObjInterface F_COMMON::ObjEditDoc
Запуск интерфейсов редактирования документов.
Методы
Procedure RunEditBaseDoc (VidDoc : Word; cBaseDoc : Comp);
Редактирование ДО.
Procedure RunEditHozDoc (CurTbl : Word; TipGal : Word; CurTip : Word; CurRec : Comp);
Редактирование первичного документа.
Реализован в объектах F_COMMON::EditDoc
Re: Накладные
Добавлено: 04 сен 2012, 11:15
zna
Подскажите, пож., синтаксис вызова сего метода. Пытаюсь сделать так:
Код: Выделить всё
#component "F_Common"
ObjInterface ObjEditDoc;
Procedure RunEditBaseDoc (VidDoc : Word; cBaseDocNr : Comp);
end;
...
cmDefault:
{
RunEditBaseDoc(t_tempDo.viddo, t_tempDo.cBaseDoc); //<- Здесь ругается, говорит "Не найден.."
F_Common.res подключен
Re: Накладные
Добавлено: 04 сен 2012, 11:49
LaaLaa
Это объектный интерфейс. См. описание синтаксиса для объектных интерфейсов в справке по
Viper
Код: Выделить всё
#define ComponentVersion
#include EditDoc.vih
interface YourInterface;
var iEditDoc : EditDoc;
HandleEvent
cmEdit:
{
iEditDoc.RunEditBaseDoc(t_tempDo.viddo, t_tempDo.cBaseDoc);
}
end;
end.
Re: Накладные
Добавлено: 04 сен 2012, 12:21
zna
А можно файлик EditDoc.vih и входящие в него? На
nizamyat@mail.ru
Re: Накладные
Добавлено: 04 сен 2012, 14:32
edward_K
А сами поbскать не пробовали?
у меня он есть по пути
GAL810\FRM\src\CompSrc\F\F_Common\Vip\EditDoc.vih
получается распаковокой архивов с формами после установки патчей вот таким бантиком (лежит в frm)
Re: Накладные
Добавлено: 04 сен 2012, 15:32
zna
Искал, распаковав всю кучу- не нашёл. У нас Экспресс, возможно урезанная поставка
Вот содержимое в папке ...\FRM\F_Common.rar\src\CompSrc\F\F_Common\Vip\:
Вопрос актуален..
Re: Накладные
Добавлено: 04 сен 2012, 16:10
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
Re: Накладные
Добавлено: 04 сен 2012, 16:48
zna
Да, всё получилось, благодарю!
Re: Накладные
Добавлено: 04 сен 2012, 17:44
LaaLaa
Вы че-то путаете в дистрибутиве эксперсса все формы и вихи запакованы в один файл C:\Gal\GalExpress\FRM\galFrm.rar. А обновлений к экспрессу не идет.
А вы откуда-то взяли файл F_common.rar это очевидно файл из какого то обновления к коммерческой Галактике. В обновлениях идут только те файлы которые менялись относительно galFrm.rar, но не все.