[Urgent]How to assign Payload in Payload Header.

I am trying to enque data from a BPEL process into IP_OUT_QUEUE,I have already populated
Msg ID
From Party
ToParty
Doctype Revision
Doctype
Msg Type in Payload Header in the Header.
My question is:
How to populate the Payload in the Payload header?
Is it necessary to populate Payload in Payload header.
Entry in my B2B log:
2006.10.13 at 06:54:05:515: Thread-18: B2B - (ERROR) Error -: AIP-51505: General Validation Error
     at oracle.tip.adapter.b2b.document.edi.EDIDocumentPlugin.processOutgoingDocument(EDIDocumentPlugin.java:1670)
     at oracle.tip.adapter.b2b.msgproc.Request.outgoingRequestPostColab(Request.java:1132)
     at oracle.tip.adapter.b2b.msgproc.Request.outgoingRequest(Request.java:710)
     at oracle.tip.adapter.b2b.engine.Engine.processOutgoingMessage(Engine.java:821)
     at oracle.tip.adapter.b2b.data.MsgListener.onMessage(MsgListener.java:532)
     at oracle.tip.adapter.b2b.data.MsgListener.run(MsgListener.java:345)
     at java.lang.Thread.run(Thread.java:534)
2006.10.13 at 06:54:05:516: Thread-18: B2B - (ERROR) Error -: AIP-51505: General Validation Error
     at oracle.tip.adapter.b2b.document.edi.EDIDocumentPlugin.processOutgoingDocument(EDIDocumentPlugin.java:1711)
     at oracle.tip.adapter.b2b.msgproc.Request.outgoingRequestPostColab(Request.java:1132)
     at oracle.tip.adapter.b2b.msgproc.Request.outgoingRequest(Request.java:710)
     at oracle.tip.adapter.b2b.engine.Engine.processOutgoingMessage(Engine.java:821)
     at oracle.tip.adapter.b2b.data.MsgListener.onMessage(MsgListener.java:532)
     at oracle.tip.adapter.b2b.data.MsgListener.run(MsgListener.java:345)
     at java.lang.Thread.run(Thread.java:534)
2006.10.13 at 06:54:05:516: Thread-18: B2B - (ERROR) Error -: AIP-51505: General Validation Error: Error -: AIP-51505: General Validation Error
     at oracle.tip.adapter.b2b.document.edi.EDIDocumentPlugin.processOutgoingDocument(EDIDocumentPlugin.java:1711)
     at oracle.tip.adapter.b2b.msgproc.Request.outgoingRequestPostColab(Request.java:1132)
     at oracle.tip.adapter.b2b.msgproc.Request.outgoingRequest(Request.java:710)
     at oracle.tip.adapter.b2b.engine.Engine.processOutgoingMessage(Engine.java:821)
     at oracle.tip.adapter.b2b.data.MsgListener.onMessage(MsgListener.java:532)
     at oracle.tip.adapter.b2b.data.MsgListener.run(MsgListener.java:345)
     at java.lang.Thread.run(Thread.java:534)
Caused by: Error -: AIP-51505: General Validation Error
     at oracle.tip.adapter.b2b.document.edi.EDIDocumentPlugin.processOutgoingDocument(EDIDocumentPlugin.java:1670)
     ... 6 more
Can any one point out source of this error....is it due to wrong mapping in the transformation activity of my BPEL process
Message was edited by:
Vargab

Hello Vargab,
Assuming you have payload to be sent to B2B application already available in the BPEL process( you can get it from either file, ftp..etc) , you may need to assign it to EnqueProcess Input Variable. Please find the following code snippet.
Please do not copy the payload into any AQ header.
<receive name="Read_PO" partnerLink="X12_4010_850_PO_Read"
portType="ns1:Read_ptt" operation="Read"
variable="Read_PO_Read_InputVariable" createInstance="yes"/>
<assign name="Asign_APP_to_X12_4010_850_PO">
<copy>
<from variable="Read_PO_Read_InputVariable" part="Transaction-850"
query="/ns3:Transaction-850"/>
<to variable="Send_PO_Enqueue_InputVariable" part="Transaction-850"
query="/ns3:Transaction-850"/>
</copy>
</assign>
Hope this helps.
Rgds,Ramesh

Similar Messages

How to encrypt Payload in Composite BPEL 11g

I'm trying to encrypt payload information like the ssn number or the cc number.
I did create simple sync process assigned the input -- to -- output variable.
Then created Properties for Input String
Then create Properties Aliases for Input String
The Added the encryptProperties property on the Composite.xml.
But that doesnt seems be working.
I did follow this blog to encrypt the payload this link was for 10g , I tried replicating for 11g.
http://soa-bpel-esb.blogspot.com/2010/06/how-to-encrypt-payloads-in-bpel.html
Does anyone have any suggestions which would help gets going..
Regards
Sabir

Hi Arun,
In the sample code for encryption the namespace and xpath are hardcoded. Do you know how we can pass xpath dynamically from the soa process so that every process can use the same java code(so that no need to modify xpath in the java code for each and every process)?

How to assign the dynamic value of PV to Sip Header in ICM?

Hi everybody,
I would like to ask your help, please. We are working on Temporary IVR Handoff (ICM+CVP). I need to add/modify a customer Sip header in ICM transfer script. The value for that header is dynamic and stored in the one of ICM Call Peripherial Variables (PV9, for examle).
Is it possible somehow to assign the value of that PV9 to Sip header (Set Variable Call.SipHeader)? I tried to do it but unfortunally without any success. I can assign any static string, but how to assign the value of the PV??? That's the question...
For static string assignment the syntax of the Set Variable Node (Call.SipHeader) looks like that:
"IVR-Handoff~add~It's Cisco"
and it works fine.
For dynamic value (PV9) I tried:
"IVR-Handoff~add~Call.PeripherialVariable9" - it add Call.PeripherialVariable9 as a string, but not it's value;
"IVR-Handoff"~add~Call.PeripherialVariable9 - returns a syntax error;
Call.PeripherialVariable9 - no Sip header is added.
What do you think? Is it doable at all?
Any ideas, answers or examples how to do it would be much appreciated.
Thank you in advance.
Dmitriy.

Hi Senthil,
Yes! It works, but with the little difference. The right answer is:
"IVR-Handoff~add~"&Call.PeripherialVariable9
(Call.PeripherialVariable9 is without quotes, otherwise it insert the name of the variable, but not it's value)
The other solution is shown here (thanks to Paul Tindall):
http://developer.cisco.com/web/cvp/forums/-/message_boards/message/15627744?p_p_auth=6psgR8ML
concatenate("IVR-Handoff~add~",Call.PeripherialVariable9)
Thank you so much for the idea! I very appreciate your help and vote you.

How can the payload of a XI message be normalized to the RFC-XMLuFF1F

How can the payload of a XI message be normalized to the RFC-XML
format? Is it possible to remove unwanted XML-Namespace declarations
from a RFC-XML document?

While sending a message to a RFC-Adapter receiver channel a error
is thrown during RFC-XML-document parsing. The RFC-XML document looks
like it has the correct RFC-XML format but there are some additional
XML elements (e.g. XML-Namespace declarations). These elements can't
be understood by the RFC-XML parser of the RFC-Adapter. This parser
only is suitable for correct RFC-XML documents (like created by a
RFC-Adapter sender channel or the SAP JCO).To remove the unneeded elements from the RFC-XML document a message
mapping within the Integration Server can be used. The attached file
rfcnormalizer.jar contains a XSLT-Stylesheet which can be used for
this purpose.

In LSMW using BAPI Scenario, how to assign the same file to HEADER and ITEM

Hi,
i got a problem when we are in ASSIGN FILES step how to assign the same file to both HEADER and ITEM Structures?

Hi,
When defining the file in specify files step check the option 'Data for Multiple Source Structures'.
Hope it helps.
Thanks,
Mahesh

How to encrypt payload in BPEL 11g,Specific Fileds.

How to encrypt payload in BPEL 11g,Specific Fileds.

By adding a wsm policy to the service and encrypt parts of the payload?
http://download.oracle.com/docs/cd/E12839_01/integration.1111/e10224/sca_policy.htm#CHDHAJIH

How to assign the trip type to a particular employee. - Urgent

Hi,
In HR - Module - Travel Management.
I am trying to create a travel request for an employee.
i am getting the error message :
Statutory trip type does not exist in the system (T702G)
how to assign the trip type to a particular employee.
regards
Giri
*Points will be assigned for all the valid answers.

Hi Fred,
If you open any activities or opportunities, you can see the description if you select new button and click on the process type. It will be display Activities and below that New: Activity. Instead of always displaying the same description I want to override the description according to the process type. For me the application is not activity but Incident. Hope I am clear with the question.
Thanks,
Anu

How to assign Dynaminc Approver in GP

Hi,
Iam developing one application in GP .In first collable object form the user has to fill the department and other details..
Depending up on the department chosen it should go to the concern department manager for approval..
For e.g IT dept the approver should IT head
         Finance dept the approver should Finance head..
How to assign the approver dynamically...
How to get the first form value and to approve
Iam using webdynpro form in GP..
Help me.
Very Urgent..
Thanks&Regards,
Kiruthika.S

Hi All,
I have problems with designing the PDB, how it is teached in the <a href="http://help.sap.com/saphelp_nw2004s/helpdata/de/43/7e5b306b3b2679e10000000a1553f7/content.htm">help-link</a>.
My Block design:
Block: Confirm Decision (sequential)
      Action: Add members (Output-Table with Column
                           UserID)
      Block: PDB
            Block: Confirm (sequential)
                Action
                     CO: Confirm (Execution)
                     CO: Confirm (Display)
The mapping between Output-Table and Input-Table works, I get the Users in the Confirm-Action. But the Fill From Context doesnt work, what is the problem?
David said that its necessary that the Technical Name of the Multiline-Input-Structure (Input for PDB) and the Action (Output) is the same. But for me its not possible to rename the Multiline-Input-Structure to the technical name of the Action, because: Parameter with technical name UserStructure already exists in local context (=error message).
When I dont change the Technical Name, the mapping works, but the block doesnt work correct. The user who Add the Members (Action: Add Members) is responsible for all PDB-Actions, and the real Responsibles (like PDB-table) do not have a workitem in there worklist.
Thanks for helping me
Steve
Message was edited by: Steve Mussdorf

How to display total in ALV Header

How to display total in ALV Header?

Hi Venkey,
As far as your issue is concerned I would like to quote my perception.
Create a header internal table with title and number of records.
At the later part of your program you should have found the total number of records ,now assign it to the header internal table and print it.
For further clarification you can go check this link:
http://wiki.sdn.sap.com/wiki/display/ABAP/AddHeadertoALVreport
Thanks
P.Srikanth

How to assign area in site (in sap Retail) for different article.

Hi All Experts,
Can you tell me how to assign the space in layout tabs of site master data(wb01) in retails for the different products \merchandise category.
My aim is to see the contribution of article \Floor area in the store.
Ex- i have mobile ,tv and washing machine
now i 'll assign some area to these art(floor area)
Like 200 Sq mm for mobile ,1000for tv and 1500 for washing machine.
I want to assign in site master data so it comes automatically for every site.
Now i want to see the contribution of all these article \Floor area in the store.
Looking for your valuable suggestion.
Prashant

Nachy,
You can copy the overview iview of type workset map iview from standard ess role and give the area group name in that.
check the overview iview in the standard ess role
give application parameters as sap.xss.menuargrp=area group name&sap.xss.menuhdr=header name
Thanks
Bala Duvvuri
Edited by: Bala Duvvuri on Aug 5, 2010 7:35 AM

How to assign/unassign a finance document in sales order

Dear experts,
At billing tab at line item in sales order, a finance document (a letter of credit in this case) can be assigned. I would like to know
1. how to assign and unassign it
2. is it possible to "deactivate a letter of credit" meaning that the letter of credit (already created) cannot be assigned to SD documents.
The field "Financ.doc.no." in VA02 is disable, so it cannot be changed.
Your suggestion would be appreciated.

Hi,
1. how to assign and unassign it
If you have created a financial document in the transaction Vx11N, then you can assign that to the sales document item or to the header using that field in the billing tab. You need to have the "Paym.guar.proc." field fill before doing that.
To un-assign it, you can simple remove the value from that field, before you create a delivery / billing for that sales order line item.
2. is it possible to "deactivate a letter of credit" meaning that the letter of credit (already created) cannot be assigned to SD documents.
Yes, in the Financial document type configuration you have a configuration option to setup validity periods. During LC document creation using transaction VX11N, you can give a validity period. Based on the validity dates system will issue an error message, if you try to assign an expired LC.
If you want to see how this should be configured, check below link;
[LC|http://www.learnsaptips.com/2011/09/how-to-handle-letter-of-credit-in-sap.html]
Best regards,
Anupa

How can i bring the column heading downloaded in excel sheet?

hi all,
I am using FM SAP_CONVERT_TO_XLS_FORMAT to downloading populated internal table data into excel sheet by using filename type rlgrap-filename.
Now I need the column heading(field name) for downloaded data in excel sheet.
pls tell me how can i merge the col heading with data perfectly. Is there any FM fulfills this requirement.
pls give me a suitable approch.
Thanks
PRR

HI,
Go thru this code.
REPORT ZRMM0056 NO STANDARD PAGE HEADING
                      MESSAGE-ID ZZ
                      LINE-SIZE 300
                      LINE-COUNT 65.
Program              : ZRMM0056
Title                : Non Inventory PO's
Description          : Non Inventory Purchase Orders details with
                       Vendor and Invoice Receipts and Goods Receipts.
Input :
       Select-options : 1. G/L Account No
       Parameters      : 1.File Paths for the Excel sheet
       Others (Specify):
Output : Extract Files in the application server
       Report :
Hear Ticket #        : 113392
Created by           : Srinivas Rao.M
Created on           : 12/15/2005
Version              : 1
Request              : D10K944304
Transaction Code     : Z420
Change History                                                       *
Date         Programmer Search String   Description                 *
12/19/2005   Srinivas    D10K944316      Removed Purchasing document
                                         Company code and Plant from
                                         Select-Options and Inculded
                                         G/L Account No and changed
                                         code accordingly.
T A B L E S                                                          *
TABLES: EKBE,              " History of Purchasing Document
        EKPO,              " Purchasing Document Item
        EKKO,              " Purchasing Document Header
        LFA1,              " Vendor master (general section)
        EKKN.              " Account Assignment in Purchasing Doc
                    INTERNAL TABLES
*--Internal table to store Purchasing document header data
DATA : BEGIN OF IT_POHEADER OCCURS 0,
        EBELN LIKE EKKO-EBELN,      "Purchasing document
        AEDAT LIKE EKKO-AEDAT,      "Created on
        ERNAM LIKE EKKO-ERNAM,      "Created by
        LIFNR LIKE EKKO-LIFNR,      "Vendor
      END OF IT_POHEADER.
*--Internal table to store Purchasing document Item data
DATA : BEGIN OF IT_POITEM OCCURS 0,
        EBELN LIKE EKPO-EBELN,       "Purchasing document
        EBELP LIKE EKPO-EBELP,       "Item Number
        MATNR LIKE EKPO-MATNR,       "Material number
        BUKRS LIKE EKPO-BUKRS,       "Company code
        WERKS LIKE EKPO-WERKS,       "Plant
        MATKL LIKE EKPO-MATKL,       "Material Group
        MENGE LIKE EKPO-MENGE,       "Order Quantity
        NETPR LIKE EKPO-NETPR,       "Net Price
        PEINH LIKE EKPO-PEINH,       "Price unit
        NETWR LIKE EKPO-NETWR,       "Net Value
      END OF IT_POITEM.
*--Internal table to hold final display data.
DATA : BEGIN OF IT_FINAL OCCURS 0,
         EBELN LIKE EKKO-EBELN,       "Purchasing document
         EBELP LIKE EKPO-EBELP,       "Item Number
         AEDAT LIKE EKKO-AEDAT,       "Created on
         ERNAM LIKE EKKO-ERNAM,       "Created by
         MATNR LIKE EKPO-MATNR,       "Material number
         BUKRS LIKE EKPO-BUKRS,       "Company code
         WERKS LIKE EKPO-WERKS,       "Plant
         MATKL LIKE EKPO-MATKL,       "Material Group
         MENGE LIKE EKPO-MENGE,       "Order Quantity
         NETPR LIKE EKPO-NETPR,       "Net Price
         PEINH LIKE EKPO-PEINH,       "Price unit
         NETWR LIKE EKPO-NETWR,       "Net Value
         LIFNR LIKE EKKO-LIFNR,       "Vendor
         NAME1 LIKE LFA1-NAME1,       "Vendor Name
         GSBER LIKE EKKN-GSBER,      "Business area
*--IR details
        IR_BELNR LIKE EKBE-BELNR,     "IR-Number of Material Document
        IR_BUZEI LIKE EKBE-BUZEI,     "IR-Item in material Document
        IR_BUDAT LIKE EKBE-BUDAT,     "IR-Posting date
        IR_MENGE LIKE EKBE-MENGE,     "IR-Quantity
*--GR details
        GR_BELNR LIKE EKBE-BELNR,     "GR-Number of Material Document
        GR_BUZEI LIKE EKBE-BUZEI,     "GR-Item in material Document
        GR_BUDAT LIKE EKBE-BUDAT,     "GR-Posting date
        GR_MENGE LIKE EKBE-MENGE,     "GR-Quantity
      END OF IT_FINAL.
*--Internal table to store History per Purchasing Document data
DATA : BEGIN OF IT_HISTORY OCCURS 0,
        EBELN LIKE EKBE-EBELN,        "Purchasing document
        EBELP LIKE EKBE-EBELP,        "Item
        VGABE LIKE EKBE-VGABE,        "Trans/Event type
        BELNR LIKE EKBE-BELNR,        "Number of Material Document
        BUZEI LIKE EKBE-BUZEI,        "Item in material Document
        BUDAT LIKE EKBE-BUDAT,        "Posting date
        MENGE LIKE EKBE-MENGE,        "Quantity
        BEWTP LIKE EKBE-BEWTP,        "Posting history category
       END OF IT_HISTORY.
*--Internal table to store vendor name.
DATA : BEGIN OF IT_VENDOR OCCURS 0,
         LIFNR LIKE LFA1-LIFNR,      "Vendor Number
         NAME1 LIKE LFA1-NAME1,      "Vendor Name
       END OF IT_VENDOR.
*--Internal table to store Business area for Purchasing document
DATA : BEGIN OF IT_BUSINESS OCCURS 0,
         EBELN LIKE EKKN-EBELN,      "Purchasing document
         EBELP LIKE EKKN-EBELP,      "Purchasing Item
         SAKTO LIKE EKKN-SAKTO,      "G/L Account No
         GSBER LIKE EKKN-GSBER,      "Business area
       END OF IT_BUSINESS.
DATA : BEGIN OF FIELDNAMES OCCURS 0,
       TEXT(40),
      END OF FIELDNAMES.
                VARIABLES DECLARATION                                *
DATA: V_FILE LIKE IBIPPARMS-PATH,         "File path
       V_FLD LIKE DYNPREAD-FIELDNAME,     "Dynpread fieldname
       V_FLAG(1) VALUE SPACE.              "FLAG VARIABLE
                        SELECTION-SCREEN                             *
SELECTION-SCREEN BEGIN OF BLOCK S1 WITH FRAME TITLE TEXT-001.
*--Begin of change D10K944316
SELECT-OPTIONS : S_SAKTO FOR EKKN-SAKTO. "G/L Accoun no.
*--End of change D10K944316
SELECTION-SCREEN END OF BLOCK S1.
SELECTION-SCREEN BEGIN OF BLOCK S2 WITH FRAME TITLE TEXT-002.
PARAMETERS : P_EXCEL    AS CHECKBOX DEFAULT ' ' . " download to excel
PARAMETERS : C_FILE(128) DEFAULT : 'C:\ZRMM0056.xls'.
SELECTION-SCREEN END OF BLOCK S2.
A T   S E L E C T I O N - S C R E E N                                *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR C_FILE.
*-Form to get file path for download of data
PERFORM GET_FILE_PATH.
AT SELECTION-SCREEN.
PERFORM SCREEN_VALIDATIONS.
START-OF-SELECTION
START-OF-SELECTION.
*--Extract Purchasing document header data.
   PERFORM GET_PO_HEADER_DATA.
*--Extract Purchasing document Item data.
   IF NOT IT_BUSINESS[] IS INITIAL.
     PERFORM GET_PO_ITEM_DATA.
*--Get complete required data in final internal table
     PERFORM GET_FINAL_DATA.
   ENDIF.
END-OF-SELECTION
END-OF-SELECTION.
IF V_FLAG IS INITIAL.
*--Display Purchasing document details
    IF NOT IT_FINAL[] IS INITIAL.
       PERFORM DISPLAY_PODATA.
      IF P_EXCEL = 'X'.
*--To down load data to excel sheet
        PERFORM DOWN_LOAD_TO_EXCEL.
      ENDIF.
    ENDIF.
ELSE.
       MESSAGE I001(ZZ) WITH 'No data found'(003).
ENDIF.
TOP-OF-PAGE
TOP-OF-PAGE.
*--To display page header
PERFORM PAGE_HEADER.
*&      Form GET_PO_HEADER_DATA
      To Get Purchasing header data
FORM GET_PO_HEADER_DATA .
*--To extract Business Area details
       CLEAR IT_BUSINESS.
       REFRESH IT_BUSINESS.
        SELECT EBELN    "Purchasing document
               EBELP    "Purchasing document item
               SAKTO    "G/L Account no
               GSBER    "Business area
               FROM EKKN
               INTO TABLE IT_BUSINESS
               WHERE SAKTO IN S_SAKTO.
IF SY-SUBRC <> 0.
    V_FLAG = 'X'.
    MESSAGE I001(ZZ) WITH
    'No data selected for the given selection criteria'(004).
    STOP.
ELSE.
*--To extract Purchasing document details with respect
to G/L Account no
       CLEAR   IT_POHEADER.
       REFRESH IT_POHEADER.
       SELECT EBELN       "Purchasing document
              AEDAT       "Created on
              ERNAM       "Created by
              LIFNR       "Vendor
            FROM EKKO
            INTO TABLE IT_POHEADER
            FOR ALL ENTRIES IN IT_BUSINESS
            WHERE EBELN = IT_BUSINESS-EBELN.
         IF NOT IT_POHEADER[] IS INITIAL.
            CLEAR   IT_VENDOR.
            REFRESH IT_VENDOR.
*--Extracting Vendor details
            SELECT LIFNR   "Vendor #
                   NAME1   "Name
                 FROM LFA1
                 INTO TABLE IT_VENDOR
                 FOR ALL ENTRIES IN IT_POHEADER
                 WHERE LIFNR = IT_POHEADER-LIFNR.
        ENDIF.
ENDIF.
ENDFORM.                    " GET_PO_HEADER_DATA
*&      Form GET_PO_ITEM_DATA
      To extract Purchasing document item data
FORM GET_PO_ITEM_DATA .
CLEAR   IT_POITEM.
REFRESH IT_POITEM.
   SELECT EBELN        "Purchasing document
          EBELP        "Item Number
          MATNR        "Material number
          BUKRS        "Company code
          WERKS        "Plant
          MATKL        "Material Group
          MENGE        "Order Quantity
          NETPR        "Net Price
          PEINH        "Price unit
          NETWR        "Net Value
       FROM EKPO
       INTO TABLE IT_POITEM
       FOR ALL ENTRIES IN IT_BUSINESS
       WHERE EBELN = IT_BUSINESS-EBELN
        AND EBELP = IT_BUSINESS-EBELP.
IF NOT IT_POITEM[] IS INITIAL.
   CLEAR   IT_HISTORY.
   REFRESH IT_HISTORY.
   SELECT EBELN    "Purchasing document
          EBELP    "Item
          VGABE    "Trans/Event type
          BELNR    "Number of Material Document
          BUZEI    "Item in material Document
          BUDAT    "Posting date
          MENGE    "Quantity
          BEWTP    "Posting history category
        FROM EKBE
        INTO TABLE IT_HISTORY
        FOR ALL ENTRIES IN IT_POITEM
        WHERE EBELN = IT_POITEM-EBELN
          AND EBELP = IT_POITEM-EBELP
          AND ( VGABE = '1' OR VGABE = '2' )   "1 = GR , 2 = IR
          AND ( BEWTP = 'Q' OR BEWTP = 'E' ). "Q = GR , R = IR
   IF SY-SUBRC = 0.
     SORT IT_HISTORY BY EBELN EBELP.
   ENDIF.
ENDIF.
ENDFORM.                    " GET_PO_ITEM_DATA
*&      Form GET_FILE_PATH
      Select file path
FORM GET_FILE_PATH .
CLEAR V_FILE.
MOVE 'p_flname' TO V_FLD.
MOVE C_FILE TO V_FILE.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            PROGRAM_NAME = SYST-CPROG
            DYNPRO_NUMBER = SYST-DYNNR
            FIELD_NAME    = V_FLD
       IMPORTING
            FILE_NAME     = V_FILE
       EXCEPTIONS
            OTHERS        = 1.
MOVE V_FILE TO C_FILE.
ENDFORM.                    " GET_FILE_PATH
*&      Form PAGE_HEADER
       To Print page header and other details
FORM PAGE_HEADER .
*--Page Header
ULINE AT /1(300).
FORMAT COLOR 1.
WRITE:/ 'Run Date:'(005), SY-DATUM, 45 'Stanley Works'(006),
         100 'Page No:'(007), SY-PAGNO LEFT-JUSTIFIED, 298 ''.
WRITE:/ 'Run Time:'(008), SY-UZEIT, 43 SY-TITLE, 100 SY-UNAME, 298 ''.
WRITE:/ 'Source :'(009), SY-SYSID, 100 SY-CPROG, 298 ''.
FORMAT COLOR OFF.
ULINE AT /1(300).
FORMAT COLOR 4.
WRITE : / SY-VLINE , (10) 'Purchasing Doc'(010),
            SY-VLINE, (5) 'Item'(011),
            SY-VLINE, (10) 'Created On'(012),
            SY-VLINE, (7) 'Crea By'(013),
            SY-VLINE, (10) 'Material'(014),
            SY-VLINE, (6) 'Com cd'(015),
            SY-VLINE, (5) 'Plant'(016),
            SY-VLINE, (10) 'Mat Group'(017),
            SY-VLINE, (13) 'Order Qty'(018),
            SY-VLINE, (11) 'Net Price'(019),
            SY-VLINE, (10) 'Price Unit'(020),
            SY-VLINE, (13) 'Net Value'(021),
            SY-VLINE, (8) 'Bus Area'(022),
            SY-VLINE, (10) 'Vendor'(023),
            SY-VLINE, (28) 'Vendor Name'(024),
*--IR details
            SY-VLINE, (10) 'IR-Mat Doc'(025),
            SY-VLINE, (5) 'IR-It'(026),
            SY-VLINE, (9) 'IR-Post dt'(027),
            SY-VLINE, (13) 'IR-Quantity'(028),
*--GR details
            SY-VLINE, (10) 'GR-Mat Doc'(029),
            SY-VLINE, (5) 'GR-It'(030),
            SY-VLINE, (9) 'GR-Post dt'(031),
            SY-VLINE, (13) 'GR-Quantity'(032), SY-VLINE.
FORMAT COLOR OFF.
ULINE AT /1(300).
ENDFORM.                    " PAGE_HEADER
*&      Form SCREEN_VALIDATIONS
      Selection screen validations
FORM SCREEN_VALIDATIONS .
*--Validation for G/L Account No
IF NOT S_SAKTO IS INITIAL.
    SELECT SAKNR UP TO 1 ROWS
           INTO EKKN-SAKTO
           FROM SKA1 WHERE
           SAKNR IN S_SAKTO.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE E001(ZZ) with 'Please enter a valid G/L Account no'(048).
    ENDIF.
ENDIF.
*--Validation for Excel file path
IF P_EXCEL = 'X'.
    IF C_FILE = ' '.
      MESSAGE E001(ZZ) with 'Please enter a valid Excle Path'(035).
    ENDIF.
ENDIF.
ENDFORM.                    " SCREEN_VALIDATIONS
*&      Form DISPLAY_PODATA
      To Display Purchasing Document details
FORM DISPLAY_PODATA .
FORMAT COLOR 2.
SORT IT_FINAL BY EBELN EBELP AEDAT BUKRS WERKS.
LOOP AT IT_FINAL.
     WRITE : / SY-VLINE ,(10) IT_FINAL-EBELN,     "Purchasing Doc
               SY-VLINE, (5) IT_FINAL-EBELP,     "Item
               SY-VLINE, (10) IT_FINAL-AEDAT,     "Created On
               SY-VLINE, (7) IT_FINAL-ERNAM,      "Created By
               SY-VLINE, (10) IT_FINAL-MATNR,     "Material
               SY-VLINE, (6) IT_FINAL-BUKRS,      "Company code
               SY-VLINE, (5) IT_FINAL-WERKS,     "Plant
               SY-VLINE, (10) IT_FINAL-MATKL,     "Material Group
               SY-VLINE, (13) IT_FINAL-MENGE, "#EC UOM_IN_MES
                                                   "Order Qty
               SY-VLINE, (11) IT_FINAL-NETPR, "#EC UOM_IN_MES
                                                   "Net Price
               SY-VLINE, (10) IT_FINAL-PEINH, "#EC UOM_IN_MES
                                                   "Price Unit
               SY-VLINE, (13) IT_FINAL-NETWR, "#EC UOM_IN_MES
                                                    "Net Value
               SY-VLINE, (8) IT_FINAL-GSBER,     "Bus Area
               SY-VLINE, (10) IT_FINAL-LIFNR,     "Vendor
               SY-VLINE, (28) IT_FINAL-NAME1,     "Vendor name
*--IR details
               SY-VLINE, (10) IT_FINAL-IR_BELNR, "IR-Mat Doc
               SY-VLINE, (5) IT_FINAL-IR_BUZEI, "IR-It
               SY-VLINE, (9) IT_FINAL-IR_BUDAT,   "IR-Post dt
               SY-VLINE, (13) IT_FINAL-IR_MENGE, "#EC UOM_IN_MES
                                                    "IR-Quantity
*--GR details
               SY-VLINE, (10) IT_FINAL-GR_BELNR, "GR-Mat Doc
               SY-VLINE, (5) IT_FINAL-GR_BUZEI, "GR-It
               SY-VLINE, (9) IT_FINAL-GR_BUDAT,   "GR-Post dt
               SY-VLINE, (13) IT_FINAL-GR_MENGE, SY-VLINE.
                                                   "#EC UOM_IN_MES
                                                   "GR-Quantity
ENDLOOP.
FORMAT COLOR OFF.
ENDFORM.                    " DISPLAY_PODATA
*&      Form DOWN_LOAD_TO_EXCEL
      text
FORM DOWN_LOAD_TO_EXCEL .
<b>REFRESH FIELDNAMES.
FIELDNAMES-TEXT = TEXT-010.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-011.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-012.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Created By'(036).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-014.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Company Code'(037).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-016.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Material Group'(038).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Order Quantity'(039).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-019.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-020.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-021.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Business Area'(040).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-023.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-024.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Material Doc'(041).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Item'(042).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Posting Date'(043).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-028.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Material Doc'(044).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Item'(045).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Posting Date'(046).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-032.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
*--FM to download data to Excel sheet
CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME                = C_FILE
            FILETYPE                = 'DAT'
            TABLES
            DATA_TAB                = IT_FINAL
            FIELDNAMES              = FIELDNAMES
       EXCEPTIONS
            FILE_OPEN_ERROR         = 1
            FILE_WRITE_ERROR        = 2
            INVALID_FILESIZE        = 3
            INVALID_TABLE_WIDTH     = 4
            INVALID_TYPE            = 5
            NO_BATCH                = 6
            UNKNOWN_ERROR           = 7
            GUI_REFUSE_FILETRANSFER = 8
            OTHERS                  = 9.
IF SY-SUBRC <> 0.
     MESSAGE E001(ZZ) WITH 'Data could not downloaded'(047).
ENDIF.</b>ENDFORM.                    " DOWN_LOAD_TO_EXCEL
*&      Form GET_FINAL_DATA
      To Populate required data in final internal table
FORM GET_FINAL_DATA .
CLEAR   IT_FINAL.
REFRESH IT_FINAL.
LOOP AT IT_POITEM.
   CLEAR IT_POHEADER.
   READ TABLE IT_POHEADER WITH KEY EBELN = IT_POITEM-EBELN.
   IF SY-SUBRC = 0.
    MOVE : IT_POHEADER-EBELN TO IT_FINAL-EBELN,     "Purchasing Doc
            IT_POITEM-EBELP   TO IT_FINAL-EBELP,     "Item
            IT_POHEADER-AEDAT TO IT_FINAL-AEDAT,     "Created On
            IT_POHEADER-ERNAM TO IT_FINAL-ERNAM,     "Created By
            IT_POITEM-MATNR   TO IT_FINAL-MATNR,     "Material
            IT_POITEM-BUKRS   TO IT_FINAL-BUKRS,     "Company code
            IT_POITEM-WERKS   TO IT_FINAL-WERKS,     "Plant
            IT_POITEM-MATKL   TO IT_FINAL-MATKL,     "Material Group
            IT_POITEM-MENGE   TO IT_FINAL-MENGE,     "Order Qty
            IT_POITEM-NETPR   TO IT_FINAL-NETPR,     "Net Price
            IT_POITEM-PEINH   TO IT_FINAL-PEINH,     "Price Unit
            IT_POITEM-NETWR   TO IT_FINAL-NETWR,     "Net Value
            IT_POHEADER-LIFNR TO IT_FINAL-LIFNR.     "Vendor
*--To Insert IR details
    CLEAR IT_HISTORY.
    READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
                                   EBELP = IT_POITEM-EBELP
                                   VGABE = '2'
                                   BEWTP = 'Q'.
      IF SY-SUBRC = 0.
        MOVE :
          IT_HISTORY-BELNR TO IT_FINAL-IR_BELNR, "IR-Number of Mat Doc
          IT_HISTORY-BUZEI TO IT_FINAL-IR_BUZEI, "IR-Item in mat Doc
          IT_HISTORY-BUDAT TO IT_FINAL-IR_BUDAT, "IR-Posting date
          IT_HISTORY-BUDAT TO IT_FINAL-IR_MENGE.   "IR-Quantity
      ENDIF.
*--To insert GR details
    CLEAR IT_HISTORY.
    READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
                                   EBELP = IT_POITEM-EBELP
                                   VGABE = '1'
                                   BEWTP = 'E'.
      IF SY-SUBRC = 0.
        MOVE :
          IT_HISTORY-BELNR TO IT_FINAL-GR_BELNR, "IR-Number of Mat Doc
          IT_HISTORY-BUZEI TO IT_FINAL-GR_BUZEI, "IR-Item in mat Doc
          IT_HISTORY-BUDAT TO IT_FINAL-GR_BUDAT, "IR-Posting date
          IT_HISTORY-BUDAT TO IT_FINAL-GR_MENGE. "IR-Quantity
      ENDIF.
*--To insert Vendor details
     CLEAR IT_VENDOR.
     READ TABLE IT_VENDOR WITH KEY LIFNR = IT_POHEADER-LIFNR.
     IF SY-SUBRC = 0.
      MOVE : IT_VENDOR-NAME1 TO IT_FINAL-NAME1.
     ENDIF.
*--To insert Business area
     CLEAR IT_BUSINESS.
     READ TABLE IT_BUSINESS WITH KEY EBELN = IT_POITEM-EBELN
                                     EBELP = IT_POITEM-EBELP.
     IF SY-SUBRC = 0.
       MOVE : IT_BUSINESS-GSBER TO IT_FINAL-GSBER.
     ENDIF.
      APPEND IT_FINAL.
      CLEAR IT_FINAL.
    ENDIF.
ENDLOOP.
ENDFORM.                    " GET_FINAL_DATA
thanks
Sunil

WBS Element ( Billing element ) assignment at sales order header level

HI,
There is provision of assign WBS Element at sales order header as well as item level , If Project WBS Element is assigned for each line item delivery and stock updating is happening from the project, But WBSE will assign at sales order Header system will not allowing to create project delivery( moment type 601Q), and stock updation ftom project.
Please let me know how this will happen ,
Regards,
Gangi
Edited by: Gangi Reddy Botchu on Jul 7, 2008 4:50 PM

SPRO - SD - Billing - Billing Plan - the first 5 config nodes (Define Billing Plan types / Define Date descriptions / Assign Date categories / Maintain Date Proposals / Assign Billing Plan types to Sales Doc types) are applicable to you.
this is pretty tranparent for a reference.
What else is required?

How to assign output type and trigger printing in ABAP

hi all,
i have create invoice by using BAPI_BILLINGDOC_CREATEMULTIPLE and create header/item text with CREATE_TEXT.
please advise how to assign the output type and trigger immediate printing after this.
thanks.

Hi Reetha ,
This is a functional setting , and should be done by some functional guy. The setting can be done by NACE.
Just follow the path : NACE - > Select V3 for Billing - > Press Output type Button Just above - > Assign Output Type and
then Assign Output program and form in PROCESSING ROUTINE comes into left. Set this output type for immediate print.
Whenever You create a billing document by BAPI with this document type , the print out will be fired immediately.
Hope it will solve your problem.
Thanks.

File information -- How to retrieve file name from header variable

Hi
I am using File Adapters to read files(.xml) and then I need to perform some database operations.
One of the requirement is storing the file name read into the DB.
I searched through the forum and got the information on how to configure this in the header variable. The link below shows the same.
File Adapter
Now, I use the XSL mapper to map the source values(from input xml file) to the corresponding table column names. So how should I get the value of the file name.
I saw some of the in-built functions to be used for this but there is not enough documentation to proceed.
Can anyone please provide some solution on this.
/Kiran.

Hi,
Here are the steps that you need to do after you have declared the variable.
1) The variable that you have declared should have the following elements
a) Filename
b) Directory
2) Use the assign activity to copy the value of the filename part of this variable to the arg that needs to be passed to the database. (most probably an invoke variable).
If you still have any problems implementing this, mail me at [email protected]..and i'll send you the screen shots for the entire process.
ciao,
Gunjan

[Urgent]How to assign Payload in Payload Header.

Similar Messages

Maybe you are looking for