A problem about sap transaction?

a error is raised when running the following code(VB6), why?
dim SAPLogon as object
set SAPLogon=createobject("sap.logoncontrol.1") 'ok
dim SAPTrans as object
set SAPTrans =createobject("sap.transactions.1") 'error
The error message is "ActiveX components can't create object"

thanks for your response roaminggnome. I changed my password immediately after it happened and I have contacted i tunes to let them know of this dillemma.
The I-tunes credit was a promotional thing by Apple to buy their laptop. So I didn't pay for the i-tunes credit in the first place. Do you think my bank will be able to reinburse Itunes credit then? I will ask support when they get back to me.

Similar Messages

My apple ID was hacked and a game by GodGame Inc was bought and installed. When I try to report a problem about this transaction, the link automatically sends me to the apple store support. The application is bugged. Please help.

My apple ID was hacked and a game by GodGame Inc was bought and installed. When I try to report a problem about this transaction, the link automatically sends me to the apple store support. The application is bugged. Please help.

thanks for your response roaminggnome. I changed my password immediately after it happened and I have contacted i tunes to let them know of this dillemma.
The I-tunes credit was a promotional thing by Apple to buy their laptop. So I didn't pay for the i-tunes credit in the first place. Do you think my bank will be able to reinburse Itunes credit then? I will ask support when they get back to me.

Some problem about SAP R/3 ~ I need some detail solutions and suggests

I need some detail solutions and suggests about below these problems:
Problem 1: SAP Management Console cannot start successfully
 Problem 1.1: Click on SAP Management Console, but yellow light continues for a long period of time.
 Problem 1.2: In DOS, startsap command cannot start SAP R/3.
 Problem 1.3: Oracle 9i database automatically shutdown by itself.
 Problem 1.4: There is very low disk storage left (say less than 50MB) in the hard disk where Oracle 9i database is installed in the server.
Problem 2: Problems in User Maintenance and Security of the SAP R/3 System
 Problem 2.1: Super user account password was lost (e.g. SAP* password was lost)
 Problem 2.2: Super users DDIC and SAP* were dropped in table usr02 in Oracle.
 Problem 2.3: Some users have been locked or deleted by an ABAP programmer who has been granted with almost superuser profiles. For example, an ABAP programmer has been granted a profile of SAP_ALL and SAP_NEW but the system administrator would like to restrict all programmers form using SU01, SU02, SM01, so that no programmers can maintain other user's accounts.
Problem 3: Problems in the configuration of client copy
 Problem 3.1: A copied client from the Client 000 cannot be customized.
 Problem 3.2: No sample data in IDES after a successful client copy.
 Problem 3.3: Logging on without being authorized. A new client is created and client copied and transported successfully. However, anyone can log into the system using user SAP* with the default password PASS.
Problem 4: Problems in the installation of SAP R/3 Server
 Problem 4.1: Computer Name of the SAP R/3 server has been changed after the full installation of Oracle 9i and SAP R/3.
 Problem 4.2: A network card of a server was faulty and it was replaced by a new network card but the SAP R/3 license was expired.
 Problem 4.3: You would like to reinstall SAP R/3 on a server which has previously installed with SAP R/3 but the same error message appears during the re-installation.
Problem 5: Problems in the backup and recovery of Oracle 9i Database
 Problem 5.1: A redo log file was lost and the database could not be started.
 Problem 5.2: A group of data files were accidentally deleted and the database could not be started.
 Problem 5.3: Both the online redo log files and archived redo log files have been damaged.
Problem 6: General problems regarding the general operations and the connection to the SAP R/3 System
 Problem 6.1: After a reboot of the Windows 2003 Server, SAP service is not automatically started.
 Problem 6.2: Some users complained that the performance of SAP R/3 is really very slow.
 Problem 6.3: A user complained that his/her password was correct but he/she could not lock on the client because it was locked.

Problem 2
2.1 If user account of the sap* is lost u can retrive by loging into os level as sidadm type this command
DELETE SAP<sid>.USR02 where BNAME='SAP*' AND MANDT=100
This 100 is the client in which u want to delete the sap*
after that restart the server and login as sap* with the default password as pass
there is also another way of doing this if needed u can catch me at [email protected]

Problem with SAP Transaction iView after Patch 34 install

Hi All,
We're running EP6SP2 on AIX/Oracle and have currently upgraded from PL5 to PL34.
The problem we are now having is as follows:
We have an SAP Transaction iView that is using the 'Auto' method for the 'Technique to start SAPGUI for Windows' and the 'WinGui' as the 'SAP GUI Type'.
Now when we click on the iView we are getting the IE popup that asks us if we want to Save, Open, or Cancel the file open for tx.ssd
Prior to the patch upgrade we did not have this issue.
Any help would be appreciated.
Thanks,
Robin.

Hi Praveen,
Thanks for the quick response.
I have seen those notes already and unfortunately they don't solve this specific problem. These will solve the problem for the SSD method (.sap file) of starting the SAPGUI for Windows but not for the SSF method (.ssf file).
The main issue is that before the install of the Patch we did not get the popup, everything worked fine. It doesn't make sense why we would have to change our IE settings now to get it to work properly. It should work the same as before the patch.
Plus, I don't want to have to do an SMS push to all the PC's here to fix a problem with a Patch upgrade.
I have tried to add the .ssd and .sap types to the Mime section for the http service in the Admin tool but this hasn't fixed the problem either.
Also, I found that in Patch 31 SAP has made a change to the way the SAP GUI for windows starts. After some searching I found that in the file WinGuiRenderLayer.properties under
the 'com.sap.appintegrator.sap/property/Transaction/' folder I see that it has some entries in it that look like they relate to the above mentioned fix for Patch 31. The lines in particular are:
- # postfix for roundtrip URL - should help IE to detect the mime-type
- SSF_URL_Postfix = /tx.sap
- SSD_URL_Postfix = /tx.ssd
These lines were not in this file prior to implementing the patch and I believe that this may be causing the problem.
Any other suggestions would be appreciated.
Thanks,
Robin

Problems about SAP NW 7.0 - Java and ABAP Trial on Linux VMware Edition

Hi,
I suppose you followed the instructions to install the license?
First of all, you should check that the license was successfully installed :
1. logon as user sap* with SAP GUI
2. start transaction SLICENSE
3. click on button "New licenses"
4. check the status of the installed icense

I was rather sure because, at that time, a basis was beside me. However, it just did not work, and I gave up this version at the end.
Anyway, thanks a lot.

About SAP Transaction Codes

Hi all,
I want to know, whether the Transaction Codes used in SAP-ABAP or any othre modulehave any specific meaning. For eg: we have SE38 for ABAP Editor, wat does SE means in it. Similarly we have SM35 for Batch Inout Processing, here wat does SM means. Are the Predecessor (SE, SM, WE etc) of the code given any meaning. Can any1 Answer to me.

Hi.. Sabahuddin Ahmed,,
santosh is correct !!
SE --- Systems Engineering
SM --- Systems Maintainance
and we have some SAP Enjoy transactions ..
These naming conventions are for standard tools of SAP...
this is not ....
M - Materials Management
V - Sales
P - HR
F - Financials etc
These naming conventions are used for the standard Transactions to create Master data like for example ....
to create a
Material master ( MM01 ) ,
Customer Master ( XD01 ),
Sales order creation ( VA01 ).. etc...
Reward all helpful answers..
sai ramesh

SAP transaction iView not executing the transaction directly

Hello guys,
having a little problem with SAP transaction iView I created - specified system, where the transaction is delpoyed. When I click on the page containing the iView, R/3 logon page comes up instead of the transaction itself being executed. The user and password are the same for the portal and R/3. Do I have to do the mapping then? I so, it would mean I would have to crate mapping for every single portal user. Isn't it possible to make the portal to automatically use the user id/password of the logged-in user?
Thanks a lot for any ideas at all,
Frank

Arun,
I am a bit confused now to be honest. If you mean 'SAP GUI Type' property, at the moment it is set to 'Select' value - it means that no value is selected. I already tried to use 'WinGui' but I couldn't get through to R/3 transaction either.
We are using standalone ITS.
Thanks,
Frank

Problem in Printing ABAP Report in EP using SAP Transaction IVIEW

Dear All,
A very gud evening,
I am using SAP Transaction Iview to show the ABAP Reports, But I have a Problem...
How to print this report???
Please solve this issue, I have measure requirement of it from client.
Thanks in Advance..

Thanks Haydn,
But my problem is that, there may be no of users will be accessing this report. user will not be having SAP GUI installed in his machine. He will be accessing Transaction IView after login in EP (from any where may be from cyber cafe) and He would like to take printout using any button on the screen.
So suppose any end user having only Internet Explorer installed in his machine, will he be able to take the print out. I think its very genuine requirement.
OR user can not take print out untill SAP GUI is installed in his machine???
Please suggest...
Thanks in advance...

NWBC problem displaying SAP ABAP transactions

Hi,
I was trying to configure NWBC and I was able to connect to the system and see the transaction available on the role assigned to the user, under that role I assigned SAP standard transactions, BSP applications, WebDynpro applications and Web pages (URL's). I can execute all except the SAP standard transaction that uses the Windows SAPGUI, basically the transaction is never displayed and I only see the "Webdynpro loading icon" I do not see any session created on the backend by the user using the NWBC and I also do not see any instance of the SAPGUI created on local PC where I am testing the NWBC.
We tested in two computers one using SAPGUI 7.0 patch 3 and the other patch 2, the scripting is enable on the sapgui with the other two options (Notify when a script attaches.... and Notify When a script Opens...) set in both, I also know that the parameter sapgui/user_scripting is set to TRUE and sapgui/user_scripting_set_readonly and sapgui/user_scripting_disable_recording as well. Parameter CONDENSE_MENU is set to NO and ADD_MENU_DETAILS is set to YES.
As I mentioned before, we can see the menu, subfolders and transaction assigned to subfoldes, everything that is related with Web like BSP, webdynpro or regular HTML is displayed but the problem is with transaction that requires Windows SAP GUI.
On the NWBC log I could not find too much only the following entry:
24.08.2007 13:20:16
INFO <NWBC::CSessionContext> | setDirty(sessionID 0000000005, connectionName WDA Testsuite)
On the NWBC trace file I could find the following but nothing else that give a clue of the reason why is not starting the windows sapgui:
24.08.2007 13:03:09
DEBUG <NWBC::CBCMainDialog> | OnOK: action start_change
INFO <NWBC::CCanvasArea> | Show loading page
DEBUG <NWBC::CCanvasArea> | HideAllViews
DEBUG <NWBC::CBCMainDialog> | OnOK: done
DEBUG <NWBC::CBCMainDialog> | OnOK: action image_folder
DEBUG <NWBC::CBCMainDialog> | OnOK: done
DEBUG <NWBC::CBCMainDialog> | OnOK: action canvas
DEBUG <NWBC::CBCMainDialog> | OnOK: done
DEBUG <NWBC::CBCMainDialog> | OnOK: action session
DEBUG <NWBC::CBCMainDialog> | CSapguiViewFactory::Get
DEBUG <NWBC::CSessionManager> | CreateSession(sessionID 0000000006, connectionName WDA Testsuite)
DEBUG <NWBC::CSessionContext> | initialize(sessionID 0000000006, connectionName WDA Testsuite)
DEBUG <NWBC::CSessionEPCM> | initialize(sessionID 0000000006, connectionName WDA Testsuite)
INFO <NWBC::CCanvasArea> | Show loading page
24.08.2007 13:03:10
DEBUG <NWBC::CCanvasArea> | HideAllViews
DEBUG <NWBC::CSAPGUIView> | CSAPGUIView::WindowCreate
DEBUG <NWBC::CSAPGUIView> | CSAPGUIView::SetCookieString
DEBUG <NWBC::CSAPGUIView> | ISapguiScriptingInternal::OpenNewConnection
24.08.2007 13:03:12
DEBUG <NWBC::CSAPGUIView> | m_nSessionsCreations= 1
DEBUG <NWBC::CSAPGUIView> | } CSapguiSessionManager::CreateNewSession
DEBUG <NWBC::CSAPGUIView> | } CSAPGUIView::InternalCreateSession
DEBUG <NWBC::CSAPGUIView> | } CSAPGUIView::CreateSession
DEBUG <NWBC::CSessionContext> | setDirty(sessionID 0000000006, connectionName WDA Testsuite)
DEBUG <NWBC::CCanvasArea> | SetActiveView(id 0000000006)
DEBUG <NWBC::CCanvasArea> | View is still loading => can't make it active yet => remember ID
DEBUG <NWBC::CCanvasArea> | } CCanvasArea::Start
DEBUG <NWBC::CBCMainDialog> | } CBCMainDialog::CanvasManagerCreate
DEBUG <NWBC::CCanvasArea> | SetActiveView(id 0000000006)
DEBUG <NWBC::CCanvasArea> | View is still loading => can't make it active yet => remember ID
DEBUG <NWBC::CBCMainDialog> | OnOK: done
Hopefully somebody can give me a hand with this,
Thanks in advance,
Zareh Vazquez

The problem is solved ... The routing-string was not correctly configured...

Please let me about the COIS SAP transaction code(s)

Please let me about the SAP transaction code(s) from which I will get monthly data of the folowing:
Material or product wise listing of raw materials used in WIP & converted to Finished goods remaining as closing stock
Edited by: Isabelle Britten on Jul 21, 2008 12:45 PM

HI,
Following are the different t.code for the WIP Reports.
FAIP0 WIP Clearing
KKA1 Order Results Analysis and WIP Calc.
KKA1P Order Results Analysis and WIP Calc.
KKA2 Project Results Anal. and WIP Calc.
KKA2P Project Results Anal. and WIP Calc.
KKAG WIP: Display Worklist
KKAO WIP Calc.: Collective Processing
KKAQ Display WIP - Collective Processing
KKAS WIP Calc. for Product Cost Coll.
KKAT WIP Display for Product Cost Coll.
KKAV WIP Calculation for Cost Object Hier
KKAW WIP Display Cost Object Hierarchy
KKAX WIP Calculation for Order
KKAY WIP Display for Order
KOB8 Orders: WIP/Results Anal. Line Items
You can find Goods receipt Report via MB51 (Selcting Mov. Type 101 ).
Regards,
Dhaval
Edited by: Dhaval Choksi on Jul 21, 2008 1:44 PM

Please let me about the SAP transaction code(s)

Please let me about the SAP transaction code(s) from which I will get monthly data of the folowing:
Material or product wise listing of raw materials used in WIP & converted to Finished goods remaining as closing stock

Dear parameswar
The simple work is go to MM60, give material type ROH (for raw material) and execute. You will get list of all raw materials. Make a note of it and now go to MB51, give those material codes and give movement type 261 for issue from stores and execute. You will get raw materialwise details of how much quantity has been issued to WIP. The same exercise you have to do for FERT.
thanks
G. Lakshmipathi

Please let me about the SAP transaction code(s) from which I will get month

Please let me about the SAP transaction code(s) from which I will get monthly
Material or product wise listing of cost of finished goods sold & lying as stock

Dear parameswar
Go to SE16, give the table MBEW and select the following fields:-
VERPR - If you want to see the moving average price of that particular material
STPRS - If you want to see the Standard price of that particular material
SALK3 - If you want to see the total valuated stock of that particular material
To see how much stock is available, run MMBE and execute. You can also check in MC.9 (mcdot9)
thanks
G. Lakshmipathi

Enquiry about adding new field in SAP transaction vl10c

Hi,
requirement:
I want to add additonal field after executing SAP transaction vl10c.
help me
pooja

Hi,
You acn add extra fields with the help of a screen exit.
Try the following Exits:
V50R_USEREXITS
V50R_USEREXIT_PREPARE
V50R_USEREXIT_TRANSF
Related to the program RVV50R10C.
Regards,
Anji

Appintegrator or URL iView for SAP Transaction launching Problem

I am using the following methods
1). created portal sap transaction iview ,for different transactions, I am not able to pass a parameter with #
a) passed application parameter =1234#56
b) paassed as 1234%2356
in both the cases the value is not passed.
2)Created an iview using appintegrator and even this not passed the above value with #..
3) I used: webgui URL:
/sap/bc/gui/sap/its/webgui?sap-client=<client>&transaction=ME53&EBAN-BANFN=0001277601&okcode=AB
even this is not accepting # in the value for EBAN-BANFN parameter.
could any one help me.

Hello Kiran,
Special characters, like "#", should be encoded when in the URL. For # it is %23. This is why the value 1234#56 becomes 1234%2356. If it is not working then it because the receiving program is not decoding the value back to 1234#56. You can find more information on this by searching SAP notes for "URL encode".
As for this issue, what is the error when the value is 1234%2356? Thanks.
Edgar

Adding Data to the database for SAP Transactions

Hi
I'm new to the whole ABAP. I would like to enquire about adding transaction data in SAP through ABAP but it must be immediate.
I know that one can use a BAPI to add data and can rollback if any problems occur.
But if no BAPI exists how does one write code to add a document to the SAP database but with everything SAP transaction requires like the BAPI. What is the process and how???
So let say I wanted to do FB01 which is SAP FI document and must be immediate. There is a BAPI that exists for it but if there was not one how would I do this???
I know one can also use BDC but that creates a batch and then needs to be executed in SM35, I want a way to add data for two or three SAP transactions, if any problems occur with any of the steps rollback everything else commit everything to the database.
Any simple detail examples (code) that satisfy the above will be greatly appreciated and REWARDED.
Thanks in advance

Luis,
i have a code exactly same BDC for FB01.
refer:
REPORT z_etching_fb01
 NO STANDARD PAGE HEADING LINE-SIZE 255.
*etching invoice load
INCLUDE bdcrecx1.
TYPE-POOLS: truxs , slis.
*PARAMETERS: dataset(132) LOWER CASE DEFAULT
* 'c:\temp\etchingload.txt'.
PARAMETER: pfile LIKE rlgrap-filename." OBLIGATORY.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETER: p_kunnr LIKE kna1-kunnr OBLIGATORY, "kna1-kunnr
 p_bukrs LIKE bseg-bukrs,
 p_mwskz LIKE t007a-mwskz OBLIGATORY,"t007a-mwskz
 p_prctr LIKE cepc-prctr OBLIGATORY,"cepc-prctr
* p_newko LIKE ska1-saknr OBLIGATORY DEFAULT 41000000,"
 p_budat LIKE bkpf-budat OBLIGATORY ,
 p_hkont LIKE bseg-hkont OBLIGATORY DEFAULT 41000000 ,
 p_waers TYPE waers OBLIGATORY DEFAULT 'GBP'."tcurr-waers
SELECTION-SCREEN END OF BLOCK a.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-002.
PARAMETER : report AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b.
*** DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
* If it is nessesary to change the data section use the rules:
* 1.) Each definition of a field exists of two lines
* 2.) The first line shows exactly the comment
* '* data element: ' followed with the data element
* which describes the field.
* If you don't have a data element use the
* comment without a data element name
* 3.) The second line shows the fieldname of the
* structure, the fieldname must consist of
* a fieldname and optional the character '_' and
* three numbers and the field length in brackets
* 4.) Each field must be type C.
*** Generated data section with specific formatting - DO NOT CHANGE ***
* ALV *
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
 wa_fieldcat LIKE LINE OF it_fieldcat,
 it_top_of_page TYPE slis_t_listheader,
 ls_layout TYPE slis_layout_alv,
 gt_events TYPE slis_t_event.
DATA: it_raw TYPE truxs_t_text_data.
DATA: BEGIN OF record,
* data element: BLDAT
 bldat_001(010), "Invoice Date
* data element: BLART
 blart_002(002), " Doc Type DR or DG if credit
* data element: BUKRS
 bukrs_003(004), " Company Code
* data element: BUDAT
 budat_004(010), "Posting Date
* data element: MONAT
 monat_005(002), "period"
* data element: WAERS
 waers_006(005), "Currency
* data element: XBLNR1
 xblnr_007(016), "Invoice Number
* data element: BKTXT
 bktxt_008(025), "PO number
* data element: SAEOBJART
 docid_009(010),
* data element: NEWBS
 newbs_010(002), "posting Key
* data element: NEWKO
 newko_011(017), "Customer number or GL account
* data element: WRBTR
 wrbtr_012(016), "Amount
* data element: DZTERM
 zterm_013(004),
* data element: DZBD1T
 zbd1t_014(003),
* data element: DZFBDT
 zfbdt_015(010),
* data element: DZUONR
 zuonr_016(018), "Invoice Number
* data element: SGTXT
 sgtxt_017(050), " PO number
* data element: NEWBS
 newbs_018(002),
* data element: NEWKO
 newko_019(017), "GL Account
* data element: WRBTR
 wrbtr_020(016), "Amount
* data element: MWSKZ
 mwskz_021(002), "Tax
* data element: DZUONR
 zuonr_022(018), "Invoice Number
* data element: SGTXT
 sgtxt_023(050), "PO Number
* data element: PRCTR
 prctr_024(010), "Profit Center
* data element: WRBTR
 wrbtr_025(016), " Amount
* data element: MWSKZ
 mwskz_026(002), "Tax
* data element: DZUONR
 zuonr_027(018), "Invoice Number
* data element: SGTXT
 sgtxt_028(050), "PO Number
* data element: FMORE
 fmore_029(001),
* data element: PRCTR
 prctr_030(010), "Pr Center
* data element: FWSTE
 fwste_01_031(016),
 END OF record.
DATA: BEGIN OF it_excel OCCURS 0,
* data element: XBLNR1
 xblnr_007(016), "Invoice Number
* data element: BLDAT
 bldat_001(010), "Invoice Date
* data element: WRBTR
 wrbtr_012(016), "Amount
* data element: WRBTR
 wrbtr_025(016), " Tax Amount
* data element: WRBTR
 wrbtr_020(016), "Gross Amount
* data element: BLART
 blart_002(002), " No of units
* data element: MONAT
 monat_005(002), "No of units second test"
* data element: BKTXT
 bktxt_008(025), "PO number
* data element: SGTXT
 sgtxt_017(050), " PO number
* data element: BUKRS
 bukrs_003(004), " Company Code
* data element: BUDAT
 budat_004(010), "Posting Date
* budat_004 TYPE string, "Posting Date
* data element: WAERS
 waers_006(005), "Currency*
* data element: NEWKO
 newko_011(017), "Customer number or GL account
* data element : kunnr
 kunnr_019(010), " customer
 mwskz(002),
 prctr(010),
 date(002),
 month(002),
** data element: BKTXT
* bktxt_008(025), "PO number
** data element: SAEOBJART
* docid_009(010),
** data element: NEWBS
* newbs_010(002), "posting Key
** data element: DZTERM
* zterm_013(004),
** data element: DZBD1T
* zbd1t_014(003),
** data element: DZFBDT
* zfbdt_015(010),
** data element: DZUONR
* zuonr_016(018), "Invoice Number
** data element: NEWBS
* newbs_018(002),
** data element: NEWKO
* newko_019(017), "GL Account
** data element: MWSKZ
* mwskz_021(002), "Tax
** data element: DZUONR
* zuonr_022(018), "Invoice Number
** data element: SGTXT
* sgtxt_023(050), "PO Number
** data element: PRCTR
* prctr_024(010), "Profit Center
** data element: MWSKZ
* mwskz_026(002), "Tax
** data element: DZUONR
* zuonr_027(018), "Invoice Number
** data element: SGTXT
* sgtxt_028(050), "PO Number
** data element: FMORE
* fmore_029(001),
** data element: PRCTR
* prctr_030(010), "Pr Center
** data element: FWSTE
* fwste_01_031(016),
 END OF it_excel.
DATA : BEGIN OF it_bkpf OCCURS 0,
 belnr LIKE bkpf-belnr,
 budat LIKE bkpf-budat,
 bldat LIKE bkpf-bldat,
 xblnr LIKE bkpf-xblnr,
 bktxt LIKE bkpf-bktxt,
 total LIKE bseg-dmbtr,
 numdocs TYPE p DECIMALS 0,
 END OF it_bkpf,
 BEGIN OF it_bseg OCCURS 0,
 belnr LIKE bseg-belnr,
 dmbtr LIKE bseg-dmbtr,
 mwsts LIKE bseg-mwsts,
 pswsl LIKE bseg-pswsl,
 END OF it_bseg,
 BEGIN OF it_final OCCURS 0,
 belnr LIKE bkpf-belnr,
 budat LIKE bkpf-budat,
 bldat LIKE bkpf-bldat,
 xblnr LIKE bkpf-xblnr,
 bktxt LIKE bkpf-bktxt,
 dmbtr LIKE bseg-dmbtr,
 mwsts LIKE bseg-mwsts,
 pswsl LIKE bseg-pswsl,
 END OF it_final.
***** End generated data section ***
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfile.
PERFORM sub_browse_file. "Get file name
START-OF-SELECTION.
PERFORM sub_data_load. " Transfer excel into internal table.
PERFORM sub_calc_excel.
IF report = 'X'.
* PERFORM data_selection.
* PERFORM data_move.
*********************************GET ALV DATA
 PERFORM alv_get_data.
*********************************ALV GRID DATA
 PERFORM alv_grid.
ENDIF.
*if report = ''.
* PERFORM write.
* PERFORM open_dataset USING dataset.
PERFORM open_group.
* DO.
* READ DATASET dataset INTO record.
LOOP AT it_excel.
* IF sy-subrc <> 0. EXIT. ENDIF.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BKPF-BLDAT'
 it_excel-bldat_001.
 PERFORM bdc_field USING 'BKPF-BLART'
 'DR'." record-blart_002.
 PERFORM bdc_field USING 'BKPF-BUKRS'
 it_excel-bukrs_003.
 PERFORM bdc_field USING 'BKPF-BUDAT'
 it_excel-budat_004.
 PERFORM bdc_field USING 'BKPF-MONAT'
 '3'. "record-monat_005.
 PERFORM bdc_field USING 'BKPF-WAERS'
 it_excel-waers_006.
 PERFORM bdc_field USING 'BKPF-XBLNR'
 it_excel-xblnr_007.
 PERFORM bdc_field USING 'BKPF-BKTXT'
 it_excel-bktxt_008.
 PERFORM bdc_field USING 'FS006-DOCID'
 '*' ."record-docid_009.
 PERFORM bdc_field USING 'RF05A-NEWBS'
 '01'." record-newbs_010.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 it_excel-kunnr_019 .
 PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 it_excel-wrbtr_020." it_excel-wrbtr_012.
 PERFORM bdc_field USING 'BSEG-ZTERM'
 'NT30' ." record-zterm_013.
 PERFORM bdc_field USING 'BSEG-ZBD1T'
 '30'."record-zbd1t_014.
 PERFORM bdc_field USING 'BSEG-ZFBDT'
 it_excel-bldat_001."record-zfbdt_015.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 it_excel-xblnr_007."record-zuonr_016.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 it_excel-sgtxt_017.
 PERFORM bdc_field USING 'RF05A-NEWBS'
 '50'." record-newbs_018.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 it_excel-newko_011." record-newko_019."Gl account
 PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-SGTXT'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 it_excel-wrbtr_012."changes from 12 to 20
 PERFORM bdc_field USING 'BSEG-MWSKZ'
 it_excel-mwskz." record-mwskz_021.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 it_excel-xblnr_007." record-zuonr_022.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 it_excel-sgtxt_017." record-sgtxt_023.
 PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'COBL-PRCTR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTE'.
 PERFORM bdc_field USING 'COBL-PRCTR'
 it_excel-prctr ." record-prctr_024.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-WRBTR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=STER'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 it_excel-wrbtr_012." it_excel-wrbtr_025.
 PERFORM bdc_field USING 'BSEG-MWSKZ'
 it_excel-mwskz.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 it_excel-xblnr_007." record-zuonr_027.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 it_excel-sgtxt_017." record-sgtxt_028.
 PERFORM bdc_field USING 'DKACB-FMORE'
 'X' ."record-fmore_029.
 PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'COBL-PARGB'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTE'.
 PERFORM bdc_field USING 'COBL-PRCTR'
 it_excel-prctr." record-prctr_030.
 PERFORM bdc_dynpro USING 'SAPLTAX1' '0300'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSET-FWSTE(01)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=GOBU'.
 PERFORM bdc_field USING 'BSET-FWSTE(01)'
 it_excel-wrbtr_025." record-fwste_01_031.
 PERFORM bdc_transaction USING 'FB01'.
 REFRESH:bdcdata,messtab.
ENDLOOP.
REFRESH:bdcdata.
** PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'RF05A-NEWKO'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '/00'.
* PERFORM bdc_field USING 'BKPF-BLDAT'
* record-bldat_001.
* PERFORM bdc_field USING 'BKPF-BLART'
* record-blart_002.
* PERFORM bdc_field USING 'BKPF-BUKRS'
* record-bukrs_003.
* PERFORM bdc_field USING 'BKPF-BUDAT'
* record-budat_004.
* PERFORM bdc_field USING 'BKPF-MONAT'
* record-monat_005.
* PERFORM bdc_field USING 'BKPF-WAERS'
* record-waers_006.
* PERFORM bdc_field USING 'BKPF-XBLNR'
* record-xblnr_007.
* PERFORM bdc_field USING 'BKPF-BKTXT'
* record-bktxt_008.
* PERFORM bdc_field USING 'FS006-DOCID'
* record-docid_009.
* PERFORM bdc_field USING 'RF05A-NEWBS'
* record-newbs_010.
* PERFORM bdc_field USING 'RF05A-NEWKO'
* record-newko_011.
* PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'RF05A-NEWKO'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '/00'.
* PERFORM bdc_field USING 'BSEG-WRBTR'
* record-wrbtr_012.
* PERFORM bdc_field USING 'BSEG-ZTERM'
* record-zterm_013.
* PERFORM bdc_field USING 'BSEG-ZBD1T'
* record-zbd1t_014.
* PERFORM bdc_field USING 'BSEG-ZFBDT'
* record-zfbdt_015.
* PERFORM bdc_field USING 'BSEG-ZUONR'
* record-zuonr_016.
* PERFORM bdc_field USING 'BSEG-SGTXT'
* record-sgtxt_017.
* PERFORM bdc_field USING 'RF05A-NEWBS'
* record-newbs_018.
* PERFORM bdc_field USING 'RF05A-NEWKO'
* record-newko_019.
* PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'BSEG-SGTXT'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '/00'.
* PERFORM bdc_field USING 'BSEG-WRBTR'
* record-wrbtr_020.
* PERFORM bdc_field USING 'BSEG-MWSKZ'
* record-mwskz_021.
* PERFORM bdc_field USING 'BSEG-ZUONR'
* record-zuonr_022.
* PERFORM bdc_field USING 'BSEG-SGTXT'
* record-sgtxt_023.
* PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'COBL-PRCTR'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=ENTE'.
* PERFORM bdc_field USING 'COBL-PRCTR'
* record-prctr_024.
* PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'BSEG-WRBTR'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=STER'.
* PERFORM bdc_field USING 'BSEG-WRBTR'
* record-wrbtr_025.
* PERFORM bdc_field USING 'BSEG-MWSKZ'
* record-mwskz_026.
* PERFORM bdc_field USING 'BSEG-ZUONR'
* record-zuonr_027.
* PERFORM bdc_field USING 'BSEG-SGTXT'
* record-sgtxt_028.
* PERFORM bdc_field USING 'DKACB-FMORE'
* record-fmore_029.
* PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'COBL-PARGB'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=ENTE'.
* PERFORM bdc_field USING 'COBL-PRCTR'
* record-prctr_030.
* PERFORM bdc_dynpro USING 'SAPLTAX1' '0300'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'BSET-FWSTE(01)'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=GOBU'.
* PERFORM bdc_field USING 'BSET-FWSTE(01)'
* record-fwste_01_031.
* PERFORM bdc_transaction USING 'FB01'.
* ENDDO.
PERFORM close_group.
* PERFORM close_dataset USING dataset.
*endif.
*& Form sub_browse_file
* text
* --> p1 text
* <-- p2 text
FORM sub_browse_file .
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
* FIELD_NAME = ' '
 IMPORTING
 file_name = pfile.
ENDFORM. " sub_browse_file
*& Form sub_data_load
* text
* --> p1 text
* <-- p2 text
FORM sub_data_load .
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
 EXPORTING
* I_FIELD_SEPERATOR =
 i_line_header = 'X'
 i_tab_raw_data = it_raw
 i_filename = pfile
 TABLES
 i_tab_converted_data = it_excel[]
* EXCEPTIONS
* CONVERSION_FAILED = 1
* OTHERS = 2
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " sub_data_load
**& Form data_selection
** text
** --> p1 text
** <-- p2 text
*FORM data_selection .
* SELECT * FROM bkpf
* INTO CORRESPONDING FIELDS OF TABLE it_bkpf
* WHERE budat = p_budat AND
* bukrs = p_bukrs.
* IF NOT it_bkpf[] IS INITIAL.
* SELECT belnr dmbtr mwsts pswsl
* FROM bseg INTO TABLE it_bseg
* FOR ALL ENTRIES IN it_bkpf
* WHERE belnr = it_bkpf-belnr AND
* kunnr = p_kunnr AND
* hkont = p_hkont AND
* pswsl = p_waers.
* ENDIF.
*ENDFORM. " data_selection
**& Form data_move
** text
** --> p1 text
** <-- p2 text
*FORM data_move.
* SORT : it_bseg BY belnr,
* it_bkpf BY belnr.
* LOOP AT it_bseg.
* it_final-dmbtr = it_bseg-dmbtr.
* it_final-belnr = it_bseg-belnr.
* it_final-mwsts = it_bseg-mwsts.
* it_final-pswsl = it_bseg-pswsl.
* READ TABLE it_bkpf WITH KEY belnr = it_bseg-belnr BINARY SEARCH.
* IF sy-subrc = 0.
* it_final-budat = it_bkpf-budat.
* it_final-bldat = it_bkpf-bldat.
* it_final-xblnr = it_bkpf-xblnr.
* it_final-bktxt = it_bkpf-bktxt.
* ENDIF.
* APPEND it_final.
* CLEAR it_final.
* ENDLOOP.
*ENDFORM. " data_move
*& Form alv_get_data
* text
* --> p1 text
* <-- p2 text
FORM alv_get_data .
CLEAR it_fieldcat.
***************** Document number
* wa_fieldcat-col_pos = '1'. " ALV O/P COL-1
wa_fieldcat-fieldname = 'XBLNR_007'.
wa_fieldcat-seltext_m = 'Document number'.
wa_fieldcat-just = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
***************** Posting Date
* wa_fieldcat-col_pos = '2'. " ALV O/P COL-1
wa_fieldcat-fieldname = 'BUDAT_004'.
wa_fieldcat-seltext_m = 'Posting Date'.
wa_fieldcat-just = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 20.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************** Document Date
* wa_fieldcat-col_pos = '3'. " ALV O/P COL-2
wa_fieldcat-fieldname = 'BLDAT_001'.
wa_fieldcat-seltext_m = 'Document Date'.
wa_fieldcat-just = 'L'.
wa_fieldcat-tabname = 'IT_EXCEL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
********************* REFERENCE DOCUMENT
** wa_fieldcat-col_pos = '4'. " ALV O/P COL-2
* wa_fieldcat-fieldname = 'XBLNR'.
* wa_fieldcat-seltext_m = 'REFERENCE DOCUMENT'.
* wa_fieldcat-just = 'L'.
* wa_fieldcat-tabname = 'IT_EXCEL'.
** wa_fieldcat-outputlen = 15.
* APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
***************** DOCUMENT HEADER TEXT
* wa_fieldcat-col_pos = '5'. " ALV O/P COL-3
wa_fieldcat-fieldname = 'SGTXT_017'.
wa_fieldcat-seltext_m = 'DOCUMENT HEADER TEXT'.
wa_fieldcat-just = 'L'.
wa_fieldcat-tabname = 'IT_EXCEL'.
* wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*******************Invoice Net amount
* wa_fieldcat-col_pos = '6'. " ALV O/P COL-4
wa_fieldcat-fieldname = 'WRBTR_012'.
wa_fieldcat-seltext_m = 'Invoice Net amount'.
wa_fieldcat-just = 'L'.
wa_fieldcat-tabname = 'IT_EXCEL'.
* wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** Tax Amount
* wa_fieldcat-col_pos = '7'. " ALV O/P COL-5
wa_fieldcat-fieldname = 'WRBTR_025'.
wa_fieldcat-seltext_m = 'Tax Amount'.
wa_fieldcat-just = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** NEt Amount
* wa_fieldcat-col_pos = '7'. " ALV O/P COL-5
wa_fieldcat-fieldname = 'WRBTR_020'.
wa_fieldcat-seltext_m = 'Net Amount'.
wa_fieldcat-just = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** General ledger currency
* wa_fieldcat-col_pos = '7'. " ALV O/P COL-5
wa_fieldcat-fieldname = 'WAERS_006'.
wa_fieldcat-seltext_l = 'General ledger currency'.
wa_fieldcat-just = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 25.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " alv_get_data
*& Form alv_grid
* text
* --> p1 text
* <-- p2 text
FORM alv_grid .
* PERFORM fill_list_header USING it_top_of_page[].
* PERFORM event-build USING gt_events[].
PERFORM fill_layout USING ls_layout.
MESSAGE 'Please press F3 to generate a session or call transaction method after getting report!' TYPE 'I'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 is_layout = ls_layout
 it_fieldcat = it_fieldcat
 it_events = gt_events[]
 i_save = 'A'
 TABLES
 t_outtab = it_excel
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " alv_grid
* FORM FILL_LAYOUT *
FORM fill_layout USING p_ls_layout TYPE slis_layout_alv.
p_ls_layout-zebra = 'X'.
p_ls_layout-cell_merge = 'X'.
ENDFORM. "fill_layout
*& Form sub_calc_excel
* text
* --> p1 text
* <-- p2 text
FORM sub_calc_excel .
 data: idate TYPE sy-datum,
 tdat8 type string.
LOOP AT it_excel.
 CONCATENATE it_excel-blart_002 '/' it_excel-monat_005 '/' it_excel-bktxt_008 INTO
 it_excel-sgtxt_017.
 it_excel-bukrs_003 = p_bukrs.
* it_excel-budat_004 = p_budat.
 it_excel-waers_006 = p_waers.
 it_excel-newko_011 = p_hkont.
 it_excel-kunnr_019 = p_kunnr.
 it_excel-mwskz = p_mwskz.
 it_excel-prctr = p_prctr.
 idate = p_budat.
 CALL FUNCTION 'DATUMSAUFBEREITUNG'
 EXPORTING
* FLAGM = ' '
* FLAGW = ' '
 IDATE = idate
* IMONT = ' '
* IWEEK = ' '
 IMPORTING
* MDAT4 =
* MDAT6 =
* TDAT4 =
* TDAT6 =
 TDAT8 = tdat8
* WDAT4 =
* WDAT6 =
* EXCEPTIONS
* DATFM_UNGUELTIG = 1
* DATUM_UNGUELTIG = 2
* OTHERS = 3
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 it_excel-budat_004 = tdat8.
* CONCATENATE it_excel-budat_004+4(2) '/' it_excel-budat_004+6(2) '/' it_excel-budat_004+0(4)
* INTO it_excel-budat_004.
* SPLIT it_excel-bldat_001 AT '/' INTO it_excel-month it_excel-date.
* CONCATENATE it_excel-date '.' it_excel-month '.' it_excel-bldat_001+6(4) INTO it_excel-bldat_001.
 MODIFY it_excel.
 CLEAR it_excel.
ENDLOOP.
ENDFORM. " sub_calc_excel
*& Form write
* text
* --> p1 text
* <-- p2 text
*form write .
*OPEN DATASET dataset FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
*data: wa_excel like line of it_excel.
*loop at it_excel into wa_excel.
*TRANSFER wa_excel to dataset.
*endloop.
*CLOSE DATASETdataset.
*endform. " write

A problem about sap transaction?

Similar Messages

Maybe you are looking for