Знаете ли Вы ?

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Grom
Местный житель
Сообщения: 276
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Северо-Запад Много

Знаете ли Вы ?

Сообщение Grom »

Предлагаю в этой теме публиковать информацию о различных метОдах, приёмах и прочих полезностях обнаруженных, выявленных и активно используемых при работе с Галактикой, Suppor-том, Атлантисом и т.п.
Например:
========
Получить имя открытого в данный момент интерфейса можно, нажав Ctrl+F4, и вычислить функцию GetIfcCurrentFieldName. Первый сегмент до точки в названии поля и будет именем интерфейса.
Подход к делу: СДЕЛАЛ и ... ЗАБЫЛ, а ОНО пусть САМО работает (не люблю возвращаться и повторяться).
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

FAQ типа? :)

Сообщение m0p3e »

Ну, например...
Получить баланс взаиморасчетов с контрагентом на дату можно так:
==========
ObjInterface GKonBalObj;
function GetKontrBalance (_c1 : comp; _d1 : date; NaklOnlyWas: word;
var BalR: double; var BalV:double; var BalB: double): boolean;
end;

Interface BalInt Cyan;

Create View
var BalR, BalV, BalB, MaxDolgR : double;
GKB : GKonBalObj;
dRas : date;
as select *
from Katorg
order by Katorg.name
;
Screen sc1;
Show At ( ,,,2 );
Fields
dRas : noProtect;
<<
Дата расчета  : .@@@@@@@@@@
>>
End;

Browse br1;
Show At ( ,3,, );
Table Katorg;
Fields
Katorg.name 'Наименование' : Protect;
End;

HandleEvent
cmDefault : { GetVipRef(GKB,'GKonBal');
GKB.GetKontrBalance(Katorg.nrec, dRas , 0, BalR, BalV, BalB);
Message ( 'Баланс руб. - ' + string ( BalR, 0, 2 ) );
};
End;
END.
==================
Саша Г.
Местный житель
Сообщения: 281
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Пермь

Re: FAQ типа? :)

Сообщение Саша Г. »

Есть такие функции...

Function DoubleToString(cval:comp; i:double) : string;
{возвращает сумму прописью и добавляет }
{имя валюты с кодом CVAL в нужном падеже}
{если CVAL = 0, добавляет нац.валюту }

Function DoubleToStringInVal(cval:comp; i:double) : string;
{возвращает сумму прописью и добавляет }
{имя валюты с кодом CVAL в нужном падеже}
{на иностранном языке }
{если CVAL = 0, добавляет нац.валюту }

Function GetRubles : boolean;
{Считывает из файла SystDate наименование}
{национальной валюты в переменные naz[i]}
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Re: Знаете ли Вы ?

Сообщение Max_Fin »

Для отладочных действий будет очень полезно
1. CTRL + SHIFT + F12 Разрешить/Запретить отладку интерфейса (очень примитивный и достаточно глючный, но хоть такой.)
2. procedure LogStrToFile (aFileName : String; aStr : String); добавляет в конец файла aFileName строку aStr

удачи!!! ;D
Жду выхода Вселенная 2.12!
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Re: Знаете ли Вы ? (продолжение)

Сообщение Max_Fin »

3. в galnet.cfg прописываете
[forms]
fcenv=on
и при печати в окне "Выберите отчет" перейдите на "Настройку отчетов", из списка найдите ту единственную, которые вы так хотите и быстрее жмите F4. Ну а затем... сами увидите! ;D
Жду выхода Вселенная 2.12!
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

А знаете ли вы, что можно добавить свои настройки?

Сообщение m0p3e »

Напомню еще разок... Как оказалось не все в курсе... :)
В Галактику можно добавить свои настройки и затем использовать их. Проверено в версии 5.82.
Как это выглядит:
http://gsa.hotbox.ru/Files/Nastr.jpg
Заинтересованных прошу стукнуться в мыло m0p3e@hotbox.ru и получить в ответ уже изрядно запылившуюся методичку. :)
dozent
Местный житель
Сообщения: 226
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Урал
Контактная информация:

Хочу узнать:

Сообщение dozent »

В отличие от людей, знающих ВИП, я очень часто использую стандартные интерфейсы выбора. То, что есть в файлике docpick.txt - далеко не полный список всех интерфейсов и причем некоторые из них описаны неверно, а некоторые вообще не работают!
В частности, если кто-то знает, подскажите стандартный интерфейс множественного выбора групп ДО/договоров.
Ну и напишите сюда то, чего нет в docpick.txt, думаю многим пригодится!
Nuts
Постоянный обитатель
Сообщения: 193
Зарегистрирован: 29 мар 2005, 17:49

Re: Хочу узнать:

Сообщение Nuts »

:P
Deinis
Местный житель
Сообщения: 783
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Re: Хочу узнать:

Сообщение Deinis »

Кто не знает: очень помогает в работе использование "расширенного фильтра". Он вызывается либо по Ctrl+A, либо кнопка "Воронка + знак 'равно'".
Например, нужно получить список всех накладных такого-то контрагента. Получаешь его nRec, затем создаешь фильтр с содержанием:
KatSopr.cOrg = полученный_NREC - и на экране только то, что нужно. И работаешь только с этим!!! Снять фильтр можно по Ctrl+A, установить курсор на фильтр, нажать F2.
ОЧЕНЬ полезен этот фильтр в Книге Бух.проводок!!! (например, если знаешь только номер документа и всё)
Он действует и в модуле Журнализация!!! - см.:
http://www.tyumbit.ru/galaktika/read.ph ... 226&t=3226
Ответить