Знаете ли Вы ?
Модераторы: m0p3e, edward_K, Модераторы
Знаете ли Вы ?
Предлагаю в этой теме публиковать информацию о различных метОдах, приёмах и прочих полезностях обнаруженных, выявленных и активно используемых при работе с Галактикой, Suppor-том, Атлантисом и т.п.
Например:
========
Получить имя открытого в данный момент интерфейса можно, нажав Ctrl+F4, и вычислить функцию GetIfcCurrentFieldName. Первый сегмент до точки в названии поля и будет именем интерфейса.
Например:
========
Получить имя открытого в данный момент интерфейса можно, нажав Ctrl+F4, и вычислить функцию GetIfcCurrentFieldName. Первый сегмент до точки в названии поля и будет именем интерфейса.
Подход к делу: СДЕЛАЛ и ... ЗАБЫЛ, а ОНО пусть САМО работает (не люблю возвращаться и повторяться).
FAQ типа? :)
Ну, например...
Получить баланс взаиморасчетов с контрагентом на дату можно так:
==========
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.
==================
Получить баланс взаиморасчетов с контрагентом на дату можно так:
==========
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.
==================
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]}
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]}
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Re: Знаете ли Вы ?
Для отладочных действий будет очень полезно
1. CTRL + SHIFT + F12 Разрешить/Запретить отладку интерфейса (очень примитивный и достаточно глючный, но хоть такой.)
2. procedure LogStrToFile (aFileName : String; aStr : String); добавляет в конец файла aFileName строку aStr
удачи!!! ;D
1. CTRL + SHIFT + F12 Разрешить/Запретить отладку интерфейса (очень примитивный и достаточно глючный, но хоть такой.)
2. procedure LogStrToFile (aFileName : String; aStr : String); добавляет в конец файла aFileName строку aStr
удачи!!! ;D
Жду выхода Вселенная 2.12!
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Re: Знаете ли Вы ? (продолжение)
3. в galnet.cfg прописываете
[forms]
fcenv=on
и при печати в окне "Выберите отчет" перейдите на "Настройку отчетов", из списка найдите ту единственную, которые вы так хотите и быстрее жмите F4. Ну а затем... сами увидите! ;D
[forms]
fcenv=on
и при печати в окне "Выберите отчет" перейдите на "Настройку отчетов", из списка найдите ту единственную, которые вы так хотите и быстрее жмите F4. Ну а затем... сами увидите! ;D
Жду выхода Вселенная 2.12!
А знаете ли вы, что можно добавить свои настройки?
Напомню еще разок... Как оказалось не все в курсе...
В Галактику можно добавить свои настройки и затем использовать их. Проверено в версии 5.82.
Как это выглядит:
http://gsa.hotbox.ru/Files/Nastr.jpg
Заинтересованных прошу стукнуться в мыло m0p3e@hotbox.ru и получить в ответ уже изрядно запылившуюся методичку.
В Галактику можно добавить свои настройки и затем использовать их. Проверено в версии 5.82.
Как это выглядит:
http://gsa.hotbox.ru/Files/Nastr.jpg
Заинтересованных прошу стукнуться в мыло m0p3e@hotbox.ru и получить в ответ уже изрядно запылившуюся методичку.
-
- Местный житель
- Сообщения: 226
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Урал
- Контактная информация:
Хочу узнать:
В отличие от людей, знающих ВИП, я очень часто использую стандартные интерфейсы выбора. То, что есть в файлике docpick.txt - далеко не полный список всех интерфейсов и причем некоторые из них описаны неверно, а некоторые вообще не работают!
В частности, если кто-то знает, подскажите стандартный интерфейс множественного выбора групп ДО/договоров.
Ну и напишите сюда то, чего нет в docpick.txt, думаю многим пригодится!
В частности, если кто-то знает, подскажите стандартный интерфейс множественного выбора групп ДО/договоров.
Ну и напишите сюда то, чего нет в docpick.txt, думаю многим пригодится!
-
- Местный житель
- Сообщения: 783
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Москва
- Контактная информация:
Re: Хочу узнать:
Кто не знает: очень помогает в работе использование "расширенного фильтра". Он вызывается либо по Ctrl+A, либо кнопка "Воронка + знак 'равно'".
Например, нужно получить список всех накладных такого-то контрагента. Получаешь его nRec, затем создаешь фильтр с содержанием:
KatSopr.cOrg = полученный_NREC - и на экране только то, что нужно. И работаешь только с этим!!! Снять фильтр можно по Ctrl+A, установить курсор на фильтр, нажать F2.
ОЧЕНЬ полезен этот фильтр в Книге Бух.проводок!!! (например, если знаешь только номер документа и всё)
Он действует и в модуле Журнализация!!! - см.:
http://www.tyumbit.ru/galaktika/read.ph ... 226&t=3226
Например, нужно получить список всех накладных такого-то контрагента. Получаешь его nRec, затем создаешь фильтр с содержанием:
KatSopr.cOrg = полученный_NREC - и на экране только то, что нужно. И работаешь только с этим!!! Снять фильтр можно по Ctrl+A, установить курсор на фильтр, нажать F2.
ОЧЕНЬ полезен этот фильтр в Книге Бух.проводок!!! (например, если знаешь только номер документа и всё)
Он действует и в модуле Журнализация!!! - см.:
http://www.tyumbit.ru/galaktika/read.ph ... 226&t=3226