*----------------------------------------------------------------------*

* PROGRAM # INCLUDE /DCSEA/ZFGL_GLBL_UPLDPRG_TOP *

* RELEASE # 4.6C *
* DATE WRITTEN # 26.11.2009 *
* MODULE # FICO *
* TYPE # Executable program *
* AUTHOR # Nimisha *
*----------------------------------------------------------------------*
* TITLE # Global FI Upload program data declarations *
* PURPOSE # Global FI Upload program *
* COPIED FROM # None *
*----------------------------------------------------------------------*
* ASSOCIATED # /DCSEA/ZFGL_GLBL_UPLOADPRG_NEW *
* # /DCSEA/ZFGL_GLBL_UPLDPRG_FRM *
*----------------------------------------------------------------------*
* VERS DATE CHANGE# CHANGE DSCRPTN USER *
*======================================================================*
* 29.01.2018 CM-41573299 Program is copied from FI MANAKTN *
* global upload program *
*-----------------------------------------------------------------------
* SAP defined tables
*-----------------------------------------------------------------------
TABLES : bkpf,
kna1,
bseg,
lfa1,
vlcvehicle.
*-----------------------------------------------------------------------
* TYPE-POOLS
*-----------------------------------------------------------------------
TYPE-POOLS: trwbo,
slis,
icon.

* Field symbols delaration

FIELD-SYMBOLS: <wa_fieldcat> TYPE slis_fieldcat_alv.

*-----------------------------------------------------------------------
* Global Variables
*-----------------------------------------------------------------------
DATA : wf_itemno_acc(3) TYPE n,
wf_count TYPE n,
wf_count1 TYPE n,
wf_obj_type TYPE awtyp,
wf_obj_key TYPE awkey,
wf_obj_sys TYPE awsys,
wf_tsp TYPE tstmp,
wf_newko TYPE hkont,
wf_kostl TYPE kostl,
wf_prctr TYPE prctr,
wf_file TYPE rlgrap-filename,
wf_waers TYPE waers,
wf_wrbtr TYPE wrbtr,
wf_dmbtr TYPE wrbtr,
wf_amcur TYPE bapiwrbtr,
wf_shzkg_vendor TYPE tbsl-shkzg,
wf_shzkg_kunnr TYPE tbsl-shkzg,
wf_budat(15),
wf_budat1 TYPE budat,
 wf_mwskz TYPE mwskz,
wf_tax TYPE wrbtr,
wf_newbs TYPE newbs,
wf_error TYPE c,
wf_post TYPE c,
wf_land1 TYPE t001-land1,
wf_item(3) TYPE n,
wf_item1(3) TYPE n,
wf_cm_31024978 TYPE c,
wf_cm_33655853 TYPE c,
wf_cm_60350320 TYPE c, " Line added by CGUMMIR for CM-0060350320 on
24.02.2022
lv_count_taxitem TYPE tax_posnr VALUE IS INITIAL, "Added by AAADHAR for MBIL
Rollout
wf_0050480848 TYPE c. "Added by AAADHAR for MBIL Rollout for
CM:0050480848
DATA: wf_amt_doccur TYPE bapiwrbtr.

DATA: tb_fieldcat TYPE slis_t_fieldcat_alv,

wa_colour TYPE slis_specialcol_alv,
wf_layout TYPE slis_layout_alv.

DATA: tb_belnr LIKE /dcsea/belnr OCCURS 0 WITH HEADER LINE,

tb_blart LIKE /dcsea/blart OCCURS 0 WITH HEADER LINE,
tb_budat LIKE /dcsea/budat OCCURS 0 WITH HEADER LINE,
tb_cpudt LIKE /dcsea/cpudt OCCURS 0 WITH HEADER LINE,
tb_doc_idoc LIKE /dcsea/mx_doc_idoc OCCURS 0 WITH HEADER LINE.

DATA: wf_applc_path LIKE epsf-epsdirnam,

wf_filepath(125) TYPE c,
wf_file1(125) TYPE c,
wf_archivepath(125) TYPE c,
wf_demo TYPE char1.

DATA: wf_flag_error TYPE c,

wf_flag_dir TYPE c.

DATA: tb_filenames TYPE epsfili OCCURS 0 WITH HEADER LINE.

DATA: gx_flag TYPE c. " CM number flag
DATA : wf_success type c.

*-----------------------------------------------------------------------
* FIELD-SYMBOLS
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* Constants
*-----------------------------------------------------------------------
CONSTANTS :co_auth_obj(10) TYPE c VALUE 'F_BKPF_BUK',
co_bukrs(5) TYPE c VALUE 'BUKRS',
co_actvt(5) TYPE c VALUE 'ACTVT',
co_03(2) TYPE c VALUE '03',
co_01(2) TYPE c VALUE '01',
co_tab(2) TYPE x VALUE '09',
co_asc(3) TYPE c VALUE 'ASC',
co_obj_type TYPE awtyp VALUE 'IDOC',
co_obj_typ_bkpf TYPE awtyp VALUE 'BKPFF',
co_bus_act TYPE glvor VALUE 'RFBU',
co_open(9) TYPE c VALUE 'Open file',
co_lsdfs_mx TYPE edidc-rcvprn VALUE 'LSDFS_MX' ,
 co_lsdci_mx TYPE edidc-rcvprn VALUE 'LSDCI_MX' ,
co_0109(4) TYPE c VALUE '0109',
co_bs_acc(12) TYPE c VALUE 'B/S Accounts',
co_gl_acc(16) TYPE c VALUE 'Input GL Account',
co_blank(1) TYPE c VALUE ' ',
co_tbl(22) TYPE c VALUE 'Table /DCSEA/ZAIS_SETI',
co_b TYPE c VALUE 'B', " Balance sheet check
co_r TYPE c VALUE 'R', "Reason code check
co_e TYPE c VALUE 'E', "Error
co_x TYPE c VALUE 'X' ,
co_y TYPE c VALUE 'Y' ,
co_g TYPE c VALUE 'G' ,
co_v TYPE c VALUE 'V' ,
co_t TYPE c VALUE 'T' ,
co_c TYPE c VALUE 'C' .

CONSTANTS: co_10157367(10) TYPE c VALUE '10157367',

co_1391(4) VALUE '1391',
co_1071(4) VALUE '1071',
co_1414(4) VALUE '1414',
co_1951(4) VALUE '1951'.

CONSTANTS: co_archive(7) TYPE c VALUE 'archive'.

CONSTANTS: co_key_vst(3) TYPE c VALUE 'VST',

co_key_mws(3) TYPE c VALUE 'MWS',
co_include TYPE c VALUE 'I',
co_option(2) TYPE c VALUE 'EQ',
co_taxv0(2) TYPE c VALUE 'V0',
co_taxv7(2) TYPE c VALUE 'V7',
co_th(2) TYPE c VALUE 'TH',
co_gl_411010 TYPE hkont VALUE '411010',
co_3 type i value '3',
co_a type c value 'A',
co_tx(2) type c value 'TX'.

CONSTANTS : co_s type c value 'S'.

*-----------------------------------------------------------------------
* Internal Tables
*-----------------------------------------------------------------------
DATA:wa_t001 LIKE t001.

DATA: tb_table LIKE sdokpath OCCURS 0 WITH HEADER LINE.

* Work area for document header
DATA: wa_header LIKE bapiache09,
wa_customercpd TYPE bapiacpa09, "Added by Sravan Guduru for MBIL rollout on
18.06.2019
wa_acttax TYPE bapiactx09.
*Internal table for Segments
DATA: tb_acc_gl LIKE bapiacgl09 OCCURS 0 WITH HEADER LINE,
tb_acc_rec LIKE bapiacar09 OCCURS 0 WITH HEADER LINE,
tb_acc_pay LIKE bapiacap09 OCCURS 0 WITH HEADER LINE,
tb_accounttax LIKE bapiactx09 OCCURS 0 WITH HEADER LINE,
tb_currency1 LIKE bapiaccr09 OCCURS 0 WITH HEADER LINE,
tb_extn LIKE bapiacextc OCCURS 0 WITH HEADER LINE,
tb_extn2 LIKE BAPIPAREX OCCURS 0 WITH HEADER LINE,
tb_acwt TYPE STANDARD TABLE OF BAPIACWT09,"DEEPIGB 42336981
 tb_taxcopy LIKE bapiactx09 OCCURS 0 WITH HEADER LINE, "AAADHAR for MBIL
Rollout
tb_e1bpache09 TYPE e1bpache09,
tb_e1bpacgl09 TYPE e1bpacgl09,
tb_e1bpacar09 TYPE e1bpacar09,
tb_e1bpacap09 TYPE e1bpacap09,
tb_e1bpactx09 TYPE e1bpactx09,
tb_e1bpaccr09 TYPE e1bpaccr09,
tb_e1bpackec9 TYPE e1bpackec9,
tb_e1bpacextc TYPE e1bpacextc,
lw_e1bpparex type e1bpparex ,
tb_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
wa_crit TYPE bapiackec9,
tb_crit TYPE STANDARD TABLE OF bapiackec9.

* Variables for passing to the IDOC

DATA: wf_bukrs LIKE bkpf-bukrs,
wf_gjahr LIKE bkpf-gjahr,
wf_amount TYPE bapiwrbtr,
wf_flag_tax.

TYPES : BEGIN OF ty_baur,

serial(10),
item(3) TYPE n,
wwbr(18),
END OF ty_baur.
TYPES : BEGIN OF ty_ska1,
saknr TYPE saknr,
xbilk TYPE xbilk,
END OF ty_ska1,
BEGIN OF ty_skb1,
bukrs TYPE bukrs,
saknr TYPE saknr,
END OF ty_skb1.
TYPES : BEGIN OF ty_vlcvehicle,
vhcle TYPE vlcvehicle-vhcle,"Internal Vehicle Number
matnr TYPE vlcvehicle-matnr,"Material Number
charg TYPE vlcvehicle-charg, " batch number
werks TYPE vlcvehicle-werks, " Plant
CUOBJ TYPE vlcvehicle-CUOBJ,
vhvin TYPE vlcvehicle-vhvin,
zz_commnos TYPE vlcvehicle-zz_commnos,
END OF ty_vlcvehicle.

TYPES: BEGIN OF ty_tmp_crit,

serial TYPE posnr_acc,
newko TYPE saknr,
item(10) TYPE n,
material TYPE matnr, " matrerial number
quantity TYPE menge_d, "quantity
zz_commnos TYPE /dcsea/zz_commission_number,
" comission number
vtweg TYPE vtweg,
"distribution channel
spart type spart, "division
engcode TYPE /dcsea/zz_engcode, "engine code
mtart TYPE mtart,
" materail type
bukrs TYPE bukrs,
 werks TYPE werks_d, "plant
vkorg TYPE vkorg, "vkorg
END OF ty_tmp_crit.

DATA : wa_tmp_crit TYPE ty_tmp_crit,

tb_tmp_crit TYPE STANDARD TABLE OF ty_tmp_crit.

*Internal table to hold required data from .XML file.

TYPES : BEGIN OF ty_upload,

serial(10), "Serial No.
bldat(15), "Document Date
budat(15), "Posting Date
* Begin of changes by DEEPIGB for 42336981
monat(2), "Posting Period
wwert(15), "Translation date
* End of changes by DEEPIGB for 42336981
blart(15), "Document type
bukrs(4), "Company Code
waers(10), "Currency
xblnr(20), "Reference
bktxt(25), "Header Text
xref1_hd TYPE string, "Ref key (Head) 1
newbs(15), "Posting Key
newko(20), "GL account
kunnr(10), "Customer
lifnr(10), "Vendor
sp_gl_in, "Special General Ledger Indicator
* Begin of changes by DEEPIGB for 42336981
zlspr(1), "Payment Block
zlsch(1), "Payment method
* End of changes by DEEPIGB for 42336981
wrbtr(20), "Amt in Doc currency
dmbtr(25), "Amt in Local currency
kostl(30), "Cost Center
aufnr(15), "Internal Order
prctr(15), "Profit Center
***Begin of insert by MANAKTN for CM-41573299 on 19.04.2018****
commnos(35) type c, "Comm. No.
***End of insert by MANAKTN for CM-41573299 on 19.04.2018*****
mwskz(10), "Tax Code
calculate_tax TYPE c, "Automatic tax calculation
xstba TYPE string, "Determine tax base
fwbas TYPE string, "Tax Base Amount in Document Currency
zuonr(18), "Assignment
sgtxt(50), "Item text
bupla(4), "Business Place
secco(4), "Section code "DEEPIGB 42336981
funds_ctr(10), "Fund Center
cmmt_item(10), "Commitment Item
x03(10), "withholding tax
x04(10), "withholding tax type
x05(15), "Withholding base amount
ref1(12), "Reference key1
ref2(12), "Reference key2
ref3(20), "Reference key3
pymnt_term(4), "Payment Term
* Begin of changes by DEEPIGB for 42336981
zfbdt(15), "Baseline due date
* End of changes by DEEPIGB for 42336981
reason_code(3), "Reason Code
bcod TYPE string, "Branch code
bpna TYPE string, "Business partner name
taxid TYPE string, "Taxid
vbund TYPE RASSC, "TP
credit_area(4), "Credit Area
item(3) TYPE c, "Lite item No.
cross_co(4) TYPE c, "Cross CC
material(18) TYPE c, "Material Number
werks TYPE char4, "Plant
vkorg TYPE char4, "Sales Org
quantity(17), "Qty
zz_commnos(35) TYPE c, "Commission Number
vtweg(2), "DC
spart(2), "Div
wwbr(18), "Baureihe
engcode TYPE /dcsea/zz_engcode, "Engine Code
mtart TYPE mtart, "Material Type

**Begin of changes by Sravan Guduru for MBIL Rollout on 18th June'19

hsn_sac TYPE j_1ig_hsn_sac, "HSN or SAC code "Char6
plc_sup TYPE j_1ig_region, "Place of supply "Char3
gst_part TYPE j_1ig_partner,"GST Partner "Char10
*
name TYPE bapiacpa09-name, "Vendor/Customer Name
city TYPE bapiacpa09-city, "City
tax_no_3 TYPE bapiacpa09-tax_no_3, "Tax Num 3
tax_no_1 TYPE bapiacpa09-tax_no_1, "Tax Num 1 (PAN no)
country TYPE bapiacpa09-country, "Country
region TYPE bapiacpa09-region, "Region
street TYPE bapiacpa09-street, "Street
**End of changes by Sravan Guduru for MBIL Rollout on 18th June'19

gjahr TYPE gjahr, "Always at the end, else error in excel upload
obj_key TYPE awkey, "Always at the end, else error in excel upload

END OF ty_upload.

DATA: tb_upload TYPE STANDARD TABLE OF ty_upload WITH HEADER LINE,

wa_upload LIKE LINE OF tb_upload.
DATA : gt_vlcvehicle TYPE TABLE OF ty_vlcvehicle,
gw_vlcvehicle TYPE ty_vlcvehicle.
DATA: tb_baur TYPE STANDARD TABLE OF ty_baur,
wa_baur TYPE ty_baur.
DATA: wa_ska12 TYPE ty_ska1,
tb_ska12 TYPE STANDARD TABLE OF ty_ska1,
wa_skb1 TYPE ty_skb1,
tb_skb1 TYPE STANDARD TABLE OF ty_skb1.

*Internal table to fill up GL segment

DATA : BEGIN OF tb_cgl OCCURS 0,
serial(10),
bldat(15),
budat(15),
* Begin of changes by DEEPIGB for 42336981
monat(2), "fiscal period
wwert(15), "translation date
* End of changes by DEEPIGB for 42336981
 blart(15),
bukrs(15),
waers(10),
xblnr(20),
bktxt(25),
newbs(15),
newko(20),
wrbtr(20),
dmbtr(25),
kostl(30),
aufnr(15),
prctr(15),
***Begin of insert by MANAKTN for CM-41573299 on 19.04.2018****
commnos(35) type c,
***End of insert by MANAKTN for CM-41573299 on 19.04.2018*****
mwskz(2),
zuonr(18),
sgtxt(50),
bupla(4),
secco(4), "DEEPIGB 42336981
funds_ctr(10),
cmmt_item(10),
ref1(12),
ref2(12),
ref3(20),
sp_gl_in,
* Begin of changes by DEEPIGB for 42336981
zlspr(1), "payment block
zlsch(1), "payment method
zfbdt(15), "baseline due date
* End of changes by DEEPIGB for 42336981
reason_code(3),
item(3) TYPE n,
cross_co(4) TYPE c,
calculate_tax TYPE c,
vbund TYPE rassc,
credit_area(4),
hsn_sac TYPE j_1ig_hsn_sac, "C16 "Added by Sravan Guduru for MBIL rollour
on 18.06.2019
END OF tb_cgl.

DATA : BEGIN OF tb_currency OCCURS 0.

INCLUDE STRUCTURE bapiaccr09.
DATA : tax_rate TYPE msatz_f05l,
serial(10),
END OF tb_currency.

DATA : BEGIN OF tb_tax OCCURS 0,

bukrs(15),
mwskz(10),
budat(15),
tax_rate TYPE msatz_f05l,
END OF tb_tax.

*Internal table to fill up Customer Item segment

DATA : BEGIN OF tb_car OCCURS 0,
serial(10),
bldat(15),
budat(15),
* Begin of changes by DEEPIGB for 42336981
monat(2), "period
wwert(15), "translation date
* End of changes by DEEPIGB for 42336981
blart(15),
bukrs(4),
waers(10),
xblnr(20),
bktxt(25),
newbs(15),
kunnr(10),
wrbtr(20),
dmbtr(25),
***Begin of insert by MANAKTN for CM-41573299 on 19.04.2018****
commnos(35) type c,
***End of insert by MANAKTN for CM-41573299 on 19.04.2018*****
mwskz(10),
zuonr(18),
sgtxt(50),
bupla(4),
* Begin of changes by DEEPIGB 42336981
secco(4),
x03(10),
x04(10),
x05(15),
* end of changes by DEEPIGB 42336981
ref1(12),
ref2(12),
ref3(20),
pymnt_term(4),
sp_gl_in,
* Begin of changes by DEEPIGB for 42336981
zlspr(1), "payment block
zlsch(1), "payment method
zfbdt(15), "baseline date
* End of changes by DEEPIGB for 42336981
item(3) TYPE n,
cross_co(4) TYPE c,
reason_code(4),
credit_area(4),
END OF tb_car.

*Internal table to fill up vendor item segment

DATA : BEGIN OF tb_cab OCCURS 0,
serial(10),
bldat(15),
budat(15),
* Begin of changes by DEEPIGB for 42336981
monat(2), "period
wwert(15), "translation date
* End of changes by DEEPIGB for 42336981
blart(15),
bukrs(4),
waers(10),
xblnr(20),
bktxt(25),
newbs(15),
lifnr(10),
wrbtr(20),
 dmbtr(25),
***Begin of insert by MANAKTN for CM-41573299 on 19.04.2018****
commnos(35) type c,
***End of insert by MANAKTN for CM-41573299 on 19.04.2018*****
mwskz(10),
zuonr(18),
sgtxt(50),
bupla(4),
secco(4), "DEEPIGB 42336981
x03(10),
x04(10),
x05(15),
ref1(12),
ref2(12),
ref3(20),
pymnt_term(4),
sp_gl_in,
* Begin of changes by DEEPIGB for 42336981
zfbdt(15),
zlspr(1), "payment block
zlsch(1), "payment method
* End of changes by DEEPIGB for 42336981
item(3) TYPE n,
cross_co(4) TYPE c,
reason_code(4),
credit_area(4),
END OF tb_cab.

*Internal table to fill up vendor item segment

DATA : BEGIN OF tb_ctx OCCURS 0,
serial(10),
bldat(15),
budat(15),
blart(15),
bukrs(15),
waers(10),
xblnr(20),
bktxt(25),
newbs(15),
wrbtr(20),
dmbtr(25),
mwskz(10),
newko(20),
kunnr(10),
lifnr(10),
x02,
sp_gl_in,
item(3) TYPE n,
cross_co(4) TYPE c,
END OF tb_ctx.

DATA: BEGIN OF wa_hdr,

bktxt(25),
bukrs(15),
bldat(15),
budat(15),
monat(2), "DEEPIGB 42336981
wwert(15), "DEEPIGB 42336981
blart(15),
 xblnr(20),
END OF wa_hdr.

DATA: BEGIN OF tb_taxamount OCCURS 0,

serial(10),
wrbtr(20),
mwskz(10),
tax(10),
count(3),
END OF tb_taxamount.

DATA: BEGIN OF tb_output OCCURS 0,

serial(10),
bldat(15),
budat(15),
blart(15),
bukrs(15),
waers(10),
xblnr(20),
bktxt(25),
objkey TYPE awkey,
type(10),
post_remarks(100),
belnr(10),
END OF tb_output.

DATA: BEGIN OF tb_output_unix OCCURS 0,

serial(10),
bldat(15),
budat(15),
blart(15),
bukrs(15),
waers(10),
xblnr(20),
bktxt(25),
objkey TYPE awkey,
type(10),
post_remarks(100),
idoc_remarks(100),
END OF tb_output_unix.

DATA: wf_ktopl LIKE t001-ktopl.

DATA: BEGIN OF tb_konts OCCURS 0,

konts LIKE t030k-konts,
ktosl LIKE t030k-ktosl,
mwskz TYPE mwskz,
END OF tb_konts.
DATA: BEGIN OF tb_knb1 OCCURS 0,
kunnr LIKE knb1-kunnr,
bukrs LIKE knb1-bukrs,
zterm LIKE knb1-zterm,
guzte LIKE knb1-guzte, "Added by AAADHAR CM 0050480848 MBIL Rollout
END OF tb_knb1.

DATA: BEGIN OF tb_lfb1 OCCURS 0,

lifnr LIKE lfb1-lifnr,
bukrs LIKE lfb1-bukrs,
zterm LIKE lfb1-zterm,
 guzte LIKE knb1-guzte, "Added by AAADHAR CM 0050480848 MBIL Rollout
END OF tb_lfb1.

DATA : tb_kna1 TYPE kna1 OCCURS 0 WITH HEADER LINE,

tb_adrc TYPE adrc OCCURS 0 WITH HEADER LINE,
tb_t005t TYPE t005t OCCURS 0 WITH HEADER LINE,
tb_t005u TYPE t005u OCCURS 0 WITH HEADER LINE,
tb_bset TYPE bset OCCURS 0 WITH HEADER LINE.

DATA: wa_setleaf TYPE setleaf, "Work Area

wa_ska1 TYPE ska1,
wf_set_id TYPE /dcsea/zais_seti-set_id,
wf_error_flg TYPE c. "variable

DATA: LV_WRBTR_D TYPE WRBTR,

LV_WRBTR_C TYPE WRBTR,
LV_WRBTR1_D TYPE WRBTR,
LV_WRBTR1_C TYPE WRBTR,
LV_TOT_WRBTR TYPE WRBTR,
LV_DIFF TYPE WRBTR,
LV_BUKRS TYPE BUKRS,
LV_MWSKZ1 TYPE MWSKZ,
LV_WAERS TYPE WAERS,
LT_MWDAT TYPE TABLE OF RTAX1U15,
WA_MWDAT TYPE RTAX1U15.
DATA:BEGIN OF TB_CURR_TEMP OCCURS 0,
SERIAL(10),
ITEMNO_ACC TYPE POSNR_ACC,
AMT_DOCCUR TYPE WRBTR,
MWSKZ TYPE MWSKZ,
NEWBS(15),
END OF TB_CURR_TEMP.

DATA : BEGIN OF tb_temp_upload OCCURS 0,

serial(10),
newbs(15),
mwskz(10),
bldat(15),
budat(15),
blart(15),
bukrs(4),
waers(10),
xblnr(20),
bktxt(25),
newko(20),
kunnr(10),
lifnr(10),
sp_gl_in,
wrbtr(20),
dmbtr(25),
kostl(30),
aufnr(15),
prctr(15),
zuonr(18),
sgtxt(50),
bupla(4),
secco(4),"DEEPIGB 42336981
funds_ctr(10),
cmmt_item(10),
 x03(10),
x04(10),
x05(15),
ref1(12),
ref2(12),
ref3(20),
pymnt_term(4),
reason_code(3),
item TYPE POSNR_ACC,
calculate_tax TYPE c,
END OF tb_temp_upload.

TYPES: BEGIN OF TY_TBSL,

BSCHL TYPE BSCHL,
SHKZG TYPE SHKZG,
END OF TY_TBSL.
DATA: TB_TBSL TYPE TABLE OF TY_TBSL,
WA_TBSL TYPE TY_TBSL.

TYPES : BEGIN OF ty_upload1,

bukrs TYPE bkpf-bukrs,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
blart TYPE bkpf-blart,
bldat type bkpf-bldat,
monat TYPE bkpf-monat,"DEEPIGB 42336981
xblnr TYPE bkpf-xblnr,
waers TYPE bkpf-waers,
END OF ty_upload1.
TYPES : BEGIN OF ty_bkpf,
bukrs TYPE bkpf-bukrs,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
blart TYPE bkpf-blart,
bldat TYPE bkpf-bldat,
xblnr TYPE bkpf-xblnr,
waers TYPE bkpf-waers,
END OF ty_bkpf.

TYPES : BEGIN OF ty_bkpf_1,

bukrs TYPE bkpf-bukrs,
BElnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
blart TYPE bkpf-blart,
budat TYPE bkpf-budat,
usnam TYPE bkpf-usnam,
bktxt TYPE bkpf-bktxt,
awkey TYPE bkpf-awkey,
END OF ty_bkpf_1.

TYPES : BEGIN OF ty_bseg,

bukrs TYPE bseg-bukrs,
belnr TYPE bseg-belnr,
gjahr TYPE bseg-gjahr,
dmbtr TYPE bseg-dmbtr,
wrbtr TYPE bseg-wrbtr,
hkont type bseg-hkont,
kunnr TYPE bseg-kunnr,
lifnr TYPE bseg-lifnr,
 END OF ty_bseg.
DATA: wa_bsip type bsip,
wa_upload1 TYPE ty_upload1,
wa_bkpf TYPE ty_bkpf,
lv_curry TYPE bkpf-gjahr,
lv_hkont(1),
lv_kunnr(1),
lv_lifnr(1),
lv_remarks(100),
tb_bseg TYPE TABLE OF ty_bseg,
wa_bseg TYPE ty_bseg,
tb_bkpf TYPE TABLE OF ty_bkpf,
gt_bkpf type table of ty_bkpf_1,
gt_bkpf1 TYPE TABLE OF ty_bkpf_1,
gw_bkpf TYPE ty_bkpf_1,
tb_upload1 TYPE TABLE OF ty_upload1,
tb_bsip type TABLE OF bsip.

types : begin of ty_t683s,

kschl type t683s-kschl,
kvsl1 type t683s-kvsl1,
end of ty_t683s,
begin of ty_a003,
kschl type a003-kschl,
mwskz type a003-mwskz,
end of ty_a003,
begin of ty_t007b,
ktosl type t007b-ktosl,
stgrp type t007b-stgrp,
stazf type t007b-stazf,
stbkz type t007b-stbkz,
end of ty_t007b.
DATA:gt_t683s type table of ty_t683s,
gv_kalsm type kalsm,
gt_a003 type table of ty_a003,
gt_t007b type table of ty_t007b,
gw_t683s type ty_t683s,
g_x type c,
gw_t007b type ty_t007b,
gw_a003 type ty_a003.

TYPES : BEGIN OF TY_T030K,

KONTS TYPE T030K-KONTH,
KONTH TYPE T030K-KONTH,
END OF TY_T030K,
BEGIN OF ty_t003,
blart TYPE t003-blart,
XMGES TYPE t003-XMGES,
END OF ty_t003.
DATA : lt_bdcdata TYPE TABLE OF bdcdata,"
LW_BDCDATA TYPE BDCDATA,
lt_messgtab LIKE bdcmsgcoll OCCURS 0,
lw_options TYPE ctu_params,
lw_upload1 TYPE ty_upload,
LW_UPLOAD TYPE TY_UPLOAD,
wf_cm_0037042985 TYPE c.
DATA : lt_t030k TYPE TABLE OF TY_t030K,
wa_t030k TYPE ty_t030K,
wa1_t030k TYPE t030k,
 GT_T030K TYPE TABLE OF T030K,
LW1_UPLOAD TYPE TY_UPLOAD,
lt_t003 TYPE TABLE OF ty_t003,
gt_t003 TYPE TABLE OF ty_t003,
wa_t003 TYPE ty_t003.
DATA: lv_newko TYPE SAKNR.

DATA: tb_upload2 TYPE STANDARD TABLE OF ty_upload WITH HEADER LINE,

wa_upload2 LIKE LINE OF tb_upload.

DATA: gv_kokrs TYPE kokrs,"Controlling Area

gv_erkrs TYPE erkrs,"Operating concern
gv_ktopl TYPE ktopl.

* Declarations for Cost element category

TYPES: BEGIN OF gf_cost_elmt,
kokrs TYPE kokrs, " Controlling Area
kstar TYPE kstar, " Cost Element
katyp TYPE katyp, " Cost element category
**** Begin of insert by MANAKTN for cm-4153299 on 18.05.2018****
datbi TYPE datbi ,
datab type datab,
***** End of insert by MANAKTN for cm-4153299 on 18.05.2018****
END OF gf_cost_elmt.
DATA: gt_cost_elmt TYPE STANDARD TABLE OF gf_cost_elmt,
gw_cost_elmt TYPE gf_cost_elmt.
DATA: gx_ce11_12 TYPE char1,
gx_ce01 TYPE char1,
* Declarations for Internal Order
gx_io TYPE char1.

TYPES: BEGIN OF gf_trad_ptr,

rcomp TYPE rcomp_d, " Trading Partner
END OF gf_trad_ptr.

" Internal table and workarea declaration

DATA: gt_trad_ptr TYPE STANDARD TABLE OF gf_trad_ptr,
gt_tp_tmp TYPE STANDARD TABLE OF gf_trad_ptr,
gw_trad_ptr TYPE gf_trad_ptr.
*Begin of insert by DEEPIGB for cm-0045209484 on 19/09/2018
DATA: wf_dmbtr1 TYPE bapiwrbtr,
gt_return TYPE STANDARD TABLE OF bapiret2,
wa_return TYPE bapiret2,
wf_validerr TYPE c.
*End of insert by DEEPIGB for cm-0045209484 on 19/09/2018
* Begin of changes by DEEPIGB for 42336981
CONSTANTS: co_1948 TYPE char4 VALUE '1948',
co_0742 TYPE char4 VALUE '0742'.
* End of changes by DEEPIGB for 42336981

"Begin of insert by PREJENA for MBCN:0051560459 on 17/01/2020

CONSTANTS: co_bstat TYPE bstat_d VALUE 2.
"End of insert by PREJENA for MBCN:0051560459 on 17/01/2020

***Begin of insert by MANAKTN for cm-41573299 on 23.04.2018***

FIELD-SYMBOLS: <FS_UPLOAD> LIKE LINE OF tb_upload.
***Begin of insert by MANAKTN for cm-41573299 on 23.04.2018***
*-----------------------------------------------------------------------
* Ranges
*-----------------------------------------------------------------------
RANGES: ra_mwskz FOR a003-mwskz.
*-----------------------------------------------------------------------
* Selection screen
*-----------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-a01.
PARAMETERS: pa_bukrs LIKE t001-bukrs OBLIGATORY. "Company code
SELECTION-SCREEN END OF BLOCK a01.

SELECTION-SCREEN BEGIN OF BLOCK a02 WITH FRAME TITLE text-a02.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 4(18) text-006 FOR FIELD rb_desk.
PARAMETERS: rb_desk RADIOBUTTON GROUP upd DEFAULT'X'.
PARAMETERS: pa_desk LIKE rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 4(18) text-007 FOR FIELD rb_appl.
PARAMETERS: rb_appl RADIOBUTTON GROUP upd.
PARAMETERS: pa_appl LIKE rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK a02.

SELECTION-SCREEN BEGIN OF BLOCK a03 WITH FRAME TITLE text-a03.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(13) text-005 FOR FIELD cb_post.
PARAMETERS : cb_post AS CHECKBOX.
SELECTION-SCREEN END OF LINE.

*Begin of insert by PREJENA for MBCN:0051560459 on 17.01.2020

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(13) text-t99 FOR FIELD cb_pfd.
PARAMETERS : cb_pfd AS CHECKBOX MODIF ID m1.
SELECTION-SCREEN END OF LINE.
*End of insert by PREJENA for MBCN:0051560459 on 17.01.2020

SELECTION-SCREEN END OF BLOCK a03.

***Begin of insert by AAADHAR for MBIL Rollout

""Added custom checkbox for additional functionality (one/time Vendor)
SELECTION-SCREEN BEGIN OF BLOCK a04.
PARAMETERS: cb_opt TYPE xfeld NO-DISPLAY DEFAULT ''.
SELECTION-SCREEN END OF BLOCK a04.
***End of insert by AAADHAR for MBIL Rollout