Create a company code in SAP ERP system
I. Company code là gì
Company code tương ứng với 1 công ty độc lập, là một đơn vị kế toán nhỏ nhất trong 1 tổ chức, 1 tập đoàn, là một thực thể pháp nhân có trách nhiệm tạo ra báo cáo tài chính của cá nhân mình để nộp cho các cơ quan công quyền theo quy định của pháp luật.VD. Bộ tài chính quy định, đến ngày 31/3 hàng năm là hạn chót để các doanh nghiệp nộp hồ sơ quyết toán thuế cho cơ quan thuế.
- Báo cáo tài chính gồm 4 loại cơ bản :
- Bảng cân đối kế toán: Balance sheet (B/S)
- Báo cáo kết quả hoạt động kinh doanh: Profit and Loss (P/L)
- Báo cáo lưu chuyển tiền tệ : Cash Flow
- Bảng thuyết minh báo cáo tài chính
II. Cách tạo company code trong hệ thông SAP-ERP
Path: SPRO -> Enterprise -> Definition -> Financial Accounting -> Edit, Copy, Delete, Check Company code
Step 2. Click on one of tow option to create, update or delete company code
Here, I have selected "Edit company code data" because I had a company code.
Then, this is my company code with name as below.
Step 3. In Addtional data update about address
Như vậy t đã tạo xong company code.
* Trong các báo cáo tài chính do Bộ tài chính Việt Nam ban hành, luôn có mục yêu cầu điền đầy đủ thông tin liên quan đến công ty như dưới đây.
Vậy khi viết Basic Design, chúng ta cần phải biết chính xác những thông tin của company code ở bảng nào để lấy chính xác .
- Table T001. Company code
- ADRC: Address
Key: ADRC-ADDRNUMBER = T001-ADRNR
REPORT ZEVETN_S001 MESSAGE-ID Z004.
TYPES:
BEGIN OF TY_DOC,
BUKRS TYPE BKPF-BUKRS, "CC
BELNR TYPE BKPF-BELNR, "Doc no
GJHAR TYPE BKPF-GJAHR, "Fiscal year
BLART TYPE BKPF-BLART, "Doc type
BLDAT TYPE BKPF-BLDAT, "Doc date
BUDAT TYPE BKPF-BUDAT, "Posting date
BUZEI TYPE BSEG-BUZEI, "Line item
HKONT TYPE BSEG-HKONT, "G/L acct
END OF TY_DOC.
DATA: WA_DOC TYPE TY_DOC,
IT_DOC TYPE STANDARD TABLE OF TY_DOC,
WA_BKPF TYPE BKPF,
WA_T001 TYPE T001.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_BUKRS TYPE BKPF-BUKRS, "CC
P_BELNR TYPE BKPF-BELNR, "Doc no
P_GJAHR TYPE BKPF-GJAHR. "Fiscal year
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
P_BUKRS = 'SACN'.
AT SELECTION-SCREEN.
IF P_BUKRS IS INITIAL.
MESSAGE E002.
ELSE.
CALL FUNCTION 'WCB_T001_SINGLE_READ'
EXPORTING
I_BUKRS = P_BUKRS
IMPORTING
E_T001 = WA_T001
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE E001 WITH P_BUKRS.
ENDIF.
ENDIF.
IF P_BELNR IS INITIAL.
MESSAGE 'Ban chua nhap so chung tu ke toan' TYPE 'E'.
ELSE.
IF P_GJAHR IS INITIAL.
MESSAGE 'Ban phai nhap nam tai chinh' TYPE 'E'.
ELSE.
CALL FUNCTION 'READ_BKPF'
EXPORTING
XBELNR = P_BELNR
XBUKRS = P_BUKRS
XGJAHR = P_GJAHR
* NO_AUTH_CHECK = ' '
IMPORTING
XBKPF = WA_BKPF
EXCEPTIONS
KEY_INCOMPLETE = 1
NOT_AUTHORIZED = 2
NOT_FOUND = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
* MESSAGE'So chung tu xxx ke toan khong ton tai trong company code yyy' TYPE 'E'.
MESSAGE E000 WITH P_BELNR P_BUKRS.
ENDIF.
ENDIF.
ENDIF.
START-OF-SELECTION.
SELECT
BKPF~BUKRS
BKPF~BELNR
BKPF~GJAHR
BKPF~BLART
BKPF~BLDAT
BKPF~BUDAT
BSEG~BUZEI
BSEG~HKONT
FROM BKPF INNER JOIN BSEG
ON BKPF~BUKRS = BSEG~BUKRS
AND BKPF~BELNR = BSEG~BELNR
AND BKPF~GJAHR = BSEG~GJAHR
INTO TABLE IT_DOC
WHERE BKPF~BUKRS = P_BUKRS
AND BKPF~BELNR = P_BELNR
AND BKPF~GJAHR = P_GJAHR.
BREAK-POINT.
TYPES:
BEGIN OF TY_DOC,
BUKRS TYPE BKPF-BUKRS, "CC
BELNR TYPE BKPF-BELNR, "Doc no
GJHAR TYPE BKPF-GJAHR, "Fiscal year
BLART TYPE BKPF-BLART, "Doc type
BLDAT TYPE BKPF-BLDAT, "Doc date
BUDAT TYPE BKPF-BUDAT, "Posting date
BUZEI TYPE BSEG-BUZEI, "Line item
HKONT TYPE BSEG-HKONT, "G/L acct
END OF TY_DOC.
DATA: WA_DOC TYPE TY_DOC,
IT_DOC TYPE STANDARD TABLE OF TY_DOC,
WA_BKPF TYPE BKPF,
WA_T001 TYPE T001.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_BUKRS TYPE BKPF-BUKRS, "CC
P_BELNR TYPE BKPF-BELNR, "Doc no
P_GJAHR TYPE BKPF-GJAHR. "Fiscal year
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
P_BUKRS = 'SACN'.
AT SELECTION-SCREEN.
IF P_BUKRS IS INITIAL.
MESSAGE E002.
ELSE.
CALL FUNCTION 'WCB_T001_SINGLE_READ'
EXPORTING
I_BUKRS = P_BUKRS
IMPORTING
E_T001 = WA_T001
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE E001 WITH P_BUKRS.
ENDIF.
ENDIF.
IF P_BELNR IS INITIAL.
MESSAGE 'Ban chua nhap so chung tu ke toan' TYPE 'E'.
ELSE.
IF P_GJAHR IS INITIAL.
MESSAGE 'Ban phai nhap nam tai chinh' TYPE 'E'.
ELSE.
CALL FUNCTION 'READ_BKPF'
EXPORTING
XBELNR = P_BELNR
XBUKRS = P_BUKRS
XGJAHR = P_GJAHR
* NO_AUTH_CHECK = ' '
IMPORTING
XBKPF = WA_BKPF
EXCEPTIONS
KEY_INCOMPLETE = 1
NOT_AUTHORIZED = 2
NOT_FOUND = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
* MESSAGE'So chung tu xxx ke toan khong ton tai trong company code yyy' TYPE 'E'.
MESSAGE E000 WITH P_BELNR P_BUKRS.
ENDIF.
ENDIF.
ENDIF.
START-OF-SELECTION.
SELECT
BKPF~BUKRS
BKPF~BELNR
BKPF~GJAHR
BKPF~BLART
BKPF~BLDAT
BKPF~BUDAT
BSEG~BUZEI
BSEG~HKONT
FROM BKPF INNER JOIN BSEG
ON BKPF~BUKRS = BSEG~BUKRS
AND BKPF~BELNR = BSEG~BELNR
AND BKPF~GJAHR = BSEG~GJAHR
INTO TABLE IT_DOC
WHERE BKPF~BUKRS = P_BUKRS
AND BKPF~BELNR = P_BELNR
AND BKPF~GJAHR = P_GJAHR.
BREAK-POINT.
Comments
Post a Comment