Suggestion plz On upload program
Hi experts,
i have a issue i need to upload data to the G/L accounts. So can u suggest me if its better to upload it by using call transactio / session or i need to use BAPI's. Can you please explain me with ur answers. Thanks.
Regards,
Sunita.
Hi Sunitha,
check these.
Upload G/L Accounts
g/l master data upload
hope they are useful to you.
Regards!
Similar Messages
-
Fail safe logic needed for purchase order upload program
Hello all,
i am working on creating PO's by reading data from a text file. I need to implement fail safe logic in it, which is to make sure this program uploads all the records in the text file successfully. For example, i have 1000 records in my text file and while running the upload program if the program times out while creating the 500th PO or if SAP is down at that time, then we have 499 PO's created and 501 yet to be created. But if we run the same program again, we will generate duplicate PO's for 499 again. I want to avoid this kind of problem.
How do i implement this idea?
Kindly guide me on this.
Thanks.Ok ..
Then I would suggest you use Application Log to keep the success and error messages of PO processing.
You can check trsnaction SLG0 and create your own application log object.
Then you need to use FMs BAL_LOG_* to crate and add messages to it.
This way you will have a facility to check as which of your records are converted to PO for a run.
In case SAP gets down in between , still you can find the details using Xn SLG1 and then accordingly remove the records from your file which are already converted to PO.
Thanks,
Ram -
Shopping Cart needs to be Held Status when created from Upload Program
Hi All,
Shopping Cart is created from Custom Upload Program. In Upload Program, we used BBP_PD_SC_CREATE, BBP_PD_SC_UPDATE, BBP_PD_SC_SAVE and BBP_PD_SC_COMMIT.
Once the Shopping Cart is created from this upload program, I want ot put Shopping Cart as Helad Status.
I exported the parameter I_PARK as 'X' in BBP_PD_SC_CREATE and BBP_PD_SC_UPDATE. But it is not working i.e., the SRM system is not keeping the Shopping Cart as Held Status.
Scenario:
I am uploading the Shopping Cart Items (Shopping Cart creation) on behalf of my manager. My manager has to approve Shopping Cart.
If shopping cart is created maually and Shopping cart value is within the spending limit, work flow is not triggered approval proceess. If I am creating shopping cart behalf of some one, I am adding the approver manually while creating.
When ever we create shopping cart through custom upload program, the shopping cart needs to be approved by the Requestor (my manager, to cross check shopping cart items). So I want to park the Shopping Cart and I want to add Approver as my manager.
Please suggest me or guide me to get the solution for my issue.
Thanks,
Sudarsan
Edited by: KOYYA SUDARSANA NAIDU on Nov 14, 2008 9:12 PMCompleted
-
PA40 employee termination Upload program
hi friends..
i am facing one issue.. plz give me some idea to resolve tis..
Hr module - In TCode pa40 we can terminate a single employee by giving a necessary data..
but my client asking me a upload program to terminate a set of employees..
I tried by recording(SHDB) but its not possible because while terminating a employee it terminate all the infotype maintained for that employee..
Number of infotype maintain for a employee is vary from employee to employee.
is there any standard LSMW- direct input method is available? or any BAPI is available ?
can you throw some light to resolve tis?
thanks in advance..Hi Deva,
I am facing the same issue. Did you ever get a solution to this problem??
Thanks
Shane -
Hi Friends,
I am using existing program to upload data(MM01 - BASIC VIEW ).But one of the field(MARA-BISMT) for old material number is neither uploading to transaction nor database.I have to uoload for other views(Purchasing, Accounting and so on) also which are depended on this old material number field.
Secondly, Functional guy suggest me to add some of the fileds into it which are not available in upload structure.
Could you guide me how to fix this issue in below code and upload data safely ?
* Description : Migration Program for Material Master Basic View
* Using xls-structure in Migration Overview: MM-Basic View
* NAME SR DATE VER. XLS DESCRIPTION OF VERSION
* 8804 04.05.2008 1.0 1.0 Original program
* 8804 27.05.2004 1.1 1.0 Changed check for pack size
* multi pack size, EAN no,
* does not write to initial
* bdc_fields FORMT and FERTH
* 8804 09.06.2006 1.2 1.0 added flag for intercompany
* materials on converting table, also changed FM
* ZMM_ADD_OLD_MATNR_TO_CONV_TABL
REPORT z_basic.
* Structure for batch input
CONSTANTS: c_structure TYPE tabname VALUE 'ZMM_BASIC_VIEW'.
TABLES: makt, t006a, t024l, t002, zpmg, zsf1, zsf2, zsf3, zsf4, zsf5,
zdrc, zdkb, zcce, zpsz, zcns, zusz, zatc, zmsz, t006, tntp, t179
* Internal Tables
DATA: i_data TYPE STANDARD TABLE OF zmm_basic_view.
DATA: i_spras TYPE STANDARD TABLE OF makt-spras.
* selection screen
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: p_file(128) DEFAULT 'U:\My Documents\mm_basic.txt'.
SELECTION-SCREEN SKIP.
PARAMETERS: p_mode LIKE ctu_params-dismode DEFAULT 'N'.
PARAMETERS: p_test NO-DISPLAY DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK block1.
INCLUDE Z_BASIC_A.
*INCLUDE zmigration.
* START-OF-SELECTION
START-OF-SELECTION.
PERFORM upload_file.
PERFORM check_entries.
PERFORM add_icons.
IF p_test NE 'X'.
PERFORM update.
update_run = 'X'.
ENDIF.
PERFORM show_result.
*& Form UPDATE
* text
* --> p1 text
* <-- p2 text
FORM update.
CALL FUNCTION 'ZMM_BASIC'
EXPORTING
mode = p_mode
TABLES
i_data = i_data
i_mess = i_mess.
* update conversion table for materials where SAP-number already
* exists and material description also already exist for language in
* field SPRAS_2. This will only happen for inter company materials.
LOOP AT i_data INTO wa_data WHERE zman_update EQ 'X'.
CALL FUNCTION 'ZMM_ADD_OLD_MATNR_TO_CONV_TABL'
EXPORTING
zzomp = wa_data-old_matnr
werks = '54' " dummy plant
matnr = wa_data-matnr
bismt = wa_data-old_matnr
inter_company = 'X'.
wa_data-msgtx = 'Conversion table for material updated'.
wa_data-msgtyp = 'I'.
WRITE icon_led_yellow AS ICON TO wa_data-icon.
MODIFY i_data FROM wa_data TRANSPORTING icon msgtyp msgtx.
ENDLOOP.
ENDFORM. " UPDATE
*& Form SHOW_RESULT
* text
* --> p1 text
* <-- p2 text
FORM show_result.
PERFORM generate_fieldcatalog.
PERFORM hide_blank_fields.
PERFORM unhide_message_columns.
PERFORM move_message_columns.
* PERFORM add_sorting_to_grid. " sort by first column in file
IF called_screen_100 EQ space.
called_screen_100 = 'X'.
CALL SCREEN 100.
ENDIF.
ENDFORM. " SHOW_RESULT
*& Form check_entries
* text
* --> p1 text
* <-- p2 text
FORM check_entries.
DATA: wa_find_new_material TYPE zfind_new_material_number.
LOOP AT i_data INTO wa_data.
* if file has been downloaded, it may already contain messages
CLEAR: wa_data-icon,
wa_data-msgtyp,
wa_data-msgtx.
TRANSLATE wa_data-spras_2 TO UPPER CASE.
TRANSLATE wa_data-meins TO UPPER CASE.
TRANSLATE wa_data-gewei TO UPPER CASE.
TRANSLATE wa_data-voleh TO UPPER CASE.
TRANSLATE wa_data-zzcce TO UPPER CASE.
* If the material already exists, only texts should be maintained
IF NOT wa_data-matnr IS INITIAL.
* Required fields filled?
CASE space.
WHEN wa_data-spras_2.
wa_data-msgtx = 'Field language key (SPRAS_2) is required'.
WHEN wa_data-maktx_2.
wa_data-msgtx = 'Field mat. description (MAKTX_2) is required'.
ENDCASE.
* Set old_matnr to SAP number if it is not filled
IF wa_data-old_matnr IS INITIAL.
wa_data-old_matnr = wa_data-matnr.
ENDIF.
IF wa_data-msgtx EQ space.
* Language key allowed
SELECT SINGLE * FROM t002
WHERE spras = wa_data-spras_2.
IF sy-subrc NE 0.
wa_data-msgtx = 'Language key does not exist (spras_2)'.
ENDIF.
ENDIF.
IF wa_data-msgtx IS INITIAL.
SHIFT wa_data-matnr RIGHT DELETING TRAILING space.
OVERLAY wa_data-matnr WITH '000000000000000000'.
SELECT SINGLE * FROM makt
WHERE matnr EQ wa_data-matnr
AND spras EQ wa_data-spras_2.
IF sy-subrc EQ 0.
CONCATENATE 'Mat. description already exists for language'
wa_data-spras_2
INTO wa_data-msgtx SEPARATED BY space.
MOVE 'X' TO wa_data-zman_update.
ENDIF.
ENDIF.
* Change material - Find line to insert the new description.
IF wa_data-msgtx IS INITIAL.
SELECT spras
INTO TABLE i_spras
FROM makt
WHERE matnr = wa_data-matnr.
DESCRIBE TABLE i_spras LINES l_lines.
IF l_lines > 3.
* All screen fields for descriptions are filled - Must be updated
* manually -
* ( or add code to insert into MAKT in an other way... )
wa_data-msgtx =
'Description must be added manually - only 4 lines available on screen'.
wa_data-zman_update = 'X'.
* added to converting table after update run
ENDIF.
ENDIF.
ELSE.
* Check if required fields are filled
CASE space.
WHEN wa_data-spras_2.
wa_data-msgtx = 'Field language key (SPRAS_2) is required'.
WHEN wa_data-maktx_1.
wa_data-msgtx = 'Field mat. description (MAKTX_1) is required'.
WHEN wa_data-maktx_2.
wa_data-msgtx = 'Field mat. description (MAKTX_2) is required'.
WHEN wa_data-mbrsh.
wa_data-msgtx = 'Field Industry sector (mbrsh) is required'.
WHEN wa_data-mtart.
wa_data-msgtx = 'Field Material type (mtart) is required'.
WHEN wa_data-meins.
wa_data-msgtx = 'Field Base unit of measure (meins) is required'.
WHEN wa_data-prdha.
wa_data-msgtx = 'Field Product hierarchy (prdha) is required'.
WHEN wa_data-labor.
wa_data-msgtx = 'Field Laboratory design (labor) is required'.
ENDCASE.
* Values allowed?
IF wa_data-msgtx EQ space.
* Base unit of measure
SELECT SINGLE * FROM t006a
WHERE spras = sy-langu
AND mseh3 = wa_data-meins.
IF sy-subrc NE 0.
wa_data-msgtx = 'Base unit of measure does not exist (mseh3)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space.
* Lab./Office
SELECT SINGLE * FROM t024l
WHERE labor = wa_data-labor.
IF sy-subrc NE 0.
wa_data-msgtx = 'Lab./Office does not exist (labor)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space.
* Language key
SELECT SINGLE * FROM t002
WHERE spras = wa_data-spras_2.
IF sy-subrc NE 0.
wa_data-msgtx = 'Language key does not exist (spras_2)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space.
* Product hierarchy
SELECT SINGLE * FROM t179
WHERE prodh = wa_data-prdha.
IF sy-subrc NE 0.
wa_data-msgtx = 'Product hierarchy does not exist (PRDHA)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space AND NOT wa_data-zzpmg IS INITIAL.
* ProdMatGrp (ABC ind)
SELECT SINGLE * FROM zpmg
WHERE zzpmg = wa_data-zzpmg.
IF sy-subrc NE 0.
wa_data-msgtx =
'ProdMatGrp (ABC ind) does not exist (zzpmg)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space AND NOT wa_data-zzsf1 IS INITIAL.
* Sort field 1
SELECT SINGLE * FROM zsf1
WHERE zzsf1 = wa_data-zzsf1.
IF sy-subrc NE 0.
wa_data-msgtx =
'Sort field 1 does not exist (ZZSF1)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space AND NOT wa_data-zzsf2 IS INITIAL.
* Sort field 2
SELECT SINGLE * FROM zsf2
WHERE zzsf2 = wa_data-zzsf2.
IF sy-subrc NE 0.
wa_data-msgtx =
'Sort field 2 does not exist (ZZSF2)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space AND NOT wa_data-zzsf3 IS INITIAL.
* Sort field 3
SELECT SINGLE * FROM zsf3
WHERE zzsf3 = wa_data-zzsf3.
IF sy-subrc NE 0.
wa_data-msgtx =
'Sort field 3 does not exist (ZZSF3)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space AND NOT wa_data-zzsf4 IS INITIAL.
* Sort field 4
SELECT SINGLE * FROM zsf4
WHERE zzsf4 = wa_data-zzsf4.
IF sy-subrc NE 0.
wa_data-msgtx =
'Sort field 4 does not exist (ZZSF4)'.
ENDIF.
ENDIF.
IF wa_data-msgtx EQ space AND NOT wa_data-zzsf5 IS INITIAL.
* Sort field 5
SELECT SINGLE * FROM zsf5
WHERE zzsf5 = wa_data-zzsf5.
IF sy-subrc NE 0.
wa_data-msgtx =
'Sort field 5 does not exist (ZZSF5)'.
ENDIF.
ENDIF.
* Drug Code
IF wa_data-msgtx EQ space AND NOT wa_data-zzdrc IS INITIAL.
SELECT SINGLE * FROM zdrc
WHERE zzdrc = wa_data-zzdrc.
IF sy-subrc NE 0.
wa_data-msgtx =
'Drug Code does not exist (zzdrc)'.
ENDIF.
ENDIF.
* Narco Base
IF wa_data-msgtx EQ space AND NOT wa_data-zzdkb IS INITIAL.
SELECT SINGLE * FROM zdkb
WHERE zzdkb = wa_data-zzdkb.
IF sy-subrc NE 0.
wa_data-msgtx =
'Narco Base does not exist (zzdkb)'.
ENDIF.
ENDIF.
* Country code, Emscope standard
IF wa_data-msgtx EQ space AND NOT wa_data-zzcce IS INITIAL.
SELECT SINGLE * FROM zcce
WHERE zzcce = wa_data-zzcce.
IF sy-subrc NE 0.
wa_data-msgtx =
'Country code, Emscope standard does not exist (zzcce)'.
ENDIF.
ENDIF.
* Package size
IF wa_data-msgtx EQ space AND NOT wa_data-zzpsz IS INITIAL.
CONDENSE wa_data-zzpsz.
SELECT SINGLE * FROM zpsz
WHERE zzpsz = wa_data-zzpsz.
IF sy-subrc NE 0.
wa_data-msgtx = 'Package size does not exist (zzpsz)'.
ENDIF.
ENDIF.
* Concentration
IF wa_data-msgtx EQ space AND NOT wa_data-zzcns IS INITIAL.
SELECT SINGLE * FROM zcns
WHERE zzcns = wa_data-zzcns.
IF sy-subrc NE 0.
wa_data-msgtx =
'Concentration does not exist (ZZCNS)'.
ENDIF.
ENDIF.
* Unit Size
IF wa_data-msgtx EQ space AND NOT wa_data-zzusz IS INITIAL.
SELECT SINGLE * FROM zusz
WHERE zzusz = wa_data-zzusz.
IF sy-subrc NE 0.
wa_data-msgtx =
'Unit Size does not exist (ZZUSZ)'.
ENDIF.
ENDIF.
* ATC-no.
IF wa_data-msgtx EQ space AND NOT wa_data-zzatc IS INITIAL.
SELECT SINGLE * FROM zatc
WHERE zzatc = wa_data-zzatc.
IF sy-subrc NE 0.
wa_data-msgtx =
'ATC-no. does not exist (ZZATC)'.
ENDIF.
ENDIF.
* Multi pack size
IF wa_data-msgtx EQ space AND NOT wa_data-zzmsz IS INITIAL.
CONDENSE wa_data-zzmsz.
SELECT SINGLE * FROM zmsz
WHERE zzmsz = wa_data-zzmsz.
IF sy-subrc NE 0.
wa_data-msgtx =
'Multi pack size does not exist (ZZMSZ)'.
ENDIF.
ENDIF.
* Weight Unit
IF wa_data-msgtx EQ space AND NOT wa_data-gewei IS INITIAL.
SELECT SINGLE * FROM t006
WHERE msehi = wa_data-gewei.
IF sy-subrc NE 0.
wa_data-msgtx =
'Weight Unit does not exist (GEWEI)'.
ENDIF.
ENDIF.
* Volume Unit
IF wa_data-msgtx EQ space AND NOT wa_data-voleh IS INITIAL.
SELECT SINGLE * FROM t006
WHERE msehi = wa_data-voleh.
IF sy-subrc NE 0.
wa_data-msgtx =
'Volume Unit does not exist (VOLEH)'.
ENDIF.
ENDIF.
* EAN for Germany will be entered manually by Cato.
if wa_data-ean11 ne space and wa_data-msgtx eq space.
data: l_ean_length type i.
l_ean_length = strlen( wa_data-ean11 ).
if l_ean_length ne 13 or wa_data-matnr ne space.
wa_data-msgtx =
'Enter EAN numbers manually for Germany and common materials'.
elseif wa_data-numtp is initial.
wa_data-msgtx = 'EAN category must be given for EAN number'.
endif.
endif.
if wa_data-ean11 eq space and wa_data-numtp ne space.
* Makes no sense to have an EAN category when there is no EAN
clear: wa_data-numtp.
endif.
ENDIF. " IF NOT wa_data-matnr IS INITIAL.
* Has material already been migrated?
IF wa_data-msgtx EQ space and wa_data-msgtyp ne 'W'.
CLEAR: wa_find_new_material.
MOVE: wa_data-old_matnr TO wa_find_new_material-matnr_old,
'54' TO wa_find_new_material-werks.
CALL FUNCTION 'ZFIND_NEW_MATERIAL_NUMBER'
EXPORTING
get_from_marc = space
CHANGING
wa_data = wa_find_new_material.
IF NOT wa_find_new_material-matnr IS INITIAL.
CONCATENATE: 'Material already created:'
wa_find_new_material-matnr
INTO wa_data-msgtx
SEPARATED BY space.
wa_data-msgtyp = 'E'.
ENDIF.
ENDIF.
* Set all messages that are not Warning to Error
IF wa_data-msgtx NE space AND wa_data-msgtyp EQ space.
MOVE: 'E' TO wa_data-msgtyp.
ENDIF.
MODIFY i_data FROM wa_data.
ENDLOOP.
ENDFORM. " check_entries
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT.
DATA: local_commands.
PERFORM user_commands_local CHANGING local_commands.
IF local_commands EQ 'X'.
* local user command has been executed - clear ok_code
CLEAR ok_code.
ELSE.
PERFORM user_commands.
ENDIF.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form user_commands_local
* text
* <--P_LOCAL_COMMANDS text
FORM user_commands_local CHANGING p_local_commands.
* Add your own user commands here and overwrite default handling if
* necessary
DATA: local_ok TYPE ok.
local_commands = 'X'.
local_ok = ok_code.
CASE local_ok.
WHEN OTHERS.
CLEAR: local_commands.
ENDCASE.
ENDFORM. " user_commands_local
Pls treat it as urgent.
I ll reward for usefull response.
Thx in Adv.
BobbyHi,
I didn't recieve any response from you regarding issues in upload program.
Could you pls send some solution for this issue ?
Pls treat it as urgent.
Thx in Adv.
Bobby -
Error when compiling the upload program (Message no. RSAR233)
Hello,
I tried to upload data from a flatfile but I did modified the Comm.Structure, Trans.Structure and Transfer Rules.
After <u><b>activating</b></u> the all changes, I check data from InfoPackage by previewing it. Unfortunately, I got the follow messages from the popup window:
Error 8 when compiling the upload program: row
227, message: Data type /BIC/CCABTWJI_STK01 was
found in a newer
I got this kind of problems many times. I solved it by create a new infosource and everything again. I don't think it's good idea to do this way.
Any better solution would be sincerely appreciated?
-WJ-Another solution:
go out the transaction RSA1 ans return to the transaction RSA1 again.
This would help for me without restarting anything.
Thank you very much for all suggestion.
-WJ- -
Error 8 when compiling the upload program: row
Error 8 when compiling the upload program: row
248, message: Data type /BIC/CCAWSAI_CID_TEXT was
found in a new
kindly help me out plsHi Raghu,
Error 8 Implies
The last words should be read as "was found in a newer version".
The system says that the active version of your Infosource is older then another version.
I'd recommend to delete Infosource - Source system assignment (with PSA tables etc.).
Then save (activate) the Infosource (communication structure). Then assign source system, create infopackage and load data again.
else..
Goto se38 and Run the program RS_TRANSTRU_ACTIVATE_ALL and relogin..
Plz look the link.
[Error when compiling the upload program (Message no. RSAR233) ]
Hope this helps...
Regards,
NR
Assign points if helpful... -
Time event upload program-HR time management
hi friends ,
i m doing 2011 infotype upload program .my logic is i m sorting all the event as ascending and the minimum time for a pernr is the login and maximam time is logoff since they want first clock in as login and last out as a logout. .its working fine for day and afternoon shift but for third shift log in will be on 23.00 and logoff will be next day 7.00. so here my program is taking 7 as log in and 2300 as logout .its totally wrong .can anybody suggest any other method ,any hint for doing this in any other way so that night shift 2300 should be log on and moring 0700 will be logoff for previous day.
thx.
sunilHi
try using this FM
HRF_READ_WORKING_TIME
Hope this helps!
Viquar Iqbal -
Hi,
Iam getting one problem regarding debit note upload program
when i was done the entry profit center field was coming but when i was done it in SHDB recording the profit cneter was not coming then we double click the more dat then one pop up window is coming . i dont want that pop window i want fiel in that screen can u please tell me any body
and when iam upload the file on that particlura g/l is came the meassage was come like this
field COBL-KOSTL Does not exist in the screen SAPLKACB0002
PLZ TELL ME THE SOLUTION
Thanks & regards
JyotsnaProfit center is available in coding block only and you need to record this. You cannot skip this if you want the feild.
-
Pricing(vk11)uploading program(standard)
Hi,
any body
can please guide me what is standard uploading program for price.
here i want to up load the pricing by using the standard program..
your suggestion will be valuable.Your best bet would probably be to create a Batch Input Recording for each pricing table that you want to load data into and then create a LSMW for each Batch Input Recording to load the prices.
Thanks,
Brian -
Existing Function modules or Standard upload Programs
Hi,
Can any one tell, Are there any Function modules or Standard upload programs exists for following transactions:
Creating production version(C223)
Creating Master recipe(C201)
Creation Apportionment Structure(C202)
Creation BOM Allocation(CS08)
(This all tcodes comes under Production planning.)
Thanks in advance.Hi Vanitha,
Check this
for C223
CM_FV_PROD_VERS_MAINTAIN
CM_FV_PROD_VERS_SAVE
CM_FV_PROD_VERS_SAVE_ALL
CY01_ORDER_MODIFY_PROD_VERSION
For C201
C2_CU_RECIPE_EXCLUDE_CREATE
CONTROL_RECIPE_CREATE
For C202
APPOINTMENT_GRP_CREATE
APPOINTMENT_CREATE
APPOINTMENT_GENERATE
APPOINTMENT_GENERATE_2
For CS08
CSAP_MAT_BOM_ALLOC_CREATE
Hope it helps...
Lokesh
pls. reward appropriate points
Message was edited by: Lokesh Aggarwal -
Hello to everybody,
I'm looking for a standard program that can download and upload program' source codes. I found the program REPTRAN (in SAP release 6.0) that can only download the source code (with the include as well), but i didn't find the upload one.
So, does anyone knows if exist a standard program that can download source codes (comprensive of include) and upload it as well?
Thanks and bye..Hi,
Here is code which read the Programs & download:
Here Just pass the itab "SOURCE" into WS_DOWNLOAD.
function zuplt01f_tr.
*"*"Local interface:
*" IMPORTING
*" REFERENCE(PROGRAM_NAME) TYPE SYREPID
*" TABLES
*" SOURCE
data: f(240) type c,
g type i,
h(72) type c,
low type i .
read report program_name into source . " state 'A'.
describe table source lines count.
endfunction.
Raja T -
HI Masters , I need information for file upload program in web dynpro java
Hi masters,
i need some inforamtion and documentation on file upload program in web dynpro javaHi surya,
You can follow this procedure to upload the file
i) Take One Context Attribute named as "D1" of Type "binary".
ii) Take one FileUpload UI Element in the Layout Tab.
iii) Bind FileUpload UI Element's data Property to the taken Context Attribute. Here it is "D1".
iv) Take one Button UI Element in the Layout Tab named "Upload" and in the Action of that Button write the following Code.
v) The following code Generates one Folder in the Server & inside that Folder given file is Uploaded.
File ff=new File("FolderXYZ"); // Creates One Folder with the given Name ( Here Folder name is "FolderXYZ")
ff.mkdir();
try
byte b[]=null;
IWDAttributeInfo objAttinfo=null;
IWDModifiableBinaryType binType=null;
File f=null;
FileOutputStream fos=null;
if(wdContext.currentContextElement().getD1()!=null)
b=wdContext.currentContextElement().getD1();
objAttinfo=wdContext.getNodeInfo().getAttribute(IPrivateAttachView.IContextElement.D1);
binType=(IWDModifiableBinaryType)objAttinfo.getModifiableSimpleType();
f=new File(ff.getName()+"
"+binType.getFileName());
fos=new FileOutputStream(f);
fos.write(b);
fos.flush();
fos.close();
objMessageManager.reportSuccess("File uploaded to server");
} catch (Exception e)
objMessageManager.reportException("Unable to upload file to server, error is:"+e,false);
return;
The Uploaded file is stored in the folder & that folder is stored in the Server's following Path.
<Your Server>\c$\usr\sap\J2E\JC00\j2ee\cluster\server0
You can access your Uploaded file from the following Path
<Your Server>\c$\usr\sap\J2E\JC00\j2ee\cluster\server0\FolderXYZ
Regards
Sagar Ingalwar -
Automating Cash Journal Posting using inbound proxy interface and upload program
Hi Experts,
I have a requirement where in cash journal posting needs to be carried out automatically by an inbound interface on a periodic basis and at the start during cut over an upload program needs to be used to upload beg balance data . For this purpose I have used BAPI_CASHJOURNALDOC_CREATE to save cash journal entries along with BAPI TRANSACTION COMMIT.
Once the Data is successfully saved I am using FM FCJ_GET_DATA_FOR_SCREEN to get prerequisite data for the FM FCJ_POST_ALL which is used by the Standard cash journal program internally to post the saved data. ( I got this by debugging the standard transaction and both FMs are not yet released )
The issues I am facing is that the the FM FCJ_POST_ALL does not always post the data it behaves in random fashion i.e some times it posts the entries where as sometimes it does not post the entries.
I have tried using commit work after the FM but that also does not result in consistent behavior of the program. One more issue is the i am not allowed to use commit work in a an inbound proxy so how do i proceed ?
I am attaching the code for further analysis:
DATA: LIT_TCJ_TRANS_NAMES TYPE TABLE OF TCJ_TRANS_NAMES,
LWA_TCJ_TRANS_NAMES TYPE TCJ_TRANS_NAMES,
LV_WAIT TYPE BAPITA-WAIT VALUE '1',
LV_RECORD_NO TYPE SY-TABIX.
DATA : LIT_POSTING TYPE STANDARD TABLE OF ISCJ_POSTINGS,
LIT_WTAX_ITEMS TYPE STANDARD TABLE OF TCJ_WTAX_ITEMS,
LIT_SPLIT_POSTINGS TYPE STANDARD TABLE OF ISCJ_POSTINGS,
LIT_CPD TYPE STANDARD TABLE OF TCJ_CPD.
DATA: LV_BEG_BALANCE TYPE CJAMOUNT,
LV_TOTAL_RECEIPTS TYPE CJAMOUNT,
LV_TOTAL_PAYMENTS TYPE CJAMOUNT,
LV_TOTAL_CHECKS TYPE CJAMOUNT,
LV_RUN_BALANCE TYPE CJAMOUNT,
LV_RUN_CASH_BALANCE TYPE CJAMOUNT,
LV_NUMB_OF_REC TYPE I,
LV_NUMB_OF_PAYM TYPE I,
LV_NUMB_OF_CHECKS TYPE I.
DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
SELECT MANDT COMP_CODE TRANSACT_NUMBER LANGU TRANSACT_NAME LONG_TEXT
FROM TCJ_TRANS_NAMES
INTO TABLE LIT_TCJ_TRANS_NAMES
WHERE LANGU = GC_EN.
IF SY-SUBRC <> 0.
MESSAGE 'No Business Transaction maintained for Company Code in this client'(016) TYPE GC_I.
LEAVE LIST-PROCESSING.
ENDIF.
DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
LOOP AT GIT_CJ INTO GWA_CJ.
LV_RECORD_NO = SY-TABIX.
CLEAR: GS_HEADER_BAPI,
GS_CJ_KEY,
GWA_ITEMS.
REFRESH: GIT_ITEMS,
GIT_RETURN.
GS_HEADER_BAPI-COMP_CODE = GWA_CJ-BUKRS.
GS_HEADER_BAPI-CAJO_NUMBER = GWA_CJ-CJNR.
GS_HEADER_BAPI-CURRENCY = GC_PHP.
CLEAR LWA_TCJ_TRANS_NAMES.
READ TABLE LIT_TCJ_TRANS_NAMES INTO LWA_TCJ_TRANS_NAMES WITH KEY COMP_CODE = GWA_CJ-BUKRS
LANGU = GC_EN
TRANSACT_NAME = GWA_CJ-BTNAM.
IF SY-SUBRC = 0.
GWA_ITEMS-TRANSACT_NUMBER = LWA_TCJ_TRANS_NAMES-TRANSACT_NUMBER.
GWA_ITEMS-P_RECEIPTS = GWA_CJ-CJRAT.
GWA_ITEMS-TAX_CODE = GWA_CJ-TXCOD.
GS_HEADER_BAPI-BP_NAME = GWA_CJ-BPNAM.
GWA_ITEMS-POSITION_TEXT = GWA_CJ-POTXT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-LIFNR
IMPORTING
OUTPUT = GWA_ITEMS-VENDOR_NO.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-KUNNR
IMPORTING
OUTPUT = GWA_ITEMS-CUSTOMER.
PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BLDAT
GS_HEADER_BAPI-DOC_DATE.
PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BUDAT
GS_HEADER_BAPI-PSTNG_DATE.
GS_HEADER_BAPI-REF_DOC_NO = GWA_CJ-XBLNR.
GS_HEADER_BAPI-ALLOC_NMBR = GWA_CJ-ALLNO.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-KOSTL
IMPORTING
OUTPUT = GWA_ITEMS-COSTCENTER.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-PRCTR
IMPORTING
OUTPUT = GWA_ITEMS-PROFIT_CTR.
APPEND GWA_ITEMS TO GIT_ITEMS.
CALL FUNCTION 'BAPI_CASHJOURNALDOC_CREATE'
EXPORTING
HEADER = GS_HEADER_BAPI
IMPORTING
COMPANY_CODE = GS_CJ_KEY-COMP_CODE
CASH_JOURNAL_NUMBER = GS_CJ_KEY-CAJO_NUMBER
FISCAL_YEAR = GS_CJ_KEY-FISC_YEAR
CASH_JOURNAL_DOC_NO = GS_CJ_KEY-POSTING_NUMBER
TABLES
ITEMS = GIT_ITEMS
RETURN = GIT_RETURN.
IF GIT_RETURN IS NOT INITIAL.
READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_E.
IF SY-SUBRC <> 0.
CLEAR GWA_CJ_S.
MOVE-CORRESPONDING GS_CJ_KEY TO GWA_CJ_S.
CLEAR GWA_RETURN.
READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_S.
IF SY-SUBRC = 0.
MOVE GWA_RETURN-MESSAGE TO GWA_CJ_S-MSG.
CLEAR GWA_RETURN.
READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_I.
IF SY-SUBRC = 0.
CLEAR GWA_CJ_E.
CONCATENATE GWA_RETURN-MESSAGE GWA_CJ_S-MSG INTO GWA_CJ_E-MSG SEPARATED BY GC_PIPE_FORMAT.
MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
APPEND GWA_CJ_E TO GIT_CJ_E.
GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
ELSE.
IF P_TEST NE GC_X.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = LV_WAIT.
REFRESH:LIT_POSTING ,
LIT_WTAX_ITEMS ,
LIT_SPLIT_POSTINGS ,
LIT_CPD .
CLEAR: LV_BEG_BALANCE ,
LV_TOTAL_RECEIPTS ,
LV_TOTAL_PAYMENTS ,
LV_TOTAL_CHECKS ,
LV_RUN_BALANCE ,
LV_RUN_CASH_BALANCE ,
LV_NUMB_OF_REC ,
LV_NUMB_OF_PAYM ,
LV_NUMB_OF_CHECKS .
CALL FUNCTION 'FCJ_GET_DATA_FOR_SCREEN'
EXPORTING
I_COMP_CODE = GS_CJ_KEY-COMP_CODE
I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
IMPORTING
E_BEGINNING_BALANCE = LV_BEG_BALANCE
E_RUNNING_BALANCE = LV_RUN_BALANCE
E_RUNNING_CASH_BALANCE = LV_RUN_CASH_BALANCE
E_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
E_TOTAL_REC_NUMBER = LV_NUMB_OF_REC
E_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
E_TOTAL_PAYM_NUMBER = LV_NUMB_OF_PAYM
E_TOTAL_CHECKS = LV_TOTAL_CHECKS
E_TOTAL_CHECKS_NUMBER = LV_NUMB_OF_CHECKS
TABLES
E_POSTINGS = LIT_POSTING
E_WTAX_ITEMS = LIT_WTAX_ITEMS
E_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
E_CPD = LIT_CPD.
CALL FUNCTION 'FCJ_POST_ALL'
EXPORTING
I_COMP_CODE = GS_CJ_KEY-COMP_CODE
I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
I_CURRENCY = GS_HEADER_BAPI-CURRENCY
I_TYP = 'R'
I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
* IMPORTING
* E_ERROR_NUMBER =
TABLES
ITCJ_POSTINGS = LIT_POSTING
ITCJ_WTAX_ITEMS = LIT_WTAX_ITEMS
ITCJ_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
ITCJ_CPD = LIT_CPD
CHANGING
P_BEG_BALANCE = LV_BEG_BALANCE
P_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
P_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
P_TOTAL_CHECKS = LV_TOTAL_CHECKS
P_RUN_BALANCE = LV_RUN_BALANCE
P_RUN_CASH_BALANCE = LV_RUN_CASH_BALANCE
P_NUMB_OF_REC = LV_NUMB_OF_REC
P_NUMB_OF_PAYM = LV_NUMB_OF_PAYM
P_NUMB_OF_CHECKS = LV_NUMB_OF_CHECKS.
COMMIT WORK.
ENDIF.
APPEND GWA_CJ_S TO GIT_CJ_S.
GV_SUCCESS_RECORDS = GV_SUCCESS_RECORDS + GC_1.
CLEAR GWA_CJ_S.
ENDIF.
ENDIF.
ELSE.
CLEAR GWA_CJ_E.
MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
APPEND GWA_CJ_E TO GIT_CJ_E.
GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
ENDIF.
ENDIF.
ELSE.
GWA_RETURN-MESSAGE = 'Transaction Name does not correspond to any Transaction Number'(017).
CLEAR GWA_CJ_E.
MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
APPEND GWA_CJ_E TO GIT_CJ_E.
GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
ENDIF.
ENDLOOP.
ENDFORM. " SUB_BAPI_CALLHi Experts,
I have a requirement where in cash journal posting needs to be carried out automatically by an inbound interface on a periodic basis and at the start during cut over an upload program needs to be used to upload beg balance data . For this purpose I have used BAPI_CASHJOURNALDOC_CREATE to save cash journal entries along with BAPI TRANSACTION COMMIT.
Once the Data is successfully saved I am using FM FCJ_GET_DATA_FOR_SCREEN to get prerequisite data for the FM FCJ_POST_ALL which is used by the Standard cash journal program internally to post the saved data. ( I got this by debugging the standard transaction and both FMs are not yet released )
The issues I am facing is that the the FM FCJ_POST_ALL does not always post the data it behaves in random fashion i.e some times it posts the entries where as sometimes it does not post the entries.
I have tried using commit work after the FM but that also does not result in consistent behavior of the program. One more issue is the i am not allowed to use commit work in a an inbound proxy so how do i proceed ?
I am attaching the code for further analysis:
DATA: LIT_TCJ_TRANS_NAMES TYPE TABLE OF TCJ_TRANS_NAMES,
LWA_TCJ_TRANS_NAMES TYPE TCJ_TRANS_NAMES,
LV_WAIT TYPE BAPITA-WAIT VALUE '1',
LV_RECORD_NO TYPE SY-TABIX.
DATA : LIT_POSTING TYPE STANDARD TABLE OF ISCJ_POSTINGS,
LIT_WTAX_ITEMS TYPE STANDARD TABLE OF TCJ_WTAX_ITEMS,
LIT_SPLIT_POSTINGS TYPE STANDARD TABLE OF ISCJ_POSTINGS,
LIT_CPD TYPE STANDARD TABLE OF TCJ_CPD.
DATA: LV_BEG_BALANCE TYPE CJAMOUNT,
LV_TOTAL_RECEIPTS TYPE CJAMOUNT,
LV_TOTAL_PAYMENTS TYPE CJAMOUNT,
LV_TOTAL_CHECKS TYPE CJAMOUNT,
LV_RUN_BALANCE TYPE CJAMOUNT,
LV_RUN_CASH_BALANCE TYPE CJAMOUNT,
LV_NUMB_OF_REC TYPE I,
LV_NUMB_OF_PAYM TYPE I,
LV_NUMB_OF_CHECKS TYPE I.
DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
SELECT MANDT COMP_CODE TRANSACT_NUMBER LANGU TRANSACT_NAME LONG_TEXT
FROM TCJ_TRANS_NAMES
INTO TABLE LIT_TCJ_TRANS_NAMES
WHERE LANGU = GC_EN.
IF SY-SUBRC <> 0.
MESSAGE 'No Business Transaction maintained for Company Code in this client'(016) TYPE GC_I.
LEAVE LIST-PROCESSING.
ENDIF.
DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
LOOP AT GIT_CJ INTO GWA_CJ.
LV_RECORD_NO = SY-TABIX.
CLEAR: GS_HEADER_BAPI,
GS_CJ_KEY,
GWA_ITEMS.
REFRESH: GIT_ITEMS,
GIT_RETURN.
GS_HEADER_BAPI-COMP_CODE = GWA_CJ-BUKRS.
GS_HEADER_BAPI-CAJO_NUMBER = GWA_CJ-CJNR.
GS_HEADER_BAPI-CURRENCY = GC_PHP.
CLEAR LWA_TCJ_TRANS_NAMES.
READ TABLE LIT_TCJ_TRANS_NAMES INTO LWA_TCJ_TRANS_NAMES WITH KEY COMP_CODE = GWA_CJ-BUKRS
LANGU = GC_EN
TRANSACT_NAME = GWA_CJ-BTNAM.
IF SY-SUBRC = 0.
GWA_ITEMS-TRANSACT_NUMBER = LWA_TCJ_TRANS_NAMES-TRANSACT_NUMBER.
GWA_ITEMS-P_RECEIPTS = GWA_CJ-CJRAT.
GWA_ITEMS-TAX_CODE = GWA_CJ-TXCOD.
GS_HEADER_BAPI-BP_NAME = GWA_CJ-BPNAM.
GWA_ITEMS-POSITION_TEXT = GWA_CJ-POTXT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-LIFNR
IMPORTING
OUTPUT = GWA_ITEMS-VENDOR_NO.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-KUNNR
IMPORTING
OUTPUT = GWA_ITEMS-CUSTOMER.
PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BLDAT
GS_HEADER_BAPI-DOC_DATE.
PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BUDAT
GS_HEADER_BAPI-PSTNG_DATE.
GS_HEADER_BAPI-REF_DOC_NO = GWA_CJ-XBLNR.
GS_HEADER_BAPI-ALLOC_NMBR = GWA_CJ-ALLNO.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-KOSTL
IMPORTING
OUTPUT = GWA_ITEMS-COSTCENTER.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GWA_CJ-PRCTR
IMPORTING
OUTPUT = GWA_ITEMS-PROFIT_CTR.
APPEND GWA_ITEMS TO GIT_ITEMS.
CALL FUNCTION 'BAPI_CASHJOURNALDOC_CREATE'
EXPORTING
HEADER = GS_HEADER_BAPI
IMPORTING
COMPANY_CODE = GS_CJ_KEY-COMP_CODE
CASH_JOURNAL_NUMBER = GS_CJ_KEY-CAJO_NUMBER
FISCAL_YEAR = GS_CJ_KEY-FISC_YEAR
CASH_JOURNAL_DOC_NO = GS_CJ_KEY-POSTING_NUMBER
TABLES
ITEMS = GIT_ITEMS
RETURN = GIT_RETURN.
IF GIT_RETURN IS NOT INITIAL.
READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_E.
IF SY-SUBRC <> 0.
CLEAR GWA_CJ_S.
MOVE-CORRESPONDING GS_CJ_KEY TO GWA_CJ_S.
CLEAR GWA_RETURN.
READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_S.
IF SY-SUBRC = 0.
MOVE GWA_RETURN-MESSAGE TO GWA_CJ_S-MSG.
CLEAR GWA_RETURN.
READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_I.
IF SY-SUBRC = 0.
CLEAR GWA_CJ_E.
CONCATENATE GWA_RETURN-MESSAGE GWA_CJ_S-MSG INTO GWA_CJ_E-MSG SEPARATED BY GC_PIPE_FORMAT.
MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
APPEND GWA_CJ_E TO GIT_CJ_E.
GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
ELSE.
IF P_TEST NE GC_X.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = LV_WAIT.
REFRESH:LIT_POSTING ,
LIT_WTAX_ITEMS ,
LIT_SPLIT_POSTINGS ,
LIT_CPD .
CLEAR: LV_BEG_BALANCE ,
LV_TOTAL_RECEIPTS ,
LV_TOTAL_PAYMENTS ,
LV_TOTAL_CHECKS ,
LV_RUN_BALANCE ,
LV_RUN_CASH_BALANCE ,
LV_NUMB_OF_REC ,
LV_NUMB_OF_PAYM ,
LV_NUMB_OF_CHECKS .
CALL FUNCTION 'FCJ_GET_DATA_FOR_SCREEN'
EXPORTING
I_COMP_CODE = GS_CJ_KEY-COMP_CODE
I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
IMPORTING
E_BEGINNING_BALANCE = LV_BEG_BALANCE
E_RUNNING_BALANCE = LV_RUN_BALANCE
E_RUNNING_CASH_BALANCE = LV_RUN_CASH_BALANCE
E_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
E_TOTAL_REC_NUMBER = LV_NUMB_OF_REC
E_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
E_TOTAL_PAYM_NUMBER = LV_NUMB_OF_PAYM
E_TOTAL_CHECKS = LV_TOTAL_CHECKS
E_TOTAL_CHECKS_NUMBER = LV_NUMB_OF_CHECKS
TABLES
E_POSTINGS = LIT_POSTING
E_WTAX_ITEMS = LIT_WTAX_ITEMS
E_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
E_CPD = LIT_CPD.
CALL FUNCTION 'FCJ_POST_ALL'
EXPORTING
I_COMP_CODE = GS_CJ_KEY-COMP_CODE
I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
I_CURRENCY = GS_HEADER_BAPI-CURRENCY
I_TYP = 'R'
I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
* IMPORTING
* E_ERROR_NUMBER =
TABLES
ITCJ_POSTINGS = LIT_POSTING
ITCJ_WTAX_ITEMS = LIT_WTAX_ITEMS
ITCJ_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
ITCJ_CPD = LIT_CPD
CHANGING
P_BEG_BALANCE = LV_BEG_BALANCE
P_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
P_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
P_TOTAL_CHECKS = LV_TOTAL_CHECKS
P_RUN_BALANCE = LV_RUN_BALANCE
P_RUN_CASH_BALANCE = LV_RUN_CASH_BALANCE
P_NUMB_OF_REC = LV_NUMB_OF_REC
P_NUMB_OF_PAYM = LV_NUMB_OF_PAYM
P_NUMB_OF_CHECKS = LV_NUMB_OF_CHECKS.
COMMIT WORK.
ENDIF.
APPEND GWA_CJ_S TO GIT_CJ_S.
GV_SUCCESS_RECORDS = GV_SUCCESS_RECORDS + GC_1.
CLEAR GWA_CJ_S.
ENDIF.
ENDIF.
ELSE.
CLEAR GWA_CJ_E.
MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
APPEND GWA_CJ_E TO GIT_CJ_E.
GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
ENDIF.
ENDIF.
ELSE.
GWA_RETURN-MESSAGE = 'Transaction Name does not correspond to any Transaction Number'(017).
CLEAR GWA_CJ_E.
MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
APPEND GWA_CJ_E TO GIT_CJ_E.
GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
ENDIF.
ENDLOOP.
ENDFORM. " SUB_BAPI_CALL -
Need to create a mass upload program for appraisal document creation for multiple employee
Hi Expertise,
I need to create a mass upload program for appraisal document creation for manager and his multiple employee
at a time using tcode appcreate.
Please help me out.
Best regards,
PriyaranjanHi Priyaranjan,
I think you can take the abap'ers help in creating the program. But u need to provide them the exact functionality and the required specifications in creating the appraisal document.
Even tcode also u can get it prepared by Abap'ers.
Thanks and Regards
Balaji
Maybe you are looking for
-
Is there a way to delete podcasts on an iphone without having them reappear on every sync?
I want to delete podcasts from my iphone after I am done listening to them, which works like a charm. The problem is that every time I sync, it download them again! For some reason the Iphone and ITunes refuese to talk to one another to ackowledge th
-
Photoshop CS4 Consumes All My Memory
I have 31 free gigabytes of space on my MacBook and no other applications open. When I open up a file file on Photoshop CS4 (81MB) my computer's memory drops from 31 gigs to less than 1 gig. When I try to move a layer in Photoshop, I get an error tha
-
Post Author: Skip CA Forum: Formula I have a report that is based on a PSoft query. There is a selection prompt built in to the query. I have another report, based on a different query, that prompts on the same field as the first. I want to bring
-
Photoshop CS3 A few questions (using Windows
I've just got a job in that requires file names including a full stop (8.6 for instance). This was never a problem with my old version of Adobe but now, if I save a file like this it then becomes unrecognisable to Adobe when I want to re-open it. Yee
-
Hi, We have a process where successful bids are turned into a global outline agreements. GOA's are nicely distributed to the backend system (ECC), but we also want to distribute the GOA information (contract number) into the CCM. In GOA there is no s