取服务类采购订单含税单价

服务类的采购订单实际的含税价是在服务包内，先取得采购订单行项目的服务包，再根据服务包去取服务包。---只针对特定公司

IF WA_DATA-PSTYP = '9'  .
      WA_DATA-HSDJ = 0.
      SELECT PACKNO, SUB_PACKNO FROM ESLL INTO TABLE @DATA(ITB_ESLL) WHERE PACKNO = @WA_DATA-PACKNO AND DEL = ''.
      LOOP AT ITB_ESLL INTO DATA(WA_ESLL).
        SELECT PACKNO, MENGE FROM ESLL INTO TABLE @DATA(ITB_SUB_ESLL) WHERE PACKNO = @WA_ESLL-SUB_PACKNO AND DEL = ''.
        LOOP AT ITB_SUB_ESLL INTO DATA(WA_SUB_ESLL).
          WA_DATA-HSDJ  = WA_DATA-HSDJ  + WA_SUB_ESLL-MENGE. "服务含税单价
          CLEAR:WA_SUB_ESLL.
        ENDLOOP.
        CLEAR:WA_ESLL.
      ENDLOOP.
    ENDIF.