取得open sales order(2) 转

取得open sales order(2)

*&---------------------------------------------------------------------*

*& Form GET_DATA_BQ

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM GET_DATA_BQ.

* With inner join get billing plan

* VBAK--VBAP--VBKD--FPLT

SELECT A~VBELN B~POSNR D~AFDAT D~TETXT D~MLBEZ D~FPROZ

D~FAKWR D~WAERS D~FAKSP D~FAREG D~FKSAF D~ZTERM

D~FPTTP D~FKARV D~KURRF D~MLSTN D~FPFIX

FROM VBAK AS A INNER JOIN VBAP AS B ON B~VBELN = A~VBELN

INNER JOIN VBKD AS C ON C~VBELN = B~VBELN AND C~POSNR = B~POSNR

INNER JOIN FPLT AS D ON D~FPLNR = C~FPLNR

INTO CORRESPONDING FIELDS OF TABLE IT_BQ

WHERE A~VKORG IN S_VKORG

AND A~VTWEG IN S_VTWEG

AND A~SPART IN S_SPART

AND A~KUNNR IN S_KUNNR

AND A~ERDAT IN S_ERDAT

AND A~AUART IN S_AUART

AND B~PSTYV IN S_PSTYV

AND B~ABGRU IN S_ABGRU

AND B~PS_PSP_PNR IN S_WBS

AND B~MATNR IN S_MATNR

AND D~FKSAF <> 'C'.

IF SY-SUBRC <> 0.

MESSAGE S033(/SIE/CHN_ALL)

WITH 'No data exists!'.

ENDIF.

ENDFORM. " GET_DATA_BQ

*&---------------------------------------------------------------------*

*& Form GET_DATA_SQ

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM GET_DATA_SQ.

* Local data

DATA:

BEGIN OF LR_SQ,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

RFMNG LIKE VBFA-RFMNG,

KWMENG LIKE VBAP-KWMENG,

OQ LIKE VBAP-KWMENG,

VRKME LIKE VBAP-VRKME,

END OF LR_SQ.

DATA: LIT_SQ LIKE TABLE OF LR_SQ,

LLR_SQ LIKE LR_SQ.

DATA: L_QTY LIKE VBFA-RFMNG.

* Get sales open Qty

* VBAK--VBAP--VBFA

SELECT A~VBELN B~POSNR B~KWMENG B~VRKME C~RFMNG

FROM VBAK AS A INNER JOIN VBAP AS B ON B~VBELN = A~VBELN

INNER JOIN VBFA AS C ON C~POSNV = B~POSNR AND C~VBELV = B~VBELN

INTO CORRESPONDING FIELDS OF TABLE LIT_SQ

WHERE A~VKORG IN S_VKORG

AND A~VTWEG IN S_VTWEG

AND A~SPART IN S_SPART

AND A~KUNNR IN S_KUNNR

AND A~ERDAT IN S_ERDAT

AND A~AUART IN S_AUART

AND B~PSTYV IN S_PSTYV

AND B~ABGRU IN S_ABGRU

AND B~PS_PSP_PNR IN S_WBS

AND B~MATNR IN S_MATNR

AND C~VBTYP_N IN S_VBTYP.

IF SY-SUBRC <> 0.

MESSAGE S033(/SIE/CHN_ALL) WITH 'No data exists!'.

ENDIF.

* GI Qty summary

SORT LIT_SQ BY VBELN POSNR.

LOOP AT LIT_SQ INTO LR_SQ.

LLR_SQ = LR_SQ.

L_QTY = LLR_SQ-RFMNG + L_QTY.

AT END OF POSNR.

LLR_SQ-OQ = LLR_SQ-KWMENG - L_QTY.

WRITE:

L_QTY TO R_SQ-GQ UNIT LLR_SQ-VRKME,

LLR_SQ-KWMENG TO R_SQ-SQ UNIT LLR_SQ-VRKME,

LLR_SQ-OQ TO R_SQ-OQ UNIT LLR_SQ-VRKME.

R_SQ-VBELN = LLR_SQ-VBELN.

R_SQ-POSNR = LLR_SQ-POSNR.

APPEND R_SQ TO IT_SQ.

CLEAR: LLR_SQ,LR_SQ,L_QTY.

ENDAT.

ENDLOOP.

ENDFORM. " GET_DATA_SQ

*&---------------------------------------------------------------------*

*& Form OUTPUT_SQ

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM OUTPUT_SQ.

* Define ALV fieldcat structure

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

* Add data to field catelog

SET_ALV_FIELDCAT:

'VBELN' 'IT_BQ' '1' '12' TEXT-A01,

'POSNR' 'IT_BQ' '2' '10' TEXT-A02,

'SQ' 'IT_BQ' '3' '22' TEXT-A03,

'GQ' 'IT_BQ' '4' '22' TEXT-A04,

'OQ' 'IT_BQ' '5' '20' TEXT-A05.

* Call function to show result

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IT_FIELDCAT = IT_FIELDCAT

I_SAVE = 'A'

TABLES

T_OUTTAB = IT_SQ.

ENDFORM. " OUTPUT_SQ

*&---------------------------------------------------------------------*

*& Form OUTPUT_BQ

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM OUTPUT_BQ.

* Define ALV fieldcat structure

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

* Add data to field catelog

SET_ALV_FIELDCAT:

'VBELN' 'IT_SQ' '1' '12' TEXT-A01,

'POSNR' 'IT_SQ' '2' '10' TEXT-A02,

'AFDAT' 'IT_SQ' '3' '12' TEXT-B03,

'TETXT' 'IT_SQ' '4' '10' TEXT-B04,

'MLBEZ' 'IT_SQ' '5' '10' TEXT-B05,

'FPROZ' 'IT_SQ' '6' '12' TEXT-B06,

'FAKWR' 'IT_SQ' '7' '22' TEXT-B07,

'WAERS' 'IT_SQ' '8' '10' TEXT-B08,

'FAKSP' 'IT_SQ' '9' '10' TEXT-B09,

'FAREG' 'IT_SQ' '10' '10' TEXT-B10,

'FKSAF' 'IT_SQ' '11' '10' TEXT-B11,

'ZTERM' 'IT_SQ' '12' '10' TEXT-B12,

'FPTTP' 'IT_SQ' '13' '10' TEXT-B13,

'FKARV' 'IT_SQ' '14' '10' TEXT-B14,

'KURRF' 'IT_SQ' '15' '20' TEXT-B15 ,

'MLSTN' 'IT_SQ' '16' '20' TEXT-B16,

'FPFIX' 'IT_SQ' '17' '10' TEXT-B17.

* Call function to show result

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IT_FIELDCAT = IT_FIELDCAT

I_SAVE = 'A'

TABLES

T_OUTTAB = IT_BQ.

ENDFORM. " OUTPUT_BQ


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/190059/viewspace-476654/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/190059/viewspace-476654/

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
目标检测(Object Detection)是计算机视觉领域的一个核心问题,其主要任务是找出图像中所有感兴趣的目标(物体),并确定它们的类别和位置。以下是对目标检测的详细阐述: 一、基本概念 目标检测的任务是解决“在哪里?是什么?”的问题,即定位出图像中目标的位置并识别出目标的类别。由于各类物体具有不同的外观、形状和姿态,加上成像时光照、遮挡等因素的干扰,目标检测一直是计算机视觉领域最具挑战性的任务之一。 二、核心问题 目标检测涉及以下几个核心问题: 分类问题:判断图像中的目标属于哪个类别。 定位问题:确定目标在图像中的具体位置。 大小问题:目标可能具有不同的大小。 形状问题:目标可能具有不同的形状。 三、算法分类 基于深度学习的目标检测算法主要分为两大类: Two-stage算法:先进行区域生成(Region Proposal),生成有可能包含待检物体的预选框(Region Proposal),再通过卷积神经网络进行样本分类。常见的Two-stage算法包括R-CNN、Fast R-CNN、Faster R-CNN等。 One-stage算法:不用生成区域提议,直接在网络中提取特征来预测物体分类和位置。常见的One-stage算法包括YOLO系列(YOLOv1、YOLOv2、YOLOv3、YOLOv4、YOLOv5等)、SSD和RetinaNet等。 四、算法原理 以YOLO系列为例,YOLO将目标检测视为回归问题,将输入图像一次性划分为多个区域,直接在输出层预测边界框和类别概率。YOLO采用卷积网络来提取特征,使用全连接层来得到预测值。其网络结构通常包含多个卷积层和全连接层,通过卷积层提取图像特征,通过全连接层输出预测结果。 五、应用领域 目标检测技术已经广泛应用于各个领域,为人们的生活带来了极大的便利。以下是一些主要的应用领域: 安全监控:在商场、银行
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值