FB60 enhancement to validate Company Code
Hi,
I have to do the validation for Company code in Tcode FB60. The issue iam unable to get the correct enhance ment for tis.
i have tried following enhancements.
F050S001 FIDCMT, FIDCC1, FIDCC2: Edit user-defined IDoc segment
F050S002 FIDCC1: Change IDoc/do not send
F050S003 FIDCC2: Change IDoc/do not send
F050S004 FIDCMT, FIDCC1, FIDCC2: Change outbound IDoc/do not send
F050S005 FIDCMT, FIDCC1, FIDCC2 Inbound IDoc: Change FI document
F050S006 FI Outgoing IDoc: Reset Clearing in FI Document
F050S007 FIDCCH Outbound: Influence on IDoc for Document Change
F180A001 Balance Sheet Adjustment
FARC0002 Additional Checks for Archiving MM Vendor Master Data
RFAVIS01 Customer Exit for Changing Payment Advice Segment Text
RFEPOS00 Line item display: Checking of selection conditions
RFKORIEX Automatic correspondence
SAPLF051 Workflow for FI (pre-capture, release for payment)
Thanks,
Deepthi.
Hi,
My requirement is changed now.
I need to get a user exit or badi where after entering the header data and only ONE LINE ITEM data and press enter key, I should get the Header Company code and Line Item Company code in one enhnacement. I must valdate these 2 fields.
Regards,
Deepthi.
Similar Messages
-
Validate Company code entered against object F_BKPF_BUKu0096BUKRS in useru0092s rol
Validate Company code entered in the selection-screen against the object F_BKPF_BUKBUKRS in users roles.
If value entered in selection is not found in authorisation object, display error message Company code access is prohibited
can anyone explain How to write the code for this
Thank you.Hi,
there are lots of FM to get User details by just passing sy-uname.
Just search BAPI_USER* and you will get one suitable to you.
Regards,
Atish -
Problem in uploading data for multiple company code in FB60
Hi Experts,
I am uploading data to tcode FB60 using bdc. If I have say 2 records in my file with same company code,
It;s successfully posting the invoices.
But if there are records with different company code, it's posting only the first one.
Please suggest me some solution.
Thanks.
KrishanHi,
This is a njoy tcode....U have to do some settings before using the tcode....
Go to tcode FB60 and give the company code ( if it is ur first login to the tcode then only it wil ask) .then u will get the screen to enter the document number and other stuffs....
In that screen go to EDIT OPTIONS BUTTON on application tool bar on the right hand upper corner...
U will get another screen in that check the check box which says NO COMPANY CODE PROPOSAL..and click on save .....
After use this tcode for the bdc program and no error will come.
Please let me know if u have any problems...
Regards,
Rohan.
Edited by: Rohan on Feb 2, 2009 12:29 PM -
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 -
Reg plant related to a company code
hi,
i need small code for a sigle delivery number related to a copmpany code and related a plant data.for retreiving data select statement should validate company code and delivery no,delivery date alsou have to get the data from LIKP+LIPS.
Regards
Prabhu -
Workflow activation per Company Code.
Hi all.
I have developed a workflow for Blocked Invoice release using Template WS20000397.
My organisation has 4 company codes and 2 will not immediately use this developed workflow.
How can I activate this workflow to the 2 participating companies without affecting the other ones.
Points will be awarded.
Regards.Hi,
You need to create a Check functtion Module, Validate Company code in this FM.
Provide this Check Function Module in the event type linkage, SWE2 is the TCode.
Regards,
Satish -
Hi,
I have a workflow workitem which tries to call transactions FB60 and MIRO depending on whether the invoice is based on a non-PO or not. When the transaction is called, the company code screen pops up; I managed to suppress this for MIRO by explicitly specifying company code value in screen 1000 for FM DOCHEADER_COMP_CODE_WITH_POPUP - basically I did a BDC. But the same thing for some reason does not work for FB60. Does anybody have any idea why this happens or any other way in which I can suppress the company code popup?
Thanks in advance.
NandithaHi Nanditha,
Have had the same problem with FB50 from workflow, and had to solve it by doing as below. The problem appears when using 'enjoy' transactions.
The code to solve ít look like this:
SET PARAMETER ID 'BUK' FIELD E_BKPF-BUKRS.
PERFORM bdc_dynpro using 'SAPLACHD' '1000'.
PERFORM bdc_field using 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field using 'BDC_CURSOR'
'BKPF-BUKRS'.
PERFORM bdc_field using 'BKPF-BUKRS'
e_bkpf-bukrs.
Hope this will help you too!
Regards Benita Östman -
Configuration for new company code & new vendor for Invoicing(FB60)
Hi All,
i am using FB60 to create the Invoice & then using F110 for the payment for existing company codes. Now i need to do the invoice & payment for a new comapny code & new vendor . Please tell me what are the configurations, i should do so that i can do the invoice for new comapny code & new vendor.
Thanks
pabiHi,
Use tables,
1.For material MARA,MARC,MVKE,( try use t.code:MM60)
2.For vendor LFA1,LFB1 (try use t.code:MKVZ)
Regards,
Biju K -
Hi all,
When ever i am doing MIRO system is asking enter company code in initial screen.
I thought in the client it will ask first time
But it is asking frequently whenever i enter MIRO
What could be the issue ??
How to fix
Thanks
A.GururajanHi,
In FI you can force a Company Code proposal in the Enjoy transactions
(FB60) by making a setting in your editing options.
Goto FB60 - Select the editing options icon - Don't check 'No Company Code
Proposal' as default Company Code and save this setting.
Now when you go next use FB60 it will ask you to propose a Company Code.
It doesn't work with MIRO as this is not an FI transaction. Perhaps your
ABAP guys can create some sort of enhancement based on how FB60 works with
this function switched on.
You could also default the company code in the in the user settings system -
user profile - own data - Parameters.
In the parameters you put BUK = "Cocde" (here you fill in the company
code.
Award, if found useful.
Regards
Rifaie.M -
A unique company code has not been assigned to company number 1000
Dear Friends,
When I do Inter-Company Transaction thro Transaction Code FB60 it is giving me Error.
For Example: if I have 2 Company Codes - 8001 & 8002
I want to Post One Vendor Invoice
Ex:
Vendor - 301 ABC Ltd., 5000 Credit
400020 - Expenses 2000 Debit - Company Code - NGLC
(Then Debit Expenses G/L Account 460000 for Company Code NGLC1)
400020 - Expenses 3000 Debit - Company Code - 1000
(Then Debit Expenses G/L Account 460100 for Company Code 1000)
When I am going to POST it is giving me an Error please sees below.
Error Message
A unique company code has not been assigned to company number 1000
Message no. GLT0001
Diagnosis
Document breakdown is active in your system. In certain cases, a company code is derived from the company ID number, and this must lead to the assignment of a unique company code.
A unique company code could not be assigned to company number 1000.
System Response
You cannot carry out the required posting.
Procedure
Assign one company code to company number 1000.
Please tell me How to solve this issue.
Thanks in Advance,
RangaHi Ranga
Can you please check OBY6 settings (Additional details) for the co. codes, as it seems either multiple co. codes have been assinged to company number 1000 or none of the relevant co. codes have been assigned with company ID.
Regards -
Addition of a field in vendor master table at company code level
Hi Champs,
My requirement is to add a field in LFB1 table.
I have added the field in the table using append structure, that was fine.
I need to add the same for input/output on the screen 215 of program SAPMF02K (for the screen of Payment transaction Accounting at company code level).
As far as I know there are only screen enhancements for Vendor master(no screen exits). The screen enhacements are "Prepare Modification-Free Enhancement in Vendor Master Record". But using that i need to create a subscreen, but in my requirement I need to add the field on the same screen.
Is there any solution for that???
Please let me know if my doubt is not clear.
Regards,
NishantHi Krish,
I am not able to find the screen exit for my requirement.There is only screen enhancement for Vendor master.If you have any idea of the same pls let me know.
I am ok with the solution that i need to change in the standard screen using access key, but do i need to code anything in the PAI or PBO of the screen or it will be taken care automatically. Details of the program and screen is already given.
Thanks
Reagrds,
Nishant -
Document Splitting error - only for 1 company code (out of 2 company code)
Hii
We have two company codes: 1100 and 1200. Chart of accounts, chart of depreciation, controlling area are same for both the company codes. Only profit centers are different since both company codes are in two different location.
Document splitting is active in both the company code. (I have checked that node also). Also setting in ACSET (i.e. account assignment) is done for the depreciation area
When i am posting asset acquisition (F-90) and MIGO (for assets PO), its giving me error for document splitting. This error is given only for company code 1100 and not for 1200. All other transactions (including FB60) are working properly in both the company codes.
What can be error ? Is there any error in asset master creation or vendor master.
Please help.
I CHECKED IN EXPERT MODE IN SIMULATION. THEIR PROFIT CENTER IS NOT VISIBLE IN ASSET LINE ITEM. PLEASE HELP
Edited by: Deepak Agrawal on Jul 29, 2011 4:02 PMHi,
pls. write completeley which error message you get.
Kind Regards
Tarik -
Hi
I am encountering the error M8035 (" No Suitable Items found for PO ") while I am doing MIRO for the 1st time against service POs (item cat - D) in a company code.
in OMSY the period opened for the company code is : Current 06 2014 previous 05 2014
This was done because Go Live date for the new company code is 01.06.2014.
I am doing test in the test client now.
I have created a vendor on today's date
I have created a service PO on today's date (GR, GR Bsd IV, IR, Serv Bsd IV - these indicators are marked in the PO)
I have created service entry sheet on today's date (acc assignment - K, G/L a/c was determined from the Material Group maintained in the PO)
I have accepted the service entry sheet on 04.05.2014 (FI doc posted against the matl doc - KBS to WRX on 04.05.2014)
I am trying to do the MIRO in the same company code on 04.05.2014.
While I am putting the PO and its line item in MIRO item and pressing enter system shows the above info msg and nothings is appearing in MIRO item.
I have tried to do MIRO against service entry sheet also - same things happened.
I have tried selecting Goods Service Item+planned del cost in MIRO - nothing changed.
I have tried posting MIRO against a non service PO (acc assgnment K, Item cat - BLANK) after doing MIGO in the same company code in the same date- PO is appearing in that case.
FI people are able to post FB60 manually for the vendor I am using in the PO - so there is no problem in the vendor also.
I have gone through the scn post related with the topic, unfortunately none of them solved my problem.
Please help
Thanks
Sanjib...Can you post a screen shot for PO history ?
Regards
Dev -
Changing F4 help in AS01, AS02, AS03 transaction based on company code.
Hi Experts,
In the asset master transaction AS01, AS02 under tab "leasing", we have a field "Type". This field represents leasing type.
I have to modify F4 help related to this leasing type field such that for a particular company code only those leasing types which starts with letter "C" are displayed. While in all other company codes no such restriction is there.
I have tried creating enhancement point in subroutine pool "/1BCF41/T083l/" because this subroutine is called for F4 help of this field but this subroutine pool can not be enhanced.
Please propose a solution so that the requirement may be met.
Thanks,
AyazHi
Better U do some USEREXIT.....For validation according to u requirement
Regards;
Prabu -
Default SC Plant Company code and Storage location Based on Position
Hi All,
We are on version SRM 7.02.
We are using SAP ECC R/3 EHP7 based system as a back end FI and HR system.
Org structure in SRM is replicated fromm HR system.
We have case of concurrent employment in the HR org structure , which means one USER can be assigned to multiple Positions in an org structure.
We have a user A , who is created in Two different org units say O1 , O2 occupying positions P1 and P2, belonging to company code C1 and C2.
Whenever a SC is created a custom enhancement shows all the user positions to him and he has to choose one from the list of positions.
Now based on the selected position(P1) , i have to default plant(PL1), storage location(SL1) and Company code(C1).
Even after defaulting attributes based on the position, user gets an error "company code C1 is not valid for user"
This error (Message class : /SAPSRM/CLL ; # 135) is thrown from method : /SAPSRM/CL_CH_WD_DODM_SC_I_BD /SAPSRM/IF_CLL_MAPPER~UPDATE
after getting user's Company code using following method.
/sapsrm/cl_pdo_shared_user=>/sapsrm/if_pdo_shared_user~get_company_code
This gets Company code as C2 ; Based on Users Attributes and not based on User Position attributes.
If i overwrite values fetched by this method in Implicit enhancement, then plant(PL1), storage location(SL1) are not getting fetched.
Does anyone have any solution for this problem?
Regards,
Ashish ShahHi MURUGESAN !
Can you give me some information more in Special Procument Configure in plant 2000 like:
- Procurement type (maybe F)
- Special procurement (Maybe U)
- Plant (Maybe 1000).
- Issuing plant (maybe 2000)
We will check together.
Regards,
Tony
Maybe you are looking for
-
Wi-Fi Printer says it is ONLINE. computer says it is OFFLINE.
HP Photosmart 110a. Have been using it for more then a year when it stopped responding to pring requests and I get an error message saying: Printer is OFFLINE. When I conduct a Wi-Fi directly on the printer, it says I am connected to kmy network an
-
Error message in Report designer "Activate Default Theme: 0TRADESHOW"
Hi, While working in Report Designer, I repeatedly get an error message saying "Activate Default Theme: 0TRADESHOW. See Note 1071338". After following the instructions and activating this theme, the problem still persists. Anyone with a solution to t
-
F4 display of tax codes in fb60 not having alll taxcodes?
Hi All. Can anyone please address the following issue? We are mainataining tax codes say A1 and A2 for reporting Country NZ under our country AU. 1. In Miantainainace of Additional data for Company code ( via OBY6) we have the Planys Abroad selected
-
File content conversion - sender adapter for Header and detail records
Hi Experts, I am receiving a field of fixed length content format.(Header)The first line of the file will follow the structure X having some fields and (DetailRecord)subsequent lines in the file will follow structure Y having somes f
-
Hi am new to iphone programming,in the app i want the emails which are having the attachments to show when we search for particular email sent by others in a list which should return the content of the attachment.can any one help me to solve this tha