Company Code Determination from Sales Organization

HI,
Is there any function Module or BAPI to find out the Company Code from Slaes Organization in ECC system.
Regards,
Satya.

Hi Animesh
The easiest way to see how the company code is determined in Intercompany billing is
to run VF01 and check the logic for your case here in LV60AA93:
Main Program     SAPLV60A
Source code of   LV60AA93
form VBRK_VBRP_FUELLEN
Setzen Buchungskreis
  vbrk-bukrs = vbak-bukrs_vf.
  IF vbrk-bukrs IS INITIAL.
    vbrk-bukrs = tvko-bukrs.
  ENDIF.
  IF vbrk-vbtyp CA vbtyp_fkiv.
    CLEAR: vbrk-stceg_l,
           vbrk-landtx,
           vbrk-xegdr.
  ENDIF.
  IF vbrk-vbtyp CA vbtyp_fkiv AND
     t001k-bukrs NE space.
    vbrk-bukrs = t001k-bukrs.
  ENDIF.
  PERFORM t001_lesen USING vbrk-bukrs rc.
Kind regards
Brian

Similar Messages

  • STO-Within same company code and same sales organisation

    hi freinds
    i need steps for STO Within same company code and same sales organisation "xyz" with different plant "X " and  " Y"
    with regards
    dinesh

    Hi,
    Sales organization is linked to sending plant. It does not matter if receiving plant is using the same or different sales organization. The setup from sending plant is independent from that.
    As for the STO standard setup, I suggest you search SDN first. Below example link.
    STO setup article link:
    http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/c05e2251-91f0-2c10-4e91-e919468e4687
    Regards,
    Dominik Modrzejewski

  • Extend customer to multiple company codes and mutliple sales organisations

    Hi,
    Customers with only general info. are getting created from CRM system to SAP ECC. Now we extend the same customer to differnt company codes and different sales organisations.
    When I checked the BADI, CUSTOMER ADDDATA, in this S_KNA1, S_KNB1, S_KNVV structures are there only. So is it possible to extend it to mutiple company codes at the same time.
    It is mostly appreciated for early response.
    Thanks,

    Hi,
    You can use fm SD_CUSTOMER_MAINTAIN_ALL to extend customer to sales are and company code.
    Using this fm you can maintain all customer master data.

  • Changes of the ZIP Code for the sales organization

    Hi All,
    I have done the changes of the ZIP Code for the sales organization by using the t code ovx5  the change of zip code in adress but when i rechek the changes in the order acknowledgement output there i can see the old zip code only.
    Please help me how to make the change the zip code to SO, so that i can view that in output.
    need to update pls help..
    Thanks for help
    Raj.

    Hiii
    Check weather your developer hardcode the sales organization pin code: else check the logic weathe Sales org Pin Code is getting from following logic. Go to table TVKO and put ur sales org number in VKORG field  then execute
    Get the ADRNR number and pass the same in ADRC table and get the POST_CODE1 as pin code number (give same logic to your abaper)
    Regards
    Shambhu Sarkar

  • How the Company Code determination happens in the SAP CRM

    Hi,
    Friends ,
    How the Company Code determination happens in the  SAP CRM ?
    Regards,
    VCS

    Hi VCS,
    company code is determined in the following ways,
    Sales org created in CRM is linked to Sales org in ECC, where it is diretly linked to Company code in ECC.
    Secondly, Billing units in CRM are assgned to CC, you can see this under Master data-> Cross system org units-> Biling units to CC
    Regards,
    Seshu

  • Change the company code in a sales-order

    Our client is working only with one sales org 1000 assigned to one company code 1000 but having 14 other company codes and also having different plants which are individually assinged to different company codes at the clients requirment and to only one sales organisation.
    While creating sales order in sales area (1000/10/10) system have picked 1000 company code in the sales order header table VBAK, based on this combination there are several SO's created in which  the company code picked is wrong. We need to update the sale order correctly with corresponding company code as per business requirment.
    Please suggest with a report or the process of update\ion of sales orders.
    Thank you in advence.
    Shravan.

    Shravan.
    This is not a SAP standard practice.
    So, you need to create a program to create another sales order (and choose a correct sales area).
    Leonardo Rocha

  • I want to create org data profile in service scenario, with price determination from sales org, distribution centre , can any one help me with these

    i want to create org data profile in service scenario, with price determination from sales org, distribution centre , can any one help me with these
    IF I CREATE SERVICE ORG WITH SERVICE SCENARIO ORG DATA PROFILE,
    MY PRICING IS NOT GETTING DETERMINED AS IT IS LINKED TO SALES ORG AND DISTRIBUTION CHANNEL THROUGH PRICING DETERMINATION SO HOW TO DO THE CUSTOMIZATION FOR THIS SITUATION
    WITH REGARDS,
    SATHISH

    Hi Satish,
    Please assign the org det. rules to org det. profile with Sales and Service scenarios and then assign the org. det. profile to transaction type. The below screenshot is just for your reference.
    Hope it would fix your issue.
    Regards,

  • Retreive company code data  from t001k and plants from t001w based on bwkey

    here is my sample code pls.
      pls look into the  perform <b>PERFORM F_GET_COMPANY_CODE</b>.
    and also the link between the tables (custom) like ysda_exp_prtlog,
         Purpose:  The Monthly export declaration summarizes all SAD     *
                   export documents produced by the system. For each     *
                   plant in France this declaration has to be handed to  *
                   the Customs Authorities, together with copies of all  *
                   invoices mentioned in the report.                     *
         Preds/Successors : -                                            *
         External Datasets: -                                            *
         INCLUDE PROGRAM  : YYSDFORM                                     *
           MODIFICATION LOG
    Date  | Change Number | Initials | Description
    *01/10/03| G9DK943416    | AXJIRAP  | INITIAL PROGRAM                  *
    *03/10/03| G9DK943416    | TXHONGP  | CREATE PRINT-PROGRAM FOR ACCELIO *
    *26/10/03| G9DK943416    | KXSAWAS  | Merge all Accelio forms into one *
    *02/02/04| G9DK959869    | KXSAWAS  | Bug fix for Intercompany invoice *
           |               |          | and updating printing no. in     *
           |               |          | YSDA_DOC_NUMBER.
    *09/02/04| G9DK960368    | KXSAWAS  | TICKET AM6219029 various fix     *
           | G9DK960972    | KXUMNAUY | -Add yuei for download file      *
           | G9DK961073    |          | -Calculate invoice in case       *
           | G9DK961190    |          |  invoce is not yet made          *
           | G9DK961211    |          | -Fixed message type when there is*
           |               |          | no data found                    *
    *18/02/04| G9DK961418    | PXSOPHO  | -Shift the position in download  *
           |               |          | file
    *26/02/04| G9DK962077    | kxumnauy | TICKET AM6219029 various fix     *
           | G9DK962238    |          | TICKET AM6289971 fix export file *
           | G9DK962271    |          |
    *18/03/04| G9DK963806    | PXSOPHO  | TICKET AM6442955,AM6384438
           | G9DK964432    |          | - print only 4 chars of the
           | G9DK964590    |          | export procedure                 *
           |               | KXUMNAUY | - Fix internal report
           |               | KXSAWAS  | - Fix invoice currency to EUR.
           |               |          | - Fix SUASUNIC probelm when
           |               |          |   download file
    *09/06/04| G9DK968994    | KXUMNAUY |TICKET AM6789203
           | G9DK969188    |          |- Fix box 4 to print the department
           | G9DK969246    |          |code(first 2 char of the postal)
           | G9DK969319    |          |- Fix to print all invoice numbers
           | G9DK969345    |          |reported in the section 3
           | G9DK969466    |          |- Fix in case invoice currency is
           |               |          |not EUR, use local currency from
           |               |          |accounting document
           |               |          |- Fix in case there are different
           |               |          |codes are loaded on one truck
           |               |          |- Fix the invoice amount in column
           |               |          |27 has to be the amount relating to
           |               |          |the line item
           |               |          |- Fix the issue that Pro forma
           |               |          |invoice for STO (ZF8)shouldn't be
           |               |          |counted to be the final Interco
           |               |          |invoice
    *20/08/04| G9DK972875    | KXUMNAUY |AM7387219
           | G9DK973032    |          |-Exclude samples from the internal
           |               |          |sections 1 and 2
           |               |          |-Data pages: Column 11. When the
           |               |          |invoice amount is less then 1.000
           |               |          |EUR and the quantity is less then.
           |               |          |1.000 then "******" (6 x *) has to
           |               |          |be printed
    *07/02/05| G9DK983160    | RXBOONG  |AM8522207
           | G9DK983168    |          |Fix download to unix file
    *17/08/06| G9DK9A02DZ    | NKONGNG  |AM1983727:
           | G9DK9A02IK    |          |-do not show sample orders
           |               |          | (order type “FD” or ”ZFD”)
           |               |          |AM2985407:
           |               |          |-skip all “T2L*” documents
    *15/12/06| G9DK9A05GB    | ZZPWANA  | AM10208238
           |               | The Monthly Export Declaration for plant FR95
           |               | is showing invoice amounts in SGD in column
           |               | 27, where amounts in EUR should be shown. As
           |               | the amounts are labeled as EUR in column 26
           |               | this is unacceptable.The second issue is that
           |               | there are no invoice numbers shown in column
           |               | REM.
           |               | >> ZZPWANA:AM10208238:G9DK9A05GB <<
           |               | >> ZZPWANA:AM10208238:G9DK9A05GJ <<
    *05/02/07| G9BK900812    | PPATTAN  |AM10687113
           | G9DK9A0661    |          |Correction to the Monthly Export
           |               |          |Declaration – alpha character to
           |               |          |numeric field
           |               |
    *09/07/07| G9DK9A09ND    |VSRKODA   Replace plant with companycode,add
                                      new  column plant ,add new logic to
                                      verify that we had received *  *
                                      BAEcOMPLETE RESPONSE (fROM FC)
                                      for all the export transactions
    REPORT YSDF5092 LINE-SIZE   310
                    LINE-COUNT   65
                    NO STANDARD PAGE HEADING
                    MESSAGE-ID YSD_GENERAL.
         INCLUDE PROGRAM FOR ACCELIO                                     *
    INCLUDE YYSDFORM.    "Include for Accelio Print Process
    INCLUDE YSDF006B_INCLUDE.
         T A B L E S                                                     *
    TABLES: NAST.
         T Y P E S                                                       *
    TYPES : BEGIN OF TY_RAW,
              WERKS LIKE YSDA_EXP_PRTLOG-YY_PLANT,
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
              BWKEY  LIKE  YSDA_EXP_PRTLOG-YY_PLANT,
              VALUE_FROM  LIKE  YCACEDI-VALUE_FROM,
    *<-- End of G9DK9A09ND
              HEADER_SHT LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
              INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,  "G9DK962238
              PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
              PRINT_TIME LIKE YSDA_EXP_PRTLOG-YY_PRINT_TIME,
              DOCUMENT_CODE LIKE YSDA_EXP_PRTLOG-YY_DOCUMENT_CODE,
              HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
              DELIVERY LIKE YSDA_EXP_PRTLOG-YY_DELIVERY,
              INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
              EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
              CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
             INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO, "G9DK962238
              EXTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_EXTERNAL_NO,
              COMMODITY LIKE YSDA_EXP_PRTLOG-YY_COMMODITY,
              REPORT_FLAG LIKE YSDA_EXP_PRTLOG-YY_REPORT_FLAG,  "G9DK962077
            END OF TY_RAW.
    TYPES : BEGIN OF TY_DATA,
              HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
              INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
              PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
              ZOLLA LIKE EIKP-ZOLLA,
              STGBE LIKE EIKP-STGBE,
              EXPVZ LIKE EIKP-EXPVZ,
              CONTA LIKE EIKP-CONTA,
              IEVER LIKE EIKP-IEVER,
              PDEST LIKE KNA1-LAND1,
              1DEST LIKE KNA1-LAND1,
              COMMODITY LIKE YSDA_EXP_PRTLOG-YY_COMMODITY,
              STATISTIC TYPE I,
              LFIMG LIKE LIPS-LFIMG,
              L15 TYPE I,
              REGFI(2),
              CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
              INVOICE_AMT TYPE I,
              ZDELN LIKE VBRK-VBELN,
              LIVRE(4),
              EXPRF LIKE EIPO-EXPRF,
              EXART LIKE EIPO-EXART,
              NTGEW LIKE LIKP-NTGEW,
              YY_SEQTAXNO LIKE VBRK-YY_SEQTAXNO,                "G9DK959869
            END OF TY_DATA.
    TYPES : BEGIN OF TY_HEADER,
              HEADER_SHT LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
              HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
              PRINT_NO LIKE YSDA_DOC_NUMBER-YY_PRINT_NO,
              WERKS LIKE T001W-WERKS,
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
              BUKRS  LIKE T001K-BUKRS,
              BWKEY  LIKE  T001K-BWKEY,
              VALUE_FROM LIKE YCACEDI-VALUE_FROM,
    *<-- End of G9DK9A09ND
              NAME1 LIKE T001W-NAME1,
              COM_NAME LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              POST_LOC LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              CUST_OFFICE LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              POST_CODE LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              DATE(25),
              ETAB LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              NO_SIREN LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              TEXT2 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              TEXT5 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              TEXT7A LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              TEXT7B LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
              TEXT8 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
            END OF TY_HEADER.
    TYPES : BEGIN OF TY_DELIVERY,
              VBELN LIKE LIKP-VBELN,
              POSNR LIKE LIPS-POSNR,                            "G9DK961190
              VBUND  LIKE LIKP-VBUND,
              LFIMG LIKE LIPS-LFIMG,
              MEINS LIKE LIPS-MEINS,
              EXNUM LIKE LIKP-EXNUM,
              KUNNR LIKE LIKP-KUNNR,
              KUNAG LIKE LIKP-KUNAG,
              L15 LIKE LIPS-LFIMG,
              WADAT_IST LIKE LIKP-WADAT_IST,
              LDDAT LIKE LIKP-LDDAT,
              NTGEW LIKE LIKP-NTGEW,
              MATNR LIKE MARA-MATNR,
              VRKME LIKE LIPS-VRKME,                            "G9DK960368
              VGBEL LIKE LIPS-VGBEL,                            "G9DK961190
              VGPOS LIKE LIPS-VGPOS,                            "G9DK961190
              UECHA LIKE LIPS-UECHA,                            "G9DK961190
            END OF TY_DELIVERY.
    TYPES : BEGIN OF TY_INVOICE,
              ZDELN LIKE VBRK-VBELN,
              NETWR LIKE VBRK-NETWR,
              WAERK LIKE VBRK-WAERK,
              KURRF LIKE VBRK-KURRF,
              FKIMG LIKE VBRP-FKIMG,
              VRKME LIKE VBRP-VRKME,
            END OF TY_INVOICE.
    TYPES : BEGIN OF TY_INVOICE_TEMP,
              ZDELN LIKE VBRK-VBELN,
              FKART LIKE VBRK-FKART,
              YY_SEQTAXNO LIKE VBRK-YY_SEQTAXNO,
            END OF TY_INVOICE_TEMP.
    TYPES : BEGIN OF TY_EXPORT,
              EXNUM LIKE EIKP-EXNUM,
              ZOLLA LIKE EIKP-ZOLLA,
              STGBE LIKE EIKP-STGBE,
              EXPVZ LIKE EIKP-EXPVZ,
              CONTA LIKE EIKP-CONTA,
              IEVER LIKE EIKP-IEVER,
              EXPRF LIKE EIPO-EXPRF,
              EXART LIKE EIPO-EXART,
              EXPOS LIKE EIPO-EXPOS,                            "G9DK961190
              STAWN LIKE EIPO-STAWN,                            "G9DK961190
            END OF TY_EXPORT.
    TYPES : BEGIN OF TY_HFILE,
              POS1(8),
              POS2(4),
              POS3(2),
              POS4,
              POS5(8),
              POS6(4),
              POS7(14),
              POS8(20),
              POS9(20),
              POS10(20),
              POS11(8),
            END OF TY_HFILE.
    TYPES : BEGIN OF TY_DFILE,
             pos1(18),                                        "G9DK961418
             POS1(19),                                        "G9DK961418
              POS1(18),                                         "G9DK962238
              POS2(4),
              POS3(8),
              POS4(6),
              POS5(6),
              POS5A(4),
              POS6(9),
              POS6A(5),                                         "G9DK962238
              POS7(5),
              POS8(5),
              POS8A(22),
              POS9,
              POS10,
              POS11,
              POS12,
              POS13(5),
              POS13A,
              POS14(13),
              POS14A(31),
              POS15(2),
              POS16(2),
              POS16A(3),
              POS17(4),
              POS17A(3),
              POS18(3),
              POS18A(9),                                        "G9DK962238
              POS19,
              POS20(11),
              POS21(11),
              POS22(10),
              POS23(10),
              POS23A(40),
              POS24(4),
              POS25(3),
              POS26,
              POS26A,
              POS27,
              POS28(3),
              POS29,
            END OF TY_DFILE,
            BEGIN OF TY_TVKO,                                   "G9DK959869
              VKORG     LIKE TVKO-VKORG,                        "G9DK959869
              BUKRS     LIKE TVKO-BUKRS,                        "G9DK959869
              KUNNR     LIKE TVKO-KUNNR,                        "G9DK959869
            END OF TY_TVKO.                                     "G9DK959869
         D A T A                                                         *
    DATA: GV_CUST_NUM LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
          GV_SIREN LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
          GV_REP_NO LIKE YSDA_DOC_NUMBER-YY_PRINT_NO,
          GV_SEQ_NO TYPE I VALUE 0,
          GV_PRNTER     LIKE TSP01-RQDEST,      "Printer Name
          GV_DATE(8)   TYPE C,       "DATE
          GV_MONTH(2)  TYPE C,       "MONTH
          GV_DAY(2)    TYPE C,       "DAY
          GV_YEAR(4)   TYPE C,       "YEAR
          GV_ADD1(30)  TYPE C,       "TEXT-SIMBOL H01A
          GV_ADD2(30)  TYPE C,       "TEXT-SIMBOL H01B
          GV_COUNT     TYPE I,       "COUNT SEQUENCE
          GV_SEQUENCE(5) TYPE C,     "SEQUENCE
          GV_COPYNO    TYPE C,       "NUMBER OF COPY
          GV_DATETEMP(10)  TYPE C,   "DATE
          GV_SECTIONPAGE(2)   TYPE C,   "NO. OF PAGE IN SECTION
          GV_ITEM             TYPE I,   "NO. OF ITEM
          GV_EUR       LIKE VBRK-WAERK VALUE 'EUR',
          GV_INVOICE_NO       LIKE VBRK-VBELN,                  "G9DK959869
          GV_INVOICE_INTERCOM LIKE VBRK-VBELN,                  "G9DK959869
          GV_PRO_FORMA_STO    LIKE VBRK-VBELN,                  "G9DK969466
          GV_TEXT46           LIKE YSDA_DOC_FIXTEXT-YY_TEXT.    "G9DK959869
         C O N S T A N T S                                               *
    CONSTANTS: GC_M VALUE 'M',
               GC_J VALUE 'J',
               GC_C VALUE 'C',
               GC_D VALUE 'D',
               GC_E VALUE 'E',
               GC_F VALUE 'F',
               GC_U VALUE 'U',
               GC_X VALUE 'X',
               GC_0 VALUE '0',
               GC_2 VALUE '2',
               GC_3 VALUE '3',
               GC_MEXP(4) VALUE 'MEXP',
               GC_ZAAD(4) VALUE 'ZAAD',
               GC_ZSAD(4) VALUE 'ZSAD',
               GC_CY(2) VALUE 'CY',
               GC_M1(2) VALUE 'M1',
               GC_M2(2) VALUE 'M2',
               GC_M4(2) VALUE 'M4',
               GC_M5(2) VALUE 'M5',
               GC_M6(2) VALUE 'M6',
               GC_M7(2) VALUE 'M7',
               GC_M8(2) VALUE 'M8',
               GC_M9(2) VALUE 'M9',
               GC_C3(2) VALUE 'C3',
               GC_00(2) VALUE '00',
               GC_C1(2) VALUE 'C1',
               GC_C2(2) VALUE 'C2',
               GC_SI(2) VALUE 'SI',
               GC_N1(2) VALUE 'N1',
               GC_N2(2) VALUE 'N2',
               GC_FR(2) VALUE 'FR',
               GC_EN(2) VALUE 'EN',
               GC_TON LIKE T006-MSEHI VALUE 'TO',
               GC_L15 LIKE T006-MSEHI VALUE 'L15',
               GC_GRWR(4) VALUE 'GRWR',
               GC_SAISUNIC(8) VALUE 'SAISUNIC',
               GC_000000(6) VALUE '000000',
              GC_1 VALUE '1',                                 "G9BK900812
               GC_1 LIKE PLFH-MGVGW VALUE '1',                  "G9BK900812
               GC_DOT(1) VALUE '.',
               GC_TYP_EU(3)  TYPE C VALUE 'EU ',
               GC_TYP_EX(3)  TYPE C VALUE 'EX ',
               GC_TYP_COM(3) TYPE C VALUE 'COM',
               GC_BIS(3)     TYPE C VALUE 'BIS',
               GC_EUR(3)     TYPE C VALUE 'EUR',
               GC_IV(2)      TYPE C VALUE 'IV',
               GC_ZTDR(4)    TYPE C VALUE 'ZTDR',
               GC_ZF8(3)     TYPE C VALUE 'ZF8',
               GC_ZIV(3)     TYPE C VALUE 'ZIV',
               GC_FALSE(1)   TYPE C VALUE ' ',                 "yuie
               GC_STRUCT(31) TYPE C VALUE 'DATA',              "yuie
               GC_TOTAL TYPE VTXTM VALUE 'TOTAL NET UNIT PRICE',"G9DK960368
            GC_INTER_PERCENT TYPE VTXTM VALUE 'Inter-company %'."G9DK960368
         I N T E R N A L  T A B L E S                                    *
    DATA: BEGIN OF IT_DOC OCCURS 0,
            VBELN LIKE LIKP-VBELN,
            FKART LIKE VBRK-FKART,
            ERDAT LIKE VBFA-ERDAT,
            ERZET LIKE VBFA-ERZET,
            ZDELN LIKE VBRK-VBELN,
          END OF IT_DOC,
          BEGIN OF IT_VBRK OCCURS 0,
            ZDELN LIKE VBRK-VBELN,
          END OF IT_VBRK,
          BEGIN OF IT_SALES OCCURS 0,
            VBELN LIKE LIKP-VBELN,
            VBELV LIKE VBAK-VBELN,     "Order Number
            AUART LIKE VBAK-AUART,
            KNUMV LIKE VBAK-KNUMV,
            KALSM LIKE VBAK-KALSM,                              "G9DK960368
            WAERK LIKE VBAK-KALSM,                              "G9DK960368
            KNUMA LIKE VBAK-KNUMA,                              "G9DK960368
          END OF IT_SALES,
    *--> begin of G9DK961190 kxumnauy 13 feb 2004
          BEGIN OF IT_VBAP OCCURS 0,
             VBELN   LIKE  VBAK-VBELN,           " Sale doc.
             POSNR   LIKE  VBAP-POSNR,           " Sales document item
             KNUMV   LIKE  VBAK-KNUMV,           " No. of the document cond.
             KALSM   LIKE VBAK-KALSM,
             WAERK   LIKE VBAK-KALSM,
             KNUMA   LIKE VBAK-KNUMA,
          END OF IT_VBAP,
    *<-- end of G9DK961190
          BEGIN OF IT_KSCHL OCCURS 0,
            KNUMV LIKE KONV-KNUMV,
            KBETR LIKE KONV-KBETR,
            WAERS LIKE KONV-WAERS,                              "G9DK960368
          END OF IT_KSCHL,
          BEGIN OF IT_VBKD OCCURS 0,
            VBELV LIKE VBAK-VBELN,
            INCO1 LIKE VBKD-INCO1,
          END OF IT_VBKD,
          BEGIN OF IT_COUNTRY OCCURS 0,
            KUNNR LIKE KNA1-KUNNR,
            LAND1 LIKE KNA1-LAND1,
          END OF IT_COUNTRY,
          BEGIN OF IT_CNO OCCURS 0,
            HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
            INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
            PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
            INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
            CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
    *-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
            PLANT    LIKE YSDA_EXP_PRTLOG-YY_PLANT,
    *<--End of  G9DK9A09ND
          END OF IT_CNO,
          BEGIN OF IT_LNO OCCURS 0,
            HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
            INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
            PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
            INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
            CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
    *-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
            PLANT    LIKE YSDA_EXP_PRTLOG-YY_PLANT,
    *<--End of  G9DK9A09ND
           END OF IT_LNO,
          BEGIN OF IT_LINV OCCURS 0,
            HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
            INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
            PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
            INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
            CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
    *-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
            PLANT    LIKE YSDA_EXP_PRTLOG-YY_PLANT,
    *<--End of  G9DK9A09ND
            EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
            LFIMG LIKE LIPS-LFIMG,
            ZDELN LIKE VBRK-YY_SEQTAXNO,
          END OF IT_LINV,
          BEGIN OF IT_DIFF OCCURS 0,
            HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
            VBELV LIKE VBAK-VBELN,
            INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
            PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
            INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
            CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
    *-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
            PLANT    LIKE YSDA_EXP_PRTLOG-YY_PLANT,
    *<--End of  G9DK9A09ND
            EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
            LFIMG LIKE LIPS-LFIMG,
            NETWR LIKE VBRK-NETWR,
            WAERK LIKE VBRK-WAERK,
            KURRF LIKE VBRK-KURRF,
            FKIMG LIKE VBRP-FKIMG,
            ZDELN LIKE VBRK-YY_SEQTAXNO,
          END OF IT_DIFF.
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
    Data :Begin  of it_t001k occurs 0,
          bwkey  like t001k-bwkey,
          bukrs   like t001k-bukrs,
          werks   like t001w-werks,
        end of it_t001k.
    TABLES: T001W.
    Data :Begin  of it_t001w occurS 0,
          bwkey  like t001w-bwkey,
         werks   like t001w-werks,
        end of it_t001w.
    *<-- End of G9DK9A09ND
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
    DATA: BEGIN OF IT_SIREN OCCURS 0,
          VALUE_FROM  LIKE YCACEDI-VALUE_FROM,
          MESTYP  LIKE  YCACEDI-MESTYP,
          DIRECT   LIKE YCACEDI-MESTYP,
          ORG_LEVEL  LIKE YCACEDI-ORG_LEVEL,
          ORG_VALUE  LIKE YCACEDI-ORG_VALUE,
          FIELDNAME  LIKE YCACEDI-FIELDNAME,
        END OF IT_SIREN.
    *<-- End of G9DK9A09ND
    *--> Begin of G9DK959869 KXSAWAS 02/02/2004
    DATA: BEGIN OF IT_ORDER OCCURS 0,
            VBELN LIKE VBAK-VBELN,        " Order no.
            VKORG LIKE VBAK-VKORG,        " Sale Org. of order
          END OF IT_ORDER,
          BEGIN OF WA_T001W,
            WERKS  LIKE   T001W-WERKS,    " Plant
            BUKRS  LIKE   T001K-BUKRS,
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
            BWKEY  LIKE   T001K-BWKEY,
    *<-- End of G9DK9A09ND
            VKORG  LIKE   T001W-VKORG,    " Sale Org. of plant
            COUNC  LIKE   T001W-COUNC,    " Country code
            LAND1  LIKE   T001W-LAND1,    "
            ADRNR  LIKE   T001W-ADRNR,
            ORT01  LIKE   T001W-ORT01,
          END OF WA_T001W,
          BEGIN OF IT_LIKP OCCURS 0,
            VBELN  LIKE LIKP-VBELN,        " Delivery
            VKORG  LIKE LIKP-VKORG,        " Sale organization
            KUNNR  LIKE LIKP-KUNNR,        " Ship-to party
            INCO1  LIKE LIKP-INCO1,        " Incoterm part1
            INCO2  LIKE LIKP-INCO2,        " Incoterm part2
          END OF IT_LIKP.
    *<-- End of G9DK959869
    DATA: IT_RAW TYPE TABLE OF TY_RAW WITH HEADER LINE,
          IT_DATA TYPE TABLE OF TY_DATA WITH HEADER LINE,
          IT_EXPORT TYPE TABLE OF TY_EXPORT WITH HEADER LINE,
          IT_DELIVERY TYPE TABLE OF TY_DELIVERY WITH HEADER LINE,
          IT_INVOICE TYPE TABLE OF TY_INVOICE WITH HEADER LINE,
          IT_FILE TYPE TABLE OF TY_DFILE WITH HEADER LINE,
          IT_HEADER TYPE TABLE OF TY_HEADER WITH HEADER LINE,
          IT_SELTAB TYPE TABLE OF RSPARAMS WITH HEADER LINE,
          IT_INVOICE_TEMP TYPE TABLE OF TY_INVOICE_TEMP WITH HEADER LINE,
          IT_TVKO_ORDER   TYPE TABLE OF TY_TVKO WITH HEADER LINE,"G9DK959869
          IT_DEL TYPE TABLE OF TY_DELIVERY WITH HEADER LINE.    "G9DK960368
    *--> Begin of G9DK960368 KXSAWAS 05/02/2004
    DATA: BEGIN OF YUIE_ITAB OCCURS 0,
           RECID(31),
           DATA(1024).
    DATA: END   OF YUIE_ITAB.
    TYPE-POOLS: YUIEX.
    *DATA : it_komv2     LIKE komv   OCCURS 0 WITH HEADER LINE. "G9DK961190
    *<-- End of G9DK960368
    *Begin of G9DK964590 kxumnauy 30 mar 2003
    DATA: BEGIN OF KEY_ZBAT01,
            MANDT           TYPE ZBAT01-MANDT,
            REPID           TYPE ZBAT01-REPID,
            FUNCT           TYPE ZBAT01-FUNCT,
          END OF KEY_ZBAT01.
    *End of G9DK964590
    *--> Begin of G9DK968994 kxumnauy
    DATA: BEGIN OF IT_INVOICE_ITEM OCCURS 0,
            VBELN LIKE VBRP-VBELN,
            POSNR LIKE VBRP-POSNR,
            NETWR LIKE VBRP-NETWR,
            VGBEL LIKE VBRP-VGBEL,
            VGPOS LIKE VBRP-VGPOS,
            MATNR LIKE VBRP-MATNR,
             fkimg LIKE VBRP-fkimg,               "G9DK969188
             vrkme LIKE VBRP-vrkme,               "G9DK969188
            ntgew LIKE VBRP-ntgew,                              "G9DK969188
            gewei LIKE VBRP-gewei,                              "G9DK969188
          END OF IT_INVOICE_ITEM.
    *<-- End of G9DK968994
    RANGES: S_LAST FOR SY-DATUM,
            S_PERIOD FOR SY-DATUM.
         W O R K A R E A S                                               *
    DATA: WA_RAW TYPE TY_RAW,
          WA_DATA TYPE TY_DATA,
          WA_EXPORT TYPE TY_EXPORT,
          WA_DOC LIKE IT_DOC,
          WA_SALES LIKE IT_SALES,
          WA_SALES1 LIKE IT_SALES,                              "G9DK972875
          WA_KSCHL LIKE IT_KSCHL,
          WA_VBKD LIKE IT_VBKD,
          WA_COUNTRY LIKE IT_COUNTRY,
          WA_DELIVERY TYPE TY_DELIVERY,
          WA_INVOICE TYPE TY_INVOICE,
          WA_LINV LIKE IT_LINV,
          WA_CNO LIKE IT_CNO,
          WA_LNO LIKE IT_LNO,
          WA_DIFF LIKE IT_DIFF,
          WA_HEADER TYPE TY_HEADER,
          WA_VBRK LIKE IT_VBRK,
          WA_FILE TYPE TY_DFILE,
          WA_HFILE TYPE TY_HFILE,
          WA_SELTAB TYPE RSPARAMS,
          WA_INVOICE_TEMP TYPE TY_INVOICE_TEMP,
          WA_TVKO_PLANT TYPE TY_TVKO,                           "G9DK959869
          WA_LIKP       LIKE IT_LIKP,                           "G9DK959869
          WA_DEL        LIKE IT_DELIVERY,                       "G9DK960368
          WA_KOMK       LIKE KOMK,                              "G9DK960368
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
          WA_T001K     LIKE T001K.
    *<-- End of G9DK9A09ND
         S E L E C T   -   O P T I O N S   /   P A R A M E T E R S       *
    SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-001.
    *Begin of change  VSRKODA
    PARAMETERS: P_BUKRS LIKE T001K-BUKRS,
               S_WERKS LIKE T001W-WERKS,
    *end of change   VSRKODA
                P_MNR LIKE T247-MNR,
                P_YEAR LIKE VBRK-GJAHR.
    SELECT-OPTIONS:   S_WERKS  FOR T001W-WERKS.
    PARAMETERS: P_PRNTER  LIKE TSP01-RQDEST.  "Printer Name
              p_file AS CHECKBOX.                            "yuie
    SELECTION-SCREEN END OF BLOCK SCR1.
    *--> Begin of G9DK960368 KXSAWAS 05/02/2004
    *--- Comment out ---
    *SELECTION-SCREEN BEGIN OF BLOCK b2
                   WITH FRAME TITLE text-t01.
    *PARAMETERS:     p_fname LIKE rlgrap-filename .
    *SELECTION-SCREEN END OF BLOCK b2.
    SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T01.
    PARAMETERS: P_FILE AS CHECKBOX.
    PARAMETERS: P_FNAME   TYPE EPSFILNAM LOWER CASE,  "interface UNIX file
                P_SPATH   TYPE EPSDIRNAM DEFAULT
                '/opt/mobil/batch/gem/other/common/data/' LOWER CASE.
    SELECTION-SCREEN END OF BLOCK B2.
    SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-T03.
    PARAMETERS: P_INTID    TYPE YINT_IDS     DEFAULT 'DCG_REPORT',
                P_SUBID    TYPE YINT_SUB_IDS DEFAULT 'MAIN'.
    SELECTION-SCREEN END OF BLOCK B3.
    *<-- End of G9DK960368
    AT SELECTION SCREEN
    AT SELECTION-SCREEN.
    To validate the data that user entered in the selection screen
      PERFORM F_VALIDATE_DATA.
      PERFORM F_GET_COMPANY_CODE.
         I N I T I A L I Z A T I O N                                     *
    INITIALIZATION.
      P_MNR = SY-DATUM+4(2).
      P_YEAR = SY-DATUM+0(4).
    *--> Begin of G9DK960368 KXSAWAS 05/02/2004
    *---Set default unix file name yuie
      CONCATENATE 'DCG_SAISUNIC' SY-UNAME
                INTO P_FNAME
                SEPARATED BY '_'.
    *<-- End of G9DK960368
         B E G I N - O F - S E L E C T I O N                             *
    START-OF-SELECTION.
      GV_PRNTER = P_PRNTER.
      PERFORM F_INIT_PERIOD.
      PERFORM F_GET_CURRENT_REPORT_NUMBER.
    PERFORM F_GET_COMPANY_CODE.
      PERFORM F_EXTRACT_RAW_DATA.
      PERFORM F_PROCESS_DATA.
      IF SY-BATCH EQ GC_X.
        PERFORM F_UPDATE_REPORT_NUMBER.
      ENDIF.
    END-OF-SELECTION.
      IF NOT ( IT_HEADER[] IS INITIAL AND IT_DATA[] IS INITIAL AND
                  IT_CNO[] IS INITIAL AND IT_LNO[]  IS INITIAL AND
                IT_LINV[] IS INITIAL AND IT_DIFF[] IS INITIAL ).
        PERFORM F_PRINT_ACCELIO.
      ELSE.
        MESSAGE ID 'YM' TYPE 'I' NUMBER '032'                   "G9DK961073
            WITH 'No data found for entered criteria'(E01).
        EXIT.
      ENDIF.
    *If run by batch job print invoice
      IF SY-BATCH EQ GC_X.
        PERFORM F_PRINT_INVOICE.
      ENDIF.
         B E G I N  O F  F O R M                                         *
    *&      Form  F_INIT_PERIOD
          Period
    FORM F_INIT_PERIOD.
      DATA: LV_FIRST LIKE SY-DATUM,
            LV_CURRENT LIKE SY-DATUM,
            LV_LAST LIKE SY-DATUM,
            LV_DTEMP_FIRST(12) TYPE C,
            LV_DTEMP_LAST(12) TYPE C.
      LV_FIRST+0(4) = P_YEAR.
      LV_FIRST+4(2) = P_MNR.
      LV_FIRST+6(2) = '01'.
    LAST DAY OF CURRENT MONTH
      CALL FUNCTION 'LAST_DAY_OF_MONTHS'
           EXPORTING
                DAY_IN            = LV_FIRST
           IMPORTING
                LAST_DAY_OF_MONTH = LV_CURRENT
           EXCEPTIONS
                DAY_IN_NO_DATE    = 1
                OTHERS            = 2.
      IF SY-SUBRC = 0.
        IF P_MNR < '2'.
          LV_FIRST+0(4) = P_YEAR - 1.
          LV_FIRST+4(2) = '12'.
          LV_FIRST+6(2) = '01'.
        ELSE.
          LV_FIRST+0(4) = P_YEAR.
          LV_FIRST+4(2) = P_MNR - 1.
          LV_FIRST+6(2) = '01'.
        ENDIF.
      LAST DAY OF LAST MONTH
        CALL FUNCTION 'LAST_DAY_OF_MONTHS'
             EXPORTING
                  DAY_IN            = LV_FIRST
             IMPORTING
                  LAST_DAY_OF_MONTH = LV_LAST
             EXCEPTIONS
                  DAY_IN_NO_DATE    = 1
                  OTHERS            = 2.
        IF SY-SUBRC = 0.
          LV_FIRST = '20040101'.                                "G9DK973032
    LAST MONTH
          S_LAST-SIGN = 'I'.
          S_LAST-OPTION = 'BT'.
          S_LAST-LOW = LV_FIRST.
          S_LAST-HIGH = LV_LAST.
          APPEND S_LAST.
    LAST MONTH AND CURRENT MONTH
          S_PERIOD-SIGN = 'I'.
          S_PERIOD-OPTION = 'BT'.
          S_PERIOD-LOW = LV_FIRST.
          S_PERIOD-HIGH = LV_CURRENT.
          APPEND S_PERIOD.
        ENDIF.
      ENDIF.
    ENDFORM.                    " F_INIT_PERIOD
    *&      Form  F_GET_CURRENT_REPORT_NUMBER
          Get current Seq. no. from YSDA_DOC_NUMBER
    FORM F_GET_CURRENT_REPORT_NUMBER.
      DATA: LV_RC LIKE SY-SUBRC.
      CHECK SY-BATCH = GC_X.
      DO 3 TIMES.
        PERFORM F_LOCK_OBJECT CHANGING LV_RC.
        IF LV_RC <> 0.
          PERFORM F_WAIT.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
      IF LV_RC <> 0.
        PERFORM F_UNLOCK_OBJECT.
        PERFORM F_LOCK_OBJECT CHANGING LV_RC.
      ENDIF.
      SELECT SINGLE YY_PRINT_NO
        INTO GV_REP_NO
        FROM YSDA_DOC_NUMBER
    *-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
        where yy_plant  = P_WERKS
    *<-- End of G9DK9A09ND
       WHERE YY_PLANT IN S_WERKS
        AND YY_YEAR = P_YEAR
         AND YY_DOCUMENT_CODE = GC_MEXP.
    *--> Begin of G9DK959869 KXSAWAS 02/02/2004
      IF SY-BATCH = GC_X.
        GV_REP_NO = GV_REP_NO + 1.
      ELSE.
        GV_REP_NO = 0.
      ENDIF.
    *<-- End of G9DK959869
    ENDFORM.                    " F_GET_CURRENT_REPORT_NUMBER
    *&      Form  F_GET_COMPANY_CODE
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_COMPANY_CODE.
    CLEAR: it_t001k-bwkey.
    Validate input data against master table of SAP
    Validate company code  against T001k
      IF NOT P_BUKRS IS INITIAL.
        SELECT  T001K~BUKRS
                T001K~BWKEY
                T001W~WERKS
          INTO CORRESPONDING FIELDS OF TABLE IT_T001K
          FROM T001K
      INNER JOIN T001W ON T001W~BWKEY = T001K~BWKEY
          WHERE  BUKRS = P_BUKRS
          AND WERKS IN S_WERKS.
         APPEND IT_T001K.
         select t001kbukrs t001kbwkey t001w~werks
         into corresponding fields of table itab
            from t001w
                  inner join t001k
                      on t001kbwkey = t001wbwkey.
        LOOP AT IT_T001K.
       it_t001k-bwkey = it_t001w-werks.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " F_GET_COMPANY_CODE
    *&      Form  F_EXTRACT_RAW_DATA
          Extract entries from YSDA_EXP_PRTLOG
    FORM F_EXTRACT_RAW_DATA.
      SELECT YY_PLANT
             YY_HEADER_TYP
             YY_INTERNAL_NO
             YY_PRINT_DATE
             YY_PRINT_TIME
             YY_DOCUMENT_CODE
             YY_HEADER_TYP
             YY_DELIVERY
             YY_INVOICE_AMT
             YY_EX_RATE
             YY_CURRENCY
            YY_INTERNAL_NO                  "G9DK962238
             YY_EXTERNAL_NO
             YY_COMMODITY
             YY_REPORT_FLAG                                     "G9DK962077
        INTO corresponding fields of TABLE IT_RAW
        FROM YSDA_EXP_PRTLOG
      WHERE YY_PLANT IN S_WERKS
    **-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
        where yy_plant  = s_werks
    **<-- End of G9DK9A09ND
        and  YY_PRINT_DATE IN S_PERIOD+
         AND YY_REPORT_FLAG <> 'X'                              "G9DK973032
         AND YY_HEADER_TYP <> 'T2L'                           "G9DK9A02DZ
         AND YY_ANNULATION <> 'X'.
    *If run by batch job
    *--> Begin of G9DK959869 KXSAWAS 02/02/2004
    *--- Comment out ---
    IF sy-batch EQ gc_x.
       IF NOT it_raw[] IS INITIAL.
         LOOP AT it_raw.
    **Update YY_REPORT_FLAG EQ 'X'
           UPDATE ysda_exp_prtlog SET yy_report_flag = gc_x
                         WHERE yy_plant  = p_werks
                         AND   yy_print_date = it_raw-print_date
                         AND   yy_print_time = it_raw-print_time
                         AND   yy_document_code = it_raw-document_code.
         ENDLOOP.
       ENDIF.
    ENDIF.
    *<-- End of G9DK959869
      LOOP AT IT_RAW.
        IT_RAW-HEADER_SHT = IT_RAW-HEADER_SHT+0(3).
        MODIFY IT_RAW.
      ENDLOOP.
      SORT IT_RAW BY WERKS HEADER_SHT INTERNAL_NO               "G9DK962271
      PRINT_DATE.                                               "G9DK962238
    ENDFORM.                    " F_EXTRACT_RAW_DATA
    *&      Form  F_PROCESS_DATA
          Extract all required data
    FORM F_PROCESS_DATA.
      PERFORM F_EXTRACT_DOC_FLOW.
      PERFORM F_EXTRACT_INCO_TERM.
      PERFORM F_EXTRACT_DELIVERY_DATA.
      PERFORM F_EXTRACT_INVOICE_DATA.
      PERFORM F_EXTRACT_EXPORT_DATA.
      PERFORM F_EXTRACT_HEADER_DATA.
      PERFORM F_EXTRACT_COMPANY.                                "G9DK959869
      PERFORM F_CLASSIFY_DATA.
    ENDFORM.                    " F_PROCESS_DATA
    *&      Form  F_EXTRACT_DOC_FLOW
          Extract Sale data
    FORM F_EXTRACT_DOC_FLOW.
      IF NOT IT_RAW[] IS INITIAL.
        SELECT VBELV
               VBTYP_N
               ERDAT
               ERZET
               VBELN
          INTO TABLE IT_DOC
          FROM VBFA
          FOR ALL ENTRIES IN IT_RAW
         WHERE VBELV = IT_RAW-DELIVERY
          AND ( VBTYP_N = 'M'
             OR VBTYP_N = '5' ).
        SELECT A~VBELN
               A~VBELV
               B~AUART
               B~KNUMV
               B~KALSM                                          "G9DK960368
               B~WAERK                                          "G9DK960368
               B~KNUMA                                          "G9DK960368
          INTO TABLE IT_SALES
          FROM VBFA AS A INNER JOIN VBAK AS B
            ON AVBELV = BVBELN
          FOR ALL ENTRIES IN IT_RAW
         WHERE A~VBELN = IT_RAW-DELIVERY
           AND A~VBTYP_N = GC_J.
      ENDIF.
      SORT IT_SALES BY VBELN VBELV.
      DELETE ADJACENT DUPLICATES FROM IT_SALES COMPARING ALL FIELDS.
      SORT IT_DOC BY VBELN ASCENDING
                     FKART ASCENDING
                     ERDAT DESCENDING
                     ERZET DESCENDING.
      DELETE ADJACENT DUPLICATES FROM IT_DOC COMPARING ALL FIELDS.
      IF NOT IT_SALES[] IS INITIAL.
        SELECT KNUMV
               KBETR
               WAERS                                            "G9DK960368
          INTO TABLE IT_KSCHL
          FROM KONV
          FOR ALL ENTRIES IN IT_SALES
         WHERE KNUMV = IT_SALES-KNUMV
           AND KSCHL = GC_GRWR.
      ENDIF.
      SORT IT_KSCHL BY KNUMV.
    ENDFORM.                    " F_EXTRACT_DOC_FLOW
    *&      Form  F_EXTRACT_INCO_TERM
          Extract inco term
    FORM F_EXTRACT_INCO_TERM.
      IF NOT IT_SALES[] IS INITIAL.
        SELECT VBELN
      

    What's wrong with F_GET_COMPANY_CODE ?  Below is similar code - try running this and seeing what you get:
    report zlocal_jc_t001w.
    tables:
      t001k,     "Valuation area
      t001w.     "Plants/Branches
    parameters:
      p_bukrs          like t001k-bukrs default '1000'.
    select-options:
      s_werks          for t001w-werks.
    start-of-selection.
      perform get_data.
    *&      Form  get_data
    form get_data.
      data:
        begin of gt_t001k occurs 10,
          bukrs             like t001k-bukrs,
          bwkey             like t001k-bwkey,
          werks             like t001w-werks,
        end of gt_t001k.
      select
        t001k~bukrs
        t001k~bwkey
        t001w~werks
        into corresponding fields of table gt_t001k
        from t001k as t001k
        inner join t001w as t001w on t001w~bwkey = t001k~bwkey
        where t001k~bukrs = p_bukrs
        and   t001w~werks in s_werks.
      loop at gt_t001k.
        write: /
          gt_t001k-bukrs,
          gt_t001k-bwkey,
          gt_t001k-werks.
      endloop.
    endform.                    "get_data
    As for links to locally defined database tables, that will depend on what the keys defined in SE11 are e.g. there will be a primary key plus relationships to other tables (for example "WERKS LIKE YSDA_EXP_PRTLOG-YY_PLANT" indicates YY_PLANT relates to T001W).
    Jonathan

  • Sales from sales organization,0362 dist.chan. 02,plant OMNM are not defined

    Hey All,
    I'm facing an issue when creating an order and trying to input a material on it.
    I'm receiving the above error when I try to insert this material...the material is extended to that combination and also the customer I'm using is created for that sales area. (div. 09).
    Is there something else I should check?
    Tks in advance!
    Andre

    Hi
    In- img-enterprise structure -assignment-sales and distribution
    Assign sales org and distribution channel to plant
    Here you have to check whether your plant OMNM is assigned to the combination of sales organization 0362 dist.chan 02 in the activity assign sales org and distribution channel to plant
    Also check whether the delivering plant is maintained in sales org data 1 of MMR
    Also some other important checks
    1.Check whether your customer and materials are created in the correct sales areas
    2.T code VOR1 common distribution channels
    3.T code VOR2 common divisions
    4.T code OVAO combine sales orgs
    5.T code OVAM combine distribution channels
    6.T code OVAN combine divisions
    7.T code OVAZ assign sales order types to sales areas
    After all these checks please log off from SAP for a minute and the relog and test with a fresh order
    Regards
    Raja
    Note please close the threads wherever possible

  • Tax Code determination in Sales Order

    Hi Friends,
    I have typical Business requirement.  For my client having a two systems - Legacy system & SAP ECC system.  Every time Sales Order is created in Legacy system and the same is replicated into SAP ECC.
    During the replication, Tax code also derived from Legacy to SAP ECC.  If the Tax Code is coming from Legacy to SAP ECC, system should take Tax code of Legacy by overiding the Tax code determining in SAP ECC.
    In short word, if Tax Code is deriving from Legacy, system should not derive the tax code from SAP ECC.
    Please help
    Regards
    Goutham

    Hi Goutham,
    Please follow the procedure.
    1. tax code convertion table is maintained in SAP ECC system.
        example if A1 is the tax code in legacy system and Z1 is the tax code in SAP ECC system. maintain conversition table in SAP ECC system.
    2. if you want to use the same tax code in both system and display in the sales order, then first you have to add a tax code field in the VBAK table , second how the SAP ECC system recongnise the tax code logic you have to write in a receiving port of the idoc.
    thanks
    Kuntla

  • Org determination from Sales area

    Guys,
    Here's the scenario..we have downloaded all Org structure from R/3. I need the sales org, sales office & group to be determined from the sales area maintained in the BP master data. Currently all BP's have only one Sales Area assigned.
    The structure looks like this ..
    XY10 - Sales Org Unit
       XA01 - Sales Office
            XG01 - Sales Group
            XG02 - Sales Group
    I have checked all of them as Object Permitted in determination. (well if I don't ..then they are not available for selection while maintaining sales area data for BP). I am using the standard Rule '10000144' (Sales area Inc Master Data'). the problem is automatic Determination is failing because its proposing all the Sales offices & sales group as well for Sales Org.
    How do I make it to select the one Sales Org only? the same determination should also work when I create and replicate a Sales order from R/3.
    Another issue. When I did a consistency check(For Obj permitted in determination) for the Sales office(XA01), I get a error "Attribute IS_SA_ORG can only be assigned once within the assignment hierarchy".
    Any suggestions on how to overcome the above issues?
    (Note: I am already aware of the buffer update report 'HRBCI_ATTRIBUTES_BUFFER_UPDATE' and I run it every time I make any change.)
    Thanks,
    Reddy

    Guys,
    I have created my own rule and it works sucsessully. i still have the consistency check for one of the Sales Office.
    Here's my new problem. When I download the sales order from R/3, it determines the Sales Org but is unable to determine Org unit. (If you look in Org tab of sales order, the Sales Org & Org Unit are two different fields). I looked at the log and found that for some reason its finding more than one Org unit!
    I tried to create a new Order in CRM with the same BP and the rule works perfectly and only one org unit is found. So for some reason the rule evaluation fails for downloaded orders
    Is there any note or setting that I am missing?
    Would appreciate any help in this regard.

  • Emp. Responsible Determination From Service Organization To Comp Transn

    Hi Experts,
    Can you tell me how to determine the Employee Responsible Partner Function from Service Organization to Complaint Transaction.
    The Scenario is we are not maintaing Emp Res for BP, rather we are maintaining the Emp. Res ( Ex Service Tec ) for a particular Service Org. When ever we are creating a Complaint we will enter BP ID of Sold to party and with that all other Partner functions can be determined. But I want to determine the Emp Res from the Org Unit which the customer has been assigned.
    Currently I am working on 6.O Version. 
    Can u pls help me in fixing this issue its Urgent!!
    regards,
    Sarangamath
    Hi Experts ,
    Can you help me in this issue!!
    Edited by: Sarangamath on Dec 20, 2011 12:16 PM

    Hi,
    If i understand correctly you want to determine the Exe service tech as the employee responsible in the transaction based on the service org determined in the transaction.
    In practice, generally the service order are created by the user who is responsible for it, so the user himself is the employee responsible.
    However you can built your own logic in COM_PARTNER_BADI by creating a new Z access sequence and assigning it to the employee responsible partner function. You need to read the position of the service org and determine the BP assigned to that position from various tables.
    Regards,
    PP

  • Populating company code data from 02LIS_03_BX ??

    Hi,
    I am trying to load data from 02LIS_03_BX,02LIS_03_BF,02LIS_03_UM thru Custom ODS to Custom Cube
    We did nt enhance any of the extractors.
    02LIS_03_BF,02LIS_03_UM  has company code from the Datasource going to ODS to cube.
    I want to populate the comp code from BX too .
    02LIS_03_BX has BURKS in the extract structure but nt available in the datasource.
    How to populate the Company code from 02LIS_03_BX  ??
    I know that 02LIS_03_BX brings the data from stock tables ( MARC, MARD).
    From one of the SAP Notes, i get the following
    Enhancement possibilities for 2LIS_03_BX:
    Note that the 2LIS_03_BX DataSource cannot be extended in the
    same way as the 2LIS_03_BF DataSource, for example.
    Only SAP can enhance this DataSource (Note 684789).
    Can anybody throw some light on this ?
    I wanted to load Comp code data from BX/UM/UF all three to ODS-->Cube
    Thanks a lot
    BWQ

    Hi BWQ
    I think that you cannot update company code from 2lis_03_BX
    In the update rules put inicial value; and update the information from the other datasources.
    The datasource 2lis_03_BX is only for create  a balance from the inventory.
    Hope its help
    Greetings
    Monica

  • Company name determined from the e-mail id???

    Hi,
    I read from the following blog that the company names are determined from the e-mail ids given in the business card.
    /people/eddy.declercq/blog/2006/06/30/the-firm
    Wouldnt it be better to get it from the URL of the company mentioned in the business card? What happens if i use my personal e-mail id for receiving my SDN mails?
    Thanks,
    Prasath N

    In that case their points are not applied to their company whole and when the new changes come out they would not be listed as part of that company.
    There are other possibilities we are looking into but any that provide for user input has the inherient problem that someone is going to type if different that you are,
    Company Name: ABC Technologies, Inc.
    Company Name: ABC Technologies
    Company Name: ABC
    Company Name: ABC Technologies Inc
    Company Name: ABC Technologies Inc.
    So what do we do cut it down to "ABC" and take all of that?
    Company Name: ABC WorldWide Distributions
    Opps now we have another problem.
    Email is not easier:
    [email protected]
    [email protected]
    [email protected]
    [email protected]
    Those all work too.
    The way we are doing it now is still riddled with the problems that people use their "local" email instead of the global company one or even worse they have no global company one and only local ones so for the company with 120 people spread across 4 countries they all show up under 4 different companies.
    So for now if you use a yahoo, gmail, hotmail, etc. you don't get listed and when the changes come out you won't show up under your company name as being part of the contribution of that company.
    My question out to all of you is why do you not use your company mail address? You can also set a mail agent to forward your mail to your private account when you go home in the evening.

  • Error in Account Determination. Sales organization

    Hi All,
    I received an error in my billing document. The error is:
    1.  Error in account determination: table T030K key IFXO MWS P2
    2.  Document 9317283268 saved (error in account determination)
    3.  Doc. 9317258720 G/L account 69466400 requires a valid tax code.
    by the way GL 69466400 its tax code is '+'.
    I hope you could help me guys
    Thanks in advance.
    John.

    Hiya
    If you GL account istax specific, then do the below:
    In Account assignment for Tax postings - please check whether you have maintained an account
    Go to OB40 --> Input ur chart of accounts --> check for the Transaction MWS, with Description of 'Output Tax'  --> Assign a GL account to this
    If you GL account is NOT tax specific, in FS00 for the GL account, under the control tab in GL master - take out the entry from the field 'Tax Category' and leave it blank
    Hope this helps ya
    Rukshana

Maybe you are looking for