Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IF sy-subrc EQ 0.
- * Konfigurace pro položku nalezena.
- lv_conf_index = sy-tabix.
- LOOP AT ir_conf_tab->* REFERENCE INTO lr_conf FROM lv_conf_index.
- IF lr_conf->vbeln NE lr_item->vbeln OR lr_conf->posnr NE lr_item->posnr.
- CONTINUE. "konfigurace po položku zpracována
- ENDIF.
- CASE lr_conf->charc.
- WHEN 'POTISK_ZATKY'.
- lr_item->atwrt = lr_conf->value.
- lr_item->t_potisk = lr_conf->value_txt.
- WHEN 'LEPENI_ZATKY'.
- lr_item->lepeni = lr_conf->value.
- lr_item->t_lepeni = lr_conf->value_txt.
- WHEN 'TVAR_HLAVY'.
- lr_item->tvarhlavy = lr_conf->value.
- lr_item->t_tvarhlavy = lr_conf->value_txt.
- WHEN 'ZATKY_BARVA_SKLA'.
- lr_item->barvaskla = lr_conf->value.
- lr_item->t_barvaskla = lr_conf->value_txt.
- WHEN 'TESNENI'.
- lr_item->tesneni = lr_conf->value.
- lr_item->t_tesneni = lr_conf->value_txt.
- WHEN 'ZATKY_POVRCHOVA_UPRAVA'.
- lr_item->povrchuprava = lr_conf->value.
- lr_item->t_povrchuprava = lr_conf->value_txt.
- WHEN 'LEPENI_HLAVY'.
- lr_item->lepenihlavy = lr_conf->value.
- lr_item->t_lepenihlavy = lr_conf->value_txt.
- WHEN 'VCSD_UPDATE_VBAP_EAN11'. "EAN z konfigurace
- lr_item->ean11 = lr_conf->value.
- ENDCASE.
- ENDLOOP.
- ELSE.
- * Konfigurace pro položku nenalezena.
- * Tady se musí hodnoty atributů nastavit na nějaké výchozí hodnoty viz.
- * iniciálizační rutina smartformu YC7_VIN_ETIK2_KR (ještě je tam nějaká ruská verze).
- * Pokud zjistíme, že v takových případech
- * se stejně nikdy nepůjde do YCGS_EAN, tak by to teoreticky nebylo nutné dělat,
- * pokud to nebudu využívat v terminálu.
- ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement