Consolidated companies "----" and "-----" are different

When this error "Consolidated companies "----" and "-----" are different" is occurred, there are two ways to solve the issue.
1 - Check the document type. If the document type does not allow the inter company transaction the this error will be initiated. You can check by OBA7.
2- If the document type used is correct, then there might be transaction which is related to do trading partner. Check your configuration and also the transaction closely.

BDC for MB1A - Post Goods Issue

Make the file txt file.
Format in the form of structure defined below in ST.

REPORT ZMB1A NO STANDARD PAGE HEADING LINE-SIZE 255.

"DECLARATION TYPES
DATA: W_FILENAME TYPE STRING.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-500.
PARAMETERS: P_FILENM LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.

"STRUCTURE
TYPES : BEGIN OF ST,
      BLDAT(10),
      BUDAT(10),
      BWARTWA(3),
      WERKS(4),
      LGORT(4),
      MATNR(18),
      ERFMG(13),
      KONTO(10),
      SGTXT(50),
      KOSTL(10),
  END OF ST.

*INTERNAL TABLE AND WORKAREA DECLARATION*
DATA : IT TYPE TABLE OF ST.
DATA : WA TYPE ST.

INCLUDE BDCRECX1.

START-OF-SELECTION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            MASK             = ',*.*,*.*.'
            MODE             = '0'
            TITLE            = 'GET FILE NAME'
       IMPORTING
            FILENAME         = P_FILENM
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.

** START OF CHANGE DCS05052003
START-OF-SELECTION.
 W_FILENAME = P_FILENM.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
**   FILENAME                    = 'C:\BDC_XLS_ASSIGN.TXT'
   FILENAME                      = W_FILENAME
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                     = IT
 EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17.

IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO.
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

PERFORM OPEN_GROUP.

LOOP AT IT INTO WA.

PERFORM BDC_DYNPRO      USING 'SAPMM07M' '0400'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'RM07M-BWARTWA'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=NPE'.
PERFORM BDC_FIELD       USING 'MKPF-BLDAT'
                              WA-BLDAT."'01.04.2016'.
PERFORM BDC_FIELD       USING 'MKPF-BUDAT'
                              WA-BUDAT."'20.07.2016'.
PERFORM BDC_FIELD       USING 'RM07M-BWARTWA'
                              WA-BWARTWA."'201'.
PERFORM BDC_FIELD       USING 'RM07M-WERKS'
                              WA-WERKS."'2000'.
PERFORM BDC_FIELD       USING 'RM07M-LGORT'
                              WA-LGORT."'2009'.
PERFORM BDC_FIELD       USING 'XFULL'
                              'X'.
PERFORM BDC_FIELD       USING 'RM07M-WVERS2'
                              'X'.
PERFORM BDC_DYNPRO      USING 'SAPMM07M' '0410'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'MSEG-SGTXT'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=BU'.
PERFORM BDC_FIELD       USING 'MSEG-MATNR'
                              WA-MATNR."'300000011'.
PERFORM BDC_FIELD       USING 'MSEG-ERFMG'
                              WA-ERFMG."'250'.
PERFORM BDC_FIELD       USING 'MSEG-WERKS'
                              WA-WERKS."'2000'.
PERFORM BDC_FIELD       USING 'MSEG-LGORT'
                              WA-LGORT."'2009'.
PERFORM BDC_FIELD       USING 'DM07M-KONTO'
                              WA-KONTO."'650999'.
PERFORM BDC_FIELD       USING 'MSEG-SGTXT'
                              WA-SGTXT."'TEST'.
PERFORM BDC_FIELD       USING 'DKACB-FMORE'
                              'X'.
PERFORM BDC_DYNPRO      USING 'SAPLKACB' '0002'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'COBL-AUFNR'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=ENTE'.
PERFORM BDC_FIELD       USING 'COBL-KOSTL'
                              WA-KOSTL."'20000'.
PERFORM BDC_TRANSACTION USING 'MB1A'.

ENDLOOP.

PERFORM CLOSE_GROUP.

Change Length of G/L account number

If you want to change the lenght of GL Account Number then

T-Code OB13,
Enter your chart of account.
Enter new entries or edit the already defined.

Version '0' is not defined for Fiscal Year XXXX

When you get the error "Version '0' is not defined for Fiscal Year XXXX".
Execute the T-Code OKEV.
Enter your Controlling Area.
Select Version 0.
Double click on "Setting for Each Fiscal Year".
Create a new entry for the fiscal year XXXX i.e. for which you are getting the error.

User exit to display Vendor Name in F110 - Payment Run in FI

When Automatic Payment Program is run (T.Code F110), the Text fields in Vendor Line should have "Payment" written and G/L Line should display the Vendor Name.

In Tcode - OBBH
Make a substitution rule with prerequisite - 
Transaction code F110 (BKPF-TCODE = F110)

Subsitiution - Exit on BSEG-SGTXT and call U903.

Go to program RGGBS000 and modify it.

Add the following code to the form get_exit_titles

EXITS-NAME = 'U903'.
EXITS-PARAM = C_EXIT_PARAM_NONE.
EXITS-TITLE = 'Vendor and G/L Line'.
APPEND EXITS. 

and

Create a form below-

FORM U903.

DATA: L_NAME TYPE LFA1-NAME1.
DATA: V_LIFNR TYPE LFA1-LIFNR.
DATA: V_BELNR TYPE BKPF-BELNR.

IF BSEG-KOART EQ 'K'.
  BSEG-SGTXT = 'PAYMENT'.
  V_LIFNR = BSEG-LIFNR.
  EXPORT V_LIFNR TO MEMORY ID 'LIFNR'.
ENDIF.

IF BSEG-KOART EQ 'S'.
  IMPORT V_LIFNR FROM MEMORY ID 'LIFNR'.
  SELECT SINGLE NAME1 INTO L_NAME FROM LFA1 WHERE
    LIFNR = V_LIFNR.
  IF SY-SUBRC = 0.
    MOVE L_NAME TO BSEG-SGTXT.
  ENDIF.
  FREE MEMORY ID 'LIFNR'.
ENDIF.

ENDFORM.                                "U903 

Message no. M8394 "Perform the planned price change for material"

When you get the below mentioned error while processing MIRO transaction.
Kindly check that standard cost is released for the material for the current period.

If not the create the standard cost document and release the cost.

Tcode - CK11
and
Tcode - CK24

Function Module for GL Account Balance as on Key Date

FUNCTION ZFI_GET_ACCOUNTS_BALANCE.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_BUKRS) TYPE  BUKRS
*"     VALUE(I_BUDAT) TYPE  BUDAT
*"     VALUE(I_HKONT) TYPE  HKONT
*"  EXPORTING
*"     VALUE(BALANCE) TYPE  DMBTR
*"----------------------------------------------------------------------
DATA : COMPANYCODEID  LIKE  BAPI0002_2-COMP_CODE     ,
         POSTING_DATE   LIKE  BAPI0002_4-POSTING_DATE  ,
         FISCAL_YEAR    LIKE  BAPI0002_4-FISCAL_YEAR   ,
         FISCAL_PERIOD  LIKE  BAPI0002_4-FISCAL_PERIOD .

DATA : ACCOUNT_BALANCES  TYPE TABLE OF BAPI3006_4 WITH HEADER LINE.
DATA : BAL TYPE BSEG-DMBTR.

DATA : IV_DATE  TYPE  D   ,
      EV_MONTH_BEGIN_DATE  TYPE  D,
      EV_MONTH_END_DATE  TYPE  D .

DATA : COMPANYCODE  LIKE  BAPI3006_0-COMP_CODE,
      GLACCT  LIKE  BAPI3006_0-GL_ACCOUNT ,
      FISCALYEAR  LIKE  BAPI3006_4-FISC_YEAR,
      CURRENCYTYPE  LIKE  BAPI3006_5-CURR_TYPE VALUE 10.

DATA : IT_BKPF TYPE TABLE OF BKPF WITH HEADER LINE.

DATA : BEGIN OF IT_BSEG OCCURS 0,
      BELNR TYPE BSEG-BELNR,
      GJAHR TYPE BSEG-GJAHR,
      SHKZG TYPE BSEG-SHKZG  ,
      DMBTR TYPE BSEG-DMBTR,
      END OF IT_BSEG.

COMPANYCODEID = I_BUKRS.
POSTING_DATE = I_BUDAT.

IV_DATE  = I_BUDAT.

CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
  EXPORTING
    IV_DATE             = IV_DATE
  IMPORTING
    EV_MONTH_BEGIN_DATE = EV_MONTH_BEGIN_DATE
    EV_MONTH_END_DATE   = EV_MONTH_END_DATE.

CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'
  EXPORTING
    COMPANYCODEID = COMPANYCODEID
    POSTING_DATE  = POSTING_DATE
  IMPORTING
    FISCAL_YEAR   = FISCAL_YEAR
    FISCAL_PERIOD = FISCAL_PERIOD.

IF EV_MONTH_END_DATE NE I_BUDAT.
  IF FISCAL_PERIOD = 1.
    FISCAL_PERIOD = 12              .
    FISCAL_YEAR = FISCAL_YEAR - 1  .
  ELSE.
    FISCAL_PERIOD =  FISCAL_PERIOD - 1.
  ENDIF.
ENDIF.

COMPANYCODE  =  I_BUKRS.
GLACCT  = I_HKONT.
FISCALYEAR  = FISCAL_YEAR.

CALL FUNCTION 'BAPI_GL_ACC_GETPERIODBALANCES'
  EXPORTING
    COMPANYCODE      = COMPANYCODE
    GLACCT           = GLACCT
    FISCALYEAR       = FISCALYEAR
    CURRENCYTYPE     = CURRENCYTYPE
  TABLES
    ACCOUNT_BALANCES = ACCOUNT_BALANCES.

READ TABLE ACCOUNT_BALANCES WITH KEY FISC_YEAR = FISCALYEAR FIS_PERIOD = FISCAL_PERIOD.
IF SY-SUBRC = 0.
  BALANCE =  ACCOUNT_BALANCES-BALANCE.
ENDIF.


IF EV_MONTH_END_DATE NE I_BUDAT.
  SELECT * FROM BKPF INTO TABLE IT_BKPF WHERE BUKRS = I_BUKRS AND BUDAT >= EV_MONTH_BEGIN_DATE
    AND BUDAT <= I_BUDAT.

    IF IT_BKPF[] IS NOT INITIAL.
      SELECT BELNR GJAHR SHKZG DMBTR
        FROM BSEG INTO CORRESPONDING FIELDS OF TABLE IT_BSEG
        FOR ALL ENTRIES IN IT_BKPF
        WHERE BELNR = IT_BKPF-BELNR AND GJAHR = IT_BKPF-GJAHR AND HKONT = I_HKONT AND BUKRS = I_BUKRS.
    ENDIF.

    LOOP AT IT_BSEG.
      IF IT_BSEG-SHKZG = 'H'.
        BAL = BAL - IT_BSEG-DMBTR.
      ELSEIF IT_BSEG-SHKZG = 'S'.
        BAL = BAL + IT_BSEG-DMBTR.
      ENDIF.
    ENDLOOP.
  BALANCE = BALANCE + BAL.
ENDIF.

ENDFUNCTION.