LC_REGISTER

*&---------------------------------------------------------------------*
*& Report ZVVF_FIRO_LC_REGISTER *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZVVF_FIRO_LC_REGISTER
NO STANDARD PAGE HEADING
LINE-SIZE 250
LINE-COUNT 60(2)
MESSAGE-ID zfi.

* =======================
* LC / Guarantee Register
* =======================
*
*_______________________________________________________________________

* Parameters of the report:
* _________________________
*
* Company Code, Vendor Code, Special G/L Indicator, Document Date &
* Posting Date.
*
* Data Accumulation Process:
* _________________________
*
* On the basis of the parameters entered by the user data is retrieve
* from BKPF table by comparing Company Code, Document & Posting Date and
* BSTAT field = 'S' (checking that the transaction is for Noted item).
*
* From this data item level data is fetched by comparing vendor code and
* special G/L indicator field 'umskz'.
*
* Features of the report are :
*
* If the document is cleared contingent liability will be zero.
*
* Vendor wise subtotals for
* 1. Amount in local currency field
* 2. Contingency Liability
* 3. Currency wise subtotals
*
* Currency Wise Report Totals.
*
*_______________________________________________________________________

* Table definitions
TABLES : bkpf, bseg, lfa1, skat.

* variables used in printing the report
DATA : page_header_ctr(1) TYPE c, count TYPE i.


* Internal table for storing totals Special indicator / bank / currency
* wise.
DATA : BEGIN OF subtotals OCCURS 0,
umskz LIKE bseg-umskz,
lifnr LIKE lfa1-lifnr,
waers LIKE bkpf-waers,
subtotal LIKE bseg-wrbtr,
END OF subtotals.

* Internal table for storing totals currency.
DATA : BEGIN OF totals OCCURS 0,
umskz LIKE bseg-umskz,
waers LIKE bkpf-waers,
total LIKE bseg-wrbtr,
inr_tot LIKE bseg-dmbtr,
inr_cont LIKE bseg-wrbtr,
cont_lib LIKE bseg-wrbtr,
END OF totals.


* Internal Table Definitions
DATA : BEGIN OF ibkpf OCCURS 0,

* Main data required for printing report
bukrs LIKE bkpf-bukrs, " Company Code
belnr LIKE bkpf-belnr, " A/C Doc No
gjahr LIKE bkpf-gjahr, " Fiscal Year
bldat LIKE bkpf-bldat, " Doc Date
budat LIKE bkpf-budat, " Posting date
bktxt LIKE bkpf-bktxt, " Contract Number & Date
xblnr LIKE bkpf-xblnr, " L/C NUMBERS
kursf LIKE bkpf-kursf, " Exchange Rate
waers LIKE bkpf-waers,
END OF ibkpf.

DATA : BEGIN OF cg OCCURS 0,
umskz LIKE bseg-umskz,
END OF cg.

DATA : BEGIN OF unique_belnr OCCURS 0,
* Main data required for printing report
bukrs LIKE bseg-bukrs, " Company Code
belnr LIKE bseg-belnr, " A/C Doc No
gjahr LIKE ibkpf-gjahr, "Fiscal year
bldat LIKE bkpf-bldat, " Doc Date
budat LIKE bkpf-budat, " Posting date
bktxt LIKE bkpf-bktxt, " Contract Number & Date
xblnr LIKE bkpf-xblnr, " L/C NUMBERS
waers LIKE bkpf-waers, " Currency
kursf LIKE bkpf-kursf, " Exchange Rate
END OF unique_belnr.


DATA : BEGIN OF ibseg OCCURS 0,
* Main data required for printing report
bukrs LIKE bseg-bukrs, " Company Code
belnr LIKE bseg-belnr, " A/C Doc No
gjahr LIKE bseg-gjahr,
umskz LIKE bseg-umskz, " Special GL Indicator
lifnr LIKE bseg-lifnr, "Vendor Account code
zuonr LIKE bseg-zuonr, " Assignment
sgtxt LIKE bseg-sgtxt, " Item / Quantity / Terms
dmbtr LIKE bseg-dmbtr, " Amount in Local Currency
wrbtr LIKE bseg-wrbtr, " Amount
hzuon LIKE bseg-hzuon, " Special G/L Assignment
zfbdt LIKE bseg-zfbdt, " Doc retired on
augbl LIKE bseg-augbl, " clear doc no
augdt LIKE bseg-augdt, " clear doc date
* addition data accumulated
buzei LIKE bseg-buzei, " Bseg Line item No.
shkzg LIKE bseg-shkzg, " Credit / Debit Date
gsber LIKE bseg-gsber, "
hkont LIKE bseg-hkont,
END OF ibseg.

DATA : BEGIN OF fintab OCCURS 0,
* ibkpf data starts from here
bukrs LIKE bseg-bukrs, " Company Code
belnr LIKE bseg-belnr, " A/C Doc No
gjahr LIKE ibkpf-gjahr, " Fiscal year
bldat LIKE bkpf-bldat, " Doc Date
budat LIKE bkpf-budat, " Posting date
bktxt LIKE bkpf-bktxt, " Contract Number & Date
xblnr LIKE bkpf-xblnr, " L/C NUMBERS
waers LIKE bkpf-waers, " Currency
kursf LIKE bkpf-kursf, " Exchange Rate
*Ibseg data starts from here
umskz LIKE bseg-umskz, " Special GL Indicator
lifnr LIKE bseg-lifnr, " Vendor Account code
zuonr LIKE bseg-zuonr, " Assignment
sgtxt LIKE bseg-sgtxt, " Item / Quantity / Terms
dmbtr LIKE bseg-dmbtr, " Amount
wrbtr LIKE bseg-wrbtr, " Amount
hzuon LIKE bseg-hzuon, " Special G/L Assignment
zfbdt LIKE bseg-zfbdt, " Doc retired on
augbl LIKE bseg-augbl, " clear doc no
augdt LIKE bseg-augdt, " clear doc date
buzei LIKE bseg-buzei, " Bseg Line item No.
shkzg LIKE bseg-shkzg, " Credit / Debit Date
gsber LIKE bseg-gsber, "
hkont LIKE bseg-hkont,
END OF fintab.

DATA : BEGIN OF unique_vendor OCCURS 0,
umskz LIKE bseg-umskz,
lifnr LIKE bseg-lifnr,
name1 LIKE lfa1-name1,
END OF unique_vendor.



DATA : v_ibseg_ctr TYPE i,
currency_ctr TYPE i.


SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETERS : fcompany LIKE bseg-bukrs . " Company Code

SELECT-OPTIONS : fvendor FOR bseg-lifnr, " vendor account
fumskz FOR bseg-umskz OBLIGATORY, " Specal GL Indicator
fdocdt FOR bkpf-bldat, " Doc Date
fpstdt FOR bkpf-budat OBLIGATORY. " Pstg Date


SELECTION-SCREEN END OF BLOCK a.

AT SELECTION-SCREEN.

START-OF-SELECTION.

PERFORM get_bkpf_data.

WRITE : /1 ' ------- End Of Report --------'.

TOP-OF-PAGE.
IF page_header_ctr <> 'N'.
PERFORM page_header.
ENDIF.
PERFORM col_head1.

END-OF-PAGE.

PERFORM page_footer.

END-OF-SELECTION.

*---------------------------------------------------------------------*
* FORM page_footer *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM page_footer.
WRITE :/(246) sy-uline.
WRITE :/10 'Page Number : ', syst-pagno.
ENDFORM.

*---------------------------------------------------------------------*
* FORM get_bkpf_data *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM get_bkpf_data.
* Selecting data from bkpf
SELECT
bukrs
belnr
gjahr
bldat
budat
bktxt
xblnr
kursf
waers
APPENDING TABLE ibkpf
FROM bkpf
WHERE bukrs = fcompany
AND bldat IN fdocdt
AND budat IN fpstdt
AND bstat = 'S'.

IF sy-dbcnt > 0.
PERFORM get_unique_belnr.
PERFORM get_ibseg_data.
IF v_ibseg_ctr > 0.
PERFORM merge.
* PERFORM detail.
PERFORM col_head2.
ENDIF.
ENDIF.

ENDFORM.

*---------------------------------------------------------------------*
* FORM get_unique_belnr *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM get_unique_belnr.
LOOP AT ibkpf.
unique_belnr-bukrs = ibkpf-bukrs.
unique_belnr-belnr = ibkpf-belnr.
unique_belnr-gjahr = ibkpf-gjahr.
unique_belnr-bldat = ibkpf-bldat.
unique_belnr-budat = ibkpf-budat.
unique_belnr-bktxt = ibkpf-bktxt.
unique_belnr-xblnr = ibkpf-xblnr.
unique_belnr-waers = ibkpf-waers.
unique_belnr-kursf = ibkpf-kursf.
APPEND unique_belnr.
ENDLOOP.
SORT unique_belnr BY belnr gjahr.
READ TABLE unique_belnr INDEX 1.
DELETE ADJACENT DUPLICATES FROM unique_belnr COMPARING belnr gjahr.
ENDFORM.


*---------------------------------------------------------------------*
* FORM get_ibseg_data *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM get_ibseg_data.
* Selecting data from bseg
LOOP AT unique_belnr.
SELECT
bukrs
belnr
gjahr
umskz
lifnr
zuonr
sgtxt
dmbtr
wrbtr
hzuon
zfbdt
augbl
augdt
* addition data accumulated
buzei
shkzg
gsber
hkont
APPENDING TABLE ibseg
FROM bseg
WHERE bukrs = unique_belnr-bukrs
AND belnr = unique_belnr-belnr
AND gjahr = unique_belnr-gjahr
AND lifnr IN fvendor
AND umskz IN fumskz.

IF sy-dbcnt > 0.
v_ibseg_ctr = v_ibseg_ctr + sy-dbcnt.
ENDIF.
ENDLOOP.
ENDFORM.


*---------------------------------------------------------------------*
* FORM merge *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM merge.

DATA : v_vendor_name LIKE lfa1-name1.

LOOP AT unique_belnr.
fintab-bukrs = unique_belnr-bukrs.
fintab-belnr = unique_belnr-belnr.
fintab-gjahr = unique_belnr-gjahr.
fintab-bldat = unique_belnr-bldat.
fintab-budat = unique_belnr-budat.
fintab-bktxt = unique_belnr-bktxt.
fintab-xblnr = unique_belnr-xblnr.
fintab-waers = unique_belnr-waers.
fintab-kursf = unique_belnr-kursf.
LOOP AT ibseg WHERE belnr = unique_belnr-belnr AND gjahr =
unique_belnr-gjahr.
fintab-umskz = ibseg-umskz.
fintab-lifnr = ibseg-lifnr.
fintab-zuonr = ibseg-zuonr.
fintab-sgtxt = ibseg-sgtxt.
fintab-dmbtr = ibseg-dmbtr.
fintab-wrbtr = ibseg-wrbtr.
fintab-hzuon = ibseg-hzuon.
fintab-zfbdt = ibseg-zfbdt.
fintab-augbl = ibseg-augbl.
fintab-augdt = ibseg-augdt.
fintab-buzei = ibseg-buzei.
fintab-shkzg = ibseg-shkzg.
fintab-gsber = ibseg-gsber.
fintab-hkont = ibseg-hkont.
APPEND fintab.
ENDLOOP.
ENDLOOP.

LOOP AT fintab.
CLEAR v_vendor_name.
unique_vendor-umskz = fintab-umskz.
unique_vendor-lifnr = fintab-lifnr.
SELECT SINGLE name1 INTO v_vendor_name
FROM lfa1 WHERE lifnr = fintab-lifnr.
unique_vendor-name1 = v_vendor_name.
APPEND unique_vendor.
ENDLOOP.
SORT unique_vendor BY umskz lifnr.
READ TABLE unique_vendor INDEX 1.
DELETE ADJACENT DUPLICATES FROM unique_vendor COMPARING umskz lifnr.
PERFORM fet_unique_umskz.

LOOP AT fintab.
totals-umskz = fintab-umskz.
totals-waers = fintab-waers.
APPEND totals.

subtotals-umskz = fintab-umskz.
subtotals-lifnr = fintab-lifnr.
subtotals-waers = fintab-waers.
APPEND subtotals.
ENDLOOP.

SORT subtotals BY umskz lifnr waers.
READ TABLE subtotals INDEX 1.
DELETE ADJACENT DUPLICATES FROM subtotals COMPARING umskz lifnr waers.

SORT totals BY umskz waers.
READ TABLE totals INDEX 1.
DELETE ADJACENT DUPLICATES FROM totals COMPARING umskz waers.

SORT fintab BY umskz lifnr waers.
READ TABLE fintab INDEX 1.


* Calculating Special GL Ind., Bank and currency wise totals from Fintab
DATA : v_subtotal LIKE bseg-wrbtr.
LOOP AT subtotals.
CLEAR v_subtotal.
LOOP AT fintab WHERE umskz = subtotals-umskz
AND lifnr = subtotals-lifnr
AND waers = subtotals-waers.

v_subtotal = v_subtotal + fintab-wrbtr.
ENDLOOP.
subtotals-subtotal = v_subtotal.
MODIFY subtotals.
ENDLOOP.

LOOP AT totals.
* CLEAR TOTALS.
* REFRESH TOTALS.
LOOP AT fintab WHERE umskz = totals-umskz AND waers = totals-waers.
totals-total = totals-total + fintab-wrbtr.
totals-inr_tot = totals-inr_tot + fintab-dmbtr.
IF fintab-augbl IS INITIAL.
totals-inr_cont = totals-inr_cont + fintab-dmbtr.
totals-cont_lib = totals-cont_lib + fintab-wrbtr.
ENDIF.
MODIFY totals.
ENDLOOP.
ENDLOOP.
ENDFORM.

*---------------------------------------------------------------------*
* FORM page_header *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM page_header.

page_header_ctr = 'N'.
* FORMAT COLOR 1 INTENSIFIED ON.

WRITE : /1(250) sy-uline.
WRITE : /1 sy-vline.
WRITE : 2 'User Name : ', sy-uname.
WRITE : 60 'Module : Finance'.
WRITE : 250 sy-vline.

WRITE : /1 sy-vline.
WRITE : 2 'System Date : ', sy-datum.
WRITE: 60 'Time : ', sy-uzeit.
WRITE : 250 sy-vline.

WRITE : /1 sy-vline.
WRITE : 2 'Comapny Code : ', fcompany.
WRITE : 250 sy-vline.

WRITE : /1 sy-vline.
WRITE : 2 'Vendor : ', fvendor-low, ' To ',
fvendor-high.
WRITE : 250 sy-vline.

WRITE : /1 sy-vline.
WRITE : 2 'Special G/L Indicator : ', fumskz-low, ' To ',
fumskz-high.
WRITE : 250 sy-vline.

WRITE : /1 sy-vline.
WRITE : 2 'Document Date : ', fdocdt-low, ' To ',
fdocdt-high.
WRITE : 250 sy-vline.

WRITE : /1 sy-vline.
WRITE : 2 'Posting Date : ', fpstdt-low, ' To ',
fpstdt-high.
WRITE : 250 sy-vline.


ENDFORM.

*---------------------------------------------------------------------*
* FORM Col_Head *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM col_head2.
DATA : page_ctr TYPE i.

PERFORM fet_unique_umskz.

page_ctr = 0.
LOOP AT cg.
page_ctr = page_ctr + 1.
PERFORM detail.
IF page_ctr < count.
NEW-PAGE.
ENDIF.
ENDLOOP.
ENDFORM.

*---------------------------------------------------------------------*
* FORM detail *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM detail.
DATA : v_togg TYPE i,
row_count LIKE syst-pagno.

DATA : total_dmbtr LIKE bseg-dmbtr,"Totaling in local curr.vendor wise
liab_total LIKE bseg-wrbtr,
grand_total_liab LIKE bseg-wrbtr,
grand_total_dmbtr LIKE bseg-wrbtr,
v_wrbtr LIKE bseg-wrbtr.

v_togg = 1.
LOOP AT unique_vendor WHERE umskz = cg-umskz.
WRITE : /1 sy-uline.
CLEAR liab_total.
CLEAR total_dmbtr.
WRITE : /1 sy-vline.
FORMAT COLOR 7 INTENSIFIED ON.
WRITE : 2 'Vendor : '.
WRITE : 10(10) unique_vendor-lifnr.
WRITE : 22(25) unique_vendor-name1.
WRITE : 50 'Special G/L Ind : '.
WRITE : 68(1) unique_vendor-umskz.
FORMAT RESET.
WRITE : 250 sy-vline.
WRITE : /1 sy-uline.

LOOP AT fintab WHERE lifnr = unique_vendor-lifnr AND umskz =
unique_vendor-umskz.
total_dmbtr = total_dmbtr + fintab-dmbtr.
IF v_togg = 1.
v_togg = 2.
FORMAT COLOR 2 INTENSIFIED ON.
ELSE.
v_togg = 1.
FORMAT COLOR 2 INTENSIFIED OFF.
ENDIF.
WRITE : /1 sy-vline.
WRITE : 2(25) fintab-bktxt.

WRITE : 28 sy-vline.
WRITE : 29(18) fintab-zuonr.

WRITE : 48 sy-vline.
WRITE : 49(40) fintab-sgtxt.

WRITE : 90 sy-vline.
WRITE : 91(13) fintab-wrbtr.

WRITE : 104 sy-vline.
WRITE : 105(13) fintab-dmbtr.

WRITE : 119 sy-vline.
WRITE : 120(16) fintab-xblnr.

WRITE : 137 sy-vline.
WRITE : 138(10) fintab-bldat.

WRITE : 149 sy-vline.
WRITE : 150(18) fintab-hzuon.

WRITE : 169 sy-vline.
WRITE : 170(10) fintab-zfbdt.

IF fintab-augbl IS INITIAL.
liab_total = liab_total + fintab-dmbtr.
WRITE : 181 sy-vline.
WRITE : 182(13) fintab-dmbtr.
ELSE.
v_wrbtr = 0.
WRITE : 181 sy-vline.
WRITE : 182(13) v_wrbtr.
ENDIF.
WRITE : 196 sy-vline.
WRITE : 197(11) fintab-kursf DECIMALS 2 RIGHT-JUSTIFIED.
WRITE : 210(3) fintab-waers.
FORMAT RESET.

WRITE : 214 sy-vline.
FORMAT COLOR 5 INTENSIFIED OFF.
WRITE : 215(10) fintab-augbl.
WRITE : 226 sy-vline.
WRITE : 227(10) fintab-augdt.

WRITE : 238 sy-vline.
WRITE : 239(10) fintab-belnr.
WRITE : 250 sy-vline.
FORMAT RESET.
ENDLOOP.
grand_total_dmbtr = grand_total_dmbtr + total_dmbtr.
grand_total_liab = grand_total_liab + liab_total.

WRITE : /1 sy-uline.

WRITE : /48 sy-vline.
FORMAT COLOR 3 INTENSIFIED ON.
WRITE : 49(54) 'Bank Wise Total' CENTERED.

WRITE : 104 sy-vline.
WRITE : 105(13) total_dmbtr RIGHT-JUSTIFIED.
FORMAT RESET.
WRITE : 119 sy-vline.

WRITE : 181 sy-vline.
FORMAT COLOR 3 INTENSIFIED ON.
WRITE : 182(13) liab_total.
FORMAT RESET.
WRITE : 196 sy-vline.
WRITE : /48(72) sy-uline.
WRITE : 181(16) sy-uline.

* Loop below is for printing bank wise vendor wise totals.

WRITE : /48(57) sy-uline.
WRITE : /48 sy-vline.
FORMAT COLOR 3 INTENSIFIED ON.
WRITE : 49(40) 'Currency' CENTERED.
WRITE : 90 sy-vline.
WRITE : 91(13) 'Total' CENTERED.
FORMAT RESET.

WRITE : 104 sy-vline.
WRITE : /48(57) sy-uline.


LOOP AT subtotals WHERE umskz = fintab-umskz AND lifnr = fintab-lifnr.
* AND waers = fintab-waers.
WRITE : /48 sy-vline.
FORMAT COLOR 3 INTENSIFIED ON.
WRITE : 49(40) subtotals-waers CENTERED.
WRITE : 90 sy-vline.
WRITE : 91(13) subtotals-subtotal RIGHT-JUSTIFIED.
WRITE : 104 sy-vline.
FORMAT RESET.
ENDLOOP.
WRITE : /48(57) sy-uline.

ENDLOOP.

PERFORM print_totals.

ENDFORM.


*---------------------------------------------------------------------*
* FORM print_totals *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM print_totals.
data : currow like sy-curow,
v_total type i.

CLEAR currency_ctr.
LOOP AT totals WHERE umskz = cg-umskz.
currency_ctr = currency_ctr + 1.
ENDLOOP.
currency_ctr = currency_ctr + 8.

currow = sy-linno.

v_total = currency_ctr + currow.

if v_total > 58.
new-page.
endif.
IF cg-umskz = 'C'.
WRITE : /1 'L/C Totals'.
ELSE.
WRITE : /1 'Gurantee Totals'.
ENDIF.

WRITE : /1(100) sy-uline.
WRITE : /1 sy-vline.
WRITE : 2(8) 'Currency' CENTERED.
WRITE : 11 sy-vline.
WRITE : 12(40) 'Amount In' CENTERED.
WRITE : 55 sy-vline.
WRITE : 56(40) 'Contingent Liability In' CENTERED.
WRITE : 100 sy-vline.
WRITE : /1(100) sy-uline.

WRITE : /1 sy-vline.
WRITE : 11 sy-vline.
WRITE : 12(20) 'Document Currency' CENTERED.
WRITE : 33 sy-vline.
WRITE : 34(20) 'Local Currency' CENTERED.
WRITE : 55 sy-vline.
WRITE : 56(20) 'Document Currency' CENTERED.
WRITE : 77 sy-vline.
WRITE : 78(20) 'Local Currency' CENTERED.
WRITE : 100 sy-vline.
WRITE : /1(100) sy-uline.
LOOP AT totals where umskz = cg-umskz.
WRITE : /1 sy-vline.
WRITE : totals-waers.
WRITE : 11 sy-vline.
WRITE : 12(20) totals-total.
WRITE : 33 sy-vline.
WRITE : 34(20) totals-inr_tot.
WRITE : 55 sy-vline.
WRITE : 56(20) totals-cont_lib.
WRITE : 77 sy-vline.
WRITE : 78(20) totals-inr_cont.
WRITE : 100 sy-vline.
WRITE : /1(100) sy-uline.
ENDLOOP.

ENDFORM.


*---------------------------------------------------------------------*
* FORM fet_unique_umskz *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM fet_unique_umskz.
LOOP AT fintab.
cg-umskz = fintab-umskz.
APPEND cg.
ENDLOOP.

SORT cg BY umskz.
READ TABLE cg INDEX 1.
DELETE ADJACENT DUPLICATES FROM cg COMPARING umskz.

count = 0.
LOOP AT cg.
count = count + 1.
ENDLOOP.
ENDFORM.


*---------------------------------------------------------------------*
* FORM Col_Head *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM col_head1.
DATA : page_ctr TYPE i.

FORMAT COLOR 1 INTENSIFIED ON.
WRITE : /1 sy-uline.
WRITE : /1 sy-vline.
IF cg-umskz = 'C'.
WRITE : 2(247) 'LC Register' CENTERED.
ELSE.
WRITE : 2(247) 'Gurantee Register' CENTERED.
ENDIF.
WRITE : 250 sy-vline.
WRITE : /1 sy-uline.
FORMAT RESET.

FORMAT COLOR 1 INTENSIFIED ON.
WRITE : /1 sy-vline.
WRITE : 2(25) 'Contract' CENTERED.

WRITE : 28 sy-vline.
WRITE : 29(18) 'Beneficiary'.

WRITE : 48 sy-vline.
IF cg-umskz = 'C'.
WRITE : 49(40) 'Item / Quantity / Terms' CENTERED.
ELSE.
WRITE : 49(40) 'Remarks' CENTERED.
ENDIF.

WRITE : 90 sy-vline.
WRITE : 91(25) 'Amount In' CENTERED.

WRITE : 119 sy-vline.
IF cg-umskz = 'C'.
WRITE : 120(15) 'L/C Number'.
ELSE.
WRITE : 120(15) 'Gurantee NO'.
ENDIF.
WRITE : 137 sy-vline.
IF cg-umskz = 'C'.
WRITE : 138(10) 'L/C Date' CENTERED.
ELSE.
WRITE : 138(10) 'G.Issue Dt' CENTERED.
ENDIF.
WRITE : 149 sy-vline.
IF cg-umskz = 'C'.
WRITE : 150(17) 'B/L Date' CENTERED.
ELSE.
WRITE : 150(17) 'Function' CENTERED.
ENDIF.

WRITE : 169 sy-vline.
WRITE : 170 'Document'.

WRITE : 181 sy-vline.
WRITE : 182(13) 'Cont. Liab ' CENTERED.

WRITE : 196 sy-vline.
WRITE : 197(13) 'Rs. ' CENTERED.

WRITE : 214 sy-vline.
WRITE : 215(23) 'Clearing Document' CENTERED.
WRITE : 238 sy-vline.

WRITE : 239(10) 'A/C' CENTERED.
WRITE : 250 sy-vline.
WRITE : /1 sy-uline.

* 2nd line of header
WRITE : /1 sy-vline.
WRITE : 2(25) 'Number / Date ' CENTERED.
WRITE : 28 sy-vline.
WRITE : 48 sy-vline.
WRITE : 90 sy-vline.
WRITE : 91 'Ent. Currency'.
WRITE : 104 sy-vline.
WRITE : 105 'Loc. Currency'.
WRITE : 119 sy-vline.
WRITE : 137 sy-vline.
WRITE : 149 sy-vline.
WRITE : 169 sy-vline.
WRITE : 170 'Retired ON'.
WRITE : 181 sy-vline.
WRITE : 182(14) 'ADV / Stock' CENTERED.
WRITE : 196 sy-vline.
WRITE : 197(12) '$Exc. Rate' CENTERED.
WRITE : 214 sy-vline.
WRITE : 215(10) 'Number' CENTERED.
WRITE : 226 sy-vline.
WRITE : 227(10) 'Date'.
WRITE : 238 sy-vline.
WRITE : 239(10) 'Doc. No.' CENTERED.
WRITE : 250 sy-vline.
FORMAT RESET.
WRITE : /1 sy-uline.


ENDFORM.