2007 May 10 8:37 AM
Hi ,
Iam trying to upload file using bdc call transaction.
tcode is ff67.
iam not able to give decimal values in the input file iam getting error.The fields
i want to enter decimals is in bold(ssald and esald in the internal table declarations).
iam giving the dec code below, please help me
&----
INTERNAL TABLES DECLARATIONS
&----
DATA : BEGIN OF bdcdata OCCURS 0.
INCLUDE STRUCTURE bdcdata.
DATA : END OF bdcdata.
DATA: LV_OUT TYPE STRING.
DATA : iopt LIKE ctu_params.
DATA : wa_rec_err TYPE i.
DATA : wa_rec_wri TYPE i.
DATA : wa_tot_rec TYPE i.
DATA : BEGIN OF gu_upload OCCURS 0,
hbkid LIKE febmka-hbkid,
hktid LIKE febmka-hktid,
aznum LIKE febmka-aznum,
azdat LIKE febmka-azdat,
<b>ssald LIKE febmka-waers,
esald LIKE febmka-waers,</b>
budtm LIKE febmka-budtm,
mnam1 LIKE febmka-mnam1,
jname LIKE febmka-jname,
vgman LIKE febmka-vgman,
valut LIKE febep-valut,
kwbtr(13) TYPE c,
chect_kf LIKE febmkk-chect_kf,
END OF gu_upload.
DATA:GU_DOWNLOAD LIKE GU_UPLOAD OCCURS 0 WITH HEADER LINE.
vjy*********************************
DATA: BEGIN OF itab OCCURS 0,
vgman LIKE febmka-vgman,
valut LIKE febep-valut,
kwbtr(13) TYPE c,
chect_kf LIKE febmkk-chect_kf,
END OF itab.
vjy)(_()00-8-09
DATA: BEGIN OF messtab OCCURS 0.
INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF messtab.
DATA: BEGIN OF messtab1 OCCURS 0.
INCLUDE STRUCTURE messtab.
DATA: END OF messtab1.
DATA : BEGIN OF int_count OCCURS 0.
INCLUDE STRUCTURE alsmex_tabline.
DATA : END OF int_count.
DATA: c_tcode LIKE sy-tcode VALUE 'FF67',
c_upd LIKE ctu_params-updmode VALUE 'S',
c_def_size LIKE ctu_params-defsize VALUE 'X'.
*VALUES FOR STARTING COLUMNS AND ROWS IN THE EXCEL SHEET
DATA : c_begcol TYPE i VALUE '1',
c_begrow TYPE i VALUE '1',
*DATA IS ENDED AT THE 13TH COLUMN IN THE EXCELSHEET
c_endcol TYPE i VALUE '13',
*LAST ROW IN THE EXCEL SHEET
c_endrow TYPE i VALUE '65536',
c_path(3) TYPE c VALUE 'C:\'.
2007 May 10 8:51 AM
Make the field of type character and then work.
Reward points if useful...
Thanks.
Make the field of type character and then work.
Reward points if useful...
Thanks.
2007 May 10 8:51 AM
Make the field of type character and then work.
Reward points if useful...
Thanks.
2007 May 10 8:57 AM
u need to the decimal correction.
pls see the extract of the code below :
***********
SELECT currkey currdec FROM tcurx INTO TABLE tbl_tcurx
FOR ALL ENTRIES IN tbl_bsik1
WHERE currkey = tbl_bsik1-waers.
IF sy-subrc = 0.
SORT tbl_tcurx BY currkey.
ENDIF.
READ TABLE tbl_tcurx WITH KEY currkey = tbl_bsik-waers
BINARY SEARCH.
IF sy-subrc = 0.
* currency corrections
IF tbl_tcurx-currdec = 0.
tbl_final-wrbtr = tbl_bsik-wrbtr * 100.
ELSEIF tbl_tcurx-currdec = 1.
tbl_final-wrbtr = tbl_bsik-wrbtr * 10.
ELSEIF tbl_tcurx-currdec = 3.
tbl_final-wrbtr = tbl_bsik-wrbtr / 10.
ELSEIF tbl_tcurx-currdec = 5.
tbl_final-wrbtr = tbl_bsik-wrbtr / 1000.
ENDIF.
*** start
ELSE.
tbl_final-wrbtr = tbl_bsik-wrbtr.
***** end
ENDIF.
if found useful reward with points
REgadrs,
Vasanth
2007 May 10 9:01 AM
| User | Count |
|---|---|
| 3 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |