'0610.05.20 data lies before start of factory calendar'

Question

hi,
the error of '0610.05.20 data lies before start of factory calendar.' how to correct it.
but somentimes is ok ,no error.
regards
sophia

Answer 1

hi.
if i use the plant as selection option,there has error,
if i use the plant and MRP controller as selection option,there has no error,why? i hope someone help me,thank you.
now i provide the program code  :
report zreq_list message-id z01 .
tables:
      mara,
      marc,
      mdez,
      scal.
data:begin of i_alv occurs 0,
     matnr like mara-matnr,
     maktx like makt-maktx,
     werks like marc-werks,
     week like scal-week,
     extra like mdez-extra,
     meins like mara-meins,
     meins1(3),
     mng01 like mdez-mng01,
end of i_alv.
data: begin of i_cx occurs 0.
include structure mdez.
data: matnr(18).
data: werks(4).
data: week like scal-week.
data: maktx(40).
data: meins(3).
data: end of i_cx.
data:begin of i_mara occurs 0,
matnr like mara-matnr,
werks like marc-werks,
dispo like marc-dispo,
end of i_mara.
data: i_mdez like mdez occurs 0 with header line.
define add_field.
  wa_field-fieldname = &1.
  wa_field-reptext_ddic = &2.
  append wa_field to it_field.
end-of-definition.
type-pools slis.
data: gs_layout type slis_layout_alv.
data: g_repid type sy-repid.
data: it_field type slis_t_fieldcat_alv.
data: wa_field type slis_fieldcat_alv.
g_repid = sy-repid.
gs_layout-colwidth_optimize = 'X'.
if sy-langu = '1' .
   add_field 'MATNR' '物料号码'.
   add_field 'MAKTX' '物料描述'.
   add_field 'WERKS' '工厂'.
   add_field 'WEEK' '需求时间'.
   add_field 'EXTRA' 'MRP元素'.
   add_field 'MEINS1' '单位'.
   add_field 'MNG01' '需求量'.
else.
   add_field 'MATNR' 'Material No'.
   add_field 'MAKTX' 'Material description'.
   add_field 'WERKS' 'Plant'.
   add_field 'WEEK' 'Requirements date'.
   add_field 'EXTRA' 'MRP element'.
   add_field 'MEINS1' 'Unit'.
   add_field 'MNG01' 'Requirement quantity'.
endif.
data: file(100) type c .
                     SELETION-SCREEN
selection-screen begin of block block1 with frame .
select-options:
                s_delb0 for mdez-delb0 ,"MRP 元素
                s_matnr for mara-matnr ,"物料编号
                s_werks for marc-werks default '1000' ,"工厂
                s_dispo for marc-dispo,"MRP控制者
                s_week  for scal-week."需求时间
parameters:
               p_plscn like plsc-plscn default '000',"计划方案
               p_inper like mdst-inper,"内部期间标识
               p_ergbz  like t462-ergbz."选择规则
selection-screen end of block block1.
  B E G I N  S E L E C T I O N
start-of-selection.
data i_exit.
perform get_data.
check i_exit ne 'X'.
perform display_data.
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
form get_data.
select maramatnr marcwerks marc~dispo into table i_mara
          from mara inner join marc on maramatnr eq marcmatnr
          where mara~matnr in s_matnr
            and marc~werks in s_werks
            and marc~dispo in s_dispo.
loop at i_mara.
   perform  call_req using i_mara-matnr
                           i_mara-werks
                           p_plscn
                           p_inper.
endloop.
if sy-subrc <> 0.
message i000 with 'Non data!'.
i_exit = 'X'.
exit.
endif.
loop at i_cx.
   call function 'DATE_GET_WEEK'
        exporting
                date = i_cx-dat00
        importing
               week = i_cx-week.
  modify i_cx.
  clear i_cx.
endloop.
loop at i_cx where week in s_week..
move-corresponding i_cx to i_alv.
collect i_alv.
clear i_alv.
endloop.
sort i_alv by werks matnr.
endform.                    " get_data
*&      Form  call_REQ
      text
     -->P_I_MARA_MATNR  text
     -->P_I_MARA_WERKS  text
     -->P_P_PLSCN  text
     -->P_P_INPER  text
form call_req using    v_matnr
                       v_werks
                       v_plscn
                       v_inper.
call function 'MD_STOCK_REQUIREMENTS_LIST_API'
  exporting
    plscn                          = p_plscn
    matnr                          = i_mara-matnr
    werks                          = i_mara-werks
    inper                          = p_inper
    ergbz                          = p_ergbz
importing
   e_mt61d                        = i_mt61d
tables
    mdezx                           = i_mdez
exceptions
   material_plant_not_found       = 1
   plant_not_found                = 2
   others                         = 3.
loop at i_mdez where delb0 in s_delb0..
   move-corresponding i_mdez to i_cx.
   i_cx-matnr = v_matnr.
   i_cx-werks = v_werks.
   append i_cx.
   clear i_cx.
endloop.
endform.                    " call_REQ
*&      Form  display_data
      text
-->  p1        text
<--  p2        text
form display_data.
call function 'REUSE_ALV_GRID_DISPLAY'
     exporting
          i_callback_program        = g_repid
         i_callback_user_command  = 'USER_COMMAND'
          it_fieldcat               = it_field
         IT_SORT                  = it_SORT
          is_layout                 = gs_layout
          i_save                    = 'A'
         IT_EVENTS                 = i_EVENTS[]
         is_variant                = i_variant
     tables
          t_outtab           = i_alv
     exceptions
          program_error               = 1
           others                      = 2.
    if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    " display_data