Стандартный фейс Vschetb

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

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

Ответить
sol
Постоянный обитатель
Сообщения: 165
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Орловская обл. коммерческая организация

Стандартный фейс Vschetb

Сообщение sol »

Хочу сделать автоматическое создание накладной по введенному док.-основанию,но никак не могу получить Nrec нового док.-основания. Знатоки помогите (версия 5.2):

Interface Osn 'Автоматиское создание накладной по док.-основанию' DoAccept,EscClose,cyan;
show at(1,1,90,30);
Create View tt
Var
metka:string;
dat1,dat2 : date;
nr1,nr2,nr3,nr4,basenrec:comp;
As Select
* From basedoc,katsopr,stepdoc
! where ((
! basedoc.nrec==stepdoc.cbasedoc and
! stepdoc.nrec==katsopr.cstepdoc and
! word(101)/==basedoc.viddoc
! and (basedoc.direct=2)
! ))
;
! Создаем представление. В данном случае возможно любое.
parameters dat1,dat2;
! Передаваемые параметры формы
screen vibdat
!show at(1,1,90,30);
buttons
cm_kn1;
<<

<. Счет-->накладная .>
>>
end;
handleevent
cm_kn1:
{RunInterFace('Vschetb',basenrec);
Message(double(basedoc.nrec));
if getfirst basedoc
where ((
basedoc.nrec==stepdoc.cbasedoc and
(basedoc.nrec=basenrec)
! word(101)/==basedoc.viddoc
! and (basedoc.direct=2)
))
=tsok
! then Do
then nr1:=stepdoc.nrec;
! nr1:=basenrec;
! While getnext basedoc where ((
! word(101)/==basedoc.viddoc and
! (basedoc.direct=2)
! ))=tsok;

insert katsopr set tipsopr:=word(2),dsopr:=date(01,05,2004),
yearsopr:=word(2004),nsopr:='123___',vidsopr:=word(101),
corg:=comp(281474976711272),
cgruzfrom:=comp(281474976711272),
corgbase:=comp(281474976711272),
vhodnal:=word(1),
summa:=123456;
katsopr.cstepdoc:=nr1;
nr2:=katsopr.nrec;
update current katsopr;

insert spsopr set dsopr:=date(01,05,2004),
vidsopr:=word(101),
cmcusl:=comp(281474976715139),
cotped:=comp(281474976715184),
prmc:=1,kol:=10,price:=100,
kolfact:=10,kolopl:=10,sumnds:=200;
spsopr.csopr:=nr2;
update current spsopr;
katsopr.summa:=spsopr.price+spsopr.sumnds;
update current katsopr;
RunInterFace('Soprdocb',word(101),nr2);}
end; // HandleEvent
end. // interface
sol
Постоянный обитатель
Сообщения: 165
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Орловская обл. коммерческая организация

Re: Стандартный фейс Vschetb

Сообщение sol »

Хочется реализовать автоматическое создание накладной по счету, чтобы не жать на лишние клавиши. Т.е. user должен создать счет (док.-осн.), затем накладная по этому счету должна создаться автоматом, затем автомат. должен появиться запрос на ТХО. Не знаю, может в 5.85 это уже реализовано, но в 5.2- нет. Казалось бы простая мысль автоматизировать всю цепочку действий плоть до формирования проводки, но в 5.2 она не релизована. Достали бухгалтера, работавшие с 1С, утверждающие, что там там достаточно ввести счет, все остальное 1С делает автоматом. В Галактике все более громоздко, а жаль.
Deinis
Местный житель
Сообщения: 783
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Re: Стандартный фейс Vschetb

Сообщение Deinis »

Не знаю, как насчет версии 5.2, но следующее было реализовано еще в 5.74 (как раньше - не знаю).
Создаем ДО на продажу. Затем идем в расширенную информацию по ДО (Ctrl+Enter).
Нажимаем на кнопку "Сопроводительные документы". Если к ДО не сформировано ни одной Накладной/Акта, то Галактика спрашивает нас: "Сопроводительные документы отсутствуют. Сформировать?". При ответе "ДА", она формирует Накладные (с запросом или без запроса по каждой МЦ - с какого склада отгружать).

Далее. В Галактике есть настройка, разрешать ли привязку ТХО к документам оперативного контура. Она - пользовательская. Если установлено "разрешать", то пользователь сможет видеть перед собой дополнительное поле "Операция" в интерфейсе редактирования накладной. Однако проводки формироваться не будут. Просто при выборе привяжется ТХО. Проводки появятся только при выборе соответствующей функции в модуле "ХозОперации". По-моему функция назвается "Формирование групповых проводок".
Однако, в разделе "Опыт" на этом сайте выкладывались доработки по этому делу (проводки в документах оперативного контура). Глянь, может чего полезного и найдешь.
sol
Постоянный обитатель
Сообщения: 165
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Орловская обл. коммерческая организация

Re: Стандартный фейс Vschetb

Сообщение sol »

Я не про продажи говорю, а про закупки. Если в расширенную инф.(Cntrl+Enter) войти в док.-осн. на закупку, то нажимая кнопку "Сопр. док." можно увидеть накл. или др. док., если он подвязан, НО СОЗДАТЬ ЕГО НЕЛЬЗЯ!!!
С Галактикой работаю почти 6 лет и не перестаю удивляться: неужто нельзя было добавить кнопку рядом с "Расширенной инф.", например "Создать накл." Может в 5.85 есть такая возможность?Эх, достать бы исходники 5.2...
sol
Постоянный обитатель
Сообщения: 165
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Орловская обл. коммерческая организация

Извиняюсь за грубые ошибки

Сообщение sol »

в коде фейса-это импровизация, написанная за 30 мин.
yuliya
Постоянный обитатель
Сообщения: 184
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Хабаровск
Контактная информация:

Re: Извиняюсь за грубые ошибки

Сообщение yuliya »

С закупками в управлении снабжением с версии 5.82 такая же ситуация, как описал Деинис с продажами - т.е. через расширенную информацию, если нет сопроводительного док-нта, то программа предлагает его создать...и т.д.
Alex, а можно жутко нескромный вопрос дл общего знания?;)
Почему бы вам не перейти на более свежую версию вместо создания колес и велосипедов? :D
Все в мире относительно...
Den
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Извиняюсь за грубые ошибки

Сообщение Den »

Ну у у , тетя Yuliya, это еще скромный совсем вопрос :)
sol
Постоянный обитатель
Сообщения: 165
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Орловская обл. коммерческая организация

Организации небольшие

Сообщение sol »

от 6 до 15 пользователей, поэтому им проще и дешевле перейти на 1С. Это они так считают.
Но после замены всех компов на более современные и переделки сети чтобы 1С шевелилась, по моему выходят те же деньги.
Те кто перешли плюются, но работают на 1С, деньги то вложены и отступать некуда.
Grom
Местный житель
Сообщения: 276
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Северо-Запад Много

Re: Организации небольшие

Сообщение Grom »

При переходе с 5.2 на 5.82 также потребуется "замена всех компов на более современные и переделка сети чтобы Г. шевелилОсь" ;D
Подход к делу: СДЕЛАЛ и ... ЗАБЫЛ, а ОНО пусть САМО работает (не люблю возвращаться и повторяться).
sol
Постоянный обитатель
Сообщения: 165
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Орловская обл. коммерческая организация

Re: Организации небольшие

Сообщение sol »

Это точно, но зато Г. обеспечит 100 кратный запас мощности по сравнению с 1С ;D.
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Re: Организации небольшие

Сообщение sim »

Сейчас Галактика-Старт на 5 раб. мест стОит около тысячи у.е. Это совсем небольшие деньги если учесть, что одно рабочее место состоит из 15 модулей.
Ответить