No more LиЦеnсе
Добавлено: 27 июл 2004, 12:57
Вообщем проснулся я сегодня с той ноги!
Радуйся о Галактический народ!
А? как в рифму-то попал?
Вообщем наскучило мне одному пользоваться благами Галактической глупости делюсь
если написать вот такой интерфейсик:
Const
cmA1 = 9994444;
cmA2 = 9994445;
cmA3 = 9994446;
cmA4 = 9994447;
cmA5 = 9994448;
cmA6 = 9994449;
cmA8 = 9994450;
cmA9 = 9994451;
cmA10 = 9994452;
cmA11 = 9994453;
cmA12 = 9994454;
end;
Interface iBuhBlok 'Бухгатерский блок' EscClose;
Show at (1,1,88,17)
create view as select * from adoc;
Screen scrHint;
Buttons
cmA1;
cmA2;
cmA3;
cmA4;
cmA5;
cmA6;
cmA7;
cmA8;
cmA9;
cmA12;
cmA10;
cmA11;
<<
СНАБЖЕНИЕ СБЫТ ПОСТАВЩИКИ, ПОЛУЧАТЕЛИ
<. Приходные накладные .> <. Документы - основания .> <. Хронология расчетов .>
<. Расходные накладные .> <.Расчеты с контрагентом.>
КЛИЕНТ
<. Клиент .> <. Рекламационные накладные .> <. Закупки товаров .>
<. Акты приемок .>
ФРО
<. Бугалтерская справка .> <. Счета - фактуры .>
<. Реализация товаров .>
>>
end;
HandleEvent
cmA1:RunInterface('SoprDocb',101); //прих накл
cmA2:RunInterface('VSchet'); //ДО расх
cmA3:Runinterface('Rep_plv',1); //Хронология
cmA4:RunInterface('SoprDoc'); //Расх накл
cmA5:Runinterface('Rep_plv',0); //Расч с контр
cmA6:RunInterface('ClientCard'); //карт клиента
cmA7:RunInterface('AktRec',106); //Реклам накл
cmA8:RunInterface('RepBS', 0, false); //закупка тов
cmA9:RunInterface('AktUslB',114); //акты приемок
cmA12:RunInterface('PlPor',10, 0); //бух справки
cmA10:RunInterface('SchFact',0,1); //счета-фактуры
cmA11:RunInterface('RepBS', 1, false); // реализ товаров
end;
end.
причем команды запуска в лёгкую берутся из Протекта после раздачи прав на менЮ(подсказка в отчете по правам на тебЮ)
а потом подключить его через вот такой вот отчетик:
.Form 'ard_AHint'
.ard
.NameInList "Бухгалтерский блок"
.F 'nul'
.begin
RunInterface('iBuhBlok');
end.
.endform
и скомпилировать всё это вот таким вот проектиком:
#make "BuhBlok.vip"
#make "BuhBlok.frm"
то...
одно только и неудобно можно вызывать фейсы по очереди. ну да зато сколько удовольствия
Всем спасибо, особенно Галактике.
Радуйся о Галактический народ!
А? как в рифму-то попал?
Вообщем наскучило мне одному пользоваться благами Галактической глупости делюсь
если написать вот такой интерфейсик:
Const
cmA1 = 9994444;
cmA2 = 9994445;
cmA3 = 9994446;
cmA4 = 9994447;
cmA5 = 9994448;
cmA6 = 9994449;
cmA8 = 9994450;
cmA9 = 9994451;
cmA10 = 9994452;
cmA11 = 9994453;
cmA12 = 9994454;
end;
Interface iBuhBlok 'Бухгатерский блок' EscClose;
Show at (1,1,88,17)
create view as select * from adoc;
Screen scrHint;
Buttons
cmA1;
cmA2;
cmA3;
cmA4;
cmA5;
cmA6;
cmA7;
cmA8;
cmA9;
cmA12;
cmA10;
cmA11;
<<
СНАБЖЕНИЕ СБЫТ ПОСТАВЩИКИ, ПОЛУЧАТЕЛИ
<. Приходные накладные .> <. Документы - основания .> <. Хронология расчетов .>
<. Расходные накладные .> <.Расчеты с контрагентом.>
КЛИЕНТ
<. Клиент .> <. Рекламационные накладные .> <. Закупки товаров .>
<. Акты приемок .>
ФРО
<. Бугалтерская справка .> <. Счета - фактуры .>
<. Реализация товаров .>
>>
end;
HandleEvent
cmA1:RunInterface('SoprDocb',101); //прих накл
cmA2:RunInterface('VSchet'); //ДО расх
cmA3:Runinterface('Rep_plv',1); //Хронология
cmA4:RunInterface('SoprDoc'); //Расх накл
cmA5:Runinterface('Rep_plv',0); //Расч с контр
cmA6:RunInterface('ClientCard'); //карт клиента
cmA7:RunInterface('AktRec',106); //Реклам накл
cmA8:RunInterface('RepBS', 0, false); //закупка тов
cmA9:RunInterface('AktUslB',114); //акты приемок
cmA12:RunInterface('PlPor',10, 0); //бух справки
cmA10:RunInterface('SchFact',0,1); //счета-фактуры
cmA11:RunInterface('RepBS', 1, false); // реализ товаров
end;
end.
причем команды запуска в лёгкую берутся из Протекта после раздачи прав на менЮ(подсказка в отчете по правам на тебЮ)
а потом подключить его через вот такой вот отчетик:
.Form 'ard_AHint'
.ard
.NameInList "Бухгалтерский блок"
.F 'nul'
.begin
RunInterface('iBuhBlok');
end.
.endform
и скомпилировать всё это вот таким вот проектиком:
#make "BuhBlok.vip"
#make "BuhBlok.frm"
то...
одно только и неудобно можно вызывать фейсы по очереди. ну да зато сколько удовольствия
Всем спасибо, особенно Галактике.