Форум программистов [Powered by Invision Power Board]

Код

DF.ADOQ14_1.SQL.Append(' SELECT d.status ,d.univer ,u.cod_artic as art,');
DF.ADOQ14_1.SQL.Append('        ''plann1''=CASE WHEN (d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)- '); //на полях plann1 и plann не стоит заострять внимание
DF.ADOQ14_1.SQL.Append('                   ROUND(d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END),0,1))>=0.8 ');
DF.ADOQ14_1.SQL.Append('                   THEN (ROUND(d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END),0,1)+1)*');
DF.ADOQ14_1.SQL.Append('                   (CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END) WHEN  (d.zayavka/(CASE WHEN ');
DF.ADOQ14_1.SQL.Append('                   a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)-ROUND(d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 ');
DF.ADOQ14_1.SQL.Append('                   THEN a.EDN_V_UPAK ELSE 1 END),0,1))<=0.2 THEN ROUND(d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 ');
DF.ADOQ14_1.SQL.Append('                   THEN a.EDN_V_UPAK ELSE 1 END),0,1)*(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END) ');
DF.ADOQ14_1.SQL.Append('                   WHEN  ((d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)-ROUND(d.zayavka/');
DF.ADOQ14_1.SQL.Append('                   (CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END),0,1))<0.8 AND (d.zayavka/(CASE WHEN ');
DF.ADOQ14_1.SQL.Append('                   a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)-ROUND(d.zayavka/(CASE WHEN a.EDN_V_UPAK>0 THEN ');
DF.ADOQ14_1.SQL.Append('                   a.EDN_V_UPAK ELSE 1 END),0,1))>0.2) THEN CASE WHEN (d.zayavka/(CASE WHEN u.kratn>0 ');
DF.ADOQ14_1.SQL.Append('                   THEN u.kratn ELSE 1 END)-ROUND(d.zayavka/(CASE WHEN u.kratn>0 THEN u.kratn ');
DF.ADOQ14_1.SQL.Append('                   ELSE 1 END),0,1))>=0.5 THEN (ROUND(d.zayavka/(CASE WHEN u.kratn>0 THEN u.kratn ');
DF.ADOQ14_1.SQL.Append('                   ELSE 1 END),0,1)+1)*(CASE WHEN u.kratn>0 THEN u.kratn ELSE 1 END) ELSE ');
DF.ADOQ14_1.SQL.Append('                   ROUND(d.zayavka/(CASE WHEN u.kratn>0 THEN u.kratn ELSE 1 END),0,1)*(CASE WHEN ');
DF.ADOQ14_1.SQL.Append('                   u.kratn>0 THEN u.kratn ELSE 1 END) END END, ');
DF.ADOQ14_1.SQL.Append('        ''plann''=CASE WHEN ((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)- ');
DF.ADOQ14_1.SQL.Append('                   ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END),0,1))>=0.8 ');
DF.ADOQ14_1.SQL.Append('                   THEN (ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END),0,1)+1)*');
DF.ADOQ14_1.SQL.Append('                   (CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END) WHEN  ((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN ');
DF.ADOQ14_1.SQL.Append('                   a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)-ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 ');
DF.ADOQ14_1.SQL.Append('                   THEN a.EDN_V_UPAK ELSE 1 END),0,1))<=0.2 THEN ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 ');
DF.ADOQ14_1.SQL.Append('                   THEN a.EDN_V_UPAK ELSE 1 END),0,1)*(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END) ');
DF.ADOQ14_1.SQL.Append('                   WHEN  (((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)-ROUND((d.zayavka/u.[коэффициент пересчета])/');
DF.ADOQ14_1.SQL.Append('                   (CASE WHEN a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END),0,1))<0.8 AND ((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN ');
DF.ADOQ14_1.SQL.Append('                   a.EDN_V_UPAK>0 THEN a.EDN_V_UPAK ELSE 1 END)-ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN a.EDN_V_UPAK>0 THEN ');
DF.ADOQ14_1.SQL.Append('                   a.EDN_V_UPAK ELSE 1 END),0,1))>0.2) THEN CASE WHEN ((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN u.kratn>0 ');
DF.ADOQ14_1.SQL.Append('                   THEN u.kratn ELSE 1 END)-ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN u.kratn>0 THEN u.kratn ');
DF.ADOQ14_1.SQL.Append('                   ELSE 1 END),0,1))>=0.5 THEN (ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN u.kratn>0 THEN u.kratn ');
DF.ADOQ14_1.SQL.Append('                   ELSE 1 END),0,1)+1)*(CASE WHEN u.kratn>0 THEN u.kratn ELSE 1 END) ELSE ');
DF.ADOQ14_1.SQL.Append('                   ROUND((d.zayavka/u.[коэффициент пересчета])/(CASE WHEN u.kratn>0 THEN u.kratn ELSE 1 END),0,1)*(CASE WHEN ');
DF.ADOQ14_1.SQL.Append('                   u.kratn>0 THEN u.kratn ELSE 1 END) END END, ');
DF.ADOQ14_1.SQL.Append('        a.rez_kolch as ost,a.kon_kolch as ost2,a.TIP_TOVR as nal,a.ID_SCLAD as sclad,e.[в каталоге] as stand,s.hand,s.com ,m.kolc_predm '+'as schet,u.kratn as kr,a.EDN_V_UPAK as fas ');

DF.ADOQ14_1.SQL.Append(' FROM (SELECT d1.status ,d1.univer ,d1.zayavka ');
DF.ADOQ14_1.SQL.Append('       FROM  '+deal[NomSelectFilial]+' d1 ');
DF.ADOQ14_1.SQL.Append('       WHERE d1.data=:data1 AND d1.zayavka>0 AND d1.univer<=''153000-AO'') d ');
DF.ADOQ14_1.SQL.Append(' LEFT JOIN (SELECT u1.Универартикул ,count(u1.Универартикул) cont,max(u1.COD_ARTIC) as COD_ARTIC,max(u1.[Коэффициент пересчета]) as [Коэффициент пересчета],'+'max(u1.[кратность]) as kratn ');  //по ходу именно с первым слиянием возникает ошибка: елси просто делать выборку без слияний, все без ошибок
DF.ADOQ14_1.SQL.Append('            FROM '+univer+' u1 WHERE u1.[Пред-во]=''МДМ(Москва)'' ');
DF.ADOQ14_1.SQL.Append('            GROUP BY u1.Универартикул) u  ON d.univer=u.Универартикул AND u.cont=1 ');
DF.ADOQ14_1.SQL.Append(' LEFT JOIN '+sp_artc_H002+' a ON a.COD_ARTIC=u.COD_ARTIC AND a.ID_SCLAD IN (2,31,35,37) AND a.TIP_TOVR<>''НЕТ'' ');
DF.ADOQ14_1.SQL.Append(' LEFT JOIN '+edin_spisok+' e ON e.Артикул=u.COD_ARTIC ');
DF.ADOQ14_1.SQL.Append(' LEFT JOIN '+schet[NomSelectFilial]+' s ON s.art=u.cod_artic AND s.auto=:data2 AND NOT u.cod_artic is NULL');
DF.ADOQ14_1.SQL.Append(' LEFT JOIN '+scl_move_H002+' m ON m.NAME_PREDM=u.cod_artic AND (TYPDOCM_PR=''C'' OR TYPDOCM_PR=''С'') AND VID_DOC=''ФИЛИАЛ'' ');
DF.ADOQ14_1.SQL.Append('                                  AND NUMDOCM_PR IN ('+nom_schet_string+') ');
DF.ADOQ14_1.Parameters.ParamByName('data1').Value:=strtodate(formatdatetime('dd.mm.yyyy',strtodate(SG.Cells[0,SG.row])-srok_podachi[NomSelectFilial]));
DF.ADOQ14_1.Parameters.ParamByName('data2').Value:=strtodate(SG.Cells[0,SG.row]);
DF.ADOQ14_1.open;