PAC40002 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (CTRL+F7)
м (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

Смотрите также

PAC

R170