1 Отредактировано meatsoft (2018-11-12 13:27:50)

Тема: Ошибка в макросе persesv6

Не указан признак документа АВР по договорам подряда. Соответственно подбираются все документы режима.
строка 570.
Разработчик Юдин О.В.

2

Re: Ошибка в макросе persesv6

В таблице6 документ договора подряда не участвует. Могли бы убедиться перед тем, как писать

meatsoft пишет:

Не указан признак документа договора подряда. Соответственно подбираются все документы режима.
строка 570.
Разработчик Юдин О.В.

3 Отредактировано meatsoft (2018-11-12 13:25:24)

Re: Ошибка в макросе persesv6

Oleg пишет:

В таблице6 документ договора подряда не участвует. Могли бы убедиться перед тем, как писать

meatsoft пишет:

Не указан признак документа договора подряда. Соответственно подбираются все документы режима.
строка 570.
Разработчик Юдин О.В.

Исправлюсь, акт по договорам подряда и код в студию:
adogpodr:=GetSpID("doclist","DOGPODR")
IF adogpodr[2]#0
   csel:=csel+CHR(59)+;
         "SELECT d.kodkli,;
            IIF(LENGTH(TRIM(p.value))<>0,LEFT(p.value,10),IIF(LENGTH(TRIM(p1.value))>5,RTRIM(p2.value),RTRIM(p1.value)+RTRIM(p2.value))) tin,;
                 SUM(IIF(d.itogo<d.itogonv,d.itogo,d.itogonv)*d.kurs*0.01) AS esv,SUM(d.itogo) AS summa, ;
                 SUM(IIF(d.itogo<d.itogonv,d.itogo,d.itogonv)) AS sumpens ;
          INTO #rez2 FROM DC"+STRZERO(adogpodr[1],6)+" d ;
          INNER JOIN par_obj p ON p.kodobj=d.kodkli AND p.kodparobj="+STR(nParTin)+" ;
          LEFT JOIN par_obj p1 ON p1.kodobj=d.kodkli AND p1.kodparobj="+cser+" ;
          LEFT JOIN par_obj p2 ON p2.kodobj=d.kodkli AND p2.kodparobj="+cpasp+" ;
          WHERE d.enterprise="+STR(my_kod_is)+" AND MONTH(d.data)="+cmonth+" AND YEAR(d.data)="+cyear+" ;
          GROUP BY 1,2"

4 Отредактировано meatsoft (2018-11-12 13:28:01)

Re: Ошибка в макросе persesv6

Oleg пишет:

В таблице6 документ договора подряда не участвует. Могли бы убедиться перед тем, как писать

meatsoft пишет:

Не указан признак документа договора подряда. Соответственно подбираются все документы режима.
строка 570.
Разработчик Юдин О.В.

Приношу огромнейшие извинения за неточность! Пост исправлен!

5

Re: Ошибка в макросе persesv6

Это у вас какой-то старый мак. Из текущего тиража:
adogpodr:=GetSpID("doclist","DOGPODR")
IF adogpodr[2]#0
   csel:=csel+CHR(59)+;
         "SELECT d.kodkli,;
            IIF(LENGTH(TRIM(p.value))<>0,LEFT(p.value,10),IIF(LENGTH(TRIM(p1.value))>5,RTRIM(p2.value),RTRIM(p1.value)+RTRIM(p2.value))) tin,;
                 SUM(IIF(d.itogo<d.itogonv,d.itogo,d.itogonv)*d.kurs*0.01) AS esv,SUM(d.itogo) AS summa, ;
                 SUM(IIF(d.itogo<d.itogonv,d.itogo,d.itogonv)) AS sumpens ;
          INTO #rez2 FROM DC"+STRZERO(adogpodr[1],6)+" d ;
          INNER JOIN par_obj p ON p.kodobj=d.kodkli AND p.kodparobj="+STR(nParTin)+" ;
          LEFT JOIN par_obj p1 ON p1.kodobj=d.kodkli AND p1.kodparobj="+cser+" ;
          LEFT JOIN par_obj p2 ON p2.kodobj=d.kodkli AND p2.kodparobj="+cpasp+" ;
          WHERE d.enterprise="+STR(my_kod_is)+" AND MONTH(d.data)="+cmonth+" AND YEAR(d.data)="+cyear+" AND d.priznak="+STR(adogpodr[2])+" ;
          GROUP BY 1,2"
ENDIF


meatsoft пишет:
Oleg пишет:

В таблице6 документ договора подряда не участвует. Могли бы убедиться перед тем, как писать

meatsoft пишет:

Не указан признак документа договора подряда. Соответственно подбираются все документы режима.
строка 570.
Разработчик Юдин О.В.

Исправлюсь, акт по договорам подряда и код в студию:
adogpodr:=GetSpID("doclist","DOGPODR")
IF adogpodr[2]#0
   csel:=csel+CHR(59)+;
         "SELECT d.kodkli,;
            IIF(LENGTH(TRIM(p.value))<>0,LEFT(p.value,10),IIF(LENGTH(TRIM(p1.value))>5,RTRIM(p2.value),RTRIM(p1.value)+RTRIM(p2.value))) tin,;
                 SUM(IIF(d.itogo<d.itogonv,d.itogo,d.itogonv)*d.kurs*0.01) AS esv,SUM(d.itogo) AS summa, ;
                 SUM(IIF(d.itogo<d.itogonv,d.itogo,d.itogonv)) AS sumpens ;
          INTO #rez2 FROM DC"+STRZERO(adogpodr[1],6)+" d ;
          INNER JOIN par_obj p ON p.kodobj=d.kodkli AND p.kodparobj="+STR(nParTin)+" ;
          LEFT JOIN par_obj p1 ON p1.kodobj=d.kodkli AND p1.kodparobj="+cser+" ;
          LEFT JOIN par_obj p2 ON p2.kodobj=d.kodkli AND p2.kodparobj="+cpasp+" ;
          WHERE d.enterprise="+STR(my_kod_is)+" AND MONTH(d.data)="+cmonth+" AND YEAR(d.data)="+cyear+" ;
          GROUP BY 1,2"

6

Re: Ошибка в макросе persesv6

Мак из PDR скачанный с сервера SoftPro 9.10.2018

7

Re: Ошибка в макросе persesv6

№ ПДР ?

meatsoft пишет:

Мак из PDR скачанный с сервера SoftPro 9.10.2018

8

Re: Ошибка в макросе persesv6

Oleg пишет:

№ ПДР ?

meatsoft пишет:

Мак из PDR скачанный с сервера SoftPro 9.10.2018

72454

9

Re: Ошибка в макросе persesv6

meatsoft пишет:
Oleg пишет:

№ ПДР ?

meatsoft пишет:

Мак из PDR скачанный с сервера SoftPro 9.10.2018

72454

В этом ПДР в этом месте именно то, что я привел. Не знаю, что вы устанавливали. Наблюдается кривизна ручек.