BDOCs not triggering on changin Contract Account thrU FM FKK_ACCOUNT_UPDATE
Hi,
We have integrate SAP ISU and CRM system. My scenario is, on Dunning til a specific level, customer is removed from Direct Debit if he's on an active Incoming Payment Method in a dunning activity.
In my scenario, I'm reading Contract Account Details using FKK_ACCOUNT_READ, deleting incoming payment locks if any, clearing three fields of Incoming Payment Method Id, Bank ID and Credit Card ID (EZAWE, EBVTY, CCARD_ID) and then passing the new structure in FM FKK_ACCOUNT_UPDATE in below format:
CALL FUNCTION 'FKK_ACCOUNT_UPDATE' IN UPDATE TASK
EXPORTING
x_fkkvk = wa_fkkvk
y_fkkvk = wa_fkkvk_old
vk_upd_mode = lc_change
udate = sy-datum
planned_or_real_changes = lc_real
TABLES
x_fkkvkp = lit_fkkvkp
y_fkkvkp = lit_fkkvkp_old.
But it is not triggering any BDOCs and therefore DD details can still be seen in CRM system.
I checked the standard process (CAA2), also uses the same FM in same format but it triggers BDOCs. I believe after this FM is called, some other FMs are being called to trigger BDOCs.
Can someone help me in finding out, where am I going wrong. Thanks.
Ravi
Use BAPI_ISUACCOUNT_CHANGE instead.
Similar Messages
-
Error while creation of Collective contract account
HI experts,
While creating Collective contract account thru CAA1,i am getting Error as "is collective invoice acct category but collective invoices not active" though i have defined no ranges & have done necessary config. Pls help me in this regard thru ur valuable experience.
Regards,
RamanHi Raman,
That should be error >3573.
Set field 'Collective Bills' (XUSSR) in table TFK000C and that should workout for you. Through SM30 or
Customizing -> Fin Acctg -> Contract Accounts Receivable and Payable -> Basic Functions -> Posting and Documents -> Basic Settings -> Maintain Central settings for posting.
Best regards,
David
Edited by: David Tonade on Nov 27, 2009 3:39 PM -
Contract Account Custom view not called when replicating thru CRM
Hi All,
We have modified the Contract account screen through BDT.
Functionality -
We have a custom table, that needs to be updated during contract account creation when reference contract account is used for creation.
The update is successful when creating contract account via ISU, but when creating thru CRM, the custom view is not getting triggerred.
I have checked in debugging as well, the process flow triggered via CRM is different than that from ISU. When Business Agreement is created via CRM, neither of PAI / PBO event is triggerred defined for the custom view created in BDT.
When we have the custom field passed from CRM, it is getting updated correctly, but if the field is not passed from CRM view and we are updating using code logic in BDT modules, it is not successful.
Could you please help in case I have missed on some config or is there any alternate way to get the custom requirement achieved.
The requirement is to have custom table updated in both Create and Change mode.
Thanks in Advance!!
Regards,
Rajesh PopatHi Siva,
Contract Account was replicating correctly for the ISU system. The issue was, we want to update some custom fields that are not passed as a part of CRM data, but using BDT and some validations, we were trying to populate that field and also update the custom table and link the same to sub screen attached for the contract account screen.
The issues is now resolved. The custom view is getting triggered through CRM. There was some config missing for the BDT.
When using BDT, only the PAI module gets called for all the views defined for the BDT.
Thanks!!
Regards,
Rajesh Popat -
Contract account not found and replicated to ISU
Hi Experts,
Our users created s3 contract account in the Production system. But upon searching for 2 of them
they are not able to find these two contract accounts in CRM as well on ISU side.I have also checked the queues and Bdocs if any one of them got failed but I am not able to find those as well.
Can any one guide what can be done to find them and replicate the same to ISU.
Regards,
Manish
Edited by: manish.dodeja on Jun 25, 2009 11:11 AMHi Haresh,
Check with middleware settings there must be something left out like in T.Code SMOEAC (Check Publication and Subscription) Business Agreement should be there..
Check T.Code: CRM_BUT_CALL_FUN
Depending on the business agreement class, the contract account templates are stored in SAP ERP
in table TFK_BUAG_REF.
You can find this table in Customizing for
Financial Accounting under Contract Accounts Receivable and Payable-> Integration->Customer Relationship Management-> Business Agreement ->Determine Template for Contract Account for Replication
Use FI-CA event 1023 to determine whether the busines agreement should be selected as a standard business agreement when it is downloaded. You can check the contract accounts of the business partner and decide whether you want to select the checkbox.
Also check FI-CA event 1022 (see tables TFKFBM,TFKFBS, and TFKFBC in SAP ERP).
Let me know if your issue is resolved
Regards
Ripunjay -
When I open my email account thru Firefox, there is a blinking message in my task bar stating that "lorainemihiril" sent me a message. I DO NOT know this person, I can't make it go away and I NEVER use instant messaging. How do I get rid of this??? Sometimes there is more than one of these flashing messages all with the same name.
Disable Yahoo Messenger in your Yahoo Mail account.
Use the arrow on the right of your account name to go offline or sign out.
* http://help.yahoo.com/kb/index?locale=en_US&y=PROD_ACCT&page=content&id=SLN2003 -
Central Contract Mngt: Contract Confirmation Out not triggering from ECC
Hi,
Can some one take a look at this and let me know if you have any suggestions
After following note 1268821 we have Contracts replicating from SRM to ECC via PI. However we are not getting the Contract Replication Confirmation Out triggering from ECC to SRM The configuration in PI is waiting to receive PurchasingContractSRMReplicationConfirmation_Out from ECC for delivery to PurchasingContractSRMReplicationConfirmation_In in SRM.
Does anyone know what we maybe missing, perhaps a setting in ECC that will trigger the Confirmation Out to SRM?
Any help much appreciated.
CheJust an update.
It turns out that ECC is generating message PurchasingContractERPConfirmation_Out which is contrary to what we are expecting PurchasingContractSRMReplicationConfirmation_Out.
Have logged it with SAP support for now. -
Contract Accounts Receivable and Payable is not installed in the system
Hi ,
while i am executing EC sales list report i am getting the error as "Contract Accounts Receivable and Payable is not installed in the system".
could you please explain me what is contract accounts receivable and payable means and how to install it in the system.
Thank you.
Best regards,
RajeswariTypically this is installed with an Industry Solution, such as Utilities or Schools, were you have thousands of customers/accounts.
Most places probably just use the standard AP/AR functionality.
Thanks,
Tammy -
Error in BP transfer No contract account for premise- move out not possible
Hi experts,
I am trying to transfer a BP from its current premise to another premise in the Web IC screen. While doing so i am facing the error saying that " No contract account for premise->move out not possible". I checked the contract account for the premise through normal premise search and it is existing.
I am facing this problem only when i am trying to transfer the BP which has multiple premise, for BPs having single premise it is working fine.
Request you to help me in this regard.
Thanks and regards,
Madhukar.Hi bigdogtim7,
Please check your inbox.
Thanks!
Linksys Support
http://support.linksys.com -
Dunning not happening for contract accounts
Hi All,
I have few contract accounts which are not picked up for dunning from the time the contract accounts are created.
there are open invoices from year 2008.
dunning procedure is attached to contract accounts.
if have checked out most of the things.
please let me know what set-up is required to pick up contract accounts for dunning, does Incoming Payment Lock or Outgoing payment lock or any other lock has imortant role to play.Any tables I can check.
Thanks and Regards
ReenaReena:
The same answers for this thread will apply as to the previous one.
Re: Business partner not getting dunned though dunning procedure is attached
regards,
bill. -
How to identify "have not been billed" contract accounts in ISU
Hi
I am having requirement to create a BW report for "have not been billed" contract accounts.
So could you please explain in ISU, how i can identify have not been billed contract accounts.
Please provide T-codes and tables from where i can get this data and also any SAP standard Report is available for this requirement.
Thanks,
SreeHi Sree,
Also, for getting the list of contracts that are not billed - Do you need to get the list as on particular month, then you can directly check the billing header table ERCH passing all the list of active contracts and the allocation date of billing for that month range (say for March as 03/01/2009 - 03/31/2009) and based on the ouput you can compare them and get, if the billing document is missing for any of the particular contract.
The query as per my understanding should be made on allocation date as this would be unique for a particular month.
This process would have some performance constraints as you will be selecting all the active contracts in the system and then passing them to ERCH table along with the dates.
Will check, if can get some other alternate approach.
Thanks & Regards,
Rajesh Popat -
Contract Account delta load not happening
Hi Gurus,
I am doing integration between ISU and CRM 7.0. I have achieved integration both sides for BP . I have also done initial load for Contract Accounts using object 'BAUG_MAIN'. We are able to see Business Agreement getting created for the Business Partner in CRM but when I change the data in a particular Contract Account in ISU or create a new Contract account after the initial load it is not trigerring Delta Load for the Object.
Please help me for the same.
Regards,
NasreenHello Nasreen,
A possible reason for this issue could be that no module is assigned to the event 1030 in FQEVENTS. If you want to report FKKVK changes to BW (i.e. update the DataSource 0CACONT_ACC_ATTR_2) then the module FKK_EVENT_1030 should be activated here. The similar is valid for changes of FKKVKP table (= DataSource 0UC_ACCNTBP_ATTR_2) -> activate
the module ISU_EVENT_1030.
I hope this is helpful for you.
Kind Regards
Olivia -
Contract account as Business Agreement not updated till baug_main reloaded
Contract Acount is replicated as business agreement only after i re-load the baug_main object. I have to re-load this object each time i create a contract account and want to see in as business agreement in CRM.
Does Anyone know a way around this problem.
I will very grateful for any help or clue.
Regards,
NasreenHi,
Please do the configuration at the below place.
Your problem will be solved.
IMG>Financial Accounting>Contract Account>Integration>Customer Relationship Management>Business Agreement>Determine Template for Contract Account Replication.
Warm regards,
Rahul -
SAP-CRM - Auto Confirmation of Contract Account from IVRS to SAP-CRM IC Web
Hello Experts,
In Our Projects we are Using SAP-CRM Web Client for Call Center Processes. AVAYA is a Third Part agency which have developed the IVR system for handling the Consumer Calls. We have Developed BAPIs which will fetched data from SAP based on Contract Account entered by Consumer on IVRS. AVAYA have developed the CTI Pop-Up also which have several Consumer Details along with CA. Now Client wants that CA , entered by Consumer on IVRS, will be autoconfirm to CRM - Web Client. If anyone have any document for doing all these setting please share with us & Provide us guidelines...
Regards,
Abhishek ChopraHello Abhishek.
You can refer to [Note 707104 - Account identification from attached data|https://service.sap.com/sap/support/notes/707104]. It describes how to set autoconfirmation based on CAD. -
PRD is not triggering in Negative Stocks allowed scenario
I am trying to do Subcontracting process with Negative Stocks allowed for the final material and raw materials even & all of them are checked for negative stocks allowed. When I am trying to issue, say 10 units of materials to SC Vendor with ZERO stocks in storage, the stock's updating accordingly as 10-, but while doing MIGO for say 5 units, the stock's updating accordingly, but in FI documents so created, the PRD key is missing. I read bout PRD and it states : Price differences can also arise in the case of materials with moving average price if there is not enough stock to cover the invoiced quantity. In the case of goods movements in the negative range, the moving average price is not changed. Instead, any price differences arising are posted to a price difference account. Depending on the settings for the posting rules for transaction/event key PRD, it is possible to work with or without account modification. If you use account modification, the following modifications are available in the standard system. So, what steps are to be taken in order to trigger PRD key in the FI Documents.
Regards,
Sowmyesh ManiyarSowmyesh Maniyar wrote:
I read bout PRD and it states : Price differences can also arise in the case of materials with moving average price if there is not enough stock to cover the invoiced quantity.
Yes its correct.. At the time MIRO, if any price difference occurs, then first system checks stock is available or not.. If stock is there then system will take the amount from stock account, if not, then system take the amount in PRD account...
But here you have activated negative stock. I think because of this your stock account triggered instead of PRD account..
Can you check and analysis the accounting entry, where the price different amount goes ? -
Events not triggering in alv list, point will be given
Hi friends,
I am using reuse_alv_list_display fm to display data.
and i am using reuse_alv_events_get fm to trigger events.
but, top_of_page, event is not triggering,
more precisely , the subroutine is not getting recognized by system. how to rectify this.
Check my code.
*& Report ZSEN_SERVICETAX_GTA
REPORT zsen_servicetax_gta NO STANDARD PAGE HEADING LINE-COUNT 100.
*****************************************TABLES USED**********************************************************************
*TABLES: BSIS, "Accounting: Secondary Index for G/L Accounts
BSAS, "Accounting: Secondary Index for G/L Accounts (Cleared Items)
LFA1. "Vendor Master (General Section).
*****************************************WORK AREA / INTERNAL TABLE DECLARATION******************************************
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_main,
hkont TYPE bsis-hkont,
belnr TYPE bsis-belnr,
budat TYPE bsis-budat,
blart TYPE bsis-blart,
dmbtr TYPE bsis-dmbtr,
xblnr TYPE bsis-xblnr,
shkzg TYPE bsis-shkzg,
augbl TYPE bsis-augbl,
kz_dmbtr TYPE bsis-dmbtr,
kz_xblnr TYPE bsis-xblnr,
kz_blart TYPE bsis-blart,
kz_belnr TYPE bsis-belnr,
kz_budat TYPE bsis-budat,
kz_zuonr TYPE bsis-zuonr,
name1 TYPE lfa1-name1,
slno TYPE i,
END OF ty_main,
BEGIN OF ty_bsas,
belnr TYPE bsas-hkont,
budat TYPE bsas-budat,
xblnr TYPE bsas-xblnr,
augbl TYPE bsas-augbl,
dmbtr TYPE bsas-dmbtr,
blart TYPE bsas-blart,
zuonr TYPE bsas-zuonr,
END OF ty_bsas.
DATA: it_main TYPE TABLE OF ty_main,
wa_main LIKE LINE OF it_main,
it_bsas TYPE TABLE OF ty_bsas,
wa_bsas LIKE LINE OF it_bsas.
DATA: it_sort TYPE slis_t_sortinfo_alv,
fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_layout TYPE slis_layout_alv,
gt_events TYPE slis_t_event,
int_fcat TYPE slis_fieldcat_alv,
it_header TYPE slis_t_listheader,
wa_header TYPE slis_listheader.
************************************************work variables***********************************************************************
DATA: ven_name TYPE lfa1-name1,
post_date TYPE bsis-budat,
t_tabix TYPE sy-tabix,
i_prg LIKE sy-repid.
***********************************************selection screen***********************************************************************
SELECTION-SCREEN: BEGIN OF BLOCK gtn WITH FRAME TITLE text-001 .
SELECT-OPTIONS: date FOR post_date OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK gtn.
************************************************data selection**************************************************************************
START-OF-SELECTION.
PERFORM data_retreval.
PERFORM build_catalog.
PERFORM layout.
PERFORM build_events.
PERFORM sortinfo.
IF it_main[] IS NOT INITIAL.
PERFORM display_alv.
ELSE.
MESSAGE 'No Records Matching For This Selection' TYPE 'E'.
ENDIF.
******************************data display*********************************************************************************************
*& Form data_retreval
text
--> p1 text
<-- p2 text
FORM data_retreval .
CLEAR:it_main[], wa_main, fieldcatalog[].
***********************************************selecting data from bsis table for the given date range**********************************
SELECT ahkont abelnr abudat ablart admbtr axblnr a~shkzg
b~augbl
INTO CORRESPONDING FIELDS OF TABLE it_main
FROM bsis AS a LEFT OUTER JOIN bsas AS b
ON abelnr = bbelnr
WHERE a~budat IN date
AND a~blart = 'KR'
AND a~shkzg = 'S'
AND a~hkont = '0002200530'.
***********************************************selecting data from bsas table using bsis-belnr*******************************************
LOOP AT it_main INTO wa_main.
SELECT belnr budat dmbtr xblnr zuonr augbl blart
INTO CORRESPONDING FIELDS OF wa_bsas
FROM bsas
WHERE belnr = wa_main-augbl
AND blart = 'KZ'.
ENDSELECT.
APPEND wa_bsas TO it_bsas.
ENDLOOP.
********************************************combining two tables data******************************************************************
LOOP AT it_main INTO wa_main.
t_tabix = sy-tabix.
wa_main-slno = t_tabix.
READ TABLE it_bsas INTO wa_bsas WITH KEY augbl = wa_main-augbl.
IF sy-subrc = 0.
SELECT SINGLE name1
FROM lfa1
INTO ven_name
WHERE lifnr = wa_bsas-zuonr.
wa_main-kz_dmbtr = wa_bsas-dmbtr.
wa_main-kz_belnr = wa_bsas-belnr.
wa_main-kz_blart = wa_bsas-blart.
wa_main-kz_budat = wa_bsas-budat.
wa_main-kz_xblnr = wa_bsas-xblnr.
wa_main-kz_zuonr = wa_bsas-zuonr.
wa_main-name1 = ven_name.
ENDIF.
MODIFY it_main FROM wa_main INDEX t_tabix TRANSPORTING kz_dmbtr kz_belnr kz_budat kz_blart kz_xblnr kz_zuonr name1 .
ENDLOOP.
SORT it_main BY kz_blart kz_zuonr.
LOOP AT it_main INTO wa_main.
wa_main-slno = sy-tabix.
MODIFY it_main FROM wa_main INDEX sy-tabix TRANSPORTING slno.
ENDLOOP.
ENDFORM. " data_retreval
*& Form build_catalog
text
--> p1 text
<-- p2 text
FORM build_catalog .
DATA: col_pos TYPE i.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'SLNO'.
fieldcatalog-seltext_m = 'Serial No'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'KZ_ZUONR'.
fieldcatalog-seltext_m = 'Vendor Num'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'NAME1'.
fieldcatalog-seltext_m = 'Vendor Name'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'BLART'.
fieldcatalog-seltext_m = 'BillDoc.Type'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'BELNR'.
fieldcatalog-seltext_m = 'BillDoc.Num.'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'BUDAT'.
fieldcatalog-seltext_m = 'BillPosting Date'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'XBLNR'.
fieldcatalog-seltext_m = 'BillReference Num'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'DMBTR'.
fieldcatalog-seltext_m = 'Bill Amount'.
fieldcatalog-col_pos = col_pos.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'KZ_BLART'.
fieldcatalog-seltext_m = 'Pay_Doc.type'.
fieldcatalog-col_pos = col_pos.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'KZ_BELNR'.
fieldcatalog-seltext_m = 'Pay_Document No'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'KZ_DMBTR'.
fieldcatalog-seltext_m = 'Payment Amount'.
fieldcatalog-col_pos = col_pos.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'KZ_XBLNR'.
fieldcatalog-seltext_m = 'Pay_Reference Num'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'KZ_BUDAT'.
fieldcatalog-seltext_m = 'Pay_Posting Date'.
fieldcatalog-col_pos = col_pos.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
col_pos = col_pos + 1.
fieldcatalog-fieldname = 'AUGBL'.
fieldcatalog-seltext_m = 'Clr.Doc.Num'.
fieldcatalog-col_pos = col_pos.
fieldcatalog-row_pos = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR: fieldcatalog.
ENDFORM. " build_catalog
*& Form sortinfo
text
--> p1 text
<-- p2 text
FORM sortinfo .
DATA: is_sort TYPE slis_sortinfo_alv.
CLEAR:is_sort.
is_sort-spos = 2.
is_sort-fieldname = 'KZ_ZUONR'.
is_sort-up = 'X'.
APPEND is_sort TO it_sort.
CLEAR: is_sort.
is_sort-spos = 1.
is_sort-fieldname = 'KZ_BLART'.
is_sort-up = 'X'.
is_sort-subtot = 'X'.
APPEND is_sort TO it_sort.
ENDFORM. " sortinfo
*& Form layout
text
--> p1 text
<-- p2 text
FORM layout .
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-zebra = 'X'.
*gd_layout-totals_text = 'Grand Total'.
*gd_layout-subtotals_text = 'BillBooked Not Paid'.
ENDFORM. " layout
*& Form display_alv
text
--> p1 text
<-- p2 text
FORM display_alv .
i_prg = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = 'I_PRG'
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = 'TOP-OF-PAGE'
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
it_sort = it_sort
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
it_events = gt_events
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_main
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.
ENDFORM. " display_alv
*& Form build_events
text
--> p1 text
<-- p2 text
FORM build_events .
DATA: is_event TYPE slis_alv_event.
break-point.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = gt_events[]
EXCEPTIONS
LIST_TYPE_WRONG = 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.
READ TABLE gt_events WITH KEY name = slis_ev_top_of_page INTO is_event.
IF sy-subrc = 0.
MOVE 'TOP_OF_PAGE' TO is_event-form.
MODIFY gt_events from is_event TRANSPORTING form WHERE name = slis_ev_top_of_page.
ENDIF.
ENDFORM. " build_events
*& Form top_of_page
text
--> p1 text
<-- p2 text
form top_of_page .
BREAK-POINT.
SKIP 3.
WRITE:/20 'BILLING DETAILS', 40 'PAYMENT DETAILS'.
endform. " top_of_page
Regards.
s.senthil kumarhi i modified ur program , check this and let me know
REPORT zsen_servicetax_gta NO STANDARD PAGE HEADING LINE-COUNT 100.
*****************************************TABLES USED**********************************************************************
TABLES: BSIS, "Accounting: Secondary Index for G/L Accounts
BSAS, "Accounting: Secondary Index for G/L Accounts (Cleared Items)
LFA1. "Vendor Master (General Section).
*****************************************WORK AREA / INTERNAL TABLE DECLARATION******************************************
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_main,
hkont TYPE bsis-hkont,
belnr TYPE bsis-belnr,
budat TYPE bsis-budat,
blart TYPE bsis-blart,
dmbtr TYPE bsis-dmbtr,
xblnr TYPE bsis-xblnr,
shkzg TYPE bsis-shkzg,
augbl TYPE bsis-augbl,
kz_dmbtr TYPE bsis-dmbtr,
kz_xblnr TYPE bsis-xblnr,
kz_blart TYPE bsis-blart,
kz_belnr TYPE bsis-belnr,
kz_budat TYPE bsis-budat,
kz_zuonr TYPE bsis-zuonr,
name1 TYPE lfa1-name1,
slno TYPE i,
END OF ty_main,
BEGIN OF ty_bsas,
belnr TYPE bsas-hkont,
budat TYPE bsas-budat,
xblnr TYPE bsas-xblnr,
augbl TYPE bsas-augbl,
dmbtr TYPE bsas-dmbtr,
blart TYPE bsas-blart,
zuonr TYPE bsas-zuonr,
END OF ty_bsas.
DATA: it_main TYPE TABLE OF ty_main,
wa_main LIKE LINE OF it_main,
it_bsas TYPE TABLE OF ty_bsas,
wa_bsas LIKE LINE OF it_bsas.
DATA: it_sort TYPE slis_t_sortinfo_alv,
IT_fieldcatalog TYPE slis_t_fieldcat_alv ,
WA_fieldcatalog TYPE slis_fieldcat_alv,
gd_layout TYPE slis_layout_alv,
gt_events TYPE slis_t_event,
WA_EVENTS TYPE SLIS_T_EVENT,
int_fcat TYPE slis_fieldcat_alv,
it_header TYPE slis_t_listheader,
wa_header TYPE slis_listheader.
************************************************work variables***********************************************************************
DATA: ven_name TYPE lfa1-name1,
post_date TYPE bsis-budat,
t_tabix TYPE sy-tabix,
i_prg LIKE sy-repid.
***********************************************selection screen***********************************************************************
SELECTION-SCREEN: BEGIN OF BLOCK gtn WITH FRAME TITLE text-001 .
SELECT-OPTIONS: date FOR BSIS-BUDAT .
SELECTION-SCREEN: END OF BLOCK gtn.
************************************************data selection**************************************************************************
START-OF-SELECTION.
PERFORM data_retreval.
PERFORM build_catalog.
PERFORM layout.
PERFORM build_events.
PERFORM sortinfo.
IF it_main[] IS NOT INITIAL.
PERFORM display_alv.
ELSE.
MESSAGE 'No Records Matching For This Selection' TYPE 'E'.
ENDIF.
******************************data display*********************************************************************************************
**& Form data_retreval
*text
*--> p1 text
*<-- p2 text
FORM data_retreval .
CLEAR:it_main[], wa_main.
***********************************************selecting data from bsis table for the given date range**********************************
SELECT ahkont abelnr abudat ablart admbtr axblnr a~shkzg
b~augbl
INTO CORRESPONDING FIELDS OF TABLE it_main
FROM bsis AS a LEFT OUTER JOIN bsas AS b
ON abelnr = bbelnr
WHERE a~budat IN date.
*AND a~blart = 'KR'
*AND a~shkzg = 'S'
*AND a~hkont = '0002200530'.
***********************************************selecting data from bsas table using bsis-belnr*******************************************
LOOP AT it_main INTO wa_main.
SELECT belnr budat dmbtr xblnr zuonr augbl blart
INTO CORRESPONDING FIELDS OF wa_bsas
FROM bsas
WHERE belnr = wa_main-augbl
AND blart = 'KZ'.
ENDSELECT.
APPEND wa_bsas TO it_bsas.
ENDLOOP.
********************************************combining two tables data******************************************************************
LOOP AT it_main INTO wa_main.
t_tabix = sy-tabix.
wa_main-slno = t_tabix.
READ TABLE it_bsas INTO wa_bsas WITH KEY augbl = wa_main-augbl.
IF sy-subrc = 0.
SELECT SINGLE name1
FROM lfa1
INTO ven_name
WHERE lifnr = wa_bsas-zuonr.
wa_main-kz_dmbtr = wa_bsas-dmbtr.
wa_main-kz_belnr = wa_bsas-belnr.
wa_main-kz_blart = wa_bsas-blart.
wa_main-kz_budat = wa_bsas-budat.
wa_main-kz_xblnr = wa_bsas-xblnr.
wa_main-kz_zuonr = wa_bsas-zuonr.
wa_main-name1 = ven_name.
ENDIF.
MODIFY it_main FROM wa_main INDEX t_tabix TRANSPORTING kz_dmbtr kz_belnr kz_budat kz_blart kz_xblnr kz_zuonr name1 .
ENDLOOP.
SORT it_main BY kz_blart kz_zuonr.
LOOP AT it_main INTO wa_main.
wa_main-slno = sy-tabix.
MODIFY it_main FROM wa_main INDEX sy-tabix TRANSPORTING slno.
ENDLOOP.
ENDFORM. " data_retreval
**& Form build_catalog
*text
*--> p1 text
*<-- p2 text
FORM build_catalog .
DATA: col_pos TYPE i.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'SLNO'.
WA_fieldcatalog-seltext_m = 'Serial No'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'KZ_ZUONR'.
WA_fieldcatalog-seltext_m = 'Vendor Num'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'NAME1'.
WA_fieldcatalog-seltext_m = 'Vendor Name'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'BLART'.
WA_fieldcatalog-seltext_m = 'BillDoc.Type'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'BELNR'.
WA_fieldcatalog-seltext_m = 'BillDoc.Num.'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'BUDAT'.
WA_fieldcatalog-seltext_m = 'BillPosting Date'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'XBLNR'.
WA_fieldcatalog-seltext_m = 'BillReference Num'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'DMBTR'.
WA_fieldcatalog-seltext_m = 'Bill Amount'.
WA_fieldcatalog-col_pos = col_pos.
WA_fieldcatalog-do_sum = 'X'.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'KZ_BLART'.
WA_fieldcatalog-seltext_m = 'Pay_Doc.type'.
WA_fieldcatalog-col_pos = col_pos.
WA_fieldcatalog-do_sum = 'X'.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'KZ_BELNR'.
WA_fieldcatalog-seltext_m = 'Pay_Document No'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'KZ_DMBTR'.
WA_fieldcatalog-seltext_m = 'Payment Amount'.
WA_fieldcatalog-col_pos = col_pos.
WA_fieldcatalog-do_sum = 'X'.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'KZ_XBLNR'.
WA_fieldcatalog-seltext_m = 'Pay_Reference Num'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'KZ_BUDAT'.
WA_fieldcatalog-seltext_m = 'Pay_Posting Date'.
WA_fieldcatalog-col_pos = col_pos.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
col_pos = col_pos + 1.
WA_fieldcatalog-fieldname = 'AUGBL'.
WA_fieldcatalog-seltext_m = 'Clr.Doc.Num'.
WA_fieldcatalog-col_pos = col_pos.
WA_fieldcatalog-row_pos = 2.
APPEND WA_fieldcatalog TO IT_fieldcatalog.
CLEAR: WA_fieldcatalog.
ENDFORM. " build_catalog
**& Form sortinfo
*text
*--> p1 text
*<-- p2 text
FORM sortinfo .
DATA: is_sort TYPE slis_sortinfo_alv.
CLEAR:is_sort.
is_sort-spos = 2.
is_sort-fieldname = 'KZ_ZUONR'.
is_sort-up = 'X'.
APPEND is_sort TO it_sort.
CLEAR: is_sort.
is_sort-spos = 1.
is_sort-fieldname = 'KZ_BLART'.
is_sort-up = 'X'.
is_sort-subtot = 'X'.
APPEND is_sort TO it_sort.
ENDFORM. " sortinfo
**& Form layout
*text
*--> p1 text
*<-- p2 text
FORM layout .
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-zebra = 'X'.
*gd_layout-totals_text = 'Grand Total'.
*gd_layout-subtotals_text = 'BillBooked Not Paid'.
ENDFORM. " layout
**& Form display_alv
*text
*--> p1 text
*<-- p2 text
FORM display_alv .
i_prg = sy-repid.
DATA:it_events TYPE slis_t_event,
wa_events TYPE slis_alv_event.
WA_events-name = 'TOP_OF_PAGE'.
WA_events-form = 'TOP_OF_PAGE'.
APPEND wa_events TO it_events.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
*I_INTERFACE_CHECK = ' '
*I_BYPASSING_BUFFER = ' '
*I_BUFFER_ACTIVE = ' '
i_callback_program = 'I_PRG'
*I_CALLBACK_PF_STATUS_SET = ' '
*I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
*I_CALLBACK_HTML_TOP_OF_PAGE = 'TOP-OF-PAGE'
*I_CALLBACK_HTML_END_OF_LIST = ' '
*I_STRUCTURE_NAME =
*I_BACKGROUND_ID = ' '
*I_GRID_TITLE =
*I_GRID_SETTINGS =
is_layout = gd_layout
it_fieldcat = IT_fieldcatalog[]
*IT_EXCLUDING =
*IT_SPECIAL_GROUPS =
*it_sort = it_sort
*IT_FILTER =
*IS_SEL_HIDE =
*I_DEFAULT = 'X'
*I_SAVE = ' '
*IS_VARIANT =
it_events = It_events.
*IT_EVENT_EXIT =
*IS_PRINT =
*IS_REPREP_ID =
*I_SCREEN_START_COLUMN = 0
*I_SCREEN_START_LINE = 0
*I_SCREEN_END_COLUMN = 0
*I_SCREEN_END_LINE = 0
*I_HTML_HEIGHT_TOP = 0
*I_HTML_HEIGHT_END = 0
*IT_ALV_GRAPHICS =
*IT_HYPERLINK =
*IT_ADD_FIELDCAT =
*IT_EXCEPT_QINFO =
*IR_SALV_FULLSCREEN_ADAPTER =
*IMPORTING
*E_EXIT_CAUSED_BY_CALLER =
*ES_EXIT_CAUSED_BY_USER =
*TABLES
*t_outtab = it_main
*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.
ENDFORM. " display_alv
**& Form build_events
*text
*--> p1 text
*<-- p2 text
FORM build_events .
DATA: is_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = gt_events[]
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2
IF sy-subrc NE 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE gt_events WITH KEY name = slis_ev_top_of_page INTO is_event.
IF sy-subrc = 0.
MOVE 'TOP_OF_PAGE' TO is_event-form.
MODIFY gt_events from is_event TRANSPORTING form WHERE name = slis_ev_top_of_page.
ENDIF.
ENDFORM. " build_events
**& Form top_of_page
*text
*--> p1 text
*<-- p2 text
form top_of_page .
SKIP 3.
WRITE:/20 'BILLING DETAILS', 40 'PAYMENT DETAILS'.
ENDFORM.
reward points if useful,
venkat.
Maybe you are looking for
-
Error in JVM when starting NWDS by MS Remote Console
Hello, when i connect via MS Remote Console to another PC and try to start NWDS an error in popup takes place. Java Virtual Machine Launcher: Could not create the Java virtual machine By clicking "OK" the next popup comes. SAP Netweaver Developer Stu
-
Where can I get a stylus for a PRS-950 reader?
The stylus on my 2 year old e-reader has broken & I need to know where I can get a new one. Thx, Paul
-
Please help
-
When I had my PDA, I used a nifty prog called Pocket-DVD Studio to rip and encode full DVD's and encode them suitable to playback on my PDA. IIRC the output files were .avi format. Would these files play back on my N-95 8Gb phone? If not could someon
-
Empties Management in MM Scheduling Agreements
Hi all, I am aware that Empties mgt can be activated and then we use BOMs to generate components in a PO ( this is implicit in GR and again generates components in IR ) In both the PO and IR the BADi is called. BUT I am using scheduling agreements (S