Rqmt to create a PG with lots of fixed and some variable text, not a report
Hi, I have a requirement where I have to create a custom page which has lots of long lines of text(fixed) in paragraphs, with in between some data which needs to be populated from database tables. It is not a report but a custom page that is needed. I am new to OA Framework, so I was having trouble identifying which region styles or items to use, and how to proceed with it. Could anyone please help me out.
user645399 wrote:
Thank You so much for the valuable feedback.
My agency requires some reports to be generated at a certain interval, after a certain type of batch load. A few different types of reports will be generated and usually we have scripts which we run to generate the necessary tables and extract the reports from there. We retain the tables for verification purpose as it stores some valuable status of some customers and so on, which we will not be able to generate again easily. The table will have around 50,000 - 100,000 records averagely. Sometimes more.
I am automating the process now as per client's request.
So, I thought of using the same script to automate it in the web. For table name we usually changed them manually.
Now, when the user runs, he or she have to give them table name/ report name.
I thought of concatinating the sysdate and report name but what if there is a problem and the user runs it for a second time?
Unless I have a separate part of the coding to take care of this issue.
Please advice if there is an alternative.
Thank You Very Much.
Cheers!
NithyaSo why is it necessary to create a table just to create a report?
You really, really need to rethink this entire process from the beginning, not just try to shoehorn in something from a current, astoundingly bad, design.
Similar Messages
-
Create sales order with ref to quotation - usage of line items not copied
hi
i have created a quotation for which the first line item(higher level item) is a configurable item for which the value of the field use (vbap-vkaus) is blank and the line items the use field is given as 'HIDE DISCOUNT'.
when i created a order with reference to the above quotation i am not getting the value "HIDE DISCOUNT" populated for the line items for usage field ..
can any one knows any user exit / data transfer routine please suggest me
thanks in advance
rajani yelurihi
i have created a quotation for which the first line item(higher level item) is a configurable item for which the value of the field use (vbap-vkaus) is blank and the line items the use field is given as 'HIDE DISCOUNT'.
when i created a order with reference to the above quotation i am not getting the value "HIDE DISCOUNT" populated for the line items for usage field ..
can any one knows any user exit / data transfer routine please suggest me
thanks in advance
rajani yeluri -
Created a document with FM Author 12 and added a template in FM12 to the document
Created a document with FM Author 12 and added a template in FM12 to the document. Can't open the document again in FM Author 12 "This file does not have a program associated with it for performing this action. Please install a program or, if one is already installed, create an association in the Default Programs control panel".
Should both programs be in "Authoring" mode?
-
Linking Access tables, creating a query with using both Access and Oracle
Hello,
I am using 3.0.04.34 version Oracle Developer. I am supposed to create a script/procedure to use both Access tables and oracle tables together. There is an option in developer to copy the access tables into oracle. But it doesn't help me. Because when we updated the access tables
the copied ones are not be updated. How can I created a linked access tables to oracle and create a query with using both access and oracle table together.
I will appreciate if you guys help me. I look forward to hearing from you guys.
Thanks,
PinarPinar,
to be able to query MS Access tables in Oracle you need an additional product, the Oracle Database Gateway for ODBC. It allows you to link any foreign database into an Oracle database using a suitable ODBC driver. You can then access the MS Access tables through a database link based on the Database Gateway for ODBC. This will also allow you to join local Oracle and remote MS Access tables from your Oracle database.
There's a note on My Oracle Support which gives you more details:Document 233876.1 Options for Connecting to Foreign Data Stores and Non-Oracle Databases - For example - DB2, SQL*Server, Sybase, Informix, Teradata, MySQL
And there's also a dedicated Forum: Heterogeneous Connectivity -
I am creating a slideshow with elements using photos and videos but the video sound doesnt play?
I am creating a slideshow with elements using photos and videos but the video sound doesnt play?
Hello jive
I am playing it back in the slideshow editor/setting up part of
programme where you determine photos/video to be included gaps between
slides, music to play etc This goes through each phot and when comes
to a video the background sound doesnt play, I am using windows 7 and
elements 10.
regards gins51 -
My iPad colors are fuzzy with lots of reds and purples. Looks like my digital camera when it needs to be recharged if that helps describe the issue. Can anyone help?
Next step is to back up and restore via iTunes. If the problem continues, restore as a new device and test. If the problem is solved, there is some kind of corruption in your backup file. If it continues, take it to an Apple store for evaluation of a possible hardware problem.
-
Creating a bridge with airport extreme (base) and airport express
i am having trouble creating a bridge with airport extreme (base) and airport express. i got the airport express to connect to my network. Airtunes sees it fine. i have an iMac (running Tiger) connected to the airport express via ethernet which i was hoping to get internet on (the iMac doesn't not have built in wireless and i had a spare airport express). now the airport express is no longer visible to the airport setup assistant on that iMac. but, like i mentioned, Airtunes is working fine, and the light is green.
i'm new to the wireless stuff. i am sure i just missed a step. how do i get the iMac to connect to the internet via my airport express bridging to my airport extreme wireless network?
your help is appreciated.You can do this with the equipment you have. Configure the AirPort Extreme base station (AEBS) to act as a WDS main base station and configure the AirPort Express (AX) to act as a WDS remote base station. That will allow you to use the Ethernet port on the AX.
Unfortunately WDS also causes the available wireless bandwidth to be cut in half. -
BDC with lots of validations and conversions
hi to all experts,
i need a sample bdc program with lots of validations and conversion.
thanksHi,
REPORT ZMMFTS01A_MAINTAIN_SOURCE_LIST NO STANDARD PAGE HEADING
LINE-SIZE 250.
TABLES eord.
***Types Declaration
**Type of Upload File
TYPES : BEGIN OF ty_final,
matnr(018), "Material No
werks(004), "Plant
vdatu(010), "valid From
bdatu(010), "valid To
lifnr(010), "Vendor
ekorg(004), "Purchase Org
reswk(004), "Plant from which material is procured
ebeln(010), "Agreement
ebelp(005), "Item
feskz(003), "Fix
notkz(003), "Blk
autet(003), "MRP
END OF ty_final.
**Type for Error Records
TYPES : BEGIN OF ty_errmsg,
matnr(018),
werks(004),
vdatu(010),
bdatu(010),
lifnr(010),
ekorg(004),
reswk(004),
ebeln(010),
ebelp(005),
feskz(003),
notkz(003),
autet(003),
messg(200),
END OF ty_errmsg.
**Type to get the existing no of records before comparison
TYPES : BEGIN OF ty_eord,
matnr LIKE eord-matnr,
werks LIKE eord-werks,
erdat LIKE eord-erdat,
vdatu LIKE eord-vdatu,
bdatu LIKE eord-bdatu,
lifnr LIKE eord-lifnr,
flifn LIKE eord-flifn,
ebeln LIKE eord-ebeln,
ebelp LIKE eord-ebelp,
febel LIKE eord-febel,
reswk LIKE eord-reswk,
notkz LIKE eord-notkz,
ekorg LIKE eord-ekorg,
autet LIKE eord-autet,
END OF ty_eord.
**Type to get the no of records in the Database after comparison
TYPES : BEGIN OF ty_eord1,
vdatu LIKE eord-vdatu,
bdatu LIKE eord-bdatu,
END OF ty_eord1.
***Data Declarations
DATA : v_repid LIKE sy-repid,
v_datfm LIKE usr01-datfm,
v_message(200),
v_err_rec TYPE i,
v_errors TYPE i,
v_updated TYPE i,
v_matnr TYPE matnr,
v_lines TYPE i,
v_eord_row TYPE i,
s_count(2) TYPE n,
v_fnam(20) TYPE c,
v_tabix(2) TYPE n,
v_vdatu(10),
v_bdatu LIKE eord-bdatu,
v_datum(10),
f_option type ctu_params.
****Begin of Changes by Pavan Ticket 648507 "D13K948908
DATA : s_vdatu TYPE sy-datum,
s_bdatu TYPE sy-datum.
****End of Changes By Pavan Ticket 648507 "D13K948908
***Internal Tables Declaration
DATA : it_eord TYPE STANDARD TABLE OF ty_eord WITH HEADER LINE, "Internal Table for Appending all the Rows of DB Table EORD
it_bdcdata TYPE STANDARD TABLE OF bdcdata WITH HEADER LINE,
it_final TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,
it_err_rec TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,
it_messtab TYPE STANDARD TABLE OF bdcmsgcoll WITH HEADER LINE,
it_errmsg TYPE STANDARD TABLE OF ty_errmsg WITH HEADER LINE,
it_eord1 TYPE STANDARD TABLE OF ty_eord1 WITH HEADER LINE,
it_ctu_params TYPE STANDARD TABLE OF ctu_params WITH HEADER LINE.
DATA : wa_final LIKE LINE OF it_final.
***Constants
CONSTANTS : c_1 TYPE i VALUE '1',
c_12 TYPE i VALUE '12',
c_x VALUE 'X'.
***Selection Screen
SELECTION-SCREEN : BEGIN OF BLOCK header WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP.
PARAMETERS P_FNAME LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK header.
I N I L I T I A L I Z A T I O N *
INITIALIZATION.
it_ctu_params-updmode = 'S'.
it_ctu_params-defsize = 'X'.
it_ctu_params-dismode = 'N'.
APPEND it_ctu_params.
A T S E L E C T I O N S C R E E N *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
PERFORM file_get.
S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
PERFORM upload_xcel.
IF NOT it_final[] IS INITIAL.
SORT it_final BY matnr werks lifnr ekorg reswk ebeln ebelp.
DESCRIBE TABLE it_final LINES v_lines.
ENDIF.
**To Know the Date Format for the user name in user master record
SELECT SINGLE datfm FROM usr01
INTO v_datfm
WHERE bname = sy-uname.
**Updating the Database based on the Combinations of Vendor/PPL/Porg and Agreement/Item
LOOP AT it_final.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
CLEAR : s_vdatu, s_bdatu.
CONCATENATE it_final-vdatu6(4) it_final-vdatu0(2) it_final-vdatu+3(2) INTO s_vdatu.
CONCATENATE it_final-bdatu6(4) it_final-bdatu0(2) it_final-bdatu+3(2) INTO s_bdatu.
PERFORM plant_conversion USING it_final-werks.
*****End of Changes By Pavan Ticket 648507 "D13K948908
REFRESH it_eord[].
v_matnr = it_final-matnr.
**Adding preceeding Zeroes to the Material No
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = v_matnr
IMPORTING
OUTPUT = v_matnr.
**Adding preceeding Zeroes to the Vendor
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = it_final-lifnr
IMPORTING
OUTPUT = it_final-lifnr.
**Adding preceeding Zeroes to the Item
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = it_final-ebelp
IMPORTING
OUTPUT = it_final-ebelp.
TRANSLATE it_final-feskz TO UPPER CASE.
TRANSLATE it_final-notkz TO UPPER CASE.
Select the Existing Records from EORD for the Combination of Material and Plant of New Record
SELECT matnr
werks
erdat
vdatu
bdatu
lifnr
flifn
ebeln
ebelp
febel
reswk
notkz
ekorg
autet FROM eord INTO corresponding fields of TABLE it_eord
WHERE matnr EQ v_matnr
AND werks EQ it_final-werks.
SORT it_eord BY matnr werks vdatu bdatu erdat lifnr ekorg reswk ebeln ebelp.
IF sy-subrc EQ 0.
LOOP AT it_eord.
If the Combination of Old Records Vendor/PPL/Porg is same and Agreement/Item
is also same then delete the Old Record and Upload the New Record
IF it_eord-MATNR = V_MATNR AND
it_eord-WERKS = IT_FINAL-WERKS AND
it_eord-LIFNR = IT_FINAL-LIFNR AND
it_eord-EKORG = IT_FINAL-EKORG AND
it_eord-RESWK = IT_FINAL-RESWK AND
it_eord-EBELN = IT_FINAL-EBELN AND
it_eord-EBELP = IT_FINAL-EBELP.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
v_tabix = sy-tabix.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'RM06W-SELKZ(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam 'X'.
PERFORM bdc_field USING 'BDC_OKCODE' '=LOES'.
PERFORM bdc_dynpro USING 'SAPLSPO1' '0200'.
PERFORM bdc_field USING 'BDC_OKCODE' '=YES'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ELSE.
If the Combination of Old Records Vendor/PPL/Porg is same and Agreement/Item
is different, if the FIX of the Existing one is X and also the FIX of the New one
is X then deselect the FIX of the Old one, if the MRP of the Old one is 1 and also
the MRP of the New one is 1 then delete the MRP of the Old one, if the FIX and MRP
of the Old one is X,1 and if it is same for the new one also, then delete the FIX
and MRP of the Old one and insert the new one also
IF it_eord-lifnr = it_final-lifnr AND
it_eord-ekorg = it_final-ekorg AND
it_eord-reswk = it_final-reswk AND
it_eord-ebeln NE '' AND it_final-ebeln NE ''.
IF it_eord-ebeln NE it_final-ebeln OR it_eord-ebelp NE it_final-ebelp.
IF it_eord-febel EQ 'X' OR it_eord-autet EQ '1'.
v_tabix = sy-tabix.
IF it_final-feskz = 'X' AND it_final-autet = '1'.
it_eord-febel = ''.
it_eord-autet = ''.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'RM06W-FESKZ(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
CONCATENATE 'EORD-AUTET(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ELSEIF
it_final-feskz = 'X'.
it_eord-febel = ''.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'RM06W-FESKZ(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ELSEIF
it_final-autet = '1'.
it_eord-autet = ''.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'EORD-AUTET(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CLEAR it_eord.
IF NOT it_bdcdata[] IS INITIAL.
CALL TRANSACTION 'ME01' USING it_bdcdata
OPTIONS FROM it_ctu_params.
REFRESH it_bdcdata[].
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
CLEAR : v_matnr, it_final.
ENDLOOP.
REFRESH : it_eord[].
FREE it_eord.
**Updating the Records of Upload File into ME01
LOOP AT it_final INTO wa_final.
it_final = wa_final.
CLEAR v_matnr.
TRANSLATE it_final-feskz TO UPPER CASE.
TRANSLATE it_final-notkz TO UPPER CASE.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
PERFORM plant_conversion USING wa_final-werks.
*****End of Changes By Pavan Ticket 648507 "D13K948908
**To convert the Valid From and Valid To into User's Format
CASE v_datfm.
WHEN 1.
CONCATENATE it_final-vdatu3(2) '.' it_final-vdatu0(2) '.' it_final-vdatu+6(4) INTO it_final-vdatu.
CONCATENATE it_final-bdatu3(2) '.' it_final-bdatu0(2) '.' it_final-bdatu+6(4) INTO it_final-bdatu.
WHEN 2.
CONCATENATE it_final-vdatu0(2) '/' it_final-vdatu3(2) '/' it_final-vdatu+6(4) INTO it_final-vdatu.
CONCATENATE it_final-bdatu0(2) '/' it_final-bdatu3(2) '/' it_final-bdatu+6(4) INTO it_final-bdatu.
WHEN 3.
CONCATENATE it_final-vdatu0(2) '-' it_final-vdatu3(2) '-' it_final-vdatu+6(4) INTO it_final-vdatu.
CONCATENATE it_final-bdatu0(2) '-' it_final-bdatu3(2) '-' it_final-bdatu+6(4) INTO it_final-bdatu.
WHEN 4.
CONCATENATE it_final-vdatu6(4) '.' it_final-vdatu0(2) '.' it_final-vdatu+3(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu0(2) '.' it_final-bdatu+3(2) INTO it_final-bdatu.
WHEN 5.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu0(2) '/' it_final-vdatu+3(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '/' it_final-bdatu0(2) '/' it_final-bdatu+3(2) INTO it_final-bdatu.
WHEN 6.
CONCATENATE it_final-vdatu6(4) '-' it_final-vdatu0(2) '-' it_final-vdatu+3(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '-' it_final-bdatu0(2) '-' it_final-bdatu+3(2) INTO it_final-bdatu.
***End of Changes by Pavan "D13K945062
WHEN 'A'.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu3(2) '/' it_final-vdatu+0(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu3(2) '.' it_final-bdatu+0(2) INTO it_final-bdatu.
WHEN 'B'.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu3(2) '/' it_final-vdatu+0(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu3(2) '.' it_final-bdatu+0(2) INTO it_final-bdatu.
WHEN 'C'.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu3(2) '/' it_final-vdatu+0(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu3(2) '.' it_final-bdatu+0(2) INTO it_final-bdatu.
ENDCASE.
AT NEW werks.
CLEAR s_count.
REFRESH : it_bdcdata[], it_eord1[].
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
**Adding preceeding Zeroes to the Material No
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = it_final-matnr
IMPORTING
OUTPUT = v_matnr.
**To know the Number of records in EORD after Updating with new records
SELECT vdatu
bdatu FROM EORD
INTO TABLE it_eord1
WHERE matnr = v_matnr
AND werks = it_final-werks.
DESCRIBE TABLE it_eord1 LINES v_eord_row.
s_count = v_eord_row + 1.
ENDAT.
CONCATENATE 'EORD-VDATU(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-VDATU.
CONCATENATE 'EORD-BDATU(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-BDATU.
CONCATENATE 'EORD-EKORG(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-EKORG.
CONCATENATE 'EORD-LIFNR(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-LIFNR.
CONCATENATE 'EORD-RESWK(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-RESWK.
CONCATENATE 'EORD-EBELN(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-EBELN.
CONCATENATE 'EORD-EBELP(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-EBELP.
CONCATENATE 'RM06W-FESKZ(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-FESKZ.
CONCATENATE 'EORD-NOTKZ(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-NOTKZ.
CONCATENATE 'EORD-AUTET(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-AUTET.
AT END OF werks.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
REFRESH it_messtab[].
CALL TRANSACTION 'ME01' USING it_bdcdata
OPTIONS FROM it_ctu_params
MODE 'A'
UPDATE 'L'
MESSAGES INTO it_messtab.
IF SY-SUBRC NE 0.
it_err_rec-matnr = it_final-matnr.
it_err_rec-werks = it_final-werks.
it_err_rec-vdatu = it_final-vdatu.
it_err_rec-bdatu = it_final-bdatu.
it_err_rec-lifnr = it_final-lifnr.
it_err_rec-ekorg = it_final-ekorg.
it_err_rec-reswk = it_final-reswk.
it_err_rec-ebeln = it_final-ebeln.
it_err_rec-ebelp = it_final-ebelp.
it_err_rec-feskz = it_final-feskz.
it_err_rec-notkz = it_final-notkz.
it_err_rec-autet = it_final-autet.
APPEND it_err_rec.
CLEAR it_err_rec.
PERFORM format_message.
ENDIF.
ENDAT.
ENDLOOP.
**To Upload the Error Records into another Excel File
IF NOT it_err_rec[] IS INITIAL.
PERFORM errors_file.
DESCRIBE TABLE it_err_rec LINES v_err_rec.
v_errors = v_err_rec - 1.
ELSE.
v_errors = 0.
ENDIF.
v_updated = v_lines - v_errors.
WRITE : /2 'RUN DATE :' color COL_NORMAL, 20 sy-datum,
/2 'RUN TIME :' color COL_NORMAL, 20 sy-uzeit.
SKIP 2.
WRITE : /2 'FILE PATH :' color COL_NORMAL, 20 p_fname.
SKIP 2.
WRITE : /2 'RESULTS' color COL_NORMAL.
SKIP.
WRITE : /2 'Number of Rows in the Upload File :' color COL_NORMAL, v_lines,
/2 'Number of Rows Updated :' color COL_NORMAL, v_updated,
/2 'Number of Error Records :' color COL_NORMAL, v_errors.
IF it_errmsg[] IS NOT INITIAL.
SKIP 2.
WRITE : /2 'Details of the Error Records' color COL_NORMAL.
SKIP.
ULINE.
FORMAT COLOR COL_NORMAL.
WRITE : /2 'Material',
22 'Plant',
28 'Valid From',
40 'Valid To',
52 'Vendor',
64 'Porg',
70 'PPL',
76 'Agreement',
88 'Item',
94 'Fix',
98 'Blk',
102 'MRP',
106 'Err. Description'.
FORMAT COLOR OFF.
ULINE.
LOOP AT it_errmsg.
AT NEW autet.
WRITE : /2 it_errmsg-matnr,
22 it_errmsg-werks,
28 it_errmsg-vdatu,
40 it_errmsg-bdatu,
52 it_errmsg-lifnr,
64 it_errmsg-ekorg,
70 it_errmsg-reswk,
76 it_errmsg-ebeln,
88 it_errmsg-ebelp,
94 it_errmsg-feskz,
98 it_errmsg-notkz,
102 it_errmsg-autet.
ENDAT.
WRITE 106 it_errmsg-messg.
ENDLOOP.
ENDIF.
E N D O F S E L E C T I O N *
END-OF-SELECTION.
*& Form file_get
Selects the File Name and Path
FORM file_get .
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = v_repid
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = p_fname
CHANGING
FILE_NAME = p_fname
EXCEPTIONS
MASK_TOO_LONG = 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. " file_get
*& Form upload_xcel
Uploading data to an Internal Table
FORM upload_xcel .
DATA: BEGIN OF it_intern OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE. " Rows for Table with Excel Data
DATA: END OF it_intern.
DATA v_no_rows TYPE i VALUE 9999.
FIELD-SYMBOLS : <fs1>.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FNAME
I_BEGIN_COL = c_1
I_BEGIN_ROW = c_1
I_END_COL = c_12
I_END_ROW = v_no_rows
TABLES
INTERN = it_intern
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC NE 0.
MESSAGE text-016 TYPE 'I'.
ENDIF.
LOOP AT it_intern.
ASSIGN COMPONENT it_intern-col OF STRUCTURE
it_final TO <fs1>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
<fs1> = it_intern-value.
AT END OF row.
APPEND it_final.
CLEAR it_final.
ENDAT.
Endloop.
FREE it_intern.
***To Delete the Headings from the Internal Table.
DELETE it_final WHERE matnr CA 'MATmat'.
ENDFORM. " upload_xcel
*& Form bdc_dynpro
Populate Screen Name
FORM bdc_dynpro USING PROGRAM
DYNPRO.
CLEAR it_bdcdata.
it_bdcdata-PROGRAM = PROGRAM.
it_bdcdata-DYNPRO = DYNPRO.
it_bdcdata-DYNBEGIN = 'X'.
APPEND it_bdcdata.
ENDFORM. " bdc_dynpro
*& Form bdc_field
Populate Screen Field
FORM bdc_field USING FNAM
FVAL.
IF FVAL <> SPACE.
CLEAR it_bdcdata.
it_bdcdata-FNAM = FNAM.
it_bdcdata-FVAL = FVAL.
APPEND it_bdcdata.
ENDIF.
ENDFORM. " bdc_field
*& Form bdc_field
Populate Screen Field
FORM bdc_field1 USING FNAM
FVAL.
CLEAR it_bdcdata.
it_bdcdata-FNAM = FNAM.
it_bdcdata-FVAL = FVAL.
APPEND it_bdcdata.
ENDFORM. " bdc_field
*& Form errors_file
Downloads the Error Records
FORM errors_file .
DATA : l_fname TYPE string,
l_var1 TYPE string,
l_var2 TYPE string.
l_fname = p_fname.
SPLIT l_fname at '.' into l_var1 l_var2.
CONCATENATE l_var1 '_error.' l_var2 INTO l_fname.
**To Write the Headings in the Excel File
it_err_rec-matnr = text-003.
it_err_rec-werks = text-004.
it_err_rec-vdatu = text-005.
it_err_rec-bdatu = text-006.
it_err_rec-lifnr = text-007.
it_err_rec-ekorg = text-008.
it_err_rec-reswk = text-009.
it_err_rec-ebeln = text-010.
it_err_rec-ebelp = text-011.
it_err_rec-feskz = text-012.
it_err_rec-notkz = text-013.
it_err_rec-autet = text-014.
INSERT it_err_rec INDEX 1.
CLEAR it_err_rec.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = l_fname
FILETYPE = 'DAT'
APPEND = ' '
CONFIRM_OVERWRITE = ' '
TABLES
DATA_TAB = it_err_rec
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC EQ 0.
MESSAGE text-015 TYPE 'S'.
ENDIF.
ENDFORM. " errors_file
*& Form format_message
To Write the Error Records
FORM format_message .
IF NOT it_messtab[] IS INITIAl.
LOOP AT it_messtab.
IF it_messtab-msgtyp = 'E'.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = it_messtab-msgid
LANG = sy-langu
NO = it_messtab-msgnr
V1 = it_messtab-msgv1
V2 = it_messtab-msgv2
V3 = it_messtab-msgv3
V4 = it_messtab-msgv4
IMPORTING
MSG = v_message
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC EQ 0.
it_errmsg-matnr = it_final-matnr.
it_errmsg-werks = it_final-werks.
it_errmsg-vdatu = it_final-vdatu.
it_errmsg-bdatu = it_final-bdatu.
it_errmsg-ekorg = it_final-ekorg.
it_errmsg-lifnr = it_final-lifnr.
it_errmsg-reswk = it_final-reswk.
it_errmsg-ebeln = it_final-ebeln.
it_errmsg-ebelp = it_final-ebelp.
it_errmsg-feskz = it_final-feskz.
it_errmsg-notkz = it_final-notkz.
it_errmsg-autet = it_final-autet.
it_errmsg-messg = v_message.
APPEND it_errmsg.
CLEAR : it_errmsg, v_message.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM. " format_message
*& Form plant_conversion
Adding preceeding Zeroes
-->P_IT_FINAL_WERKS text
FORM plant_conversion USING P_VAR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = P_VAR
IMPORTING
OUTPUT = P_VAR.
ENDFORM. " plant_conversion
Hope it helps!!!
Regards,
Pavan -
Re: to create outbound file with multiple header ,detail and trailor in informatica
Dear Mohan Prakash, Please mentation The Target Which Format you need. Please let me know. Thanks & RegardsKasireddy+966545281845
hi I want to create a file with muiltple header detail and trailorSample of my file 1F99500094959 5F99000000999911025F99000000999912025F99000000999913029F99500094959 1G83341002729803 5G83000000999918020109G83341002729803 1G83910377940 5G830000009999190201011050003522029G83910377940 T20110720000000900000006750{ In this file 1 is header and 5 is detail and 9 is trailer and in last T segment is also trailerI have any idea to create seperate 3 files and in lastconcatenate all file with the help of unixbut in my case data is so large (in millions) this approach is not use full please suggest my any ideaHow to create VSAM file
-
I have an iPhone 4 thats i was trying to fix and now it will not turn on at all is there anyway that i can access my pictures and contacts from my new phone or pc? Aslo the are both on the same apple id but i dont know if that would help or not.
Contacts are designed to be synced to a supported application on the computer or a cloud service.
Pictures taken with the device are designed to regularly be copied off the device to a computer as would be done with any digital camera.
If you have failed to use the device as designed it may be too late to recovery anything.
Is the device regularly backed up to a computer via iTunes? If so, the most recent backup (when restored to a replacement iOS device) should contain all contacts and pictures as of when the backup was created. -
I was trying to sync my itouch with my new mac, and some songs won't download because they are not authorized for this computer. But even after my computer was authorized they still won't sync. How do I fix this?
I have the same problem. It is only with tv shows and only with programs I have downloaded after the software update.
Apple support sent me the above link too....but it doesn't solve the problem...my computer is authorized and the content is in my library and will play on my Mac air, but it will not sync the tv shows, it keeps saying my computer isn't authorized for it.
No answers here, but you are definitely not alone with this issue. -
I am having trouble with the Jpeg icons and also now thumbnails not being visable in bith teh Apple finder and now also Adobe Bridge. Can anyone shed any light on this ?
Argh - once again, I find my solution right after posting this. Left out one modification to the SWIG script, now it runs in 29 seconds vs C 16 seconds, I can live with that.
-
I can't text a contact but can voice phone them. I don't have the problem with any other contact and the contact is not blocked. I have an iphone5.0 OS 8.1.3. I used to be able to text them with no problem. The only difference I can think is that this problem may have started since I downloaded the OS I am using now
cyclelukeWasn't responding to you. Please show me links where this helped.
Apple isn't showing any system problems: https://www.apple.com/support/systemstatus/ -
After Loading Lion I now get 5 windows w/ a graphic of a Red Stop sign with an ! mark and the following text message:
"DAVE Networking
Dave kernel extensions could not be loaded! Error
71 - Too many levels of remote in path."
I have uninstalled DAVE and used Clean App to remove trace elements of program, however I still get the message and am unable to eliminate the error messages. When I click OK the message goes away briefly and then comes back up.
Any solutions would be great.Dave,
Thanks....What I did was load the free eval version of Dave 9.0 and then used the uninstaller which must have deleted the kernel giving me the problem.
Thanks for the response.
Razor -
Im trying to update my iphone with ios 5 but, for some reason its not giving me the option to do it? i've restored my phone once like it says do on the website and it hasnt done it? what can i do ?
Are you sure you have a 3GS and not a 3G? The 3G cannot be updated to iOS5. What version are you on now?... Settings > General > About > Version
Maybe you are looking for
-
DMS - ACNS integration/configuration
Hi all, We are about to install/configure the ACNS as part of the DMS project. I will like to request/ask for any configuration guides/best practice document (if any) in order to start studying! Thank you
-
HT1386 I was trying to update my iphone and now I can not activate it, it says no sim card installed
I was trying to update my iphone and now I can not activate it, it says no sim card installed. What can I do now, help please.
-
Desperate for the 2.0 software release to help iPhone catch-up with blackberry and other smart phone basic functionality... It looks like there is still no copy and paste!!! Can this really be true???
-
I'm running a simple shell script that uses the following command: hdiutil create myImage.dmg -srcfolder ~/myFolder -noanyowners -ov The .dmg file that gets created when this command is run on a MacBook Pro (10.4.7) opens and is mountable on 10.4 and
-
Today i updated my i phone 4 to new update IOS 5.1 and now when incoming calls are coming in my phone is not ringing and i have no click noises on my keypad.Even though i have been into my settings to check if on. can anyone help?