SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
PARAMETERS : p_local RADIOBUTTON GROUP opt1 USER-COMMAND def DEFAULT 'X',
p_upctry RADIOBUTTON GROUP opt1,
p_other RADIOBUTTON GROUP opt1,
p_load RADIOBUTTON GROUP opt1,
p_unload RADIOBUTTON GROUP opt1.
SELECTION-SCREEN END OF BLOCK blk.
**Local Vendor freight
SELECT-OPTIONS : s_werks FOR vbrp-werks MODIF ID one,
s_vendor FOR ztransports-vendor_code MODIF ID one,
s_lrno FOR ztransports-lr_nr MATCHCODE OBJECT zlrn MODIF ID one,
s_ldate FOR ztransports-lr_date MODIF ID one.
PARAMETERS: p_bilno TYPE bkpf-belnr MODIF ID one,
p_date TYPE sy-datum MODIF ID one,
p_curr(15) TYPE c MODIF ID one.
*Local Vendor freight
*Upcountry Vendor freight
SELECT-OPTIONS : s_werks1 FOR vbrp-werks MODIF ID two,
s_lifnr1 FOR ztransports-lifnr1 MODIF ID two,
s_lrno1 FOR ztransports-lr_nr MATCHCODE OBJECT zlrn MODIF ID two,
s_ldate1 FOR ztransports-lr_date MODIF ID two.
PARAMETERS: p_bilno1 TYPE bkpf-belnr MODIF ID two,
p_date1 TYPE sy-datum MODIF ID two,
p_curr1(15) TYPE c MODIF ID two.
*Upcountry Vendor freight
*Others Vendor freight
SELECT-OPTIONS : s_werks2 FOR vbrp-werks MODIF ID tri,
s_lifnr2 FOR ztransports-lifnr2 MODIF ID tri,
s_lrno2 FOR ztransports-lr_nr MATCHCODE OBJECT zlrn MODIF ID tri,
s_ldate2 FOR ztransports-lr_date MODIF ID tri.
PARAMETERS: p_bilno2 TYPE bkpf-belnr MODIF ID tri,
p_date2 TYPE sy-datum MODIF ID tri ,
p_curr2(15) TYPE c MODIF ID tri.
*Others Vendor freight
*Loading Vendor freight
SELECT-OPTIONS : s_werks3 FOR vbrp-werks MODIF ID fr,
s_lifnr3 FOR ztransports-lifnr3 MODIF ID fr,
s_lrno3 FOR ztransports-lr_nr MATCHCODE OBJECT zlrn MODIF ID fr,
s_ldate3 FOR ztransports-lr_date MODIF ID fr.
PARAMETERS: p_bilno3 TYPE bkpf-belnr MODIF ID fr,
p_date3 TYPE sy-datum MODIF ID fr,
p_curr3(15) TYPE c MODIF ID fr.
*Loading Vendor freight
*Unloading Vendor freight
SELECT-OPTIONS : s_werks4 FOR vbrp-werks MODIF ID fiv,
s_lifnr4 FOR ztransports-lifnr4 MODIF ID fiv,
s_lrno4 FOR ztransports-lr_nr MATCHCODE OBJECT zlrn MODIF ID fiv,
s_ldate4 FOR ztransports-lr_date MODIF ID fiv.
PARAMETERS: p_bilno4 TYPE bkpf-belnr MODIF ID fiv,
p_date4 TYPE sy-datum MODIF ID fiv ,
p_curr4(15) TYPE c MODIF ID fiv.
*Unloading Vendor freight
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-002.
PARAMETERS : p_bill RADIOBUTTON GROUP opt USER-COMMAND def DEFAULT 'X',
p_dummy RADIOBUTTON GROUP opt.
SELECTION-SCREEN END OF BLOCK blk1.