SoloCodigo

Loop anidado ( Es demasiado lento )

De la tabla interna tab_ped3a debo insertar los registros a la tabla interna tab_ped3

Para esto :

1) Hago un read table con tab_ped4 y hago el insert en tab_ped3 (Aqui inserto los pedidos con sus respectivos materiales y respectivo No de factura por material)

2) Hago un loop para que inserte los otros registros (Aqui inserto los pedidos que tuvieron por un material mas de un factura, osea para un material se pidio 20 unidades y 10 se facturaron con la fact A y los otros 10 con las factura B )

 

   SORT tab_ped3a by vbeln matnr posnr paobjnr.
   SORT tab_ped4  by aubel matnr aupos paobjnr.
   CLEAR : tab_ped3a , tab_ped3, tab_ped4.

   Expresion1 = ''.

   LOOP AT tab_ped3a.

      CONCATENATE tab_ped3a-vbeln   tab_ped3a-posnr tab_ped3a-matnr
                  tab_ped3a-paobjnr tab_ped3a-doc_cial INTO Expresion1.

      IF Expresion1 <> Expresion2.

*      Punto 1)
        READ TABLE tab_ped4 WITH KEY aubel   = tab_ped3a-vbeln
                                     aupos   = tab_ped3a-posnr
                                     matnr   = tab_ped3a-matnr
                                     paobjnr = tab_ped3a-paobjnr.

        IF sy-subrc EQ 0.

           CONCATENATE tab_ped4-aubel   tab_ped4-aupos tab_ped4-matnr
                       tab_ped4-paobjnr tab_ped4-vbeln INTO Expresion2.

              tab_ped3-vbeln    = tab_ped3a-vbeln.
              tab_ped3-posnr    = tab_ped3a-posnr.
              tab_ped3-matnr    = tab_ped3a-matnr.
              tab_ped3-paobjnr  = tab_ped3a-paobjnr.
              tab_ped3-doc_cial = tab_ped4-vbeln.
             INSERT TABLE tab_ped3.
        ENDIF.
      ENDIF.

      CONCATENATE tab_ped3-vbeln   tab_ped3-posnr tab_ped3-matnr
                  tab_ped3-paobjnr tab_ped3-doc_cial INTO Expresion3.

*    Punto 2)
      LOOP AT tab_ped4 WHERE aubel   = tab_ped3-vbeln and
                             aupos   = tab_ped3-posnr and
                             matnr   = tab_ped3-matnr and
                             paobjnr = tab_ped3-paobjnr.

           CONCATENATE tab_ped4-aubel   tab_ped4-aupos tab_ped4-matnr
                       tab_ped4-paobjnr tab_ped4-vbeln INTO Expresion4.

           IF Expresion4 <> Expresion3.
              tab_ped3-vbeln     = tab_ped3a-vbeln.
              tab_ped3-posnr     = tab_ped3a-posnr.
              tab_ped3-matnr    = tab_ped3a-matnr.
              tab_ped3-paobjnr  = tab_ped3a-paobjnr.
              tab_ped3-doc_cial  = tab_ped4-vbeln.
              INSERT TABLE tab_ped3.
           ENDIF.

      ENDLOOP.

   ENDLOOP.

Gracias por la atencion

Gema
COLOMBIA