(Diseño actual)
Lote se recupera de LIPS-CHARG
Lote de proveedor se recupera de LIPS-LICHN
(Si no hay registro en LIPS, se imprimirá en blanco para ambos campos)
REQUISITO:
Lote se recupera de LIPS-CHARG
Lote de proveedor se recupera de LIPS-LICHN solo si LIPS-LICHN no está en blanco.
Si LIPS-LICHN está en blanco, el lote de proveedor se recupera de LIPS-CHARG.
(Si no hay registro en LIPS, se imprimirá en blanco para ambos campos. Si tanto LIPS-CHARG como LIPS-LICHN están en blanco, se imprimirá en blanco para ambos campos)
t-lips es la tabla interna:
DATA: BEGIN OF t_lips OCCURS 0,
vbeln LIKE lips-vbeln, "Número de documento de entrega
posnr LIKE lips-posnr, "Número de artículo para documento de entrega
charg LIKE lips-charg, "Número de lote
lichn LIKE lips-lichn, "Número de lote de proveedor
END OF t_lips.
A continuación se muestra el fragmento 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.