Denis написал(а):
REPORT zhr_batch_foto
NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA: filenm(12),
file(256).
PARAMETERS: path(256) DEFAULT 'D:\Фотки\Диск 2\УПРАВЛЕНИЕ\640x480\'
OBLIGATORY.
SELECT-OPTIONS: filename FOR filenm.
INCLUDE bdcrecx1.
START-OF-SELECTION.
PERFORM open_group.
LOOP AT filename.
SEARCH filename-low for '.JPG'.
IF sy-subrc = 0.
PERFORM bdc_dynpro USING 'OANEWCON' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=NEW'.
PERFORM bdc_field USING 'TOAOM-SAP_OBJECT'
'PREL'.
PERFORM bdc_field USING 'TOAOM-AR_OBJECT'
'HRICOLFOTO'.
PERFORM bdc_dynpro USING 'SAPLSJ01' '0200'.
PERFORM bdc_field USING 'BDC_CURSOR'
'FIELD_VALUES-INPUT(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=OK'.
PERFORM bdc_field USING 'FIELD_VALUES-INPUT(01)'
filename-low(sy-fdpos).
PERFORM bdc_dynpro USING 'SAPLOPTM' '0105'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=OKAY'.
CONCATENATE path filename-low INTO file.
PERFORM bdc_field USING 'DATA_0105-FILENAME'
file.
PERFORM bdc_transaction USING 'OAOH'.
ENDIF.
ENDLOOP.
PERFORM close_group.
при просмотре только ошибок заполняет данными останавливается на окне с номером табельного. такое ощущение, что okcode не хватает.
можно ли этого как-то избежать