PAC40002 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→CTRL+F7) |
Hisava (обсуждение | вклад) м (→CTRL+F7) |
||
| Строка 11: | Строка 11: | ||
[[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))) |
| − | while !(pac4)->(eof()).and.!Danal2=(pac4)->DANAL2; (pac4)->(DbSkip()); end | + | while !(pac4)->(eof()).and.!Danal2=(pac4)->DANAL2; (pac4)->([[DbSkip]]()); end |
finally | finally | ||
| − | EnaDisControls(GetArea(),true) | + | [[EnaDisControls]]([[GetArea]](),true) |
end | end | ||
Версия 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
