PAC40002 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→CTRL+F7) |
Hisava (обсуждение | вклад) м (→CTRL+F7) |
||
| Строка 10: | Строка 10: | ||
try | try | ||
[[EnaDisControls]]([[GetArea]](),false) | [[EnaDisControls]]([[GetArea]](),false) | ||
| − | pac1:=DOCS4->([[ViewDoc]]('PAC','1',{"CurYear",[[Str]]([[Year]](DatDoc)),"CurMonth",Str(Month(DatDoc)),; | + | pac1:=DOCS4->([[ViewDoc]]('PAC','1',{"CurYear",[[Str]]([[Year]](DatDoc)),"CurMonth",[[Str]]([[Month]](DatDoc)),; |
"KANAL1",Str(KANAL1),"DSHIFT","'"+DSHIFT+"'"})) | "KANAL1",Str(KANAL1),"DSHIFT","'"+DSHIFT+"'"})) | ||
pac4:=GetArea(ViewContens('4',,GetForm(pac1))) | pac4:=GetArea(ViewContens('4',,GetForm(pac1))) | ||
Версия 12:37, 14 ноября 2016
PAC40002 - это представление документа PAC из справочника R170
Плановый отдел - Номенклатура документов - Заказы и отчеты ( изделия )
CTRL+F7
Докумт - высвечиваем шапку отчета, затем изделия и ищем изделие
local pac1,pac4 try EnaDisControls(GetArea(),false) pac1:=DOCS4->(ViewDoc('PAC','1',{"CurYear",Str(Year(DatDoc)),"CurMonth",Str(Month(DatDoc)),; "KANAL1",Str(KANAL1),"DSHIFT","'"+DSHIFT+"'"})) pac4:=GetArea(ViewContens('4',,GetForm(pac1))) while !(pac4)->(eof()).and.!Danal2=(pac4)->DANAL2; (pac4)->(DbSkip()); end finally EnaDisControls(GetArea(),true) end
