Doubt in Suspense Ledger

Hi,
But i have lot of doubt in Suspense Ledger...
Some amount is given to Employee vendor for travelling purpose or general expenses or some other else....... as suspense amount. (It is not treated as advance)
after that they will give bills for that and it should be updated in cash journal as cash debit voucher.....
in first scenario, the amount was given to employee vendor as suspense,
the entry should be in below.
Vendor Account Dr   1000
   To Suspense Account Cr 1000
in second scenario, the amount was cleared by employee vendor after giving bill.
the entry should be in below.
Travelling Expenses A/c Dr 1000
     To Cash Account Cr               1000
For this scenario,
How to enter in SAP.....
Better to tell in FBCJ Cash transaction.
Regards,
Mohan.

closed

Similar Messages

Accounting:post general g/l with acc_gl_posting01,doubt:credit/debit-ledger

< MODERATOR: Message locked. Please read the [Rules of Engagement|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement] before posting next time. >
Hi,
I need an idoc for posting a general account from XI to SAP. I wuold like to import the data for filling the transiction FB50L.
I found this idoc: acc_gl_posting (basic type: acc_gl_posting01), but I have the followiong problems:
- Where can i find the credit/debit option (in which segment)?
- Where can i find the ledger option (in which segment)?
Thank you very much for your help!!
Gabri

Hi Gabri,
I've got an idea. You can use basic type ACC_DOCUMENT02 and to enter the value of your ledger in structure E1BPPAREX. Additionally you should implement BADI ACC_DOCUMENT.
Regards,
Svetlin

Doubt in General Ledger Accounting (New)

Hi,
I have installed all the cubes & data store objects required for the New G/L
0FIGL_O10 - Data store Object
0FIGL_C10 - Base Cube.
0FIGL_R10 - Remote Cube.
0FIGL_V10 - Virtual Cube 1.
0FIGL_V11 - Virtual Cube 2.
I loaded data upto Base cube - ie : 0FIGL_C10
From here I don't no how to load the Data into Remote cube,
and the two other virtual cubes.
I have go through somany links in the Forum but i unable to understand.
can anybody give me the step by step process.
Please dont send any links I have all that.
in one link chetan told
Right click onthe Remote Cube 0FIGL_R10 then selection option
Activate direct access is there ,
i selected that option,
then in that screen , there are tabs
1) Data transfer Processes
2) Source system for infosource 3.x
in the Data transfer Processes tab -- i don't find any DTP that
what i need to do after i selected the Activate direct access option
can any one Help me to solve this Problem
Thanks
prasanna

Hi Olivier thank you for the Reply.
I received the Below Message when I try to Execute the Query of 0FIGL_R10
There is still no data source assigned to VirtualProvider 0FIGL_R10
 Message no. RSOA306
Diagnosis
 There is no data source assigned to VirtualProvider '0FIGL_R10'.
System Response
 No data is selected.
Procedure
 In the Data Warehousing Workbench, call the modeling view and search in
 the InfoProvider hierarchy of the affected VirtualProvider '0FIGL_R10'.
 In the context menu of the VirtualProvider, choose the Activate Direct
 Access... function and select at least one data source.
 If no data sources are displayed for you to choose from, this may mean
that there are still no data transfer processes defined that have the
VirtualProvider as a target, or that for the source assigned to the
VirtualProvider, no active transformation rules exist for remote-enabled
DataSources from the SAP source systems.
when I check in Data Flow it is displayed Right information
and I created Transformation 0FI_GL_10 To 0FIGL_R10
Then when i try to create DTP it is not allowing to create DTP.
when i try to crete DTP for 0FIGL_R10
It gives the message
Source does not support direct access
can you Help me to solve this Problem
Thanks
prasanna

Not select plants in CKMLCP

Dear friends,
I have a doubt about material ledger:
In CKMLCP run there are "not selectable" plants in spite of active material ledger and materials movements in the month.
Thank for your help,
Efigenia

There can be two possible reasons here:
1. Go to the IB where you created your interface, and just check if the cache refresh happened properly for your changelist. If, not, trigger a delta cache refresh for this changelist and then try using the Interface in Receiver Determination.
2. If you are using an integrated Configuration Scenario to define the receiver determination , then the receivers for this incoming message are defined under the "Receiver" tab in the Integrated Configurtaion Object.
I hope this will solve your problem.
Regards, Gaurav.

Material ledger Conceptual doubt

Dear Guru's,
I have one doubt regarding Activate Actual costing.
What is importance of these below fields.
0              No activity update
1              Activity update not relevant to price determination
2              Activity update relevant to price determination
     If we select "1" what is impact, means whether we have to do month end process at cost center or material ledger. What are the dependencies for this.
or If we select "2", where we have to month end process. in material ledger means where we have to our month end process.
Please explain process. i have read help document. but i am confusing my self.
Thanks,
AK.

Hi Kumar,
You can refer below link related to your query.
Material ledger
Notes: (May be useful)
If you use Actual Costing, you can decide whether (in addition to material consumption) activity consumption on cost centers and process consumption of business processes that are required to produce a material should be updated in the quantity structure in the Actual Costing/Material Ledger.
Depending on which activation type is chosen
Actual consumption is updated in the quantity structure but not considered by price determination.
You can use this setting if you simply want information about the complete actual quantity structure. You can assign variances between the plan price of the cost center/activity type or process, and the actual price calculated at period end to the particular cost object at period-end closing using the function 'Revaluation at Actual Prices'.
Actual consumption is updated in the quantity structure and taken into account for the price determination.
If you choose this setting, the variances between the plan price and the actual price are adjusted subsequently. The cost center or the process is then credited and the material associated with the consumption is debited. In the context of multi-level price determination, these variances can be rolled up through the production structure up to the finished product in the same way that material price variances are rolled up.
If you choose this setting, you cannot use the function 'Revaluation at Actual Prices' at period closing in Cost Object Controlling, as the variances from the cost centers/processes are debited to the material direct. If you do use the function 'Revaluation at Actual Prices' at period closing, the cost centers/processes are credited twice and the materials are debited twice.
BR
Ashok

Material Ledger doubt

Hi All
Can anybody please explain regarding the transaction key LKW ( in TCODE : OBYC configuration)
As this LKW key is for Material Ledger documents postings for Accrual and defferals account. As per my knowledge system post the FI document to relevant GL assigned , when we do the ML Costing Run (using TCODE : CKMLCP).At the time of run in the step posting if we don't select the revaluate material check box, system is asking for assignment of GL to LKW key.But the thing is i don't know which entries it'll posted in this case and why it is required to post
But, could anybody please explain the purpose the key LKW.
It'll be great helpful for me
regards
VVR

Dear Kalappa,
If I want to revalue the stocks, Material Ledger ask me to configurate OBYC operations PRD, PRV and PRY , what kind of accounts I must define here?.
I think if I not going to revalue stocks the consumption is going to be in the actual month you said I must use revenue accounts, it is correct? can you explain more about it? In that case ML is going to make accounting complementary? because all the movements in the beginning was costed by standard cost but now I calculate the Periodic Internal Price, ML is going to make accounting between the difference Periodic Internal price and Standard price for example for movements like consumption, cost of good sales...?
I would appreciate your help as soons as possible.
Antonio Rivas Plata

Migration of balances for new ledger using the New GL

Hi everyone,
I have a specific scenario into this customer where we have implemented the SAP version ECC6.0 with the table FAGLFLEXT is active and using just one ledger (0L - standard). We need to create a new ledger for IFRS (e.g: 1L), as the customer didn´t use the splitting document functionality, it was not purchased the migration services.
Now I need to upload the balances in the accounts into new ledger, I understand that for general accounts there is no problem because I can use the transaction FB01L and specifying the new ledger (1L).
My doubt is : How can I to do the upload balances for open items into the AP and AR accounts?
Anybody can help me?
Thanks
Ricardo Gomes

You are right. I just realized that and came back to update my response. Please see the following note.
https://service.sap.com/sap/support/notes/1070629
I see a standard program delivered for that purpose in the note above.
FAGL_MIG_SUBSEQ_POST
Again, please go through the note. There is a lot of information on data transfer (and other FAQs) for new non-leading ledgers.

Doubt in report of FI

Hi every one i have a small doubt in FI report that is i have to give the following output as per the user requirement i had added all the everything in this program i had given u the entire code the only problem is if make comment for the code of city and postal code the remaining everything is working properly and if i remove comment at CITY and POSTAL CODE there is some error can u find out that and help me please
* Ist-Einzelpostenanzeige EC-PCA *
* - direkte Aufruf *
* - Report Writer *
* - Recherche *
* 45b MIC: default values for poper and ryear depfr. fiscyear variant *
* 46a MIC Warning if too few selection parameters *
* 46a MIC: use up to 'whr_size' single values in select statement *
* 46a MIC: move'Initialization of Rep-Rep-Interface' to Initialization*
* 46a MIC: check only new auth-object *
* 46c MIC: add RMVCT and get more fields from RRI *
REPORT z_rcopca02_1 NO STANDARD PAGE HEADING MESSAGE-ID km
 LINE-COUNT (2) LINE-SIZE 81.
* Typen ***************************************************************
*type-pools: kkblo.
TYPE-POOLS: slis, ecarc.
* DDIC-Tabellen *******************************************************
TABLES: glpca, "Einzelposten / Ist
 glu1, "Übergabestruktur FI-SL-Anzeige
 t000,
 tka01,
 sscrfields,
 lfa1,
 kna1,
 bseg,
 with_item.
* Variablen und int. Tabellen *****************************************
DATA: afield TYPE slis_fieldcat_alv,
 sp_group TYPE slis_sp_group_alv,
 t_listheader TYPE slis_t_listheader WITH HEADER LINE,
 t_layout TYPE slis_layout_alv,
 t_fieldcat TYPE slis_t_fieldcat_alv,
 t_spec_groups TYPE slis_t_sp_group_alv,
 event TYPE slis_alv_event,
 t_events TYPE slis_t_event,
 g_variant LIKE disvariant,
 gx_variant LIKE disvariant,
 g_exit(1) TYPE c,
 g_save(1) TYPE c,
 g_repid LIKE sy-repid,
 msgtyp LIKE sy-msgty,
 lt_dynpread LIKE dynpread OCCURS 1 WITH HEADER LINE,
 ls_rpcak LIKE rpcak, "note 0310592
 packsize TYPE i VALUE 1000,
 text1(60) TYPE c,
 text2(60) TYPE c,
 oldkokrs LIKE glpca-kokrs,
 oldracct LIKE glpca-racct.
DATA: whr_size TYPE i VALUE 50,"Maximum of single values per MIC 46a
 "charact. in the where-clause of the select-statement
 lines TYPE i, "number of lines of range table MIC 46a
 cnt_rldnr TYPE i, "Zähler Anzahl selektierter Ledger
 cnt_kokrs TYPE i, "Zähler Anzahl selektierter KoReKreise
 cnt_poper TYPE i, "Zähler Anzahl selektierter Perioden
 cnt_ryear TYPE i, "Zähler Anzahl selektierter GeschJahre
 cnt_rvers TYPE i, "Zähler Anzahl selektierter Versionen
 cnt_bukrs TYPE i, "Zähler Anzahl selektierter BuKreise
 empge LIKE dkobr-empge,
 ksl_curr LIKE tka01-pcacur,
 hsl_curr LIKE t001-waers,
 a_rec LIKE rstirec.
DATA: BEGIN OF dim_data.
 INCLUDE STRUCTURE rgcdi. "data for dimensions
DATA: END OF dim_data.
DATA: BEGIN OF tab_fields OCCURS 80,
 name LIKE dntab-fieldname, "fields in table i_glpca
 END OF tab_fields.
DATA: BEGIN OF i_glpca OCCURS 0.
 INCLUDE STRUCTURE rpca2.
DATA: racct_ktext LIKE rpcak-ktext,
 psppp LIKE prps-posid,
 name1 LIKE lfa1-name1,
 adrnr like lfa1-adrnr,
 stras like lfa1-stras,
 c_name1 like kna1-name1,
 v_rate like with_item-qsatz,
 qsshb like bseg-qsshb,
 qbshb like bseg-qbshb,
 END OF i_glpca.
DATA: rw_subrc LIKE sy-subrc, "Flag: Report-Writer-Schnittstelle
 re_subrc LIKE sy-subrc, "Flag: Recherche-Schnittstelle
 subrc LIKE sy-subrc.
DATA: set_id LIKE sethier-setid, "Set-ID "RDI_SETS_4.0
 set_class LIKE sethier-setclass, "Setklasse "RDI_SETS_4.0
 set_sname LIKE sethier-shortname."Setname (24) "RDI_SETS_4.0
DATA: authorised(1),
 s_message(1),
 auth_dbcount LIKE sy-tabix,
* Hex-Konstanten für Minimum/Maximum-Werte
 BEGIN OF hex00,
 x1(12) TYPE c,
 x2(12) TYPE c,
 END OF hex00,
 BEGIN OF hexff,
 x1(12) TYPE c,
 x2(12) TYPE c,
 END OF hexff.
RANGES rclnt FOR glpca-rclnt.
FIELD-SYMBOLS: <glpca> LIKE LINE OF i_glpca,
 <glpca_arc> TYPE ecarc_glpca_curr.
* Selektionsoptionen *************************************************
SELECT-OPTIONS:
rldnr FOR glpca-rldnr DEFAULT '8A' NO-DISPLAY,
rassc FOR glpca-rassc NO-DISPLAY,
* rrcty for glpca-rrcty default 0,
rrcty FOR glpca-rrcty,
rvers FOR glpca-rvers DEFAULT '000',
kokrs FOR glpca-kokrs MEMORY ID cac,
bukrs FOR glpca-rbukrs MEMORY ID buk,
* poper for glpca-poper default sy-datlo+4(2),
* ryear for glpca-ryear default sy-datlo,
poper FOR glpca-poper,
ryear FOR glpca-ryear,
prctr FOR glpca-rprctr MATCHCODE OBJECT prct,
pprctr FOR glpca-sprctr MATCHCODE OBJECT prct,
* RACCT FOR GLPCA-RACCT MATCHCODE OBJECT KART, "RD_P30K128304
racct FOR glpca-racct, "RD_P30K128304
drcrk FOR glpca-drcrk,
activ FOR glpca-activ,
rhoart FOR glpca-rhoart,
rfarea FOR glpca-rfarea,
stagr FOR glpca-stagr,
rtcur FOR glpca-rtcur,
runit FOR glpca-runit,
versa FOR glpca-versa NO-DISPLAY,
eprctr FOR glpca-eprctr NO-DISPLAY,
afabe FOR glpca-afabe NO-DISPLAY,
rmvct FOR glpca-rmvct NO-DISPLAY,
hrkft FOR glpca-hrkft NO-DISPLAY, "note 550972
sbukrs FOR glpca-sbukrs NO-DISPLAY, "note 550972
shoart FOR glpca-shoart NO-DISPLAY, "note 550972
sfarea FOR glpca-sfarea NO-DISPLAY, "note 550972
docct FOR glpca-docct,
docnr FOR glpca-docnr,
refdocct FOR glpca-refdocct,
refdocnr FOR glpca-refdocnr,
werks FOR glpca-werks,
repmatnr FOR glpca-rep_matnr MATCHCODE OBJECT pca_shlp_rep_matnr,
rscope FOR glpca-rscope.
PARAMETERS: no_rrint NO-DISPLAY DEFAULT ' '." skip "MICP40K066037
" report-report-interface
* display variant ">>MICP40K039857
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE text-e01.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN COMMENT 47(40) varname FOR FIELD p_vari.
SELECTION-SCREEN END OF BLOCK 0.
PARAMETERS log_grp(4) TYPE c NO-DISPLAY DEFAULT 'zKE5Z'.
"<<MICP40K039857
RANGES: v_racct FOR glpca-racct,
 v_prctr FOR glpca-rprctr,
 v_pprctr FOR glpca-sprctr.
* Tabelle mit Werten aus den Berichts-Set vom Report-Writer *
DATA BEGIN OF val_tab OCCURS 50.
 INCLUDE STRUCTURE rgciv.
DATA END OF val_tab.
*************************************************** MICP30K166368
* feldkatalog und interface für bb-schnittstelle rw MICP30K166368
*************************************************** MICP30K166368
"MICP30K166368
DATA BEGIN OF bbs_fieldtab OCCURS 20. "MICP30K166368
 INCLUDE STRUCTURE rstifields. "MICP30K166368
DATA END OF bbs_fieldtab. "MICP30K166368
* archiv
TYPE-POOLS: rsds.
TYPES: BEGIN OF ty_archive_objects,
 object LIKE arch_obj-object,
 END OF ty_archive_objects,
 ty_t_archive_objects TYPE ty_archive_objects OCCURS 2.
CONSTANTS: lc_set TYPE c VALUE 'X',
 lc_report TYPE progname VALUE 'ZKE5Z',
 lc_reporttype TYPE reporttype VALUE 'TR'.
TABLES: admi_files.
SELECT-OPTIONS lr_files FOR admi_files-archiv_key NO-DISPLAY.
PARAMETER: read_db TYPE c DEFAULT 'X' NO-DISPLAY,
 read_ar TYPE c NO-DISPLAY,
 arc_obj LIKE arch_obj-object NO-DISPLAY,
 read_as TYPE c DEFAULT 'X' NO-DISPLAY.
DATA : lt_arch_obj TYPE ty_t_archive_objects WITH HEADER LINE,
 ls_selections TYPE rsds_frange,
 lt_selections TYPE rsds_frange_t,
 ls_selopt TYPE rsdsselopt,
 lt_glpca_archiv TYPE ecarc_t_glpca_curr.
*********************************************************>>MICP40K039857
* INITIALIZATION
INITIALIZATION.
* Diverse Initialisierungen
PERFORM init_vars.
g_repid = sy-repid.
* Set default values for record type
rrcty-sign = 'I'.
rrcty-option = 'EQ'.
rrcty-low = '0'.
APPEND rrcty.
rrcty-low = '2'.
APPEND rrcty.
* Set default values for period and year (if kokrs or bukrs is known)
GET PARAMETER ID 'BUK' FIELD bukrs-low.
GET PARAMETER ID 'CAC' FIELD kokrs-low.
IF kokrs-low IS INITIAL "get contr. area from company code
 AND NOT bukrs-low IS INITIAL.
 CALL FUNCTION 'KOKRS_GET_FROM_BUKRS'
 EXPORTING
 i_bukrs = bukrs-low
 IMPORTING
 e_kokrs = kokrs-low
 EXCEPTIONS
 no_kokrs_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 CLEAR kokrs-low.
 ENDIF.
ENDIF.
IF NOT kokrs-low IS INITIAL.
 CALL FUNCTION 'K_KOKRS_READ' "get fiscal year variant
 EXPORTING
 kokrs = kokrs-low
 IMPORTING
 e_tka01 = tka01
 EXCEPTIONS
 not_found = 1
 not_found_gjahr = 2
 OTHERS = 3.
 IF sy-subrc = 0.
 CALL FUNCTION 'G_PERIOD_GET'
 EXPORTING
 date = sy-datlo
 variant = tka01-lmona
 IMPORTING
 period = poper-low
 year = ryear-low
 EXCEPTIONS
 ledger_not_assigned_to_company = 1
 period_not_defined = 2
 variant_not_defined = 3
 OTHERS = 4.
 IF sy-subrc = 0.
 poper-sign = 'I'.
 poper-option = 'EQ'.
 APPEND poper.
 ryear-sign = 'I'.
 ryear-option = 'EQ'.
 APPEND ryear.
 ENDIF.
 ENDIF.
ENDIF.
* Settings for display variants
g_save = 'A'. "Schalter Varianten benutz./allg. speichern
CLEAR g_variant.
g_variant-report = g_repid.
g_variant-log_group = log_grp.
g_variant-username = sy-uname.
* Get default variant
gx_variant = g_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = g_save
 CHANGING
 cs_variant = gx_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 0.
 p_vari = gx_variant-variant.
ENDIF.
* Set variant
IF p_vari IS INITIAL.
 p_vari = '1SAP'.
 MOVE p_vari TO gx_variant-variant.
 CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
 EXPORTING
 i_save = g_save
 CHANGING
 cs_variant = gx_variant
 EXCEPTIONS
 not_found = 1.
 IF sy-subrc NE 0.
 CLEAR p_vari.
 CLEAR gx_variant-variant.
 ENDIF.
ENDIF.
varname = gx_variant-text.
"<<MICP40K039857
* archiv
CALL FUNCTION 'KARL_DATA_INPUT_INIT'
 EXPORTING
 i_report = lc_report
 i_reporttype = lc_reporttype
 IMPORTING
 e_xusedb = read_db
 e_xusear = read_ar
 e_archobj = arc_obj
 e_infosys = read_as
 TABLES
 t_arch_sel = lr_files.
DATA: lt_excluding LIKE sy-ucomm OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
 EXPORTING
 p_status = 'SELSCREEN'
 p_program = 'RCOPCA02'
 TABLES
 p_exclude = lt_excluding.
* Initialisieren der Bericht/Bericht-Schnittstellen *
DATA: ld_no_rrint TYPE boole_d. "note 490484 begin
IMPORT rri = ld_no_rrint FROM MEMORY ID 'RCOPCA02_NO_RRI'.
IF ld_no_rrint = 'X'.
 FREE MEMORY ID 'RCOPCA02_NO_RRI'.
ELSE. "note 490484 end
 CALL FUNCTION 'G_REPORT_INTERFACE_INIT' "Report-Writer?
 EXPORTING "MICP30K166368
 table = 'GLPCT' "MICP30K166368
 IMPORTING
 subrc = rw_subrc "MICP30K166368
 TABLES "MICP30K166368
 it_fieldr = bbs_fieldtab. "MICP30K166368
 CALL FUNCTION 'RSTI_APPL_STACK_POP'"oder Recherche?
 IMPORTING
 i_rec = a_rec
 EXCEPTIONS
 appl_stack_not_initialized = 1.
 re_subrc = sy-subrc.
 IF re_subrc = 0.
* check Receiver is this report
 IF NOT ( ( a_rec-rtool = 'RT' AND a_rec-ronam = 'Z_RCOPCA02_1' )
 OR ( a_rec-rtool = 'TR' AND a_rec-ronam = 'ZKE5Z' ) ) .
 re_subrc = 2.
 ENDIF.
 ENDIF.
ENDIF.
* AT SELCTION-SCREEN on value request**********************************
*at selection-screen on value-request for racct-low. "RD "4.6a
* "RD "4.6a
* call function 'K_RACCT_VALUE_REQUEST' "RD "4.6a
* importing "RD "4.6a
* e_racct = racct-low. "RD "4.6a
* "RD "4.6a
* "RD "4.6a
*at selection-screen on value-request for racct-high. "RD "4.6a
* "RD "4.6a
* call function 'K_RACCT_VALUE_REQUEST' "RD "4.6a
* importing "RD "4.6a
* e_racct = racct-high. "RD "4.6a
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari. "MICP40K039857
PERFORM f4_for_variant. "MICP40K039857
AT SELECTION-SCREEN ON VALUE-REQUEST FOR poper-low. "RD "4.6a
* begin of insertion note 522715
CALL FUNCTION 'K_KOKRS_READ'
 EXPORTING
 kokrs = kokrs-low
 EXCEPTIONS
 not_found = 1
 not_found_gjahr = 2
 OTHERS = 3.
IF sy-subrc = 0.
* end of insertion note 522715
 CALL FUNCTION 'ECPCA_RPMAX_VALUE_REQUEST' "RD "4.6a
 EXPORTING "RD "4.6a
 i_kokrs = kokrs-low "RD "4.6a
 i_ryear = ryear-low "RD "4.6a
 IMPORTING "RD "4.6a
 e_rpmax = poper-low "RD "4.6a
* begin of insertion note 522715
 EXCEPTIONS
 table_empty = 1.
ENDIF.
* end of insertion note 522715
AT SELECTION-SCREEN ON VALUE-REQUEST FOR poper-high. "RD "4.6a
* begin of insertion note 522715
CALL FUNCTION 'K_KOKRS_READ'
 EXPORTING
 kokrs = kokrs-low
 EXCEPTIONS
 not_found = 1
 not_found_gjahr = 2
 OTHERS = 3.
IF sy-subrc = 0.
* end of insertion note 522715
 CALL FUNCTION 'ECPCA_RPMAX_VALUE_REQUEST' "RD "4.6a
 EXPORTING "RD "4.6a
 i_kokrs = kokrs-low "RD "4.6a
 i_ryear = ryear-low "RD "4.6a
 IMPORTING "RD "4.6a
 e_rpmax = poper-high "RD "4.6a
* begin of insertion note 522715
 EXCEPTIONS
 table_empty = 1.
ENDIF.
* end of insertion note 522715
* AT SELCTION-SCREEN ***************************************************
AT SELECTION-SCREEN.
PERFORM pai_of_selection_screen.
* begin of insertion note 522715
IF NOT kokrs-low IS INITIAL.
 CALL FUNCTION 'K_KOKRS_READ'
 EXPORTING
 kokrs = kokrs-low
 EXCEPTIONS
 not_found = 1
 not_found_gjahr = 2
 OTHERS = 3.
 IF sy-subrc <> 0.
 MESSAGE e101(ki) WITH kokrs-low.
 ENDIF.
ENDIF.
* end of insertion note 522715
* archiv
IF sy-ucomm = 'FC01' OR sy-ucomm = 'UCDS'
 OR sy-ucomm = 'ONLI' AND read_ar = 'X'
 AND read_as IS INITIAL AND lr_files[] IS INITIAL.
 IF lt_arch_obj[] IS INITIAL.
 lt_arch_obj-object = 'PCA_OBJECT'. APPEND lt_arch_obj.
 lt_arch_obj-object = 'EC_PCA_ITM'. APPEND lt_arch_obj.
 ENDIF.
 CALL FUNCTION 'KARL_DATA_INPUT_SELECT'
 EXPORTING
 i_db_and_arc = lc_set
 i_infosys_possible = lc_set
 i_object_fixed = 'V'
 i_documentation = 'KARL_DATA_INPUT_SEL_KE5YZ'
 i_report = lc_report
 i_reporttype = lc_reporttype
 TABLES
 t_objects = lt_arch_obj
 t_arch_sel = lr_files
 CHANGING
 c_xusedb = read_db
 c_xusear = read_ar
 c_archobj = arc_obj
 c_infosys = read_as.
ENDIF.
* START-OF-SELECTION **************************************************
START-OF-SELECTION.
* Default-Werte löschen, falls Aufruf über Recherche
* oder Report-Writer erfolgt ist
IF no_rrint IS INITIAL AND ld_no_rrint IS INITIAL. "note 490484
 IF rw_subrc EQ 0 OR re_subrc EQ 0.
 REFRESH: rldnr, rrcty, rvers, kokrs, bukrs, poper, ryear,
 racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
 versa, afabe, eprctr,
 v_racct, v_prctr, v_pprctr.
 CLEAR: rldnr, rrcty, rvers, kokrs, bukrs, poper, ryear,
 racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
 versa, afabe, eprctr,
 v_racct, v_prctr, v_pprctr.
 IF NOT read_as IS INITIAL. "note 625581
 CLEAR: lr_files, lr_files[]. "note 625581
 ENDIF. "note 625581
 ENDIF.
* Parameter einlesen über Report-Writer-Schnittstelle *
 IF rw_subrc EQ 0.
 PERFORM rw_get_parameters.
* oder Parameter einlesen über Recherche-Schnittstelle *
 ELSEIF re_subrc EQ 0.
 PERFORM re_get_parameters.
 ENDIF.
ENDIF.
IF read_db = 'X'. " read from DB (archiv)
* Bewegungsdaten einlesen und puffern...................................
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = 'Einzelposten selektieren'(p10).
* Use dirty trick to mislead DB-optimizer
 CALL FUNCTION 'DB_DO_NOT_USE_CLIENT_INDEX'
 EXPORTING
 value = sy-mandt
 TABLES
 mandttab = rclnt.
 SELECT (tab_fields) FROM glpca
 CLIENT SPECIFIED
 PACKAGE SIZE packsize
 APPENDING CORRESPONDING FIELDS OF TABLE i_glpca
 WHERE rldnr IN rldnr
 AND rrcty IN rrcty
 AND rvers IN rvers
 AND kokrs IN kokrs
 AND rbukrs IN bukrs
 AND ryear IN ryear
 AND rassc IN rassc
 AND hrkft IN hrkft "note 550972
 AND sbukrs IN sbukrs "note 550972
 AND shoart IN shoart "note 550972
 AND sfarea IN sfarea "note 550972
 AND racct IN racct
 AND rprctr IN prctr
 AND sprctr IN pprctr
 AND poper IN poper
 AND drcrk IN drcrk
 AND activ IN activ
 AND rhoart IN rhoart
 AND rfarea IN rfarea
 AND versa IN versa
 AND eprctr IN eprctr
 AND afabe IN afabe
 AND rmvct IN rmvct
 AND docct IN docct
 AND docnr IN docnr
 AND stagr IN stagr
 AND rtcur IN rtcur
 AND runit IN runit
 AND refdocct IN refdocct
 AND refdocnr IN refdocnr
 AND werks IN werks
 AND rep_matnr IN repmatnr "RDIP40K020663
 AND rscope IN rscope "RDIP40K020663
 AND rclnt IN rclnt. "dirty trick to mislead DB-optimizer
 IF sy-dbcnt > 1.
 text1 = sy-dbcnt.
 CONDENSE text1.
 CONCATENATE text1 text-m01 INTO text2 SEPARATED BY space.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = text2. " ... Datensätze gelesen
 ENDIF.
 ENDSELECT.
* Entfernt nicht zugehörige Einträge....................................
 LOOP AT i_glpca WHERE ( NOT rprctr IN v_prctr )
 or ( not SPRCTR in v_pprctr )
 OR ( NOT racct IN v_racct ).
 DELETE i_glpca.
 ENDLOOP.
ENDIF.
*archiv
IF read_ar = 'X' AND NOT
 ( read_as IS INITIAL AND lr_files[] IS INITIAL ).
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = 'Lesen im Archiv'(p12).
 DEFINE fill_lt_selections.
 if not &2[] is initial.
 clear ls_selections.
 move &1 to ls_selections-fieldname.
 loop at &2.
 clear ls_selopt.
 move-corresponding &2 to ls_selopt.
 append ls_selopt to ls_selections-selopt_t.
 endloop.
 append ls_selections to lt_selections.
 endif.
 END-OF-DEFINITION.
 fill_lt_selections 'RLDNR' rldnr.
 fill_lt_selections 'RRCTY' rrcty.
 fill_lt_selections 'RVERS' rvers.
 fill_lt_selections 'KOKRS' kokrs.
 fill_lt_selections 'RBUKRS' bukrs.
 fill_lt_selections 'POPER' poper.
 fill_lt_selections 'RYEAR' ryear.
 fill_lt_selections 'RPRCTR' prctr.
 fill_lt_selections 'SPRCTR' pprctr.
 fill_lt_selections 'RACCT' racct.
 fill_lt_selections 'DRCRK' drcrk.
 fill_lt_selections 'ACTIV' activ.
 fill_lt_selections 'RHOART' rhoart.
 fill_lt_selections 'RFAREA' rfarea. "note 401961
 fill_lt_selections 'STAGR' stagr.
 fill_lt_selections 'RTCUR' rtcur.
 fill_lt_selections 'RUNIT' runit.
 fill_lt_selections 'VERSA' versa.
 fill_lt_selections 'EPRCTR' eprctr.
 fill_lt_selections 'AFABE' afabe.
 fill_lt_selections 'RMVCT' rmvct.
 fill_lt_selections 'DOCCT' docct.
 fill_lt_selections 'DOCNR' docnr.
 fill_lt_selections 'REFDOCCT' refdocct.
 fill_lt_selections 'REFDOCNR' refdocnr.
 fill_lt_selections 'WERKS' werks.
 fill_lt_selections 'REP_MATNR' repmatnr.
 fill_lt_selections 'RSCOPE' rscope.
 fill_lt_selections 'HRKFT' hrkft. "note 550972
 fill_lt_selections 'SBUKRS' sbukrs. "note 550972
 fill_lt_selections 'SHOART' shoart. "note 550972
 fill_lt_selections 'SFAREA' sfarea. "note 550972
 CALL FUNCTION 'EC_PCA_SELECT_FROM_ARCHIVE'
 EXPORTING
 i_selections = lt_selections[]
 i_files_sequential_read = lr_files[]
 IMPORTING
 e_glpca = lt_glpca_archiv[]
 EXCEPTIONS
 no_infostruc_found = 1.
 IF sy-subrc = 1.
 MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 CLEAR i_glpca.
 LOOP AT lt_glpca_archiv ASSIGNING <glpca_arc>
 WHERE ( rprctr IN v_prctr )
 and ( sprctr IN v_pprctr )
 AND ( racct IN v_racct ).
 MOVE-CORRESPONDING <glpca_arc> TO i_glpca.
 APPEND i_glpca.
 ENDLOOP.
* delete duplicate records note 639647
 IF NOT read_db IS INITIAL AND NOT lt_glpca_archiv[] IS INITIAL.
 SORT i_glpca.
 DELETE ADJACENT DUPLICATES FROM i_glpca.
 ENDIF.
ENDIF.
IF i_glpca[] IS INITIAL. "Info,nichts gefunden
 MESSAGE s000.
 EXIT.
ENDIF.
* get texts for accounts ...............................................
SORT i_glpca BY kokrs racct.
LOOP AT i_glpca ASSIGNING <glpca>.
 IF <glpca>-kokrs <> oldkokrs OR <glpca>-racct <> oldracct. "AT NEW
 CLEAR ls_rpcak.
 oldkokrs = <glpca>-kokrs.
 oldracct = <glpca>-racct.
 CALL FUNCTION 'K_RACCT_SINGLE_CHECK' "note 0310592
 EXPORTING
 i_kokrs = <glpca>-kokrs
 i_racct = <glpca>-racct
 i_spras = sy-langu
 i_textflag = 'X'
 IMPORTING
 e_rpcak = ls_rpcak
 EXCEPTIONS
 not_valid = 1
 OTHERS = 2.
 IF sy-subrc NE 0.
 CLEAR ls_rpcak.
 ENDIF.
 ENDIF. "ENDAT
 <glpca>-racct_ktext = ls_rpcak-ktext.
* Fetching vendor name from vendor number
*break-point.
 SELECT SINGLE * FROM LFA1
 WHERE LIFNR = <glpca>-LIFNR AND
 SPRAS = SY-LANGU.
 IF SY-SUBRC eq 0.
 <glpca>-name1 = lfa1-name1.
 <glpca>-adrnr = lfa1-adrnr.
 <glpca>-stras = lfa1-stras.
 ENDIF.
* Fetching customer name from customer number
 SELECT SINGLE * FROM kna1
 WHERE KUNNR = <glpca>-KUNNR.
 IF SY-SUBRC eq 0.
 <glpca>-c_name1 = kna1-name1.
 ENDIF.
 SELECT SINGLE * FROM bseg
 WHERE BUKRS EQ <glpca>-rbukrs AND
 BELNR EQ <glpca>-refdocnr AND
 GJAHR EQ <glpca>-ryear AND
 KTOSL EQ 'WIT' AND
 BUZEI EQ <glpca>-refdocln.
 IF SY-SUBRC eq 0.
 SELECT SINGLE * FROM WITH_ITEM
 WHERE BUKRS EQ <glpca>-rbukrs AND
 BELNR EQ <glpca>-refdocnr AND
 GJAHR EQ <glpca>-ryear." AND
* BUZEI EQ <glpca>-refdocln AND
* WITHT EQ BSEG-QSSKZ.
 IF SY-SUBRC eq 0.
 <glpca>-v_rate = with_item-qsatz.
 <glpca>-qsshb = with_item-WT_QSSHB.
 <glpca>-qbshb = with_item-WT_QBSHB.
 ENDIF.
 ENDIF
ENDLOOP.
* Liste mit Einzelposten geeignet sortieren.............................
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = 'Einzelposten sortieren'(p30).
* if show_ref is initial.
* sort i_glpca by rldnr ryear rbukrs rrcty rvers
* docct docnr docln.
* else.
SORT i_glpca BY rldnr kokrs ryear rbukrs rrcty rvers poper
 refdocct refdocnr refdocln.
* endif.
* Berechtigungsprüfung und gemerkte Belege aufbereiten .................
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = 'Berechtigungsprüfungen'(p40).
CLEAR: cnt_rldnr, cnt_kokrs, cnt_ryear, cnt_rvers, cnt_bukrs.
LOOP AT i_glpca ASSIGNING <glpca>.
* Berechtigungscheck
 PERFORM check_repo_authority CHANGING authorised.
 IF authorised IS INITIAL.
 DELETE i_glpca.
 s_message = 'X'.
* zählen der Sätze ohne Berechtigung
 auth_dbcount = auth_dbcount + 1.
 ELSE. "Weitere Bearbeitung nur für berechtigte Belege...
* Zusätzlich merken der Anzahl der Ausprägungen
* bestimmter Dimensionen
 ON CHANGE OF <glpca>-rldnr.
 ADD 1 TO cnt_rldnr.
 ENDON.
 ON CHANGE OF <glpca>-kokrs.
 ADD 1 TO cnt_kokrs.
 CALL FUNCTION 'G_CURRENCY_FROM_CT_GET'
 EXPORTING
 ct = '90'
 kokrs = <glpca>-kokrs
 rldnr = <glpca>-rldnr
 IMPORTING
 currency = ksl_curr.
 ENDON.
 ON CHANGE OF <glpca>-poper.
 ADD 1 TO cnt_poper.
 ENDON.
 ON CHANGE OF <glpca>-ryear.
 ADD 1 TO cnt_ryear.
 ENDON.
 ON CHANGE OF <glpca>-rvers.
 ADD 1 TO cnt_rvers.
 ENDON.
 ON CHANGE OF <glpca>-rbukrs.
 ADD 1 TO cnt_bukrs.
 CALL FUNCTION 'G_CURRENCY_FROM_CT_GET'
 EXPORTING
 bukrs = <glpca>-rbukrs
 ct = '10'
 IMPORTING
 currency = hsl_curr.
 ENDON.
* externe Immobilienbezeichnung "ww/kb
* on change of i_glpca-imkey.
 IF ( NOT <glpca>-imkey IS INITIAL ).
 CALL FUNCTION 'REMD_IMKEY_TO_EMPGE'
 EXPORTING
 i_imkey = <glpca>-imkey
 i_dabrz = <glpca>-dabrz
* I_length = 20
 IMPORTING
 e_empge = <glpca>-empge
 e_konty = <glpca>-konty
 EXCEPTIONS
 not_found = 1.
 IF sy-subrc NE 0.
 CLEAR <glpca>-empge.
 CLEAR <glpca>-konty.
 ENDIF.
* CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
 ENDIF.
* endon.
* on change of i_glpca-dabrz.
* call function 'REMD_IMKEY_TO_EMPGE'
* exporting
* i_imkey = i_glpca-imkey
* i_dabrz = i_glpca-dabrz
** i_length = 20
* importing
* e_empge = i_glpca-empge
* e_konty = i_glpca-konty.
** CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
* endon.
* Konvertierungsproblem mit PSP-Nummer bereinigen
 IF NOT <glpca>-ps_psp_pnr IS INITIAL.
 IF <glpca>-ps_psp_pnr EQ space.
 CLEAR <glpca>-ps_psp_pnr.
 ELSE.
 WRITE <glpca>-ps_psp_pnr TO <glpca>-psppp.
 CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
 EXPORTING
 input = <glpca>-psppp
 IMPORTING
 output = <glpca>-psppp.
 ENDIF.
 ENDIF.
* Währungen in Hilfsfeldern speichern
 IF <glpca>-hsl_curr IS INITIAL.
 <glpca>-hsl_curr = hsl_curr.
 ENDIF.
 IF <glpca>-ksl_curr IS INITIAL.
 <glpca>-ksl_curr = ksl_curr.
 ENDIF.
* modify i_glpca.
 ENDIF.
ENDLOOP.
* Nachricht, wenn nicht alle Einzelposten angezeigt werden.
IF NOT s_message IS INITIAL.
 MESSAGE s407(km) WITH auth_dbcount.
ENDIF.
* EP ausgeben...........................................................
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = 'Einzelposten ausgeben'(p50).
t_layout-detail_initial_lines = 'X'.
t_layout-detail_popup = 'X'.
t_layout-f2code = 'PIC1'. "MICP40K039857
t_layout-get_selinfos = 'X'.
t_layout-group_change_edit = 'X'. "note 576149
PERFORM fill_listheader.
PERFORM fieldcat_fill.
PERFORM spec_groups_fill.
PERFORM events_fill. "MICP40K039857
">>MICP40K039857
* call function 'K_KKB_LIST_DISPLAY'
* exporting
* i_callback_program = 'Z_RCOPCA02_1
* i_callback_user_command = 'USR_CMD'
* i_callback_top_of_page = 'TOP_OF_PAGE'
** I_CALLBACK_END_OF_PAGE =
** I_CALLBACK_END_OF_LIST =
* i_callback_pf_status_set = 'SET_PF_STATUS'
** I_CALLBACK_LAYOUT_SAVE =
** I_CALLBACK_FIELDCAT_SAVE =
* i_tabname = 'I_GLPCA'
* is_layout = t_layout
* it_fieldcat = t_fieldcat
** I_FCTYPE = 'R'
** IT_EXCLUDING =
* it_special_groups = t_spec_groups
** IT_SORT =
** IS_SEL_HIDE =
** I_SCREEN_START_COLUMN = 0
** I_SCREEN_START_LINE = 0
** I_SCREEN_END_COLUMN = 0
** I_SCREEN_END_LINE = 0
* tables
* t_outtab = i_glpca
* exceptions
* others = 1.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
* CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
* I_INTERFACE_CHECK = ' '
 i_callback_program = 'Z_RCOPCA02_1'
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USR_CMD'
 i_structure_name = 'I_GLPCA'
 is_layout = t_layout
 it_fieldcat = t_fieldcat
* IT_EXCLUDING =
 it_special_groups = t_spec_groups
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
 i_default = 'X'
 i_save = g_save
 is_variant = g_variant
 it_events = t_events
* IT_EVENT_EXIT =
* IS_PRINT =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = i_glpca
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
"<<MICP40K039857
CLEAR i_glpca.
*& Form CHECK_REPO_AUTHORITY
* Check only new auth-object K_PCA *
* --> p1 text
* <-- p2 text
FORM check_repo_authority CHANGING authorized LIKE authorised.
* fill structure for userexit in K_PCA_RESP_AUTHORITY_CHECK
DATA: auth LIKE pca_i_auth. "46a MIC check K_PCA and G_GLTP
auth-bukrs = <glpca>-rbukrs.
auth-rldnr = <glpca>-rldnr.
auth-rvers = <glpca>-rvers.
auth-rrcty = <glpca>-rrcty.
CLEAR authorized.
* check PrCtr/account/activity
CALL FUNCTION 'K_PCA_RESP_AUTHORITY_CHECK'
 EXPORTING
 i_kokrs = <glpca>-kokrs
 i_prctr = <glpca>-rprctr
 i_kstar = <glpca>-racct
 i_vorgn = 'REPP'
 i_actvt = '28'
 i_auth = auth
 i_no_dialog_message = 'X'
 EXCEPTIONS
 no_authority = 1
 data_missing = 2
 OTHERS = 3.
IF sy-subrc = 0. "ok
* check ledger/version/record type
 CALL FUNCTION 'PCA_G_GLTP_AUTH_CHECK'
 EXPORTING
 rldnr = <glpca>-rldnr
 rvers = <glpca>-rvers
 rrcty = <glpca>-rrcty
 EXCEPTIONS
 no_authorisation = 1
 OTHERS = 2.
 IF sy-subrc = 0. "ok, User is authorized
 authorized = 'X'.
 ENDIF.
ENDIF.
ENDFORM. " CHECK_REPO_AUTHORITY
*& Form INIT_VARS
* Initialisieren diverser Hilfsvariablen und -tabellen *
FORM init_vars.
DATA BEGIN OF nametab OCCURS 80. "Tabelle mit Feldern aus der RPCA2
 INCLUDE STRUCTURE dntab.
DATA END OF nametab.
SELECT SINGLE * FROM t000
 CLIENT SPECIFIED
 WHERE mandt = sy-mandt.
REFRESH nametab.
CALL FUNCTION 'NAMETAB_GET'
 EXPORTING
 only = 'T'
 tabname = 'RPCA2'
 TABLES
 nametab = nametab.
* Übernehmen der Feldnamen, die auch in der GLPCA
* vorkommen.
LOOP AT nametab WHERE fieldname NE 'KSL_CURR'
 AND fieldname NE 'HSL_CURR'
 AND fieldname NE 'EMPGE' "ww/kb
 AND fieldname NE 'KONTY'. "ww/kb
 MOVE nametab-fieldname TO tab_fields-name.
 APPEND tab_fields.
ENDLOOP.
* fill Fields of receiver for BBS "MIC46C
CALL FUNCTION 'RSTI_REPORT_FIELDS_FIND'
 EXPORTING
 e_repid = 'Z_RCOPCA02_1'
 e_type = 'R'
 TABLES
 it_fields = bbs_fieldtab.
* correct fieldnames
READ TABLE bbs_fieldtab WITH KEY rfield = 'PRCTR'.
IF sy-subrc = 0.
 bbs_fieldtab-rfield = 'RPRCTR'.
 MODIFY bbs_fieldtab INDEX sy-tabix.
ENDIF.
READ TABLE bbs_fieldtab WITH KEY rfield = 'PPRCTR'.
IF sy-subrc = 0.
 bbs_fieldtab-rfield = 'SPRCTR'.
 MODIFY bbs_fieldtab INDEX sy-tabix.
ENDIF.
READ TABLE bbs_fieldtab WITH KEY rfield = 'BUKRS'.
IF sy-subrc = 0.
 bbs_fieldtab-rfield = 'RBUKRS'.
 MODIFY bbs_fieldtab INDEX sy-tabix.
ENDIF.
* Unicode
CLASS cl_abap_char_utilities DEFINITION LOAD.
CLEAR hex00 WITH cl_abap_char_utilities=>minchar.
CLEAR hexff WITH cl_abap_char_utilities=>maxchar.
ENDFORM. " INIT_VARS
* FORM FILL_LISTHEADER *
* List-Header in Abhängigkeit der selektierten Daten *
FORM fill_listheader.
READ TABLE i_glpca INDEX 1.
IF sy-subrc NE 0.
 EXIT.
ENDIF.
t_listheader-typ = 'S'.
t_listheader-key = 'Ledger '(h01).
IF cnt_rldnr <= 1.
 t_listheader-info = i_glpca-rldnr.
ELSE.
 t_listheader-info = '*'.
ENDIF.
APPEND t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Kostenrechnungskreis'(h02).
IF cnt_kokrs <= 1.
 t_listheader-info = i_glpca-kokrs.
ELSE.
 t_listheader-info = '*'.
ENDIF.
APPEND t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Buchungskreis '(h03).
IF cnt_bukrs <= 1.
 t_listheader-info = i_glpca-rbukrs.
ELSE.
 t_listheader-info = '*'.
ENDIF.
APPEND t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Buchungsperiode '(h04).
IF cnt_poper <= 1.
 t_listheader-info = i_glpca-poper.
ELSE.
 t_listheader-info = '*'.
ENDIF.
APPEND t_listheader.
IF cnt_ryear <= 1.
 t_listheader-typ = 'S'.
 t_listheader-key = 'Geschäftsjahr '(h05).
 t_listheader-info = i_glpca-ryear.
 APPEND t_listheader.
ENDIF.
t_listheader-typ = 'S'.
t_listheader-key = 'Version '(h06).
IF cnt_rvers <= 1.
 t_listheader-info = i_glpca-rvers.
ELSE.
 t_listheader-info = '*'.
ENDIF.
APPEND t_listheader.
ENDFORM. "fill_listheader
*& Form FIELDCAT_FILL
*& Aufbau des Feldkataloges für den K_KKB_LIST_DISPLAY, *
*& bzw REUSE_ALV_LIST_DISPLAY, *
*& weitere Infos enthält die FktBaustein-Doku *
FORM fieldcat_fill.
DATA: i TYPE i VALUE 0.
REFRESH t_fieldcat.
* Ledger
* if cnt_rldnr > 1.
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RLDNR'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
* afield-key = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* endif.
* Satzart
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RRCTY'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* Version
* if cnt_rvers > 1.
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RVERS'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* endif.
* Periode
* if cnt_poper > 1.
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'POPER'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* endif.
* Geschäftsjahr
* if cnt_ryear > 1.
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RYEAR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* endif.
* Referenzbelegtyp
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCCT'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Typ'(t01).
afield-seltext_m = 'Belegtyp'(t02).
afield-seltext_l = 'Ref.Belegtyp'(t03).
afield-outputlen = 3. "Platz für die Sterne der Zwischensummen
* if not show_ref is initial.
afield-key = 'X'.
* else.
* afield-no_out = 'X'.
* endif.
APPEND afield TO t_fieldcat.
* Referenzbelegnummer
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCNR'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Refbeleg'(t04).
afield-seltext_m = 'Refbelegnr'(t05).
afield-seltext_l = 'Ref.Belegnummer'(t06).
* if not show_ref is initial.
afield-key = 'X'.
* else.
* afield-no_out = 'X'.
* endif.
APPEND afield TO t_fieldcat.
* Referenzbelegzeile
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCLN'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Zeile'(t07).
afield-seltext_m = 'Belegzeile'(t08).
afield-seltext_l = 'Ref.Belegzeile'(t09).
* if not show_ref is initial.
afield-key = 'X'.
* else.
* afield-no_out = 'X'.
* endif.
APPEND afield TO t_fieldcat.
* Belegtyp PCA
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'DOCCT'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '1'.
afield-outputlen = 3. "Platz für die Sterne der Zwischensummen
* if show_ref is initial.
afield-key = 'X'.
* else.
afield-no_out = 'X'.
* endif.
APPEND afield TO t_fieldcat.
* Belegnummer PCA
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'DOCNR'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '1'.
* if show_ref is initial.
afield-key = 'X'.
* else.
afield-no_out = 'X'.
* endif.
APPEND afield TO t_fieldcat.
* Belegzeile PCA
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'DOCLN'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '1'.
* if show_ref is initial.
afield-key = 'X'.
* else.
afield-no_out = 'X'.
* endif.
APPEND afield TO t_fieldcat.
* Kostenrechnungskreis
* if cnt_kokrs > 1.
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'KOKRS'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
* endif.
* Buchungskreis
* if cnt_bukrs > 1.
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RBUKRS'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-seltext_s = 'BuKrs'(b01).
afield-seltext_m = 'BuKrs'(b02).
afield-seltext_l = 'Empfänger-BuKrs'(b03).
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* endif.
* Profit Center
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RPRCTR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
* Eliminierungs-Profit-Center
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'EPRCTR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
* Sender-Profit-Center
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'SPRCTR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
* Konto
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RACCT'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
ADD 1 TO i.
* Kontentext
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RACCT_KTEXT'.
afield-no_sum = 'X'.
afield-ref_tabname = 'RPCAK'.
afield-ref_fieldname = 'KTEXT'.
afield-seltext_s = 'Kont-txt.'(m11).
afield-seltext_m = 'Kontentext'(m12).
afield-seltext_l = 'Kontentext'(m13).
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
ADD 1 TO i.
* Statistische Kennzahl
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'STAGR'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '12'.
APPEND afield TO t_fieldcat.
* Soll/Haben-Kennzeichen
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'DRCRK'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* Wert in Profit-Center-Währung
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'KSL'.
afield-do_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
* AFIELD-SELTEXT_S = 'PrCtr-Hauswhr.'(P01).
* AFIELD-SELTEXT_M = 'PrCtr-Hauswährung'(P02).
* AFIELD-SELTEXT_L = 'Profit-Center-Hauswährung'(P03).
afield-cfieldname = 'KSL_CURR'.
afield-sp_group = '3'.
APPEND afield TO t_fieldcat.
* Währungsschlüssel KSL
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'KSL_CURR'.
afield-ref_tabname = 'TKA01'.
afield-ref_fieldname = 'PCACUR'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-seltext_s = 'PrCtrHW'(t10).
afield-seltext_m = 'Währungsschl. PrCtrHW'(t11).
afield-seltext_l = 'Währungsschl. PrCtrHW'(t12).
afield-sp_group = '3'.
APPEND afield TO t_fieldcat.
* Betrag in Hauswährung
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'HSL'.
afield-do_sum = 'X'.
afield-no_out = 'X '.
afield-ref_tabname = 'GLPCA'.
afield-cfieldname = 'HSL_CURR'.
afield-sp_group = '4'.
APPEND afield TO t_fieldcat.
* Währungsschlüssel Hauswährung
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'HSL_CURR'.
afield-ref_tabname = 'T001'.
afield-ref_fieldname = 'WAERS'.
afield-no_sum = 'X'.
afield-no_out = 'X '.
afield-seltext_s = 'BukrW.'(t13).
afield-seltext_m = 'Währungsschl. BukrW'(t14).
afield-seltext_l = 'Währungsschl. BukrW'(t15).
afield-sp_group = '4'.
APPEND afield TO t_fieldcat.
* Betrag in Transaktionswährung
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'TSL'.
afield-no_out = 'X '.
afield-ref_tabname = 'GLPCA'.
afield-cfieldname = 'RTCUR'.
afield-sp_group = '5'.
APPEND afield TO t_fieldcat.
* Währungsschlüssel Transaktionswährung
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RTCUR'.
afield-ref_tabname = 'GLPCA'.
afield-ref_fieldname = 'RTCUR'.
afield-no_sum = 'X'.
afield-no_out = 'X '.
afield-seltext_s = 'TW '(t16).
afield-seltext_m = 'Währungsschl. TW'(t17).
afield-seltext_l = 'Währungsschl. TW'(t18).
afield-sp_group = '5'.
APPEND afield TO t_fieldcat.
* Menge
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'MSL'.
afield-qfieldname = 'RUNIT'.
afield-no_out = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '6'.
APPEND afield TO t_fieldcat.
* Mengeneinheit
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RUNIT'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '6'.
APPEND afield TO t_fieldcat.
* Herkunftsobjektart
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RHOART'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
* Funktionsbereich
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RFAREA'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '7'.
APPEND afield TO t_fieldcat.
* Objektklasse
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'RSCOPE'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* G/L-Vorgang
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'ACTIV'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-seltext_s = 'Vorg.'(t31).
afield-seltext_m = 'Vorgang'(t32).
afield-seltext_l = 'Betriebswirt. Vorgang'(t33).
afield-sp_group = '1'.
APPEND afield TO t_fieldcat.
* Geschäftsbereich
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'GSBER'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* Kostenstelle
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'KOSTL'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '9'.
APPEND afield TO t_fieldcat.
* CO-Auftrag
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'AUFNR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '9'.
APPEND afield TO t_fieldcat.
* Projekt
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'PSPPP'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-sp_group = '9'.
afield-ref_tabname = 'PRPS'.
afield-ref_fieldname = 'POSID'.
APPEND afield TO t_fieldcat.
* Debitor
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'KUNNR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-seltext_s = 'Debitor'(d01).
afield-seltext_m = text-d01.
afield-seltext_l = text-d01.
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* Customer Name
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'C_NAME1'.
afield-no_sum = 'X'.
afield-ref_tabname = 'KNA1'.
afield-no_out = 'X'.
afield-seltext_s = 'Customer Name'.
afield-seltext_m = 'Cust Name'.
afield-seltext_l = 'C Name'.
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* Kreditor
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'LIFNR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-seltext_s = 'Kreditor'(k01).
afield-seltext_m = text-k01.
afield-seltext_l = text-k01.
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* Vendor name
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'NAME1'.
afield-no_sum = 'X'.
afield-ref_tabname = 'LFA1'.
afield-no_out = 'X'.
afield-seltext_s = 'Vendor Name'(v01).
afield-seltext_m = text-v01.
afield-seltext_l = text-v01.
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* Withholding tax rate
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'V_RATE'.
afield-no_sum = 'X'.
afield-ref_tabname = 'WITH_ITEM'.
afield-no_out = 'X'.
afield-seltext_s = 'Withholding tax rate'.
afield-seltext_m = 'With. tax rate'.
afield-seltext_l = 'W. Tax rate'.
afield-sp_group = '8'.
APPEND afield TO t_fieldcat.
* Withholding Tax Base Amount
ADD 1 TO i.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'QSSHB'.
afield-no_sum = 'X'.
afield-ref_tabname = '

Hi pavan.
something is definitely wrong with your code: You have an internal table for display with fields from rpca 2 and additional some more fields. I do not see a field ORT01 for CITY or PSTLZ for POSTAL CODE, at least to in table GLPCA from where the data are extracted.
You must fill PSTLZ and ORT01 (if it is for the supplier):
 SELECT SINGLE * FROM LFA1
 WHERE LIFNR = <glpca>-LIFNR AND
 SPRAS = SY-LANGU.
 IF SY-SUBRC eq 0.
 <glpca>-name1 = lfa1-name1.
 <glpca>-adrnr = lfa1-adrnr.
 <glpca>-stras = lfa1-stras.
**** add here: ***
select single ort01 pstlz
 into corresponding fields of <glpca>
 from adrc
 where adrnr = <glpca>-adrnr.
 ENDIF.
Make sure that fields ORT01 and PSTLZ are defined for internal table i_glpca.
Regards,
Clemens

Some doubts in FI-SL?

hello friends,
I have doubts in fi-sl,
there are two tables, summary table and ledger.
why we activate summary table first?
in ledger selection,why so mnay ledgers la,lb,lc like that is there.
for every single ledger means bank take example ,
shall we have to assign to every single ledger there la or lb or lc.
plz let me know the process wiht one scenarion.
srinu

Hi,
1) a) A Web Server understands and supports only HTTP protocol whereas an Application Server supports HTTP,TCP/IP and many more protocols.
b) Web server mainly deals with sending HTML for display in a Web browser, an application server provides access to business logic for use by client application programs. The application program can use this logic just as it would call a method on an object.
c) Webserver is used only for jsp and servlets and for static functionality it has limited functionality and it doesn't provide any security ,persistence and it doesn't support EJB and JMS and JAAS like other functionality
whereas Application server provide all functionalities.
In short, Applicaion Server is a super set of which Web Server is a sub set.
2) Two-tier architecture is a client/server architecture , where a request to do some task is sent to the server and the server responds by performing the task.where as a three-tier or a multi tier architecture has client, server and database. Where the client request is sent to the server and the server in turn sends the request to the database. The database sends back the information/data required to the server which inturn sends it to the client.

Posting to Production Order Field during WIP Calc in Classic Ledger FI/PCA

During our weekly Work In Process Calculation job (SAP Transaction KKAO) the following journal entry posts correctly per our company's SAP configuration:
Debit/Credit Work In Process Change (Income Statement)
Debit/Credit Work in Process Inventory (Balance Sheet)
When the entry posts in the Financial Accounting and Profit Center Accounting Modules within the Classic Ledger, the Order field (BSEG-AUFNR, GLPCA-AUFNR) is not being populated with the Production Order number. Instead it is going into a Text field. An example of the current behavior is below.
Itm PK Account    Account short text   Amount Text
1 40 530000     WIP Change                9.59 ORD 12345678
2 50 132000     WORK IN PROCESS    9.59- ORD 12345678
The other Production Order transactions such as labor confirmations and finished good deliveries populate the aforementioned Order fields and have no Text entry.
I would like the WIP calculation transaction to populate the Order fields in the Financial Accounting and Profit Center Accounting Postings. How can I make this happen within the SAP configuration?
Thanks in advance for your reply.
Roman

Hi,
old PCA report painter reports can be migrated to NewGL reports under certain circumstances (see SAPNET note 1555535 for details).
As the NewGL PC reporting bases on the data available in the new GL tables FAGLFLEX* I think that you will miss some infos in NewGL PC reporting compared to infos available in classic PCA reporting (eg object type / object class).
Nevertheless it is possible to add fields toFAGLFLEX* but I doubt that this will be helpful in your case.
BR Christian

General Ledger GL Account Text in FBL3N

Dear Friends,
Is it possible to get the General Ledger Account Text in FBL3N. If yes, please suggest the noters,if any or the customization steps.
Thanks in Advance,
Prathamesh.

Hi
this is Chandu,
U can chose the fields by opening change layout (ctrl f8) button after opening the into fbl3n.from there which fields u want to display on screen,u can set those fields.And if u want to have that layout futher u can save(ctrl f12) that layout and later on u can chose(ctrl f9) that. I think this is ur doubt
Thank u

Doubt in case of Down payment made

Dear Experts,
My client is doing a Downpayment against a PO for Asset wherein I had config the asset class for Downpayment transation type 15 in SPRO
But I am not understanding what General Ledger Account I should give for Down payment in AO90 as the Advances can be booked for Domestic as well as Foreign Vendors
Please reply for this doubt
Regards
Radhika J

Thanks for your reply prakashcw!!!
Report is showing all configuration as correct...
1) I have done entry in F-48 and checked the status in the program you have mentioned...
It comes up with the error
"Withholding tax amount exceeds total bank line item amounts.
Message no. 7Q320"
Though the entry is:
Vendor A/c Dr.    60
To bank                54
To TDS                   6
2) Invoice Entry of Rs100 @10% TDS
Entry:
vendor CR     V0           90.00-
Expenses DR V0          100.00
TDS                                10.00-
                1     Vendor No.          IA            ZF                    10.00       INR
Final Withholding Tax Amount                                                          10.00 INR
3) For the Invoice cleared on the
39 1110020    Vendor             60.00-
26 1110020      Vendor            54.00
40 2541301      TDS                 6.00
        2       vendor no.            AA            PF                     0.00       INR
Final Withholding Tax Amount                                                           0.00 INR
4) When making the final payment to the vendor system is doing this entry
001 50 Bank         26.00-
002 38 Vendor           54.00-
003 25 Vendor          90.00
004 50 TDS           10.00-
That means system is calculating the TDS at the time we are making the final payment.
Please suggest what shall I do in order to rectify the problem.
Thanks and Regards
Nitin

Multi Journal Import - Doubts ?

Hi All
Right now we are running a Multi Journal Import and we are inserting data into 4 interface tables gl_interface1-4.
I would like to know , if i increase the table from 4 to 10 tables ?
Any suggestions?
Thanks
Ravi

FOR l_rec IN (SELECT ledger_id,group_id from apps.gl_interface
WHERE status='NEW'
AND user_je_source_name='GIS_DATA_CONVERSION'
GROUP BY ledger_id,group_id
ORDER BY group_id
LOOP
apps.gl_journal_import_pkg.populate_interface_control (user_je_source_name => 'GIS_DATA_CONVERSION',
GROUP_ID => l_rec.group_id,
set_of_books_id => l_rec.ledger_id,
interface_run_id =>vl_interface_id,
table_name => 'GL_INTERFACE',
processed_data_action=>'D'
COMMIT;
vl_request_id := apps.fnd_request.submit_request (application => 'SQLGL', -- application short name
program => 'GLLEZLSRS', -- program short name
description => NULL, -- program name
start_time => NULL, -- start date
sub_request => FALSE, -- sub-request
argument1 => 2065, --Data access set id
argument2 => 'GIS_DATA_CONVERSION', --Source
argument3 => l_rec.ledger_id, -- set of books id
argument4 => l_rec.group_id,
argument5 => 'N', -- error to suspense flag
argument6 => NULL, -- create summary flag
argument7 => 'N' -- import desc flex flag
COMMIT;
IF ( vl_request_id = 0 ) THEN
xxgis.gis_conv_util_pkg.debug_print_p(1,'FND_LOG','E001: Journal Import Submission Failed. ' || SQLERRM);
retcode := 2;
EXIT;
ELSE
xxgis.gis_conv_util_pkg.debug_print_p(1,'FND_LOG','P001: Submitted Journal Import Program for group id: ' || l_rec.group_id ||
'and ledger :'||l_rec.ledger_id|| ', Request ID: ' || vl_request_id);
END IF;
END LOOP;

General Ledger - System Integrity and Control Check

Our SAP Business One system receives input from various sources on a daily basis. Therefore we would like to establish a business process to ensure balancing of the books and monitoring of suspense accounts.
How do we develop reports to check the following 3 items;
1. Business Units (On and Off Balance sheet accounts not balancing to zero and Monitoring specified category of accounts)
2. Ledgers Vs Journal integrity (Ensuring Journals, Detail Ledger and Daily Ledger are all consistent at all points of time)
3. Financial integrity (Comparing the balances held between the detailed Ledger, Monthly Average Ledger and Yearly Average Ledger - ensuring they are synchronised at all times)

Hi,
Please refer SAP note for GL variables. Note that it may be difference from version to version.
867048
- List of variables for designing the General Ledger layout
A complete list of variable can be downloaded from SAP business one customer portal. To access below link, you need S-user ID and password
https://websmp201.sap-ag.de/~form/sapnet?_SHORTKEY=01100035870000680316&_SCENARIO=01100035870000000183&_ADDINC=011000358700002837782005E&
Thanks & Regards,
Nagarajan

Currency setup process in SPL ledger configuration

Hi All,
I have a urgent requirement for configuring Special Purpose Ledger and need clarification on some of the following doubts before start configuring.
1. Can we configure SPL in the system upgraded only technical with ECC 6.0 version.
2. How to assign a seperate Curreny in the new SPL ledger and what is the procedure for assigning and translating the document currency of the company code assigned to this SPL Ledger currency.
Expecting responses urgently.
Thanks & Regards,
LV

Hi Max,
I've followed the information in SAP help exactly as given.... Anyway regarding the script to run the conv prog
*RUN_PROGRAM CURR_CONVERSION
CATEGORY = %C_CATEGORY_SET%
CURRENCY = %RPTCURRENCY_SET%
TID_RA = %TIME_SET%
RATEENTITY = GLOBAL
*ENDRUN_PROGRAM
The names mentioned to the left of the '=' sign represents the Dimension name as per my application right? and the names to the right of '=' sign represents the dimension members which have data loaded in the application for which we need to perform currency conversions ? Am i right ?
And just this piece of code can be pasted in the "Defaultlogic" file right?
Thanks,
Prasanth

Doubt in Suspense Ledger

Similar Messages

Maybe you are looking for