IF p_cod_barr+09(1) EQ 'H'.
*** Verifica primeiro se o item é de transferência "SEMI-EMBALADO"
    SELECT SINGLE * FROM ztbpp_hu_pesagem
      INTO lw_pesagem
     WHERE cod_barras   EQ p_cod_barr
       AND tipo_pesagem EQ 'I'.
    IF sy-subrc EQ 0.

      SELECT COUNT(*) FROM ztbpp_hu_apontad
       WHERE aufnr EQ lw_pesagem-aufnr
         AND matnr EQ lw_pesagem-matnr
         AND exidv EQ lw_pesagem-exidv.
      IF sy-subrc NE 0.

        PERFORM zf_gm_without_hu USING abap_true
                                       p_cod_barr
                              CHANGING lt_pallet_ite.
      ELSE.
        PERFORM zf_gm_with_hu  USING p_cod_barr
                            CHANGING lt_pallet_ite.
      ENDIF.

    ELSE.

      PERFORM zf_gm_without_hu  USING abap_true
                                      p_cod_barr
                             CHANGING lt_pallet_ite.
    ENDIF.

  ELSE.
    PERFORM zf_gm_without_hu USING abap_false
                                   p_cod_barr
                          CHANGING lt_pallet_ite.
  ENDIF.