
BKPF-BUKRS = 'XXXX' AND ( SYST-TCODE = 'F-53' OR
SYST-TCODE = 'F-58' OR SYST-TCODE = 'F110' OR
SYST-TCODE = 'FBCJ' OR SYST-TCODE = 'FB50' OR
SYST-TCODE = 'FB01' )
IF bseg-shkzg EQ 'H'.
IF bseg-hkont IS NOT INITIAL.
bb_hkont = bseg-hkont.
bb1_hkont = bseg-hkont.
CALL FUNCTION 'GET_CURRENT_YEAR'
EXPORTING
bukrs = 'XXXX'
date = bkpf-bldat
IMPORTING
* CURRM =
curry = bb_gjahr
* PREVM =
* PREVY =
.
SHIFT bb1_hkont LEFT DELETING LEADING '0'.
SELECT SINGLE zdesc FROM zfiparam INTO lv_zdesc WHERE zparameter1 = bb1_hkont.
IF sy-subrc EQ 0.
SELECT * FROM zfiparam INTO TABLE it_zfiparam WHERE zdesc EQ lv_zdesc.
IF sy-subrc EQ 0.
SELECT SINGLE zdesc1 FROM zfiparam INTO lv_zdesc1 WHERE zparameter1 = bb1_hkont.
DELETE it_zfiparam WHERE zdesc1 NE lv_zdesc1.
LOOP AT it_zfiparam INTO wa_zfiparam.
* IF open_balold IS INITIAL.
temp = wa_zfiparam-zparameter2.
open_balold = open_balold + temp.
CLEAR temp.
* ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
IF it_zfiparam IS NOT INITIAL.
LOOP AT it_zfiparam INTO wa_zfiparam.
* Use tables like ska1, t042iy, t012, t028b etc., and get link accounts.
* get balances using following FM summ it up inside loop.
CALL FUNCTION 'BAPI_GL_GETGLACCPERIODBALANCES'
EXPORTING
companycode = bkpf-bukrs
glacct = bb_hkont
fiscalyear = bb_gjahr
currencytype = '10'
* IMPORTING
* BALANCE_CARRIED_FORWARD =
* RETURN =
TABLES
account_balances = bb_open_bal.
open_bal = open_bal + open_balcur.
endloop.
IF lvaban = 'X'.
IF ( open_bal + open_balold - bseg-dmbtr ) LT 0.
MESSAGE e398(00) WITH 'BALANCE IN THE ACCOUNT IS NOT AVAILABLE FOR THIS PAYMENT' space.
ENDIF.
ENDIF.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
3 | |
3 | |
3 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 |