BDC to save text in VL02N
Hi All,
I have a requirement of adding a BDC logic in my program .
While recording, I need to call the transaction VL02N and update the delivery number and:
add some text under the tab:
Texts-> Body Text
and save the same.
I am able to record upto the BODY Text. I need text from my program to be passed to the Body Text[Text Area] and then the same should be saved.
Could any one help me out in finding the Ok-Code for <b>entering the text</b> from my program to the Body Text through BDC for VLO2N transaction.
Any pointers will be highly appreciated. Thanks in Advance.
Waiting for your valuable inputs.
Regards,
Anjali
Hi All,
I solved the problem.
Actually its not possible to record that event for VL02N. Hence I did the same with VL02 as mentioned, and recorded it in the RTEXT-LTEXT screen field.
Thanks a lot KYle Yeung.
Regards,
Anjali
Similar Messages
-
Hi All,
I'm creating a BDC session calling the VA01.
my problem is where do I put my code? I test it and I still got a blank in header text pick list.
Codes is more helpful so I can compare my work.
Thanks.here is my code for BDC.
data: begin of record,
TXLINE_02_028(072),
end of record.
****MESLAN
clear: v_itm, v_kwmeng, v_mabnr.
LOOP AT t_hdr .
*-- HEADER
PERFORM fill_dynpro USING 'SAPMV45A' '0101' 'X'.
PERFORM fill_field USING: 'VBAK-AUART' p_auart,
'VBAK-VKORG' t_hdr-vkorg,
'VBAK-VTWEG' t_hdr-vtweg,
'VBAK-SPART' t_hdr-spart,
'BDC_OKCODE' '/00'.
PERFORM fill_dynpro USING 'SAPMV45A' '4001' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'KUAGV-KUNNR' t_hdr-ablad,
'RV45A-KPRGBZ' 'D',
'VBAK-LIFSK' p_lifsk,
'VBAK-AUGRU' p_augru,
'BDC_OKCODE' '/00'.
PERFORM fill_dynpro USING 'SAPMV45A' '4001' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'KUAGV-KUNNR' t_hdr-ablad,
'KUWEV-KUNNR' t_hdr-ablad,
'RV45A-KPRGBZ' 'D',
'VBAK-LIFSK' p_lifsk,
'VBAK-AUGRU' p_augru,
'BDC_OKCODE' '=KBES'.
PERFORM fill_dynpro USING 'SAPMV45A' '4002' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'VBKD-BSARK' P_BSARK,
'BDC_OKCODE' '/00'.
PERFORM fill_dynpro USING 'SAPMV45A' '4002' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'VBKD-BSARK' P_BSARK,
'BDC_OKCODE' '/EBACK'.
PERFORM fill_dynpro USING 'SAPMV45A' '4001' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'KUAGV-KUNNR' t_hdr-ablad,
'KUWEV-KUNNR' t_hdr-ablad,
'RV45A-KPRGBZ' 'D',
'VBAK-LIFSK' p_lifsk,
'VBAK-AUGRU' p_augru,
'BDC_OKCODE' '=POAN'.
LOOP AT t_line WHERE bstnk EQ t_hdr-bstnk . " Select all line items
*-- LINE ITEMS
CONCATENATE 'RV45A-MABNR(' '0' VAL ')' INTO v_MABNR.
CONCATENATE 'RV45A-KWMENG(' '0' VAL ')' INTO v_kwmeng.
PERFORM fill_dynpro USING 'SAPMV45A' '4001' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'KUAGV-KUNNR' t_hdr-ablad,
'KUWEV-KUNNR' t_hdr-ablad,
'RV45A-KPRGBZ' 'D',
'VBAK-LIFSK' p_lifsk,
'VBAK-AUGRU' p_augru,
v_MABNR t_line-matnr,
v_kwmeng t_line-kwmeng,
'BDC_OKCODE' '/00'.
*---- for t_curlin
v_itm = val * 10 .
t_curlin = t_line.
t_curlin-lineno = v_itm .
APPEND t_curlin .
*---- for line item
VAL = VAL + 1.
endloop.
VAL = 01.
PERFORM fill_dynpro USING 'SAPMV45A' '4001' 'X'.
PERFORM fill_field USING: 'VBKD-BSTKD' t_hdr-bstnk,
'KUAGV-KUNNR' t_hdr-ablad,
'KUWEV-KUNNR' t_hdr-ablad,
'RV45A-KPRGBZ' 'D',
'VBAK-LIFSK' p_lifsk,
'VBAK-AUGRU' p_augru,
'BDC_OKCODE' '=SICH'.
CALL TRANSACTION 'VA01' USING t_bdctab
MODE p_mode
UPDATE c_s
MESSAGES INTO t_message .
IF sy-subrc NE 0 . " Post errored sessions- for correction
v_errflg = c_x . " Online posting error - open session
v_errno = v_errno + 1 .
PERFORM append_mail_table .
PERFORM open_session .
CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = 'VA01' "c_va01
POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
TABLES
dynprotab = t_bdctab
EXCEPTIONS
internal_error = 1
not_open = 2
queue_error = 3
tcode_invalid = 4
printing_invalid = 5
posting_invalid = 6
OTHERS = 7.
ELSE .
t_text-tdline = t_hdr-text .
APPEND t_text .
CLEAR t_text .
WRITE sy-msgv2 TO v_vbeln RIGHT-JUSTIFIED .
TRANSLATE v_vbeln USING c_0 .
v_tdname = v_vbeln . "' order no.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
fid = c_z961
flanguage = p_spras
fname = v_tdname
fobject = c_vbbk
save_direct = c_x
FFORMAT = '*'
TABLES
flines = t_text
EXCEPTIONS
no_init = 1
no_save = 2
OTHERS = 3.
CLEAR t_text . REFRESH t_text .
IF sy-subrc NE 0 .
WRITE : / c_er_load , v_tdname .
ENDIF .
v_succno = v_succno + 1 .
ENDIF .
CLEAR t_bdctab . REFRESH t_bdctab .
endloop.
IF v_errflg EQ c_x .
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
not_open = 1
queue_error = 2
OTHERS = 3.
IF sy-subrc EQ 0 .
MESSAGE i260(zo) WITH text-i01.
ENDIF .
ENDIF .
ENDFORM. -
Uploading texts in vl02n transaction
Hi all,
can anyone tell me how to upload texts(in vlo2n transaction->goto->header->texts)
in vl02n transaction. plz send me some coding for this scenario.
Thanks,
Satish.This is Routing long text upload - CA22 Transaction example code :
Report : ZMPPC016
Type : Data upload
Author : Seshu Maramreddy
Date : 05/27/2005
Transport : DV3K920205
Transaction: ??
Description: This ABAP/4 Program Upload the long text into CA22
Transaction It accepts tab-delimited spreadsheet input
and it will run Call Transaction
report ZMPPC016
no standard page heading
line-size 120.
Constants
constants : c_r type c value 'R', " PLNTY Value
C_X TYPE C VALUE 'X', " Value for dynbegin.
c_tcode like tstc-tcode value 'CA22', " Transaction code
c_mode(1) type c value 'A', " BDC Mode
c_tdformat type tline-tdformat value '*',"Tag column
c_tdid type thead-tdid value 'PLPO', " Text ID
c_tdform type thead-tdform value 'SYSTEM'." Form name
Variables
data : v_date like sy-datum, " date
v_date1(4) type c,
v_date2(2) type c,
v_date3(2) type c,
TNAME LIKE THEAD-TDNAME,
v_mandt(3) type c,
v_matnr(18) type c,
flag type c.
Internal table for file
data : begin of t_file occurs 0,
matnr(18) type c, " Material Number
werks(4) type c, " Plant
vornr(4) type c, " Operation Number
tseq(3) type n, " Line number in the long text
text1(70) type c, " Long text
plnal(2) type n, " Group counter
end of t_file.
data : begin of t_text occurs 0,
matnr(18) type c, " Material Number
werks(4) type c, " Plant
plnal(2) type n, " Group counter
vornr(4) type c, " Operation Number
tseq(3) type n, " Line number in the long text
text1(70) type c, " Long text
end of t_text.
Internal table for MAPl
data : begin of t_mapl occurs 0,
plnnr like mapl-plnnr,
end of t_mapl.
Internal Table for PLAS and PLPO Table
data : begin of t_plpo occurs 0,
mandt like plpo-mandt,
plnty like plpo-plnty,
plnnr like plpo-plnnr,
plnkn like plpo-plnkn,
zaehl like plpo-zaehl,
end of t_plpo.
data t_long like tline occurs 0 with header line.
Work area for t_text Internal table
data : wa_text like t_text.
data: t_header like thead. " long text
Internal table for BDCDATA Structure
data : begin of itab_bdc_tab occurs 0.
include structure bdcdata.
data : end of itab_bdc_tab.
Selection-screen
selection-screen : begin of block blk with frame .
parameter : P_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
p_file = 'C:\My Documents\InputFile.txt'.
at selection-screen on value-request for p_file.
F4 value for file
perform file_get.
start-of-selection.
Get file data into Internal Table.
perform get_data.
sort t_text by matnr werks vornr plnal tseq.
Save the long text into CA22 Transaction
perform load_data.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
FLEX_TEXT1 =
FLEX_TEXT2 =
FLEX_TEXT3 =
skip 1.
*& Form file_get
F4 Value for file
FORM file_get.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_PATH = 'C:\Temp\'
MASK = ',.,..'
MODE = 'O'
TITLE = 'Select File'(007)
IMPORTING
FILENAME = P_file
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
ENDFORM. " file_get
*& Form get_data
Get file data into Internal Table.
FORM get_data.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = p_file
FILETYPE = 'DAT'
TABLES
DATA_TAB = t_file
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
if sy-subrc eq 0.
sort t_file by matnr werks plnal vornr tseq.
delete t_file where matnr = ''.
loop at t_file.
Get the material number from tables ZMSMI_FERR_RAW,
ZMSMI_SNAP_RAW and ZMSMI_SIMP_RAW
perform get_matnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = t_file-vornr
IMPORTING
OUTPUT = t_file-vornr.
move : t_file-matnr to t_text-matnr,
t_file-werks to t_text-werks,
t_file-vornr to t_text-vornr,
t_file-tseq to t_text-tseq,
t_file-text1 to t_text-text1,
t_file-plnal to t_text-plnal.
append t_text.
clear t_text.
endloop.
else.
WRITE: / 'Error reading input file'.
stop.
endif.
ENDFORM. " get_data
*& Form call_bdc
BDC Script for CA22 Transaction
FORM call_bdc.
Screen 1010
perform bdc_screen using 'SAPLCPDI' '1010'.
perform bdc_field using 'BDC_OKCODE' '=VOUE'.
perform bdc_field using 'RC27M-MATNR' SPACE.
perform bdc_field using 'RC27M-WERKS' SPACE.
perform bdc_field using 'RC271-VBELN' SPACE.
perform bdc_field using 'RC271-POSNR' SPACE.
perform bdc_field using 'RC271-PLNNR' T_PLPO-PLNNR.
perform bdc_field using 'RC271-AENNR' SPACE.
clear : v_date,
v_date1,
v_date2,
v_date3.
v_date1 = sy-datum+0(4).
v_date2 = sy-datum+4(2).
v_date3 = sy-datum+6(2).
concatenate v_date2 v_date3 v_date1 into v_date.
perform bdc_field using 'RC271-STTAG' v_date .
perform bdc_field using 'RC271-REVLV' SPACE.
perform bdc_field using 'RC271-WERKS' SPACE.
perform bdc_field using 'RC271-PLNAL' WA_TEXT-PLNAL.
perform bdc_field using 'RC271-STATU' SPACE.
perform bdc_field using 'RC271-VAGRP' SPACE.
perform bdc_field using 'RC271-PROFIDNETZ' SPACE.
Screen 5400
perform bdc_screen using 'SAPLCPDI' '5400'.
perform bdc_field using 'BDC_OKCODE' '=OSEA'.
Screen 1010
perform bdc_screen using 'SAPLCP02' '1010'.
perform bdc_field using 'BDC_OKCODE' '=ENT1'.
perform bdc_field using 'RC27H-VORNR' WA_TEXT-VORNR.
Screen 5400
perform bdc_screen using 'SAPLCPDI' '5400'.
perform bdc_field using 'BDC_OKCODE' '=LTXT'.
perform bdc_field using 'RC27X-FLG_SEL(01)' C_X.
Screen 1100
perform bdc_screen using 'SAPLSTXX' '1100'.
perform bdc_field using 'BDC_OKCODE' '=XEIN'.
Screen 0999
perform bdc_screen using 'SAPLWB_CUSTOMIZING' '0999'.
perform bdc_field using 'BDC_OKCODE' '=CONT'.
PERFORM BDC_FIELD USING 'RSEUMOD-GRA_EDITOR' SPACE.
Screen 1100
perform bdc_screen using 'SAPLSTXX' '1100'.
perform bdc_field using 'BDC_CURSOR' 'RSTXT-TXPARGRAPH'.
perform bdc_field using 'BDC_OKCODE' '=TXBA'.
perform bdc_field using 'RSTXT-TXPARGRAPH(03)' '*'.
perform bdc_field using 'RSTXT-TXLINE(03)'
Screen 5400
perform bdc_screen using 'SAPLCPDI' '5400'.
perform bdc_field using 'BDC_OKCODE' '=BU'.
call transaction c_tcode
using itab_bdc_tab mode 'N'
update 'S'.
refresh itab_bdc_tab.
if sy-subrc eq 0 and sy-msgty ne 'E'.
v_mandt = t_plpo-mandt.
CONCATENATE v_mandt
t_plpo-plnty
t_plpo-plnnr
t_plpo-plnkn
t_plpo-zaehl into tname.
commit work.
CALL FUNCTION 'DELETE_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = c_tdid
LANGUAGE = 'E'
NAME = TNAME
OBJECT = 'ROUTING'
SAVEMODE_DIRECT = 'X'
TEXTMEMORY_ONLY = ' '
LOCAL_CAT = ' '
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2
if sy-subrc ne 0.
write:/3 wa_text-matnr,24 wa_text-werks,
30 t_mapl-plnnr,44 wa_text-plnal,48 wa_text-vornr,
60 ' -',
67 'Error Deleting Existing Long Text'.
endif.
else.
write:/3 wa_text-matnr,24 wa_text-werks,
30 t_mapl-plnnr,44 wa_text-plnal,48 wa_text-vornr,
60 ' -',
67 'Error Executing BDC'.
endif.
ENDFORM. " call_bdc
*& Form bdc_screen
BDC Script for Screen fields
-->P_PROG Program name
-->P_SCRN Screen Number
FORM bdc_screen USING p_prog
p_scrn.
clear itab_bdc_tab.
itab_bdc_tab-program = p_prog.
itab_bdc_tab-dynpro = p_scrn.
itab_bdc_tab-dynbegin = c_x.
append itab_bdc_tab.
ENDFORM. " bdc_screen
*& Form bdc_field
BDC Script for Screen fileds
-->P_NAM Field name
-->P_VAL Field value
FORM bdc_field USING p_nam
p_val.
clear itab_bdc_tab.
itab_bdc_tab-fnam = p_nam.
itab_bdc_tab-fval = p_val.
append itab_bdc_tab.
ENDFORM. " bdc_screen
*& Form load_data
Save the long text into CA22 Transaction
FORM load_data.
loop at t_text.
move t_text to wa_text.
at new vornr.
Read the data in MAPL Table
select single plnnr from mapl into t_mapl-plnnr
where matnr = wa_text-matnr
and werks = wa_text-werks
and plnty = c_r
and loekz = space.
if sy-subrc eq 0.
Read the data from PLAS and PLPO Table
select SINGLE a~mandt
a~plnty
a~plnnr
a~plnkn
a~zaehl into t_plpo
from plpo as a inner join plas as b on aplnty = bplnty
and aplnnr = bplnnr
and aplnkn = bplnkn
where b~plnty = c_r
and b~plnnr = t_mapl-plnnr
and b~plnal = wa_text-plnal
and b~loekz = space
and a~vornr = wa_text-vornr
and a~loekz = space.
if sy-subrc eq 0.
perform call_bdc.
else.
flag = 'X'.
write:/3 wa_text-matnr,24 wa_text-werks,
30 t_mapl-plnnr,44 wa_text-plnal,48 wa_text-vornr,
60 ' -',
67 'Matching routing group\Operation not found'.
continue.
endif.
else.
flag = 'X'.
write:/3 wa_text-matnr,24 wa_text-werks,
40 ' -',
45 'Material Does not Exists or Material',
82 'not Available in MAPL Table'.
continue.
endif.
endat.
if flag ne 'X'.
t_long-tdline = wa_text-text1.
t_long-tdformat = c_tdformat.
append t_long.
endif.
at end of vornr.
if flag ne 'X'.
v_mandt = t_plpo-mandt.
CONCATENATE v_mandt
t_plpo-plnty
t_plpo-plnnr
t_plpo-plnkn
t_plpo-zaehl into tname.
T_HEADer-TDOBJECT = 'ROUTING'.
t_HEADer-TDNAME = tname.
T_HEADer-TDID = c_tdid.
t_header-tdform = c_tdform.
T_HEADer-TDSPRAS = 'E'.
Save the text
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = t_header
SAVEMODE_DIRECT = 'X'
OWNER_SPECIFIED = ' '
LOCAL_CAT = ' '
IMPORTING
FUNCTION =
NEWHEADER =
TABLES
LINES = t_long
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
if sy-subrc eq 0.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
OBJECT = t_header-TDOBJECT
NAME = t_header-TDNAME
ID = t_header-TDID
LANGUAGE = t_header-TDSPRAS.
write:/3 wa_text-matnr,24 wa_text-werks,
30 t_mapl-plnnr,44 wa_text-plnal,48 wa_text-vornr,
60 ' -',
67 'Long Text Loaded Successfully'.
else.
write:/3 wa_text-matnr,24 wa_text-werks,
30 t_mapl-plnnr,44 wa_text-plnal,48 wa_text-vornr,
60 ' -',
67 'Error Uploading Long Text'.
endif.
refresh t_long.
else.
write:/3 wa_text-matnr, 24 wa_text-werks,
45 'Long text not uploaded'.
clear flag.
endif.
endat.
endloop.
ENDFORM. " load_data
*& Form get_matnr
Get the material number from tables ZMSMI_FERR_RAW,
FORM get_matnr.
clear v_matnr.
case t_file-werks.
when '0101'.
select single cmatnr from zmsmi_simp_raw
into v_matnr where matnr = t_file-matnr.
if sy-subrc eq 0.
if not v_matnr is initial.
clear t_file-matnr.
t_file-matnr = v_matnr.
endif.
when '0103'.
select single cmatnr from zmsmi_ferr_raw
into v_matnr where matnr = t_file-matnr.
if sy-subrc eq 0.
if not v_matnr is initial.
clear t_file-matnr.
t_file-matnr = v_matnr.
endif.
when '0102' or '0110' or '0111' or '0112' or '0113'
or '0114' or '0115' or '0116' or '0117'.
select single cmatnr from zmsmi_snap_raw
into v_matnr where matnr = t_file-matnr.
if sy-subrc eq 0.
if not v_matnr is initial.
clear t_file-matnr.
t_file-matnr = v_matnr.
endif.
endcase.
ENDFORM. " get_matnr
Reward points if it is useful
Thanks
Seshu -
BDC Recording : Longetxt Text Field Problem
Hi Experts,
I was recording a BDC with Transaction PFCG. I want to record the LONGTEXT field in description Tab. but it is not. Can anybody tell me that how I can do it or if there is any FM or BAPI available to update database table for that LONGTEXT?
Thanks a lot in advanceHi Moni,
* splie the text into line lengths of 132 or less and keep in internal table and put loop and endloop.
and call the FM save_text..as given below..
see the example how to SAve long text in BDC..
* Fill header work area
* Set Language Name, Text Object and ID
w_thead-tdspras = t_texts-spart. "Text language.
w_thead-tdname = t_kunnr-kunnr. "Customer Number
w_thead-tdobject = c_kna1. "Table Name KNA1
w_thead-tdid = c_pick. "Picking Header ex:-'ZPIK'
* Call the function to save text to the customer
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
client = sy-mandt
header = w_thead
savemode_direct = 'X'
TABLES
lines = t_lines
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc = 0.
endif.
Regards,
Prabhudas -
How can I save text messages to my Mac and will that reduce "Other" in storage?
I have hundreds (or more) of text messages on my iPhone 5 that for personal reasons, I want to save. There are far too many to do screenshots. I want to save them to my MacBook Pro Retina in a readable and printable format. The reason is that I read that text messages can cause the "Other" storage to be higher. My "Other" is over 6 GB on a 16 GB iphone. Therefore I want to save texts, print them, and delete from phone.
First question: Is it true that text messages contribute to the size of "Other"?
Second question: How can I save texts to Mac in readable format so they could be printed?
Third question: How in the world do I delete all these texts from my iPhone efficiently? Is there a way to "mass delete"?
When you are answering this, perhaps it is noteworthy that:
(a) I've had an iPhone since a 3G in 2009, and the texts I want to save have been accumulating since then.
(b) My "Other" has gradually gotten larger over the years.
(c) I sync with itunes regularly.
(d) I've never had any problems with an iphone or with my data.
(e) I've restored from backup only three times, when I upgraded to the iphone 4, 4S, and 5.
I want to get this "Other" cleared up before I upgrade to the iphone 5S.
Thank you.You can select to export a folder to save as a .mbox file. This file would need to be imported if you wanted to view the messages.
Select mailbox (folder)
Under Mailbox in the Menu bar select Export Mailbox...
You might also want to check out the demo for EagleFiler by the author for SpamSieve. You could view and search the messages archived in EagleFiler.
http://c-command.com/eaglefiler/
Regarding Mail being slow....
Is it only Mail that is slow? How much free space on your drive? Use Disk Utility to find available space. -
Save text in a PO during creation
Hi All,
I need to save text in PO during PO creation. I am using the BADI ME_PROCESS_PO_CUST method:PROCESS_ITEM. My EBELN is blank here. I do have other required fields like text id, text name to use in SAVE_TEXT.
Text needs to be saved before the PO is saved.. User can edit the text. So BADI during PO save is not an option.
How do i save the text in my PO header during creation and during the line item is entered?
Do have any other procedure to add the text in the text editor?
This is my code:
Please suggest, if we have any alternate procedure to show the text in PO.
METHOD if_ex_me_process_po_cust~process_item.
DATA : ls_mepoitem TYPE mepoitem,
ls_mepoaccount TYPE purchase_order_accountings,
ls_mepoacc TYPE purchase_order_accounting,
ls_mepoaccountdata TYPE mepoaccounting,
ls_mepoheader TYPE REF TO if_purchase_order_mm,
ls_mepoheaderdata TYPE mepoheader.
DATA: gt_lines TYPE STANDARD TABLE OF tline,
gwa_line TYPE tline,
g_tdname TYPE thead-tdname,
g_poname TYPE thead-tdname.
DATA: header TYPE STANDARD TABLE OF thead,
wa_header TYPE thead.
DATA: lines TYPE STANDARD TABLE OF tline.
CONSTANTS : gc_z056(4) TYPE c VALUE 'Z056',
gc_f06(4) TYPE c VALUE 'F06',
gc_ekko(4) TYPE c VALUE 'EKKO'.
ls_mepoheader = im_item->get_header( ).
ls_mepoheaderdata = ls_mepoheader->get_data( ).
ls_mepoitem = im_item->get_data( ). "Table
ls_mepoaccount = im_item->get_accountings( ). "Table
LOOP AT ls_mepoaccount INTO ls_mepoacc.
CLEAR ls_mepoaccountdata.
* Get the newly updated PO item data
CALL METHOD ls_mepoacc-accounting->get_data
RECEIVING
re_data = ls_mepoaccountdata.
ENDLOOP.
IF ls_mepoheaderdata-bstyp = 'F' AND ls_mepoitem-knttp = 'M'
AND ls_mepoitem-matnr <> ' ' AND
( ( ls_mepoheaderdata-bsart = 'UB' OR ls_mepoheaderdata-bsart = 'NB' ) AND ls_mepoheaderdata-lifnr <> ' ' ).
REFRESH gt_lines.
g_tdname = ls_mepoaccountdata-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = gc_z056
language = sy-langu
name = g_tdname
object = 'VBBK'
TABLES
lines = gt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc IS INITIAL.
DELETE gt_lines WHERE tdline = space.
ENDIF.
* g_poname = ls_mepoitem-ebeln. *"ls_mepoitem-ebeln is blank here*
wa_header-tdobject = gc_ekko.
wa_header-tdname = g_poname.
wa_header-tdid = gc_f06.
APPEND wa_header TO header.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
client = sy-mandt
header = header
insert = 'X'
savemode_direct = 'X'
TABLES
lines = gt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5
IF sy-subrc <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
ENDIF.
ENDIF.
Thanks,
Senthil.
Edited by: senthil kumar on Jun 11, 2009 3:02 PMI haven't used this method myself, but when I look at method PROCESS_ITEM, the import parameter IM_ITEM is of type (REF TO) IF_PURCHASE_ORDER_ITEM_MM. This has interface method IF_LONGTEXTS_MM~SET_TEXT (description: set long text per text id). This sounds like a good method to use.
-
Why can't I save text I've entered into a PDF file? When I hit "Save As", only the PDF document is saved, but not the text i typed into the document. I'm using Windows 8.
THANK YOU!
Jan Whitfield
The College Planning Center
250 Palladio Parkway, Suite 1311
Folsom, CA 95630
(916) 985-0453
www.TheCollegePlanningCenter.com -
Is there any way to LOCK/save text messages?
Is there any way to LOCK/save text messages?
Not really, except with third-party apps:
https://discussions.apple.com/message/15205763#15205763
https://discussions.apple.com/message/5537905#5537905 -
User exit in SAPMV50A to READ and SAVE TEXT from PO
Hi Experts,
I have an requirement for "Copying PO Header Text to Delivery Text". I have already created TEXT ID's , Access Sequence and assigment to Delivey type in VOXTN.
Could you please suggest "User exit in the delivery program SAPMV50A, tcode VL01N, to READ and SAVE TEXT from PO.
In the user exit I will user READ_TEXT FM using the custeom id created.
Thanks
Krishanvofm
-
What is the BAPI Function to save text of a Delivery Order?
When I save a delivery order I want to to save its Texts such as Số xe, Tên tài xế,... as the below picture.
What is the BAPI Function to save text of a Delivery Order?
Please help me!!!
Thanks,
Nguyen Quang Dai.I ran 2 function (SAVE_TEXT and BAPI_TRANSACTION_COMMIT) as below:
but the text was not changed
Can you guess the reason?
Please help me!!!
Thanks,
Nguyen Quang Dai -
Hi all.
i have a requirement to copy shipment instructions text from delivery to shipment in struction text in shipment when a delivery is added to a shipment.
i can read the shipment text corresponding to the delivery using the fm read_text but when saving it to shipment i am facing a problem.
my shipment number is not geneerated at that time.so how can i get the text read using read text to be seen in the shipment before it is saved.
is there a way out?'
regardsHi,
Till the time it gets created you can not save text, because you need to have object name to pass into save_text function module.
Regards,
Satish -
How can you save "text to speech" as file?
Does anyone know how to save "text to speech" as an audio file?
Hi Lizzy Bee,
Roger Wilmut has a free Script here...
http://www.wilmut.webspace.virginmedia.com/notes/speech.html
Automator instructions...
http://www.ehow.com/how_2170731_turn-text-file-audiobook-mac.html
http://automator.us/leopard/examples/ex07/index.html -
How can I save text conversations online?
Trying to save text messages prior to activating a new phone...don't want to lose certain text messages. Any one know how to do this? Any info would be greatly appreciated...hoping I don't have to do each individual text message and can actucually save a whole conversation from a particular contact. Suggestions please.
Start by telling us what other model phone?
If it's another BlackBerry, it will be easy.
If not, what other model AND do you know from that company HOW you are going to import the text message to that device?
My question, why do you have your phone number listed as "My Carrier" there to the left, under your name? It's not a good idea, posting your phone number on a public forum like this.
1. If any post helps you please click the below the post(s) that helped you.
2. Please resolve your thread by marking the post "Solution?" which solved it for you!
3. Install free BlackBerry Protect today for backups of contacts and data.
4. Guide to Unlocking your BlackBerry & Unlock Codes
Join our BBM Channels (Beta)
BlackBerry Support Forums Channel
PIN: C0001B7B4 Display/Scan Bar Code
Knowledge Base Updates
PIN: C0005A9AA Display/Scan Bar Code -
Is Essbase 11.1.2 save text data?
Is Anyone know if Essbase 11.1.2 save text data? or it same as elder version just save a numeric code that link to RDBMS data on Hyperion Planning
ThanksFrom the Essbase DB admin guide 11.1.2 - Essbase needs to store the text values as numbers. Therefore, a mapping of text values to numeric values is required. You define the mapping between the text and numeric values by creating a text list object. A text list object consists of a list of text values and a numeric value that corresponds to each text value.
HTH-
Jasmine. -
Updateble table with HTMLDB_ITEM.TEXTAREA not save text area field?
I use
updateble table with HTMLDB_ITEM.TEXTAREA that does not save text area field?
select a,b,
case when cond1 then APEX_ITEM.TEXTAREA(3, A_COLUMN,4,50)
recards
Edited by: sak on Dec 21, 2009 4:24 PMSak,
Unless I'm misunderstanding your situation, you've wandered outside the abilities of the automatic DML process to update your table. As soon as you use APEX_ITEM objects in your SELECT, you need to write your own table insert/update/delete processes to handle the updated values. The Advanced Apex documentation gives some basic examples for this, but I struggled with it the first time (because I was using a checkbox, which is handled differently than the other types).
For more assistance, try searching this forum for "APEX_ITEM".
Good luck,
Stew
Maybe you are looking for
-
How do I get an XML file on the client side hard drive
Is there a way to get XML files from a Flex form and get it to the hard drive on the client side? I realize Microsoft got impaled by allowing this sort of thing with ActiveX. We would like the app to be browser based but need XML files dropped off on
-
Business Objects for FP09 and EC85
Hi Everyone, Could you please guide me about: "what are business objects which are being used in the following transactions: FP09 and EC85". Actually we need this for our Document Management System. Please guide. Thanks and Regards
-
Setting up ARD on client running 10.2.8
In reading through most of the posts - I am not anywhere near the expert that most of you are - so I am sure that there is a simple fix for my question: My mother-in-law is using my old Apple Cube - with version 10.2.8. She lives in CA, I live in Tex
-
Lame h.264 bug, let us have Apple's version!
How does Apple use H.264 to get those good-looking movie trailers? Every time I use it, the colors are awful, washed-out and not true to the original. Color fidelity is important, why haven't they fixed this glaring problem, even after they've now hi
-
Hello. I'm using an ALV display with a custom field catalog to allow a user to edit data via the ALV display (certain fields). I create my container and fieldcatalog in the PAI of my screen and use CALL METHOD grid1->refresh_table_display to display