(Design atual)
Lote recuperado de LIPS-CHARG
Lote do fornecedor recuperado de LIPS-LICHN
(Se não houver registro em LIPS, será impresso em branco para ambos os campos)
REQUISITO:
Lote recuperado de LIPS-CHARG
Lote do fornecedor recuperado de LIPS-LICHN apenas se LIPS-LICHN não estiver em branco.
Se LIPS-LICHN estiver em branco, o lote do fornecedor é recuperado de LIPS-CHARG.
(Se não houver registro em LIPS, será impresso em branco para ambos os campos. Se tanto LIPS-CHARG quanto LIPS-LICHN estiverem em branco, será impresso em branco para ambos os campos)
t-lips é a tabela interna:
DATA: BEGIN OF t_lips OCCURS 0,
vbeln LIKE lips-vbeln, "Número do documento de entrega
posnr LIKE lips-posnr, "Número do item para documento de entrega
charg LIKE lips-charg, "Número do lote
lichn LIKE lips-lichn, "Número do lote do fornecedor
END OF t_lips.
Abaixo está o trecho de código:
&----
*& Form f_collect_final
&----
----
FORM f_collect_final.
DATA: l_std_pac_no LIKE eket-menge,
l_std_pac_no_out(13) TYPE p,
l_tot_std_pt(13) TYPE c,
l_rmdr(13) TYPE n,
l_qtnt(13) TYPE n,
l_tabix TYPE i.
LOOP AT t_eket.
t_display-ebeln = t_eket-ebeln.
t_display-ebelp = t_eket-ebelp.
t_display-etens = t_eket-etens.
t_display-eindt = t_eket-eindt.
t_display-menge = t_eket-menge.
t_display-meins = t_eket-meins.
t_display-matnr = t_eket-matnr.
-
mod begin CR1591
READ TABLE t_makt WITH KEY matnr = t_eket-matnr
BINARY SEARCH.