BDC如何一次新增多筆紀錄?

rosefish

原帖由 plusdouble 于 2011-7-26 09:14 发表
MSEG-ERFMG(01)中的01不用改为02，也可以過第2筆資料。
我想要的是輸入10筆資料後，顯示1次過帳成功!!
而不是輸入10筆資料後，顯示10次過帳成功~
不過，謝謝您的意見。

(01)输入第一条记录
(02)输入第二第记录
...
(10)输入第十条记录
然后保存过帐。
这种方法要考虑屏幕大小，因为屏幕大小会影响可输入行数。

另外一种方法是，每输入一条记录后，执行“new item“，然后新的一行就会出现在(01)的位置，继续输入数据就可以了。输入10行后保存。这种方法更简单更可靠。

plusdouble

請問如何保存过帐?
执行“new item“，是寫在程式碼裡嗎?

tomato_plp

前段刚做过一个类似的BDC，是把要循环的那段加一个LOOP AT RECORD的循环，还要条件分割下文本，不然内循环会整列循环下来，把保存的那段BDC放在这段LOOP的外面，在原来的那个LOOP里面。

plusdouble

請問，那就是要做兩個LOOP AT RECORD的意思嗎?
條件分割下文是因為有兩個畫面的關係嗎?
請問條件也是用LOOP嗎?

[ 本帖最后由 plusdouble 于 2011-7-26 16:53 编辑 ]

plusdouble

請問，這有設定幾筆才產生一份文件嗎?

houbao408

比如说你一个销售单有5个行项目需要更改，那么就是在5个行项目都修改完成后才会保存，即一个销售单只会保存一次，不是修改一次就保存一次！！！

tomato_plp

是的，这是一段代码，请参考下
  LOOP AT  RECORD.
  TVBELN = RECORD-VBELN_01_002.
*do.

*read dataset dataset into record.
*if sy-subrc <> 0. exit. endif.
    IF RECORD-FKDAT_001 <> 0.
      PERFORM BDC_DYNPRO      USING 'SAPMV60A' '0102'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'KOMFK-VBELN(02)'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '/00'.
      PERFORM BDC_FIELD       USING 'RV60A-FKDAT'
                                    RECORD-FKDAT_001.

      PERFORM BDC_DYNPRO      USING 'SAPMV60A' '0102'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'KOMFK-VBELN(02)'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '/00'.
      PERFORM BDC_FIELD       USING 'KOMFK-VBELN(01)'
                                    RECORD-VBELN_01_002.
      PERFORM BDC_DYNPRO      USING 'SAPMV60A' '0104'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'VBRK-FKART'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '=MKAL'.

      LOOP AT RECORD WHERE VBELN_01_002 = TVBELN.
        PERFORM BDC_DYNPRO      USING 'SAPMV60A' '0104'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'VBRK-FKART'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=PFKO'.
        PERFORM BDC_DYNPRO      USING 'SAPMV60A' '6002'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'KOMV-KPEIN(02)'.
        PERFORM BDC_FIELD       USING 'KOMV-KBETR(02)'
                                      RECORD-KBETR_02_004.
        PERFORM BDC_FIELD       USING 'KOMV-KPEIN(02)'
                                      RECORD-KPEIN_02_005.
        PERFORM BDC_DYNPRO      USING 'SAPMV60A' '6002'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=UEBP'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'KOMV-KSCHL(01)'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'KOMV-KPEIN(02)'.
ENDLOOP.
      PERFORM BDC_DYNPRO      USING 'SAPMV60A' '0104'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'VBRK-FKART'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '=SICH'.
      PERFORM BDC_TRANSACTION USING 'VF01'.
    ENDIF.
  ENDLOOP.

plusdouble

不好意思，我是新手。
想請問一下你LOOP的條件是什麼??
可否幫我解釋一下??
因為我試我的程式搭不起來。
謝謝。

tomato_plp

TVBELN = RECORD-VBELN_01_002.这个是把凭证号赋给一个变量，LOOP AT RECORD WHERE VBELN_01_002 = TVBELN.就是对凭证号相同的行循环。

plusdouble

您好，我想要的結果是每10筆紀錄產生一筆過帳文件。
這樣也有辦法寫成loop嗎??謝謝。