SHARE
TWEET

Untitled

a guest Oct 16th, 2019 146 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   IF p_cod_barr+09(1) EQ 'H'.
  2. *** Verifica primeiro se o item é de transferência "SEMI-EMBALADO"
  3.     SELECT SINGLE * FROM ztbpp_hu_pesagem
  4.       INTO lw_pesagem
  5.      WHERE cod_barras   EQ p_cod_barr
  6.        AND tipo_pesagem EQ 'I'.
  7.     IF sy-subrc EQ 0.
  8.  
  9.       SELECT COUNT(*) FROM ztbpp_hu_apontad
  10.        WHERE aufnr EQ lw_pesagem-aufnr
  11.          AND matnr EQ lw_pesagem-matnr
  12.          AND exidv EQ lw_pesagem-exidv.
  13.       IF sy-subrc NE 0.
  14.  
  15.         PERFORM zf_gm_without_hu USING abap_true
  16.                                        p_cod_barr
  17.                               CHANGING lt_pallet_ite.
  18.       ELSE.
  19.         PERFORM zf_gm_with_hu  USING p_cod_barr
  20.                             CHANGING lt_pallet_ite.
  21.       ENDIF.
  22.  
  23.     ELSE.
  24.  
  25.       PERFORM zf_gm_without_hu  USING abap_true
  26.                                       p_cod_barr
  27.                              CHANGING lt_pallet_ite.
  28.     ENDIF.
  29.  
  30.   ELSE.
  31.     PERFORM zf_gm_without_hu USING abap_false
  32.                                    p_cod_barr
  33.                           CHANGING lt_pallet_ite.
  34.   ENDIF.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top