Стандартный фейс 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]

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

[Deinis]

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

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

[sol]

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

[sol]

в коде фейса-это импровизация, написанная за 30 мин.

[yuliya]

С закупками в управлении снабжением с версии 5.82 такая же ситуация, как описал Деинис с продажами - т.е. через расширенную информацию, если нет сопроводительного док-нта, то программа предлагает его создать...и т.д.
Alex, а можно жутко нескромный вопрос дл общего знания?;)
Почему бы вам не перейти на более свежую версию вместо создания колес и велосипедов?

[Den]

Ну у у , тетя Yuliya, это еще скромный совсем вопрос

[sol]

от 6 до 15 пользователей, поэтому им проще и дешевле перейти на 1С. Это они так считают.
Но после замены всех компов на более современные и переделки сети чтобы 1С шевелилась, по моему выходят те же деньги.
Те кто перешли плюются, но работают на 1С, деньги то вложены и отступать некуда.

[Grom]

При переходе с 5.2 на 5.82 также потребуется "замена всех компов на более современные и переделка сети чтобы Г. шевелилОсь" ;D

[sol]

Это точно, но зато Г. обеспечит 100 кратный запас мощности по сравнению с 1С ;D.

[sim]

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