Нам такой вариант не подходит...
Я в HRUIPFP3 после вот этого:
Code:
* SZV-6-1
perform szv6-x using year mont changing lv_szv6-x lv_szv6-x.
concatenate year '0101' into pru_pfr_szv4_screen-begda.
if lv_szv6-x = 'X'.
if year eq 2010.
if mont > 06.
pru_pfr_szv4_screen-begda = '20100701'.
endif.
elseif year gt 2010.
if mont le 03.
concatenate year '0101' into pru_pfr_szv4_screen-begda.
elseif mont le 06.
concatenate year '0401' into pru_pfr_szv4_screen-begda.
elseif mont le 09.
concatenate year '0701' into pru_pfr_szv4_screen-begda.
else.
concatenate year '1001' into pru_pfr_szv4_screen-begda.
endif.
endif.
endif.
* SZV-6-1
Добавил свой ENHANCEMENT:
Code:
* SZV-6-1
concatenate year '0101' into pru_pfr_szv4_screen-begda.
if lv_szv6-x = 'X'.
if year eq 2010.
if mont > 06.
pru_pfr_szv4_screen-begda = '20100701'.
endif.
elseif year gt 2010.
if mont le 03.
year = year - 1.
concatenate year '1201' into pru_pfr_szv4_screen-begda.
year = year + 1.
elseif mont le 06.
concatenate year '0301' into pru_pfr_szv4_screen-begda.
elseif mont le 09.
concatenate year '0601' into pru_pfr_szv4_screen-begda.
else.
concatenate year '0901' into pru_pfr_szv4_screen-begda.
endif.
endif.
endif.
* SZV-6-1
и ограничил ВО.
Суммы стали попадать со смещением, все ок.... Но период указывается как март-июнь, что тоже плохо...