¡Caminando hacia el éxito!

Aprende en Comunidad

Avalados por :

Recuperación de Lote en SAP: Guía de Implementación y Requisitos

  • Creado 01/03/2024
  • Modificado 01/03/2024
  • 10 Vistas
0
Cargando...

(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

&----


  • Rutina para recopilar todos los datos de visualización en la tabla interna final

  • t_display.

----


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.

        1. mod begin CR1591

  • t_display-maktx = t_eket-maktx.

READ TABLE t_makt WITH KEY matnr = t_eket-matnr

BINARY SEARCH.

Pedro Pascal
Se unió el 07/03/2018
Pinterest
Telegram
Linkedin
Whatsapp

2 Respuestas

0
Cargando...

Hola,

Encuentra la modificación a continuación, considera el texto en negrita y elimina el antiguo:

LEER TABLA t_lips CON CLAVE vbeln = t_eket-vbeln

posnr = t_eket-vbelp

BINARY SEARCH.

l_tabix = sy-tabix.

SI sy-subrc = 0.

<b>si t_lips-lichn EQ espacio Y

t_lips-charg NE espacio.

t_display-charg = t_lips-charg.

t_display-lichn = t_lips-charg.

endif.</b>

<i>t_display-charg = t_lips-charg.(Creo que este es el lugar para cambiar).

t_display-lichn = t_lips-charg.</i>ENDIF.

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola,

prueba esto. (en lugar de no..inicial .....usa ne espacio)

SI sy-subrc = 0.

t_display-charg = t_lips-charg.

SI t_lips-lichn ne espacio.

t_display-lichn = t_lips-lichn.

SINO.

t_display-lichn = t_lips-charg.

FIN-SI.

FIN-SI.

Gracias.

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019

contacto@primeinstitute.com

(+51) 1641 9379
(+57) 1489 6964

© 2024 Copyright. Todos los derechos reservados.

Desarrollado por Prime Institute

¡Hola! Soy Diana, asesora académica de Prime Institute, indícame en que curso estas interesado, saludos!
Hola ¿Puedo ayudarte?