TVR DAV ZAKAZPR — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Содержимое страницы заменено на «TVR_DAV_ZAKAZPR - это программа из справочника R266 Заказ производству [[EXCEL]…»)
 
Строка 1: Строка 1:
 
[[TVR_DAV_ZAKAZPR]] - это программа из справочника [[R266]]  
 
[[TVR_DAV_ZAKAZPR]] - это программа из справочника [[R266]]  
  Заказ производству [[EXCEL]]L
+
  Заказ производству [[EXCEL]]
= Текст =
+
local dt,dtz,dtr,fld_t,t,usl3939,sql_t,_usl3939,tt,tt_y,ttt,msg,dict
+
+
dt:=[[date]]()// текущая дата
+
dtz:=dt+1 // прогноз на завтра
+
+
if YesNo('Задать дату заказа?', true)
+
    dtz:= inputdate(dtz)
+
endif
+
dtr:=dtz-7
+
if YesNo('Задать дату прошлой недели?', true)
+
    dtr:= inputdate(dtr)
+
endif
+
+
try
+
+
msg=WaitMsg('Выборка данных по отгрузке и заказам за '+dtr+'',msg)
+
+
fld_t:='kodf,N,5;nazv1,C,230;ves1,N,5,3;vessr,n,10,3;vessz,N,10,3;vess,N,13,3;;
+
codegroup,C,12'
+
t:= CreateTmpFile(fld_t,'t',~IsFreeDel:=True,~Own:=PrintForm())
+
+
//выбрка отгрузки и заказов за заданную дату
+
SQL_t:=[select A.KANAL2 AS KODf,b.pname AS NAZV1,b.weight AS ves1,;
+
SUM(A.NATTR9) AS VESSR,0.000 as vessz,0.000 as vess,b.codegroup  from ];
+
+OpDataPath+[\DOCS]+Ret_f_ext(dtr)+[ A,]+ReflisPath+[\r11 B ;
+
  where A.KINDDOC='RTH' AND A.LVLNUM='3' AND A.KANAL2=B.KOD and a.cattr10='Н' ;
+
and a.datdoc=']+dtr+[' and a.danal2>0 and a.kanal1<>70 ;
+
GROUP BY a.kanal2,b.pname,b.weight,b.codegroup ;
+
union ;
+
select a.kanal2 as kodf,b.pname AS nazv1,b.weight AS ves1,;
+
0.0 as vessr,sum(a.nattr3) AS vessz,0.000 as vess,b.codegroup ;
+
  from ]+OpDataPath+[\DOCZ]+Ret_f_ext(dtr)+[ A,]+ReflisPath+[\r11 B ;
+
  where A.KINDDOC='ZAK' ;
+
  AND A.LVLNUM='2' AND A.kanal2=B.KOD ;
+
and a.datdoc=']+dtr+[' and a.danal2>0 and a.kanal1<>70 ;
+
gROUP BY a.kanal2,b.pname,b.weight,b.codegroup]
+
SimpleSQL([Insert into] +TmpFilePath(t)+[ ]+sql_t,OpDataPath)
+
+
//выборка по заказам за вчерашний день
+
fld_t:='kodf,N,5;vess_y,n,10,3'
+
tt_y:= CreateTmpFile(fld_t,'tt_y',~IsFreeDel:=True,~Own:=PrintForm())
+
SQL_t:=[select kanal2 as kodf,sum(nattr3) AS vess_y from ]+OpDataPath+[\DOCZ]+Ret_f_ext(dtz-1)+[ where KINDDOC='ZAK' ;
+
      AND LVLNUM='2' and datdoc=']+(dtz-1)+[' and danal2>0 and kanal1<>70 GROUP BY kanal2]
+
SimpleSQL([Insert into] +TmpFilePath(tt_y)+[ ]+sql_t,OpDataPath)
+
+
//суммирование по коду заказов и факт.отгрузки
+
fld_t:='kodf,N,5;nazv1,C,230;ves1,N,5,3;vessr,n,10,3;vessz,N,10,3;vess,N,13,3;codegroup,C,12;usl,N,1;nazv,C,90'
+
tt:= CreateTmpFile(fld_t,'tt',~IsFreeDel:=True,~Own:=PrintForm())
+
+
sql_t:=[select kodf,nazv1,ves1,sum(vessr) as vessr,sum(vessz) as vessz,;
+
0.0 as vess,codegroup,0.0 as usl,' ' as nazv from ];
+
+TmpFilePath(t)+[ group by kodf,nazv1,ves1,codegroup]
+
SimpleSQL([Insert into] +TmpFilePath(tt)+[ ]+sql_t,OpDataPath)
+
+
(tt)->(DbGoTop())
+
while (tt)->(!eof())
+
      (tt)->vess:=iif((tt)->vessr>=(tt)->vessz,(tt)->vessr,(tt)->vessz)
+
      (tt)->usl:=0
+
      if substr((tt)->codegroup,1,2)='01'
+
          (tt)->usl:=1
+
      endif
+
      if substr((tt)->codegroup,1,4)='0103'
+
          (tt)->usl:=0
+
      endif
+
      (tt)->nazv:=substr((tt)->nazv1,1,89)
+
      if (tt)->kodf=494 or (tt)->kodf=74 or (tt)->kodf=985 or (tt)->kodf=1351  // Отпускается в эксп ХБЦ
+
          (tt)->usl:=1
+
      endif
+
    (tt)->DbSkip()
+
end
+
+
//отбор нужных кодов по группе товаров
+
fld_t:='nazv,C,90;kodf,N,5;ves1,N,5,3;vess,N,10,3;ves_y,N,10,3;usl,N,1'
+
ttt:= CreateTmpFile(fld_t,'ttt',~IsFreeDel:=True,~Own:=PrintForm())
+
+
sql_t:=[select nazv,kodf,ves1,sum(vess) as vess,0 as ves_y,usl from ];
+
+TmpFilePath(tt)+[ where usl=1 group by nazv,kodf,ves1,usl]
+
SimpleSQL([Insert into] +TmpFilePath(ttt)+[ ]+sql_t,OpDataPath)
+
+
//добавление заказов вчерашнего дня
+
sql_t:=[Update t Set ves_y=vess_y From ]+TmpFilePath(ttt)+[ t left outer join ]+TmpFilePath(tt_y)+[ t1 ON t.kodf=t1.kodf]
+
SimpleSql(sql_t, ReflisPath )
+
+
dict := { { 'dtz', dtz } }
+
+
ExcelReport('ZakazPr.xlt',,ttt,,dict)
+
HideMsg(msg)
+
DeleteTMPFile(t)
+
DeleteTMPFile(tt)
+
DeleteTMPFile(tt_y)
+
DeleteTMPFile(ttt)
+
+
finally
+
STOPREPORT()
+
end
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 11:05, 2 октября 2019

TVR_DAV_ZAKAZPR - это программа из справочника R266

Заказ производству EXCEL

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

Полезные функции

Функции Delphi