HOw to arrive at this report
Let 100 materials in a plant have routings..
In the routings ther will be a standard text key..
I want a list o materials with their respective standard value keys..
Can anybody explain me hw..
The problem may be in the joining..
In MARC and MAPL join MATNR,WERKS...
JOIN MARC MATNR and MAKT MATNR
JOIN MAPL(werks,plnty,plnnr ) to plpo(werks,plnty,plnnr )
PLPO ARBID to crhd OBJID
Now execute with your sel fields...
Similar Messages
-
# This file is in the UTF-8 encoding
[Strings]
# LOCALIZATION NOTE (isRTL):
# Leave this entry empty unless your language requires right-to-left layout,
# for example like Arabic, Hebrew, Persian. If your language needs RTL, please
# use the untranslated English word "yes" as value
isRTL=
CrashReporterTitle=Crash Reporter
# LOCALIZATION NOTE (CrashReporterVendorTitle): %s is replaced with the vendor name. (i.e. "Mozilla")
CrashReporterVendorTitle=%s Crash Reporter
# LOCALIZATION NOTE (CrashReporterErrorText): %s is replaced with another string containing detailed information.
CrashReporterErrorText=The application had a problem and crashed.\n\nUnfortunately the crash reporter is unable to submit a report for this crash.\n\nDetails: %s
# LOCALIZATION NOTE (CrashReporterProductErrorText2): The first %s is replaced with the product name (i.e. "Firefox"), the second is replaced with another string containing detailed information. These two substitutions can not be reordered!
CrashReporterProductErrorText2=%s had a problem and crashed.\n\nUnfortunately the crash reporter is unable to submit a crash report.\n\nDetails: %s
CrashReporterSorry=We're Sorry
# LOCALIZATION NOTE (CrashReporterDescriptionText2): The %s is replaced with the product name.
CrashReporterDescriptionText2=%s had a problem and crashed.\n\nTo help us diagnose and fix the problem, you can send us a crash report.
CrashReporterDefault=This application is run after a crash to report the problem to the application vendor. It should not be run directly.
Details=Details…
ViewReportTitle=Report Contents
CommentGrayText=Add a comment (comments are publicly visible)
ExtraReportInfo=This report also contains technical information about the state of the application when it crashed.
# LOCALIZATION NOTE (CheckSendReport): The %s is replaced with the vendor name.
CheckSendReport=Tell %s about this crash so they can fix it
CheckIncludeURL=Include the address of the page I was on
CheckSendEmail=Email me when more information is available
EmailGrayText=Enter your email address here
ReportPreSubmit2=Your crash report will be submitted before you quit or restart.
ReportDuringSubmit2=Submitting your report…
ReportSubmitSuccess=Report submitted successfully!
ReportSubmitFailed=There was a problem submitting your report.
ReportResubmit=Resending reports that previously failed to send…
# LOCALIZATION NOTE (Quit2): The %s is replaced with the product name.
Quit2=Quit %s
# LOCALIZATION NOTE (Restart): The %s is replaced with the product name.
Restart=Restart %s
Ok=OK
Close=Close
# LOCALIZATION NOTE (CrashID): The %s is replaced with the Crash ID from the server, which is a string like abc12345-6789-0abc-def1-23456abcdef1
CrashID=Crash ID: %s
# LOCALIZATION NOTE (CrashDetailsURL): The %s is replaced with a URL that the user can visit to view the crash details.
CrashDetailsURL=You can view details of this crash at %s
ErrorBadArguments=The application passed an invalid argument.
ErrorExtraFileExists=The application didn't leave an application data file.
ErrorExtraFileRead=Couldn't read the application data file.
ErrorExtraFileMove=Couldn't move application data file.
ErrorDumpFileExists=The application did not leave a crash dump file.
ErrorDumpFileMove=Couldn't move crash dump.
ErrorNoProductName=The application did not identify itself.
ErrorNoServerURL=The application did not specify a crash reporting server.
ErrorNoSettingsPath=Couldn't find the crash reporter's settings.
ErrorCreateDumpDir=Couldn't create pending dump directory.
# LOCALIZATION NOTE (ErrorEndOfLife): The %s is replaced with the product name.
ErrorEndOfLife=The version of %s you are using is no longer supported. Crash reports are no longer being accepted for this version. Please consider upgrading to a supported version.I think you may have pasted the wrong thing into the Description.
To try and resubmit a pending report (for example if you lost your internet connection):
#Go to about:crashes in the location bar
#Click the latest report link to resubmit it
If there isn't a pending crash report listed, I'm afraid you may be out of luck for that crash report. -
How do i get this report program
 Contract Compliance Report : This report looks at the actual customer purchases (QTY) by period vs. targeted quantities.
The report created will list all the contracts quantity vs. shipped quantity in the period specified for a given customer or material or sales organization or contract number along with details such as material numbers, contract start date, contract end date, etc.
 Contract Expiration Report : Contracts need to be monitored and quotations sent out for renewal as they approach their expiry date. A report is required to show the contracts expiring.
This report will list all the contracts expiring in the period specified for a given customer or material or sales organization or contract number along with details such as equipment numbers, material numbers, contract start date, contract end date, etc.hi
i have this code for CONTRACT EXPIRATION REPORT.
may this be useful.
TABLES: vbak,veda,vbkd.
TYPE-POOLS: slis,
ibco2.
TYPES : BEGIN OF t_ty_str_contract_dtls,
vbeln TYPE vbeln,
posnr TYPE posnr,
zzp_mfrnr TYPE mfrnr,
zprogram TYPE zsls_dte_program,
cuobj TYPE cuobj,
classnum TYPE char18,
END OF t_ty_str_contract_dtls.
DATA : g_tab_cnt_details TYPE zsls_tab_cntr_expire,
g_wa_cnt_details TYPE LINE OF zsls_tab_cntr_expire,
g_tab_fieldcat TYPE slis_t_fieldcat_alv,
g_fieldcat TYPE slis_fieldcat_alv,
g_pos TYPE i,
g_exit TYPE c,
p_fname TYPE string,
repid TYPE sy-repid,
BEGIN OF g_str_data,
kunnr(12) TYPE c,
name1(30) TYPE c,
vkorg(15) TYPE c,
vkbur(15) TYPE c,
vkgrp(15) TYPE c,
bezei(25) TYPE c,
vbeln(15) TYPE c,
bstkd_m(35) TYPE c,
ktext(40) TYPE c,
vbegdat(15) TYPE c,
venddat(17) TYPE c,
auart(15) TYPE c,
zzp_mfrnr(12) TYPE c,
mnf_des(30) TYPE c,
zprogram(30) TYPE c,
END OF g_str_data,
BEGIN OF g_str_cus_nam,
kunnr TYPE kunnr,
name1 TYPE name1,
END OF g_str_cus_nam,
BEGIN OF g_str_sgrp_nam,
vkgrp TYPE vkgrp,
bezei TYPE bezei,
END OF g_str_sgrp_nam,
BEGIN OF g_str_manf_nam,
lifnr TYPE lifnr,
name1 TYPE name1,
END OF g_str_manf_nam.
DATA : g_tab_data LIKE STANDARD TABLE OF g_str_data,
g_tab_cus_nam LIKE STANDARD TABLE OF g_str_cus_nam,
g_tab_sgrp_nam LIKE STANDARD TABLE OF g_str_sgrp_nam,
g_tab_contract TYPE STANDARD TABLE OF t_ty_str_contract_dtls,
g_wa_contract TYPE t_ty_str_contract_dtls,
g_tab_manf_nam LIKE STANDARD TABLE OF g_str_manf_nam,
g_rc LIKE sy-subrc. "RETURN CODE.
CONSTANTS: con_klart LIKE klah-klart VALUE '300',
con_program LIKE zsls_str_contract_chg-zprogram VALUE 'PROGRAM'.
SELECTION-SCREEN BEGIN OF BLOCK b0 WITH FRAME.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_sorg FOR vbak-vkorg OBLIGATORY DEFAULT '0030',
s_soff FOR vbak-vkbur,
s_sgrp FOR vbak-vkgrp,
s_dtyp FOR vbak-auart OBLIGATORY,
s_cnum FOR vbak-vbeln,
s_cust FOR vbak-kunnr,
s_pnum FOR vbkd-bstkd_m NO-EXTENSION NO INTERVALS.
PARAMETERS : p_mfnum LIKE mara-mfrnr.
SELECT-OPTIONS : s_endt FOR veda-venddat OBLIGATORY.
PARAMETERS : p_prg LIKE zsls_str_char_para-zprogram.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-005.
PARAMETER :p_name LIKE rlgrap-filename. " OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b0.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_name.
MOVE sy-repid TO repid.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = repid
dynpro_number = sy-dynnr
field_name = 'P_NAME'
IMPORTING
file_name = p_name.
START-OF-SELECTION.
PERFORM get_data.
IF g_exit NE 'X'.
PERFORM get_prg_mfr_dtls.
IF g_tab_cnt_details IS INITIAL.
MESSAGE i000 WITH text-004.
g_exit = 'X'.
EXIT.
ENDIF.
PERFORM move_data.
ENDIF.
END-OF-SELECTION.
IF g_exit NE 'X'.
MOVE p_name TO p_fname.
PERFORM post_data_report.
PERFORM display_data.
ENDIF.
*& Form get_data
FORM get_data .
SELECT a~vkorg
a~vkbur
a~vkgrp
a~auart
a~kunnr
a~vbeln
a~ktext
c~vbegdat
c~venddat
d~bstkd_m
INTO CORRESPONDING FIELDS OF TABLE g_tab_cnt_details
FROM vbak AS a
INNER JOIN veda AS c
ON a~vbeln EQ c~vbeln AND
c~vposn EQ '000000'
INNER JOIN vbkd AS d
ON a~vbeln EQ d~vbeln
WHERE a~vkorg IN s_sorg AND
a~vkbur IN s_soff AND
a~vkgrp IN s_sgrp AND
a~auart IN s_dtyp AND
a~vbtyp EQ 'G' AND
a~vbeln IN s_cnum AND
a~kunnr IN s_cust AND
c~venddat IN s_endt AND
d~bstkd_m IN s_pnum.
IF sy-subrc NE 0 OR g_tab_cnt_details IS INITIAL.
MESSAGE i000 WITH text-004.
g_exit = 'X'.
EXIT.
ENDIF.
ENDFORM. " get_data
*& Form display_data
FORM display_data .
IF g_tab_cnt_details IS NOT INITIAL.
DELETE ADJACENT DUPLICATES FROM g_tab_cnt_details COMPARING ALL FIELDS.
PERFORM build_field_cat.
PERFORM call_alv.
ENDIF.
ENDFORM. " display_data
*& Form build_field_cat
FORM build_field_cat .
REFRESH g_tab_fieldcat.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'KUNNR' '15' text-010 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'NAME1' '30' text-024 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'VKORG' '10' text-011 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'VKBUR' '15' text-012 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'VKGRP' '15' text-015 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'BEZEI' '25' text-025 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'VBELN' '15' text-013 ' ' 'X' 'X'.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'BSTKD_M' '35' text-014 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'KTEXT' '40' text-023 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'VBEGDAT' '20' text-016 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'VENDDAT' '20' text-017 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'AUART' '18' text-018 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'ZZP_MFRNR' '20' text-028 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'MNF_DES' '30' text-030 ' ' ' ' ' '.
PERFORM fill_field_cat USING g_pos 'G_TAB_CNT_DETAILS' 'ZPROGRAM' '30' text-029 ' ' ' ' ' '.
ENDFORM. " build_field_cat
*& Form fill_field_cat
* text
FORM fill_field_cat USING u_pos TYPE any
value(u_001) TYPE any
value(u_002) TYPE any
value(u_003) TYPE any
u_text TYPE any
value(u_004) TYPE any
value(u_005) TYPE any
value(u_006) TYPE any.
u_pos = u_pos + 1.
g_fieldcat-col_pos = u_pos .
g_fieldcat-tabname = u_001.
g_fieldcat-fieldname = u_002.
g_fieldcat-outputlen = u_003.
g_fieldcat-reptext_ddic = u_text.
g_fieldcat-just = u_004.
g_fieldcat-hotspot = u_005.
g_fieldcat-emphasize = u_006.
APPEND g_fieldcat TO g_tab_fieldcat.
ENDFORM. " fill_field_cat
*& Form call_alv
FORM call_alv.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = g_tab_fieldcat
TABLES
t_outtab = g_tab_cnt_details
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. " call_alv
*& Form post_data_report
FORM post_data_report .
IF p_fname IS NOT INITIAL.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = p_fname
filetype = 'DAT'
TABLES
data_tab = g_tab_data
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDFORM. " post_data_report
**& Form MOVE_DATA
FORM move_data .
IF g_tab_cnt_details IS NOT INITIAL.
MOVE: text-010 TO g_str_data-kunnr,
text-024 TO g_str_data-name1,
text-011 TO g_str_data-vkorg,
text-012 TO g_str_data-vkbur,
text-015 TO g_str_data-vkgrp,
text-025 TO g_str_data-bezei,
text-013 TO g_str_data-vbeln,
text-014 TO g_str_data-bstkd_m,
text-023 TO g_str_data-ktext,
text-016 TO g_str_data-vbegdat,
text-017 TO g_str_data-venddat,
text-018 TO g_str_data-auart,
text-028 TO g_str_data-zzp_mfrnr,
text-030 TO g_str_data-mnf_des,
text-029 TO g_str_data-zprogram.
APPEND g_str_data TO g_tab_data.
LOOP AT g_tab_cnt_details INTO g_wa_cnt_details.
MOVE: g_wa_cnt_details-kunnr TO g_str_data-kunnr,
g_wa_cnt_details-name1 TO g_str_data-name1,
g_wa_cnt_details-vkorg TO g_str_data-vkorg,
g_wa_cnt_details-vkbur TO g_str_data-vkbur,
g_wa_cnt_details-vkgrp TO g_str_data-vkgrp,
g_wa_cnt_details-bezei TO g_str_data-bezei,
g_wa_cnt_details-vbeln TO g_str_data-vbeln,
g_wa_cnt_details-bstkd_m TO g_str_data-bstkd_m,
g_wa_cnt_details-ktext TO g_str_data-ktext,
g_wa_cnt_details-vbegdat TO g_str_data-vbegdat,
g_wa_cnt_details-venddat TO g_str_data-venddat,
g_wa_cnt_details-auart TO g_str_data-auart,
g_wa_cnt_details-zzp_mfrnr TO g_str_data-zzp_mfrnr,
g_wa_cnt_details-mnf_des TO g_str_data-mnf_des,
g_wa_cnt_details-zprogram TO g_str_data-zprogram.
APPEND g_str_data TO g_tab_data.
CLEAR :g_str_data,g_wa_cnt_details.
ENDLOOP.
ENDIF.
ENDFORM. " MOVE_DATA
**& Form user_command
FORM user_command USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield."#EC CALLED
READ TABLE g_tab_cnt_details INTO g_wa_cnt_details INDEX selfield-tabindex.
CHECK sy-subrc = 0.
CASE ucomm.
WHEN '&IC1'.
TRANSLATE selfield-sel_tab_field TO UPPER CASE.
CASE selfield-sel_tab_field.
WHEN 'G_TAB_CNT_DETAILS-VBELN'.
IF NOT g_wa_cnt_details-vbeln IS INITIAL.
SET PARAMETER ID 'KTN' FIELD g_wa_cnt_details-vbeln.
CALL TRANSACTION 'VA43' AND SKIP FIRST SCREEN .
ENDIF.
WHEN OTHERS.
MESSAGE w000(zsls_general) WITH text-027 .
EXIT.
ENDCASE.
ENDCASE.
ENDFORM. "user_command
*& Form get_descrip_for_sgrpcust
FORM get_descrip_for_sgrpcust .
IF g_tab_cnt_details[] IS NOT INITIAL.
SELECT kunnr name1
INTO CORRESPONDING FIELDS OF TABLE g_tab_cus_nam
FROM kna1
FOR ALL ENTRIES IN g_tab_cnt_details
WHERE kunnr = g_tab_cnt_details-kunnr.
DELETE ADJACENT DUPLICATES FROM g_tab_cus_nam COMPARING ALL FIELDS.
SELECT vkgrp bezei
INTO CORRESPONDING FIELDS OF TABLE g_tab_sgrp_nam
FROM tvgrt
FOR ALL ENTRIES IN g_tab_cnt_details
WHERE vkgrp = g_tab_cnt_details-vkgrp.
DELETE ADJACENT DUPLICATES FROM g_tab_sgrp_nam COMPARING ALL FIELDS.
ENDIF.
ENDFORM. " get_descrip_for_sgrpcust
**& Form get_class_details
FORM get_class_details .
DATA : l_sy_tabix TYPE sy-tabix.
SELECT vbap~vbeln
vbap~posnr
vbap~matnr
vbap~zzp_mfrnr
vbap~cuobj
INTO CORRESPONDING FIELDS OF TABLE g_tab_contract
FROM vbap
FOR ALL ENTRIES IN g_tab_cnt_details
WHERE vbap~vbeln = g_tab_cnt_details-vbeln.
IF g_tab_contract IS NOT INITIAL.
SORT g_tab_contract BY vbeln zzp_mfrnr.
DELETE ADJACENT DUPLICATES FROM g_tab_contract COMPARING vbeln zzp_mfrnr.
LOOP AT g_tab_contract INTO g_wa_contract.
l_sy_tabix = sy-tabix.
PERFORM get_config USING g_wa_contract-cuobj
CHANGING g_wa_contract-zprogram .
MODIFY g_tab_contract FROM g_wa_contract INDEX l_sy_tabix.
CLEAR : g_wa_contract.
ENDLOOP.
*---Moving the manufacturer details and program details
LOOP AT g_tab_cnt_details INTO g_wa_cnt_details.
l_sy_tabix = sy-tabix.
READ TABLE g_tab_contract INTO g_wa_contract WITH KEY vbeln = g_wa_cnt_details-vbeln.
IF sy-subrc = 0.
g_wa_cnt_details-zzp_mfrnr = g_wa_contract-zzp_mfrnr.
g_wa_cnt_details-zprogram = g_wa_contract-zprogram.
ENDIF.
MODIFY g_tab_cnt_details FROM g_wa_cnt_details INDEX l_sy_tabix.
ENDLOOP.
IF p_prg IS NOT INITIAL.
DELETE g_tab_cnt_details WHERE zprogram <> p_prg.
ENDIF.
IF p_mfnum IS NOT INITIAL.
DELETE g_tab_cnt_details WHERE zzp_mfrnr <> p_mfnum.
ENDIF.
ENDIF.
PERFORM move_manf_desc.
ENDFORM. " get_class_details
**& Form get_config
FORM get_config USING g_wa_contract-cuobj
CHANGING g_wa_contract-zprogram .
DATA : l_name(200),
l_tab_cfg TYPE ibco2_instance_tab2,
l_str_cfg TYPE ibco2_instance_rec2,
l_tab_values TYPE STANDARD TABLE OF ibco2_value_rec WITH HEADER LINE,
l_tab_get_values LIKE comw OCCURS 0 WITH HEADER LINE,
l_tab_features LIKE STANDARD TABLE OF klmerka,
l_str_chr_val LIKE clx2v,
l_tab_chr_val LIKE STANDARD TABLE OF clx2v,
l_atwtb TYPE atwtb.
CLEAR : l_tab_values,
l_name,
l_tab_get_values,
l_str_cfg.
REFRESH : l_tab_features,
l_tab_values,
l_tab_get_values,
l_tab_cfg.
CALL FUNCTION 'CUCB_GET_CONFIGURATION'
EXPORTING
instance = g_wa_contract-cuobj
IMPORTING
configuration = l_tab_cfg
EXCEPTIONS
invalid_instance = 1
instance_is_a_classification = 2
OTHERS = 3.
READ TABLE l_tab_cfg INTO l_str_cfg INDEX 1.
PERFORM get_class_num USING l_str_cfg-type_of-object_type
l_str_cfg-type_of-object_key.
CHECK g_rc EQ 0.
CALL FUNCTION 'CLME_FEATURE_ATTR_OF_CLASS'
EXPORTING
class = g_wa_contract-classnum
classtype = con_klart
TABLES
tfeatures = l_tab_features
tvalues = l_tab_chr_val.
READ TABLE l_tab_cfg INTO l_str_cfg INDEX 1.
IF sy-subrc = 0.
l_tab_values[] = l_str_cfg-values[].
SORT l_tab_values BY atinn.
LOOP AT l_tab_values.
l_tab_get_values-atinn = l_tab_values-atinn.
l_tab_get_values-atwrt = l_tab_values-atwrt.
READ TABLE l_tab_chr_val INTO l_str_chr_val
WITH KEY atinn = l_tab_values-atinn
atwrt = l_tab_values-atwrt.
IF sy-subrc = 0.
l_atwtb = l_str_chr_val-atwtb.
ELSE.
l_atwtb = l_tab_values-atwrt.
ENDIF.
MOVE l_tab_values-atinn TO l_name.
PERFORM conversion_exit_char CHANGING l_name.
CASE l_name.
WHEN con_program.
MOVE l_atwtb TO g_wa_contract-zprogram.
ENDCASE.
ENDLOOP.
ENDIF.
ENDFORM. " get_config
**& Form get_class_num
** text
** --> p1 text
** <-- p2 text
FORM get_class_num USING l_str_cfg-type_of-object_type
l_str_cfg-type_of-object_key.
*--Clear all variables & tables
DATA : l_alloclist TYPE bapi1003_alloc_list OCCURS 0 WITH HEADER LINE,
l_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE,
clobjectkeyin LIKE bapi1003_key-object_guid,
d_obtab LIKE tcla-obtab.
CLEAR : l_alloclist,
l_return,
clobjectkeyin,
d_obtab,
g_rc .
REFRESH :l_alloclist,
l_return.
*get the db table for class type 300 to be used in different places.
*get the object key number for the material number
d_obtab = l_str_cfg-type_of-object_type.
SELECT SINGLE cuobj FROM inob INTO clobjectkeyin
WHERE klart = con_klart AND
objek = l_str_cfg-type_of-object_key AND
obtab = d_obtab.
IF sy-subrc EQ 0.
*get the class name and type for the material no.
CALL FUNCTION 'BAPI_OBJCL_GETCLASSES_KEY'
EXPORTING
clobjectkeyin = clobjectkeyin
keydate = sy-datum
language = sy-langu
TABLES
alloclist = l_alloclist
return = l_return.
READ TABLE l_alloclist INDEX 1.
MOVE l_alloclist-classnum TO g_wa_contract-classnum.
ELSE.
g_rc = 4.
ENDIF.
ENDFORM. " get_class_num
**& Form conversion_exit_char
FORM conversion_exit_char CHANGING c_name.
CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'
EXPORTING
input = c_name
IMPORTING
output = c_name.
ENDFORM. " conversion_exit_char
*& Form get_prg_mfr_dtls
* text
* --> p1 text
* <-- p2 text
FORM get_prg_mfr_dtls .
*---Getting the Description for Customer and Sales group
PERFORM get_descrip_for_sgrpcust.
PERFORM get_class_details.
ENDFORM. " get_prg_mfr_dtls
*& Form move_manf_desc
* text
* --> p1 text
* <-- p2 text
FORM move_manf_desc .
DATA l_sy_tabix TYPE sy-tabix.
SELECT lifnr name1
INTO CORRESPONDING FIELDS OF TABLE g_tab_manf_nam
FROM lfa1
FOR ALL ENTRIES IN g_tab_cnt_details
WHERE lifnr = g_tab_cnt_details-zzp_mfrnr.
DELETE ADJACENT DUPLICATES FROM g_tab_manf_nam COMPARING ALL FIELDS.
LOOP AT g_tab_cnt_details INTO g_wa_cnt_details.
l_sy_tabix = sy-tabix.
READ TABLE g_tab_cus_nam INTO g_str_cus_nam WITH KEY kunnr = g_wa_cnt_details-kunnr.
IF sy-subrc = 0.
MOVE g_str_cus_nam-name1 TO g_wa_cnt_details-name1.
ENDIF.
READ TABLE g_tab_sgrp_nam INTO g_str_sgrp_nam WITH KEY vkgrp = g_wa_cnt_details-vkgrp.
IF sy-subrc = 0.
MOVE g_str_sgrp_nam-bezei TO g_wa_cnt_details-bezei.
ENDIF.
READ TABLE g_tab_manf_nam INTO g_str_manf_nam WITH KEY lifnr = g_wa_cnt_details-zzp_mfrnr.
IF sy-subrc = 0.
MOVE g_str_manf_nam-name1 TO g_wa_cnt_details-mnf_des.
ENDIF.
MODIFY g_tab_cnt_details FROM g_wa_cnt_details INDEX l_sy_tabix.
CLEAR: g_wa_cnt_details.
ENDLOOP.
ENDFORM. " move_manf_desc
thx
pavan
*pls mark for helpful ans -
Plz help me how to write generate this Report
hello all,
Can anybody tell me how to do report to display the customeru2019s daily invoice, over due not paid Invoice.
atleast help me wht tables should be used and how should do coding for not paid invoice ..............
waiting for ur answers,
thanking you in advance,
yours sinceraly,
venkatesh babuHi,
Customer's daily invoice - VBRK & VBRP tables.
Invoice cleared not cleared: BSAD(Cleared) & BSID(Not cleared)
Formulate your logic with this info.
Please search SCN before posting generic questions & close this thread.
Regards,
Amit -
How do I get this report created???
I have the following report I need to reproduce in SSRS:
TMCRET11 XXXXXXXX COMPANY Date: 01/22/2015
Page 5 of 12 User Defined Basic Unit Report Time: 12:57:30PM
Basic Unit ID: ARAM -0618801 Description: CMS USER DEFINED UNIT Type: User Defined
Discipline: CONSTRUCTION Class of Property: DISTRIBUTION SUBSTATION Status: Current
Category: ARRESTERS Statistical Code: Statistical Multiplier: 0
Voltage:
Labor Code: 0015002 Install Manhours: .8241 Crew Type: SUBDEF Activity: S8 Benchmark Qty: 1.0000
RU Ind: Yes RU Qty: 1 RU UM: EA Lineal: No BOM Id: 2
FERC: 022 Plant Code: 9520 RUC: 0905 Drawing Id: Revision:
Long Description: CMS USER DEFINED UNIT
-------- Issue On --------
Mark Commodity UM Quantity Lineal Install Removal Transfer Type Status Description
ARAM ARAM EA 1.0000 No Yes No No Library Current ARRESTER-96 KV DUTY 76 KV MCOV
Basic Unit ID: ARAM -0618801 Description: CMS USER DEFINED UNIT Type: User Defined
Discipline: CONSTRUCTION Class of Property: DISTRIBUTION SUBSTATION Status: Current
Category: ARRESTERS Statistical Code: Statistical Multiplier: 0
Voltage:
Labor Code: 0015002 Install Manhours: .8241 Crew Type: SUBDEF Activity: S8 Benchmark Qty: 1.0000
RU Ind: Yes RU Qty: 1 RU UM: EA Lineal: No BOM Id: 2
FERC: 022 Plant Code: 9520 RUC: 0905 Drawing Id: Revision:
Long Description: CMS USER DEFINED UNIT
-------- Issue On --------
Mark Commodity UM Quantity Lineal Install Removal Transfer Type Status Description
ARAM ARAM EA 1.0000 No Yes No No Library Current ARRESTER-96 KV DUTY 76 KV MCOV
Basic Unit ID: CP -0618801 Description: CMS USER DEFINED UNIT Type: User Defined
Discipline: CONSTRUCTION Class of Property: DISTRIBUTION SUBSTATION Status: Current
Category: METERING & RELAYING Statistical Code: Statistical Multiplier: 0
Indoor/Outdoor: Unit Type:
Labor Code: 0023001 Install Manhours: 1.6605 Crew Type: SWBDEF Activity: S13 Benchmark Qty: 1.0000
RU Ind: No RU Qty: 0 RU UM: EA Lineal: No BOM Id: 3
FERC: 022 Plant Code: 9601 RUC: 1275 Drawing Id: Revision:
Long Description: CMS USER DEFINED UNIT
-------- Issue On --------
Mark Commodity UM Quantity Lineal Install Removal Transfer Type Status Description
RGFX RGFX EA 2.0000 No Yes No No Library Current C.P. FOR SWBD PER DWG 015-4-D118 X
RGGJ RGGJ EA 1.0000 No Yes No No Library Current C.P. FOR SWBD PER DWG 015-4-D120 AQ
The 2nd piece is simple enough. It would be a simple table using a dataset. The first portion (in bold above) which has label/data then label/data I have not been able to figure out how to get it to render.
Does anyone have any idea how to get this to render?Looks like what you need to use is a list item
see
http://blogs.technet.com/b/microsoft_in_education/archive/2013/03/09/ssrs-using-a-list-item-to-display-details.aspx
https://msdn.microsoft.com/en-us/library/dd239330.aspx
Please Mark This As Answer if it solved your issue
Please Vote This As Helpful if it helps to solve your issue
Visakh
My Wiki User Page
My MSDN Page
My Personal Blog
My Facebook Page -
HOW CAN WE ACHIEVE THIS REPORT IN OBIEE10G
THIS IS DATABASE TABLE
APPLICATION_NAME APPLICATION_STATUS
ACNFS 0.1
ACNFS 0.1
ACNFS 0.1
ACNFS 0.1
ACNFS -0.9
BDN 0.1
BDN 0.1
BDN 0.1
BDN 0.1
BDN -0.9
BDN -0.9
BDN -0.9
C2C 0.1
C2C 0.1
C2C -0.9
C2C -0.9
FINALLY I WANT MY REPORT IS IN THIS FORMAT IN OBIEE10G
APPLICATION_NAME TOTALCOUNT PASSEDCOUNT FAILEDCOUNT %AVAILABILITY
ACNFS 5 4 1 80%
BDN 7 4 3 56%
C2C 4 2 2 50%
PLS SUGGEST ME HOW TO DO THIS PROCESS IN OBIEE 10G WITH LOGICS
THANKS®ARDS
SUDHEERHi All, I have a scenario to implement.Need urgent help. I have relational source which has below fields. ID,Account,AccountType,Balance1,1001,GL,46567.901,1002,SL,56889.971,1003,Equity,45543.9081,1004,GL,89.541,1005,SL,-56889.971,1006,Equity,-45543.9081,1007,SL,-42777.45 Here my first requiremnt is to check if the balance value for entire file is 0 and if balance amount for each AccoutType is 0 , if both condtionn satifies the flow will go , else load will fail. I tried in below approach. SQ >> Expression >> Aggregator In aggregaor i have first calculated sum(balance) for entire file by group by on ID column in an aggregator , and keep actual data in expression transformation. Then i took an expression to connect actual data with the sum(balance) , since i need to perform further calculation.I tried connecting expression and aggregator , but it is not allowing me to connect the posrts. And if i am using a joiner , then wrong data is loading to target. It is joining each result of aggregator with actual ports in expression. I am not sure how to handle this scenario, so that we can just calculate sum of entire file and sum on basis of account type , is both sum are 0 then load the target , else fail.
-
In this report i have marked one line..if this width < 30,i need to multiply by a number 0.3 and if the width >=30,it multiplies by 0.37...how to use this logic here..??? anyone can help??
Declare @FromDate Datetime
Declare @ToDate Datetime
Declare @SCCode nvarchar(30)
select @FromDate = min(S0.Docdate) from dbo.OINM S0 where S0.Docdate >='[%0]'
select @ToDate = max(S1.Docdate) from dbo.OINM s1 where S1.Docdate <='[%1]'
--Rcpt from PRDN (Condition checked for Return component exclusion also)
SELECT T2.U_STKNO as 'PRN No', T2.PostDate as Date,
T2.DocNum AS 'WorkOrderNo',
b.DocNum as 'Issue Doc No',
ISNULL(d.DocNum,'') as 'Receipt Doc No',
b.U_IssPSCName as 'SubContractor Name',
T2.ItemCode as 'FG Item Code',
T3.ItemName as 'FG Item Name',
T2.PlannedQty as 'FG Planned Qty',
T2.U_OD as 'OD',
T2.U_ID as 'ID',
T2.U_OD/25.4 as 'Inches',
(T2.U_OD-T2.U_ID)/2 as 'Width',
0 as 'FG Pending Qty',
0 as 'FG Receipt Qty',
'' as 'Issue Item Code',
'' as 'Issue Item Name',
Sum(ISNULL(a.Quantity,0)) as 'Total Issue Quantity',
0 as 'Issue Item - Return Quantity',
'' as 'Return Doc No',
SUM(ISNULL(a.U_IssPTotWeight,0)) as 'Total Issue Weight',
SUM(ISNULL(c.U_Quantity,0)) as 'Total Receipt Weight'
from OWOR T2 inner join WOR1 T4 on T2.DocEntry = T4.DocEntry
INNER JOIN OITM T1 ON T1.ItemCode = T4.ItemCode inner join OITM T3 on T3.ItemCode = T2.ItemCode
LEFT join IGE1 a on T2.DocNum = a.BaseRef Inner JOIN OIGE b on a.DocEntry = b.DocEntry and T4.ItemCode not in (a.ItemCode)
LEFT JOIN IGN1 c ON c.BaseRef = T2.DocNum and T2.ItemCode = c.ItemCode INNER JOIN OIGN d on c.DocEntry = d.DocEntry
WHERE b.Series in('101','20') and T2.PostDate >= @FromDate and T2.PostDate <= @ToDate and b.U_IssPSCName = '[%2]'
GROUP BY T2.U_STKNO, T2.PostDate, T2.DocNum, b.DocNum, d.DocNum, b.U_IssPSCName,T2.ItemCode,T3.ItemName,T2.PlannedQty,T2.U_OD,T2.U_ID, T2.U_OD/25.4,(T2.U_OD-T2.U_ID)/2
UNION ALL
SELECT T2.U_STKNO as 'PRN No', T2.PostDate as Date,
T2.DocNum AS 'WorkOrderNo',
b.DocNum as 'Issue Doc No',
ISNULL(d.DocNum,'') as 'Receipt Doc No',
b.U_IssPSCName as 'SubContractor Name',
T2.ItemCode as 'Item Code',
T3.ItemName as 'Item Name',
T2.PlannedQty as 'Planned Qty',
T2.U_OD as 'OD',
T2.U_ID as 'ID',
T2.U_OD/25.4 as 'Inches',
(T2.U_OD-T2.U_ID)/2 as 'Width',
(Select (T2.PlannedQty - (Select ISNULL(sum(a1.Quantity),0) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum and a1.ItemCode in (b1.itemcode) where b1.DocNum = t2.DocNum))) as 'Pending Qty',
(Select ISNULL(sum(a1.Quantity),0) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum and a1.ItemCode in (b1.itemcode) where b1.DocNum = t2.DocNum) as 'Receipt Qty',
a.ItemCode as 'Issued Item Code',
a.Dscription as 'Issued Item Name',
Sum(ISNULL(a.Quantity,0)) as 'Total Issue Quantity',
(Select (Select ISNULL(sum(a1.Quantity),0) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum inner join WOR1 b2 on b1.DocEntry = b2.DocEntry where b1.DocNum = t2.DocNum and a1.ItemCode in (b2.itemcode))) as 'Issue Item - Return Quantity',
(ISNULL((Select (Select a2.DocNum from OIGN a2 where a2.DocEntry = a1.DocEntry) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum inner join WOR1 b2 on b1.DocEntry = b2.DocEntry where b1.DocNum = t2.DocNum and a1.ItemCode in (b2.itemcode)),'')) as 'Return Doc No',
SUM(ISNULL(a.U_IssPTotWeight,0)) as 'Total Issue Weight',
SUM(ISNULL(c.U_Quantity,0)) as 'Total Receipt Weight'
from OWOR T2 inner join WOR1 T4 on T2.DocEntry = T4.DocEntry
INNER JOIN OITM T1 ON T1.ItemCode = T4.ItemCode inner join OITM T3 on T3.ItemCode = T2.ItemCode
LEFT join IGE1 a on T2.DocNum = a.BaseRef Inner JOIN OIGE b on a.DocEntry = b.DocEntry and T4.ItemCode in (a.ItemCode)
LEFT JOIN IGN1 c ON c.BaseRef = T2.DocNum and T2.ItemCode = c.ItemCode LEFT JOIN OIGN d on c.DocEntry = d.DocEntry
WHERE b.Series in('101','20') and T2.PostDate >= @FromDate and T2.PostDate <= @ToDate and b.U_IssPSCName = '[%2]'
GROUP BY T2.U_STKNO, T2.PostDate, T2.DocNum, b.DocNum, d.DocNum, b.U_IssPSCName,T2.ItemCode,T3.ItemName,T2.PlannedQty,T2.U_OD,T2.U_ID,T2.U_OD/25.4,(T2.U_OD-T2.U_ID)/2,a.ItemCode,a.Dscription order by T2.DocNum descHi,
Try this:
Declare @FromDate Datetime
Declare @ToDate Datetime
Declare @SCCode nvarchar(30)
select @FromDate = min(S0.Docdate) from dbo.OINM S0 where S0.Docdate >='[%0]'
select @ToDate = max(S1.Docdate) from dbo.OINM s1 where S1.Docdate <='[%1]'
--Rcpt from PRDN (Condition checked for Return component exclusion also)
SELECT T2.U_STKNO as 'PRN No', T2.PostDate as Date,
T2.DocNum AS 'WorkOrderNo',
b.DocNum as 'Issue Doc No',
ISNULL(d.DocNum,'') as 'Receipt Doc No',
b.U_IssPSCName as 'SubContractor Name',
T2.ItemCode as 'FG Item Code',T3.ItemName as 'FG Item Name',T2.PlannedQty as 'FG Planned Qty',T2.U_OD as 'OD',T2.U_ID as 'ID',T2.U_OD/25.4 as 'Inches',(T2.U_OD-T2.U_ID)/2 as 'Width',case when ((T2.U_OD-T2.U_ID)/2) <30 then ((T2.U_OD-T2.U_ID)/2) *0.3 end, 0 as 'FG Pending Qty',0 as 'FG Receipt Qty','' as 'Issue Item Code','' as 'Issue Item Name',Sum(ISNULL(a.Quantity,0)) as 'Total Issue Quantity',0 as 'Issue Item - Return Quantity','' as 'Return Doc No',SUM(ISNULL(a.U_IssPTotWeight,0)) as 'Total Issue Weight',SUM(ISNULL(c.U_Quantity,0)) as 'Total Receipt Weight'from OWOR T2 inner join WOR1 T4 on T2.DocEntry = T4.DocEntryINNER JOIN OITM T1 ON T1.ItemCode = T4.ItemCode inner join OITM T3 on T3.ItemCode = T2.ItemCodeLEFT join IGE1 a on T2.DocNum = a.BaseRef Inner JOIN OIGE b on a.DocEntry = b.DocEntry and T4.ItemCode not in (a.ItemCode)LEFT JOIN IGN1 c ON c.BaseRef = T2.DocNum and T2.ItemCode = c.ItemCode INNER JOIN OIGN d on c.DocEntry = d.DocEntryWHERE b.Series in('101','20') and T2.PostDate >= @FromDate and T2.PostDate <= @ToDate and b.U_IssPSCName = '[%2]'GROUP BY T2.U_STKNO, T2.PostDate, T2.DocNum, b.DocNum, d.DocNum, b.U_IssPSCName,T2.ItemCode,T3.ItemName,T2.PlannedQty,T2.U_OD,T2.U_ID, T2.U_OD/25.4,(T2.U_OD-T2.U_ID)/2UNION ALL SELECT T2.U_STKNO as 'PRN No', T2.PostDate as Date,T2.DocNum AS 'WorkOrderNo',
b.DocNum as 'Issue Doc No',
ISNULL(d.DocNum,'') as 'Receipt Doc No',
b.U_IssPSCName as 'SubContractor Name',
T2.ItemCode as 'Item Code',T3.ItemName as 'Item Name',T2.PlannedQty as 'Planned Qty',T2.U_OD as 'OD',T2.U_ID as 'ID',T2.U_OD/25.4 as 'Inches',(T2.U_OD-T2.U_ID)/2 as 'Width',case when ((T2.U_OD-T2.U_ID)/2) >=30 then ((T2.U_OD-T2.U_ID)/2) *0.37 end, (Select (T2.PlannedQty - (Select ISNULL(sum(a1.Quantity),0) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum and a1.ItemCode in (b1.itemcode) where b1.DocNum = t2.DocNum))) as 'Pending Qty',(Select ISNULL(sum(a1.Quantity),0) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum and a1.ItemCode in (b1.itemcode) where b1.DocNum = t2.DocNum) as 'Receipt Qty',
a.ItemCode as 'Issued Item Code',
a.Dscription as 'Issued Item Name',
Sum(ISNULL(a.Quantity,0)) as 'Total Issue Quantity',
(Select (Select ISNULL(sum(a1.Quantity),0) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum inner join WOR1 b2 on b1.DocEntry = b2.DocEntry
where b1.DocNum = t2.DocNum and a1.ItemCode in (b2.itemcode))) as 'Issue Item - Return Quantity',
(ISNULL((Select (Select a2.DocNum from OIGN a2 where a2.DocEntry = a1.DocEntry) from IGN1 a1 inner join OWOR b1 on a1.BaseRef = b1.DocNum inner join WOR1 b2 on b1.DocEntry = b2.DocEntry where b1.DocNum = t2.DocNum and a1.ItemCode in (b2.itemcode)),'')) as 'Return Doc No',
SUM(ISNULL(a.U_IssPTotWeight,0)) as 'Total Issue Weight',
SUM(ISNULL(c.U_Quantity,0)) as 'Total Receipt Weight'
from OWOR T2 inner join WOR1 T4 on T2.DocEntry = T4.DocEntry
INNER JOIN OITM T1 ON T1.ItemCode = T4.ItemCode inner join OITM T3 on T3.ItemCode = T2.ItemCode
LEFT join IGE1 a on T2.DocNum = a.BaseRef Inner JOIN OIGE b on a.DocEntry = b.DocEntry and T4.ItemCode in (a.ItemCode)
LEFT JOIN IGN1 c ON c.BaseRef = T2.DocNum and T2.ItemCode = c.ItemCode LEFT JOIN OIGN d on c.DocEntry = d.DocEntry
WHERE b.Series in('101','20') and T2.PostDate >= @FromDate and T2.PostDate <= @ToDate and b.U_IssPSCName = '[%2]'
GROUP BY T2.U_STKNO, T2.PostDate, T2.DocNum, b.DocNum, d.DocNum, b.U_IssPSCName,T2.ItemCode,T3.ItemName,
T2.PlannedQty,T2.U_OD,
T2.U_ID,T2.U_OD/25.4,(T2.U_OD-T2.U_ID)/2,a.ItemCode,a.Dscription
order by T2.DocNum desc
Thanks & Regards,
Nagarajan -
How to put header and how to insert logo in this report
HI
I want a header and logo in this report.how to do this in ALV report.Also why we have to put the sy-repid.Plz tell me in this report where i have to do all this.Plz show me in detail.
REPORT ZREPORT_ALV .
TYPE-POOLS : slis.
tables:vbak,vbap.
*DATA: report_id LIKE sy-repid.
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.
data: ivariant(1) type c,
itvariant like disvariant,
w_variant like disvariant.
initialization.
*REPORT_ID = SY-REPID.
PERFORM F1000_LAYOUT_INIT. "using I_LAYOUT.
ivariant = 'A'.
itvariant = w_variant.
select-options:so_vbeln for vbap-vbeln.
data:itab like vbak occurs 0 with header line.
data:itab1 like vbap occurs 0 with header line.
start-of-selection.
select * from vbak into table itab where vbeln in so_vbeln.
if not itab[] is initial.
select * from vbap into table itab1
for all entries in itab
where vbeln = itab-vbeln.
endif.
data:ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat1 TYPE slis_t_fieldcat_alv.
****For alv display
IF NOT itab1[] IS INITIAL.
DEFINE ls_fieldcat.
add 1 to ls_fieldcat-col_pos.
ls_fieldcat-fieldname = &1.
ls_fieldcat-outputlen = &2.
ls_fieldcat-seltext_l = &3.
ls_fieldcat-emphasize = &4.
append ls_fieldcat to lt_fieldcat1.
clear ls_fieldcat.
END-OF-DEFINITION.
ls_fieldcat 'VBELN' '10' 'Sales Order Number'.
ls_fieldcat 'POSNR' '6' 'SO Item'.
ls_fieldcat 'MATNR' '13' 'Material No'.
m_fieldcat1 'NETWR' '13' 'Amount'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = 'wf_report'
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = lt_fieldcat1
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT = ITVARIANT
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 = itab1
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.
endif.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
EXPORTING
I_SAVE = ivariant
CHANGING
CS_VARIANT = itvariant
EXCEPTIONS
WRONG_INPUT = 1
NOT_FOUND = 2
PROGRAM_ERROR = 3
OTHERS = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
FORM F1000_LAYOUT_INIT. "USING I_LAYOUT TYPE SLIS_LAYOUT_ALV.
*CLEAR I_LAYOUT.
i_layout-colwidth_optimize = 'X'.
I_LAYOUT-key_hotspot = u2018Xu2019.
I_LAYOUT-hotspot_fieldname = MATNR.
ENDFORM.hi,,,,
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = sy-repid >>>>>>>>>>>>> your report name.
regarding logo and header,,,,
first store the logo in T-code OAOR, then call that in your report.......
data: heading TYPE slis_t_listheader,
wa_header TYPE slis_listheader,
events TYPE slis_t_event.
* To display TOP_OF_PAGE.
FORM top_of_page.
DATA : text(40),txtdt(40).
CLEAR l_string.
l_string = 'JCB India Limited'(hd2).
wa_header-typ = 'H'.
wa_header-info = l_string.
APPEND wa_header TO heading. " index 1.
CLEAR l_string.
WRITE :'Number of records:' TO text,dbcnt TO text+20 LEFT-JUSTIFIED.
wa_header-typ = 'S'.
wa_header-info = text.
APPEND wa_header TO heading.
CLEAR l_string.
wa_header-typ = 'S'.
WRITE : 'Report Run Date :' TO txtdt,sy-datum TO txtdt+20 DD/MM/YY.
WRITE sy-datum TO dat DD/MM/YY.
wa_header-info = txtdt.
APPEND wa_header TO heading.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'ENJOYSAP_LOGO'
it_list_commentary = heading.
CLEAR heading.
ENDFORM. "top_of_page
to execute top-of-page you have to create events.
for ex......
FORM create_event USING p_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = p_events.
READ TABLE p_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE formname_top_of_page TO ls_event-form.
APPEND ls_event TO p_events.
ENDIF.
ENDFORM. " create_event -
How to develop this report/Query that selects records with MAX Value
Hi,
My requirment is to develop a report to show all emp whose policy is going to expire ith in the user selected date intreval...
Emp_ID--App_Date-Policy_Strt_Date--Policy_End_Date--App_Status
101.01.2007---BlankBlank--
NEW (New application for a Medical Insurance policy raised for employee)
101.01.2007---01.02.200730.05.2007--
COMPLETE (policy issued for emp with strt & end dates)
115.05.2007---01.02.200730.05.2007--
RENEWAL (a application is raised to renew emp policy)
115.05.2007---01.06.200731.12.2007--
COMPLETE (policy issued for emp with strt & end dates)
115.12.2007---01.06.200731.12.2007--
RENEWAL (a application is raised to renew emp policy)
115.12.2007---01.01.200831.05.2008--
COMPLETE (policy issued for emp with strt & end dates)
115.05.2008---01.01.200831.05.2008--
RENEWAL (a application is raised to renew emp policy)
115.05.2008---01.06.200831.05.2009--
COMPLETE (a application is raised to renew emp policy)
So EMP 1 got valid policy untill 31.05.2009.
When a user executes a query to show all employees whose policy expiry date intreval (01.05.2008 to 31.05.2008)
it shouldn't show Emp 1 as he got valid policy untill 31.05.2009 but currently it is showing Emp 1....
How can i achieve this
ThanksHi
Thanks for the update
I created variable on Plc End end
If user enter show all emps whose policy is expiring in MAY (01.05.2008---31.05.2008) it is displaying EMp 1 as well but emp 1 has a policy which expires in 2009
Thanks -
How to do the reverse po in this report
Hi,
i have a one problem in this report . i don,t know how to display the
reverse po in this report. reverse po should have a po history cat. 'N' (field is bewtp)
i connect type 'Q' and the type 'E' but not been able to connect the 'N'. when i connect it will give me the wrong amount and some field should not been displayed. i will provide u the following code.
please help me.
Thanks
dinesh
*& Report Z_MM_PURCHASE_REGISTER
REPORT Z_MM_PURCHASE_REGISTER.
Short Description: Purchase Register
TABLES *
TABLES : ekko, taxcom, ekpo, ekbe,ekkn,konv,komv,t007s, j_1imovend, bseg .
TYPE-POOLS: slis.
TYPES: Begin with TY_ *
TYPES : BEGIN OF ty_ekko,
BSART LIKE EKKO-BSART,
KNTTP LIKE EKPO-KNTTP,
ebeln LIKE ekko-ebeln,
knumv LIKE ekko-knumv,
lifnr LIKE ekko-lifnr,
waers LIKE ekko-waers,
kalsm LIKE ekko-kalsm,
lands LIKE ekko-lands,
ekorg LIKE ekko-ekorg,
wkurs LIKE ekko-wkurs,
bedat LIKE ekko-bedat,
ebelp LIKE ekpo-ebelp, "po line item
mwskz LIKE ekpo-mwskz, "tax code
bukrs LIKE ekpo-bukrs,
matkl LIKE ekpo-matkl,
mtart LIKE ekpo-mtart,
netpr LIKE ekpo-netpr, "Net price in purchasing document
meins LIKE ekpo-meins, "unit
menge LIKE ekpo-menge, "quantity
txz01 LIKE ekpo-txz01, "material description
txjcd LIKE ekpo-txjcd, "tax jurisdiction code
matnr LIKE ekpo-matnr,
llief LIKE ekko-llief,
meins LIKE ekpo-meins,
bprme LIKE ekpo-bprme,
netpr LIKE ekpo-netpr,
peinh LIKE ekpo-peinh,
lifnr like lfa1-lifnr,
name1 like lfa1-lifnr,
pstlz like lfa1-pstlz,
stras like lfa1-stras,
text1 like t007s-text1,
END OF ty_ekko.
TYPES : BEGIN OF ty_ekbe,
ebeln LIKE ekbe-ebeln, "po number
ebelp LIKE ekbe-ebelp, "po line item
buzei LIKE ekbe-buzei,
belnr LIKE ekbe-belnr, "Number of material document
budat LIKE ekbe-budat, "Posting date in the document
xblnr LIKE ekbe-xblnr, "Reference document number
werks LIKE ekbe-werks, "plant
matnr LIKE ekbe-matnr, "material
menge LIKE ekbe-menge, "quantity
peinh LIKE ekpo-peinh,
dmbtr LIKE ekbe-dmbtr, "Amount in local currency
kalsm LIKE ekko-kalsm, "Procedure (pricing)
waers LIKE ekbe-waers, "currency
wrbtr LIKE ekbe-wrbtr, "Amount in document currency
bwtar LIKE ekbe-bwtar, "Valuation type
shkzg LIKE ekbe-shkzg,
maktx LIKE makt-maktx,
mwskz LIKE ekbe-mwskz,
bldat LIKE ekbe-bldat,
srvpos LIKE ekbe-srvpos,
packno LIKE ekbe-packno,
introw LIKE ekbe-introw,
lfbnr LIKE ekbe-lfbnr,
bwart TYPE ekbe-bwart,
budat1 TYPE ekbe-budat,
belnr1 TYPE ekbe-belnr,
END OF ty_ekbe.
TYPES : BEGIN OF ty_display,
BSART LIKE EKKO-BSART,
KNTTP LIKE EKPO-KNTTP,
lifnr(10) TYPE C, " LIKE ekko-lifnr,
ebeln LIKE ekko-ebeln,
bedat LIKE ekko-bedat,
budat LIKE ekbe-budat,
matnr LIKE ekbe-matnr,
maktx LIKE makt-maktx,
belnr LIKE ekbe-belnr,
bldat LIKE ekbe-bldat,
menge LIKE ekpo-menge,
peinh LIKE ekpo-peinh,
dmbtr LIKE ekbe-dmbtr,
shkzg LIKE ekbe-shkzg,
custduty LIKE konv-kwert,
bed LIKE konv-kwert,
cvd LIKE konv-kwert,
sertax LIKE konv-kwert,
sereducess LIKE konv-kwert,
surcharge LIKE konv-kwert,
educess LIKE konv-kwert,
insure LIKE konv-kwert,
freight LIKE konv-kwert,
octroi LIKE konv-kwert,
kursf LIKE rbkp-kursf,
grossamt LIKE konv-kwert,
vat4 LIKE konv-kwert,
vat8 LIKE konv-kwert,
vat125 LIKE konv-kwert,
INC LIKE KONV-KWERT, "
PF LIKE KONV-KWERT,
CF LIKE KONV-KWERT,
INS LIKE KONV-KWERT,
cst LIKE konv-kwert,
subdeb LIKE ekbe-dmbtr,
netamt LIKE ekbe-dmbtr,
cenvatcreditbed LIKE konv-kwert,
cenvatcreditecc LIKE konv-kwert,
vatcredit LIKE konv-kwert,
bgcharges LIKE konv-kwert,
srvpos LIKE ekbe-srvpos,
ktext1 LIKE esll-ktext1,
sertaxcredit LIKE konv-kwert,
sereducesscredit LIKE konv-kwert,
totaltaxbenefit LIKE konv-kwert,
inventoryvalue LIKE konv-kwert,
bwart TYPE ekbe-bwart,
belnr1 TYPE ekbe-belnr,
budat1 TYPE ekbe-budat,
lfbnr TYPE ekbe-lfbnr,
bprme LIKE ekpo-bprme,
meins LIKE ekpo-meins,
name1 like lfa1-name1,
pstlz like lfa1-pstlz,
stras like lfa1-stras,
mwskz like ekpo-mwskz,
text1 like t007s-text1,
kalsm like t007s-kalsm,
j_1icstno like j_1imovend-j_1icstno,
hkont(10) TYPE C, " like bseg-hkont,
saknr like ska1-saknr,
sakan like ska1-sakan,
ktoks like ska1-ktoks,
mcod1 like ska1-mcod1,
WAERS LIKE EKKO-WAERS,
bukrs like ekpo-bukrs,
total LIKE ekbe-dmbtr,
END OF ty_display.
TYPES : BEGIN OF ty_services,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
lfbnr LIKE ekbe-lfbnr,
packno LIKE esll-packno,
sub_packno LIKE esll-sub_packno,
srvpos LIKE esll-srvpos,
ktext1 LIKE esll-ktext1,
netwr LIKE esll-netwr,
act_wert LIKE esll-act_wert,
menge LIKE esll-menge,
bldat LIKE ekbe-bldat,
END OF ty_services.
TYPES : BEGIN OF ty_konv,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
knumv LIKE konv-knumv,
kposn LIKE konv-kposn,
kschl LIKE konv-kschl,
kwert LIKE konv-kwert,
kbetr LIKE konv-kbetr,
END OF ty_konv.
TYPES : BEGIN OF ty_lfbnr,
belnr TYPE ekbe-belnr,
lfbnr TYPE ekbe-lfbnr,
END OF ty_lfbnr.
TYPES : BEGIN OF ty_miro,
belnr1 TYPE ekbe-belnr,
belnr TYPE ekbe-belnr,
budat TYPE ekbe-budat,
END OF ty_miro.
types: begin of ty_lfa1,
lifnr like lfa1-lifnr,
name1 like lfa1-lifnr,
pstlz like lfa1-pstlz,
stras like lfa1-stras,
end of ty_lfa1.
types: begin of ty_t007s,
mwskz like t007s-mwskz,
text1 like t007s-text1,
spras like t007s-spras,
kalsm like t007s-kalsm,
end of ty_t007s.
types: begin of ty_j_1imovend,
lifnr like j_1imovend-lifnr,
j_1icstno like j_1imovend-j_1icstno,
end of ty_j_1imovend.
types: begin of ty_bseg,
lifnr like bseg-lifnr,
dmbtr like bseg-dmbtr,
shkzg like bseg-shkzg,
hkont like bseg-hkont,
BELNR LIKE BSEG-BELNR,
end of ty_bseg.
types: begin of ty_ska1,
saknr like ska1-saknr,
sakan like ska1-sakan,
ktoks like ska1-ktoks,
mcod1 like ska1-mcod1,
end of ty_ska1.
DATA : it_lfbnr TYPE STANDARD TABLE OF ty_lfbnr,
wa_lfbnr TYPE ty_lfbnr,
it_lfa1 type standard table of ty_lfa1,
wa_lfa1 TYPE ty_lfa1,
it_t007s type standard table of ty_t007s,
wa_t007s TYPE ty_t007s,
it_j_1imovend type standard table of ty_j_1imovend,
wa_j_1imovend TYPE ty_j_1imovend,
it_bseg type standard table of ty_bseg,
wa_bseg TYPE ty_bseg,
it_ska1 type standard table of ty_ska1,
wa_ska1 TYPE ty_ska1,
it_miro TYPE STANDARD TABLE OF ty_miro,
wa_miro TYPE ty_miro,
w_belnr TYPE ekbe-belnr,
w_lfbnr TYPE ekbe-lfbnr,
w_belnr1 TYPE ekbe-belnr,
w_budat TYPE ekbe-budat.
CONSTANTS: Begin with C_ *
DATA: Begin with W_ *
DATA : w_flag TYPE c.
INTERNAL TABLES: Begin with IT_ *
DATA : it_ekko TYPE STANDARD TABLE OF ty_ekko WITH NON-UNIQUE KEY ebeln
ebelp,
it_ekpo type standard table of ty_ekpo,
it_ekbe TYPE STANDARD TABLE OF ty_ekbe,
it_ekbe1 TYPE STANDARD TABLE OF ty_ekbe WITH NON-UNIQUE KEY ebeln
ebelp,
it_display TYPE STANDARD TABLE OF ty_display,
it_subdebit TYPE STANDARD TABLE OF ty_ekbe,
it_services TYPE STANDARD TABLE OF ty_services,
it_packno TYPE STANDARD TABLE OF ty_services,
it_konv TYPE STANDARD TABLE OF ty_konv.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
it_layout TYPE slis_layout_alv,
it_komv TYPE STANDARD TABLE OF komv WITH NON-UNIQUE KEY knumv
kschl.
WORKAREAS: Begin with WA_ *
DATA : wa_ekbe TYPE ty_ekbe,
wa_ekbe1 TYPE ty_ekbe,
wa_ekko TYPE ty_ekko,
wa_komv TYPE komv,
wa_display TYPE ty_display,
WA_LFA1 TYPE TY_LFA1,
W_GROSS_AMT type KOMV-KWERT,
wa_subdebit TYPE ty_ekbe,
wa_packno TYPE ty_services,
wa_services TYPE ty_services,
wa_konv TYPE ty_konv,
wa_taxcom TYPE taxcom,
wa_ls_fieldcat TYPE slis_fieldcat_alv.
FIELD-SYMBOLS: Begin with FS_ *
FIELD-GROUPS: Begin with FG_ *
CONTROLS: *
SELECT-OPTIONS: Begin with SO_ *
SELECT-OPTIONS : so_lifnr FOR ekko-lifnr ,
so_mtart FOR ekpo-mtart,
so_ebeln FOR ekbe-ebeln,
so_matnr FOR ekbe-matnr,
so_date FOR sy-datum no-display,
do_date for ekko-bedat,
tax_code for ekpo-mwskz,
mr_date for ekbe-budat,
mat_gr for ekpo-matkl,
mat_tp for ekpo-mtart,
pr_plant for ekbe-werks,
pr_ekorg for ekko-ekorg.
PARAMETERS: Begin with PR_ *
*PARAMETER : pr_plant LIKE ekpo-werks . "OBLIGATORY.
pr_ekorg LIKE ekko-ekorg . "OBLIGATORY.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
PARAMETER : pr_preg TYPE c radiobutton group g1 default 'X',
pr_ror TYPE c RADIOBUTTON GROUP g1 .
SELECTION-SCREEN : END OF BLOCK b1.
START-OF-SELECTION *
START-OF-SELECTION .
*--- Get the data reguired--
PERFORM f001-get_data.
*-------Calculate the tax required -
PERFORM f002-cal_taxes.
PERFORM miro_get_data.
END-OF-SELECTION *
END-OF-SELECTION.
*---Display the report--
PERFORM f003-display_register.
*& Form F001-GET_DATA
text
--> p1 text
<-- p2 text
FORM f001-get_data .
Clear and Refresh all internal table and work area.
REFRESH : it_ekko,
it_ekbe,
it_services,
it_packno,
it_konv,
it_lfa1,
it_komv.
CLEAR : wa_ekko,
wa_ekbe,
wa_services,
wa_packno,
wa_konv,
wa_lfa1,
wa_komv.
Get the history records for all the selected PO. from table EKBE of
type GR.
IF pr_preg = 'X'.
*Get Purchasing Document Number, Number of the document condition,
*Vendor's accountNumber, Currency Key, Procedure , Country for Tax
*ReturnPurchasing OrganizationExchange rate In an internal table it_ekko
*break-point.
SELECT pBSART qknttp pebeln pknumv plifnr pwaers pkalsm plands pekorg pwkurs
wkurs pbedat qebelp qbukrs qmatkl qmtart pllief qmeins qbprme
qtxjcd qmwskz pwkurs qnetpr qmenge QPEINH
INTO CORRESPONDING FIELDS OF TABLE it_ekko
FROM ekko AS p INNER JOIN ekpo AS q
ON pebeln = qebeln
WHERE p~ekorg in pr_ekorg
AND p~lifnr IN so_lifnr
AND q~mtart IN so_mtart
AND p~ebeln IN so_ebeln
and p~bedat in do_date
and q~mwskz in tax_code
and q~matkl in mat_gr
and q~mtart in mat_tp
and kalsm = 'SIL000'
AND EKORG = 'SDOP'.
GET ALL THE PO FOR WHICH MIRO HAS BEEN DONE
SELECT ebeln ebelp budat bldat werks
INTO CORRESPONDING FIELDS OF TABLE it_ekbe1
FROM ekbe
FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln
AND ebelp = it_ekko-ebelp
AND bewtp = 'Q'
AND werks in pr_plant
AND budat IN so_date
AND ( bwart = '101' OR bwart = '102' ) "OR bwart = '105' OR bwart = '106' OR bwart ='')
AND ebeln IN so_ebeln
and budat in mr_date
AND matnr IN so_matnr.
AND ( BUDAT >= SO_DATE-low and BUDAT <= SO_DATE-high ).
Check whether any records is present
IF sy-subrc = 0.
IF NOT it_ekbe1 IS INITIAL.
SELECT ebeln ebelp buzei belnr budat xblnr werks matnr menge
dmbtr waers wrbtr bwtar shkzg dmbtr bldat srvpos
packno introw lfbnr bwart
INTO CORRESPONDING FIELDS OF TABLE it_ekbe
FROM ekbe
FOR ALL ENTRIES IN it_ekbe1
WHERE ebeln = it_ekbe1-ebeln
AND ebelp = it_ekbe1-ebelp
and budat in mr_date
AND budat IN so_date
and ( BUDAT >= SO_DATE-low and BUDAT <= SO_DATE-high )
AND bewtp = 'Q'.
AND ( bwart = '101' OR bwart = '102' OR bwart = '103' OR bwart = '105' ). "OR bwart = '105' OR bwart = '106' OR bwart ='').
AND bwart = '103'.
and WERKS = PR_PLANT.
IF sy-subrc = 0.
ENDIF.
ELSE.
SELECT ebeln ebelp buzei belnr budat xblnr werks matnr menge
dmbtr waers wrbtr bwtar shkzg dmbtr bldat srvpos
packno introw lfbnr bwart
INTO CORRESPONDING FIELDS OF TABLE it_ekbe
FROM ekbe
FOR ALL ENTRIES IN it_ekbe1
WHERE ebeln = it_ekbe1-ebeln
AND ebelp = it_ekbe1-ebelp
and budat in mr_date
AND budat IN so_date
and ( BUDAT >= SO_DATE-low and BUDAT <= SO_DATE-high )
AND bewtp = 'Q'.
AND ( bwart = '101' OR bwart = '102' OR bwart = '103' OR bwart = '105' ) . "OR bwart = '105' OR bwart = '106' OR bwart ='').
AND bwart = '102'.
and WERKS = PR_PLANT.
IF sy-subrc = 0.
ENDIF.
ENDIF.
ENDIF.
new code added
*get the venor address
select alifnr bname1 bpstlz bstras b~lifnr
into corresponding fields of table it_LFA1
from ekko as a inner join lfa1 as b
on alifnr = blifnr
for all entries in it_EKKO
where B~lifnr = it_EKKO-lifnr.
***tax code description added*******************
select mwskz text1 spras kalsm
from t007s
into corresponding fields of table it_t007s for all entries in it_ekko
where mwskz = it_ekko-mwskz and spras = 'E' and kalsm = 'TAXSIL'.
*******vendor vat no. added*************
select lifnr j_1icstno
from j_1imovend
into corresponding fields of table it_j_1imovend for all entries in it_ekko
where lifnr = it_ekko-lifnr.
**********gl code added******************************************
*select lifnr shkzg dmbtr hkont
*from bseg
*into corresponding fields of table it_bseg for all entries in it_lfa1 " it_ekko
*where LIFNR = it_lfa1-LIFNR and shkzg = 'S'.
*************gl code description added*******************************************
*select saknr ktoks mcod1 sakan
*from ska1
*into corresponding fields of table it_ska1 for all entries in it_bseg
*where sakan = it_bseg-hkont and ktoks = 'MAT'.
Get the package number , service number , service text , net price ,
accual amount , qty. etc
IF NOT it_packno[] IS INITIAL.
SELECT ppackno psrvpos pktext1 pnetwr pact_wert pmenge
INTO CORRESPONDING FIELDS OF TABLE it_services
FROM esll AS p "inner join ESLL as Q
on PPLN_PACKNO = QPACKNO
and PINTROW = QINTROW
FOR ALL ENTRIES IN it_packno
WHERE p~packno = it_packno-sub_packno.
IF sy-subrc = 0.
ENDIF.
ENDIF.
Get Number of the document condition ,line item number, Condition
value for all selected PO.
IF NOT it_ekko[] IS INITIAL.
SELECT knumv kposn kschl kwert
INTO CORRESPONDING FIELDS OF TABLE it_konv
FROM konv
FOR ALL ENTRIES IN it_ekko
WHERE knumv = it_ekko-knumv.
IF sy-subrc = 0.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " F001-GET_DATA
*& Form F002-CAL_TAXES
text
--> p1 text
<-- p2 text
FORM f002-cal_taxes .
Calculate taxes for all the PO.
LOOP AT it_ekbe INTO wa_ekbe.
CLEAR : wa_display,
wa_ekko.
READ TABLE it_ekko WITH TABLE KEY ebeln = wa_ekbe-ebeln
ebelp = wa_ekbe-ebelp
INTO wa_ekko.
IF sy-subrc = 0.
ENDIF.
CLEAR wa_taxcom.
Get the text for the Material.
SELECT SINGLE maktx
INTO wa_display-maktx
FROM makt
WHERE matnr = wa_ekbe-matnr
AND spras = sy-langu.
wa_taxcom-bukrs = wa_ekko-bukrs.
wa_taxcom-budat = wa_ekbe-bldat.
wa_taxcom-budat = wa_ekko-bedat." change by dinesh
wa_taxcom-waers = wa_ekbe-waers.
wa_taxcom-kposn = wa_ekbe-ebelp.
wa_taxcom-mwskz = wa_ekko-mwskz.
wa_taxcom-txjcd = wa_ekko-txjcd.
taxcom-shkzg = 'H'.
wa_taxcom-xmwst = 'X'.
IF ekko-bstyp EQ bstyp-best.
wa_taxcom-wrbtr = wa_ekko-netpr * wa_ekbe-menge * wa_ekko-wkurs.
WA_TAXCOM-WRBTR = wa_ekbe-dmbtr.
ELSE.
taxcom-wrbtr = ekpo-zwert.
ENDIF.
wa_taxcom-lifnr = wa_ekko-lifnr.
wa_taxcom-land1 = wa_ekko-lands. "WIA
wa_taxcom-ekorg = wa_ekko-ekorg.
wa_taxcom-hwaer = 'INR'. "t001-waers.
wa_taxcom-llief = wa_ekko-llief.
wa_taxcom-bldat = wa_ekbe-bldat.
wa_taxcom-matnr = wa_ekbe-matnr. "HTN-Abwicklung
wa_taxcom-werks = wa_ekbe-werks. "pr_plant.
taxcom-bwtar = ekpo-bwtar.
wa_taxcom-matkl = wa_ekko-matkl.
wa_taxcom-meins = wa_ekko-meins.
wa_taxcom-ebeln = wa_ekbe-ebeln.
wa_taxcom-ebelp = wa_ekbe-ebelp.
wa_taxcom-mglme = wa_ekbe-menge.
wa_taxcom-mtart = wa_ekko-mtart.
*Call function module CALCULATE_TAX_ITEM--
CALL FUNCTION 'CALCULATE_TAX_ITEM'
EXPORTING
i_taxcom = wa_taxcom
display_only = 'X'
dialog = diakz
IMPORTING
e_taxcom = wa_taxcom
nav_anteil = hwert
TABLES
t_xkomv = it_komv
EXCEPTIONS
OTHERS = 01.
IF sy-subrc = 0.
ENDIF.
wa_display-bsart = wa_ekko-bsart.
wa_display-knttp = wa_ekko-knttp.
wa_display-bprme = wa_ekko-bprme.
wa_display-meins = wa_ekko-meins.
wa_display-lifnr = wa_ekko-lifnr.
wa_display-ebeln = wa_ekbe-ebeln.
wa_display-bedat = wa_ekko-bedat.
wa_display-bwart = wa_ekbe-bwart.
wa_display-budat = wa_ekbe-budat.
wa_display-matnr = wa_ekbe-matnr.
wa_display-belnr = wa_ekbe-belnr.
wa_display-menge = wa_ekbe-menge.
wa_display-PEINH = wa_ekko-PEINH.
wa_display-dmbtr = ( wa_ekko-netpr * wa_ekbe-menge * wa_ekko-wkurs ) / wa_ekko-PEINH.
WA_DISPLAY-DMBTR = WA_EKBE-DMBTR.
wa_display-srvpos = wa_ekbe-srvpos.
wa_display-mwskz = wa_EKKO-mwskz.
wa_display-WAERS = wa_EKKO-WAERS.
read table it_lfa1 into wa_lfa1 with key lifnr = wa_ekko-lifnr.
wa_display-name1 = wa_lfa1-name1.
wa_display-pstlz = wa_lfa1-pstlz.
wa_display-stras = wa_lfa1-stras.
read table it_t007s into wa_t007s with key mwskz = wa_ekko-mwskz.
wa_display-text1 = wa_t007s-text1.
read table it_j_1imovend into wa_j_1imovend with key lifnr = wa_ekko-lifnr.
wa_display-j_1icstno = wa_j_1imovend-j_1icstno.
read table it_bseg into wa_bseg with key LIFNR = wa_lfa1-lifnr. " wa_ekKO-LIFNR .
wa_display-HKONT = wa_bseg-HKONT.
*read table it_ska1 into wa_ska1 with key sakan = wa_bseg-hkont.
*wa_display-mcod1 = wa_ska1-mcod1.
READ TABLE it_komv WITH KEY kschl = 'JCDB'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0.
wa_display-custduty = wa_komv-kwert .
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'JCDB'.
IF wa_ekko-menge <> 0.
wa_display-custduty = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ENDIF.
Get the BED OR EXCISE DUTY
CLEAR : wa_komv , wa_konv.
READ TABLE it_komv WITH KEY kschl = 'JMOP'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0 .
wa_display-BED = wa_komv-kwert .
ELSE.
READ TABLE it_komv WITH KEY kschl = 'JMOQ'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0.
wa_display-BED = wa_komv-kwert .
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'JMOP'.
IF sy-subrc = 0.
IF wa_ekko-menge <> 0.
wa_display-BED = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY
knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'JMOQ'.
IF wa_ekko-menge <> 0.
wa_display-BED = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
******END OF EXCISE DUTY AND THE BED******************************************************
Get the EDUCATION CESS
CLEAR : wa_komv , wa_konv.
READ TABLE it_komv WITH KEY kschl = 'JEC1'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0 .
wa_display-educess = wa_komv-kwert .
ELSE.
READ TABLE it_komv WITH KEY kschl = 'JESQ'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0.
wa_display-educess = wa_komv-kwert .
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'JEC1'.
IF sy-subrc = 0.
IF wa_ekko-menge <> 0.
wa_display-educess = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY
knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'JESQ'.
IF wa_ekko-menge <> 0.
wa_display-educess = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
*END OF EDUCATION CESS
Get the SERVICE TAX
clear : WA_KOMV , WA_KONV.
read table IT_KOMV with key KSCHL = 'JSRT'
KPOSN = WA_EKKO-EBELP
into WA_KOMV.
if SY-SUBRC = 0.
WA_DISPLAY-SERTAX = WA_KOMV-KWERT .
else.
read table IT_KONV into WA_KONV with key KNUMV = WA_EKKO-KNUMV
KPOSN = WA_EKKO-EBELP
KSCHL = 'JSRT'.
WA_DISPLAY-SERTAX = WA_KONV-KWERT * wa_ekko-WKURS.
endif.
END OF SERVICE TAX****************************************
Get the EDUCATION CESS ON SERVICE TAX************************
clear : WA_KOMV , WA_KONV.
read table IT_KOMV with key KSCHL = 'JEC5'
KPOSN = WA_EKKO-EBELP
into WA_KOMV.
if SY-SUBRC = 0.
WA_DISPLAY-SEREDUCESS = WA_KOMV-KWERT .
else.
read table IT_KONV into WA_KONV with key KNUMV = WA_EKKO-KNUMV
KPOSN = WA_EKKO-EBELP
KSCHL = 'JEC5'.
WA_DISPLAY-SEREDUCESS = WA_KONV-KWERT * wa_ekko-WKURS.
endif.
******END OF SERVICE TAX ON EDUCATION CESS************************************************
Get the CVD
CLEAR : wa_komv , wa_konv.
READ TABLE it_komv WITH KEY kschl = 'JCV1'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0.
wa_display-cvd = wa_komv-kwert .
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'JCV1'.
IF wa_ekko-menge <> 0.
wa_display-cvd = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ENDIF.
Get the total INSURANCE
CLEAR : wa_komv , wa_konv.
READ TABLE it_komv WITH KEY kschl = 'ZIN1'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0 .
wa_display-insure = wa_komv-kwert .
ELSE.
READ TABLE it_komv WITH KEY kschl = 'ZIN2'
kposn = wa_ekko-ebelp
INTO wa_komv.
IF sy-subrc = 0.
wa_display-insure = wa_komv-kwert .
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_ekko-knumv
kposn = wa_ekko-ebelp
kschl = 'ZIN1'.
IF sy-subrc = 0.
IF wa_ekko-menge <> 0.
wa_display-insure = ( wa_ekbe-menge / wa_ekko-menge
) * wa_konv-kwert * wa_ekko-wkurs.
ENDIF.
ELSE.
READ TABLE it_konv INTO wa_konv WITH KEY
Hi Ingo,
Thanks for the reply. But let me rephrase my question. In the Bex we get a extra row called overall result in the result set which gives the correct count/total/average based on exception aggregation. The question is how we show the overall result row in the crystal or rather how can we map it into crystal. So i thought as of now we should create a formula to compute the overall result and display it.
Hope I am clear this time in asking the right question.
Many many thanks in advance for your reply.
Kind regards,
Shiva. -
My home was recently burgarlized and one of my Ipads were stolen.(Thank God my daughter had hers at school). However, I went online to report my Ipad lost thru apple but now My daughter is unable to Log into the apple account and/or use her Ipad due to being lost. How can I correct this so she can use her Ipad?
Thank youIf you had a passcode set on your iPad your data should be safe. The thief would have to force it into recovery mode and restore it in order to use it, which would completely erase it.
This shouldn't keep your daughter's device from accessing the iCloud account however. If you can no longer sign into the account on iCloud.com from your computer, contact Apple support for assistance. -
How to get total,maximum,mimumum no. of cases for this report
Description: Reason For Contact For Customer - This report will provide the total number of cases created for a particular Reason For Contact for a particular Customer with a valid Business Code. This report will also provide the Maximum, Minimum and Average number of cases created for a particular Reason For Contact for that particular type of Customer. This report will take From Date, To Date, Agent Group and Business Code as inputs and generates the report on the screen. All the input criteria will be mandatory.
See the attachment for the Report.
NOTE :1) FOR TOTAL,WE HAVE COUNT NUMBER OF CASES CREATED for a particular Reason For Contact for a particular Customer with a valid Business Code
2) FOR Maximum, Minimum and Average CONSIDER number of cases created for a particular Reason For Contact for that particular type of Customer.
For this report,I am using 5 tables. In the table ScaseParty i have C_Bus_Code,C_cust_type coulumns are there.
I am taking Input Criteria For Business code(ie c_bus_code).suppose business code is 'F0106',I have to get how many cases(means records) are there for a particular Reason For Contact for that Business Code.I AM GETTING THE TOTAL BUT
for getting maximum,minimum,average , i have to check the C_cust_type For that Business code ,after that I have to take all the business codes for that C_Cust_Type and with in the business codes ,i have to take the maximum number of cases which business code have for that particular Reason for contact For that particular customer type.
Eg: Reason for contact Businesscode customer type
Delivery Timing 0306 1
Delivery Timing 0306 1
Delivery Timing 0310 1
Delivery Timing 0310 1
Delivery Timing 0310 1
Delivery Timing 0310 1
In this way i want the result
Maximum =4 since, for reason for contact(delivery timing) for that customer type(customer type =1),the maximum no. of cases are 4 bcz, business code = 0310 comes 4 times.
Minimum =2 bcz, business code = 0306 comes 2 times.
The Problems i am facing
1) Since i have taken the input criteria Business code = 'f0106' ,the data filters in the where condition and the getting the number of cases exist for that business code(f0106) for that Contact of Reason data only.But i have to take all the business code exists for that Particular type of customer for that Particular reason for contact for getting the max,min,avg.
I can't handle max,min,avg in one report since it checks total cases for that Business code only.
SO,I THINK I HAVE TO INVOKE A SUBREPORT PASSING THE C_CUST_TYPE,iSN'T IT????
2) iF I TAKE THESE THINGS IN SUB REPORT,HOW CAN I find out the maximum number of case with in the business codes for reason for contact for that particular customer type.
CONSIDER THE ABOVE EXAMPLES, I AM GETTING 3 CASES FOR CODE = 0306 N 2 RECORDS FOR CODE= 0310 ,hOW CAN I GET mAXIMUM cASES ie 3 BY COMPARING THESE TWO CODES FOR THE DELIVERY TIMING . IS THERE ANY FUNCTION??????
In which way i have to handle this report.
Regards,
Vijay
mail : [email protected]Hi Vijay,
The most efficient way to acheive what you want will be to create a stored procedure or command object in which you have a subquery that calculate your maximum, minimum and average values.
If you are looking at a solution within Crystal Reports without having to write a SQL Query, then as you said, you can use a subreport that will returns the cases created for a particular Reason For Contact for that particular type of Customer.
( You will need to link the subreport to filter the data down )
Then you can calculate the minimum values in the subreport by using the Minimum function and manually counting the values in a variable, the formula will look like:
WhilePrintingRecords;
Shared NumberVar MyMinimum;
If Minimum({Business Code}) = {Business Code} Then
MyMinimum := MyMinimum + 1;
Insert the formula in the details section of the subreport.
This will count the number of time the minimum Business Code appears in the subreport.
You can create a similar formula for the maximum values by using the Maximum function.
As for the average, you can create a summary that counts the number of of Business Code, divided by the distinct count of Business Code, so it will give you the average. The formula will look like:
WhilePrintingRecords;
Shared NumberVar MyAverage;
MyAverage :=
( If DistinctCount({Business Code}) <> 0 Then
Count({Business Code}) / DistinctCount({Business Code}))
Then you can display the above shared variables on your main report.
Hope this help!
Regards,
Patrick -
How would I find this? I need it for the police report so if I could get answers soon that would be great, thanks
Lanlani wrote:
... It there any other solution ?
Consider using this site: http://www.stolenlostfound.org/
This is Apple's official word on the subject:
Reporting a lost or stolen Apple product
If you have lost or found an Apple product, please contact your local law enforcement agency to report it. Although Apple does not have a process to track or flag lost or stolen product, you can use My Support Profile to find a list of serial numbers for items purchased or registered with your Apple ID. -
Each time I try to watch my iTunes U podcast and try to skip forward my iTunes freezes and gives me an error report and shuts off, this happens also when I try to convert the podcast to my iPod. How can I fix this problem to be able to use iTunes U?
Hello, bisco,
This forum is for questions from people who administer iTunes U sites. You'll be most likely to get help with this issue if you ask in the iTunes or iPod forums.
Regards. -
I am currently using FormsCentral to distribute a form created in Acrobat. I need to add an option to one of the drop down fields but do not want to re-distribute the form due to reporting purposes. How can I do this?
You can open the form in Acrobat, select "File > Save a Copy", open the copy you just saved (it doesn't happen automatically), edit the dropdown to add the new item, save as a new file, and then Reader-enable the file by selecting: File > Save As Other > Reader Extended PDF > Enable More Tools. The resulting PDF should work with FormsCentral just like the original.
Maybe you are looking for
-
Window 8.1 Dose Not Play .mpg2
Hello Everyone. I have a new computer window 8.1. I noticed, when I Import my .mpg movies inside Premiere Pro, I do see the movie. But When I export It I can only hear the sound. Also, If I Double Click on any .mpg movies, In my Desktop, I can only
-
Is it possible to use project inheritance?
We have lot of classes. Some of them are base classes or mapped by all the other classes. We are researching a solution to avoid to use a unique project. I would have expected that I can have a TopLink Project with my base classes and often mapped cl
-
Dear all, We have created a new order type. When we use the new order type, for the sale order item, in the condition tab, for the respective condition type, no gl account is showing against the account key. We are able to see the account key. If we
-
Hi, Did anyone faced this problem. I've created an object library. I then drag the object from the library to form using the subclass -> remove path option, compiled the form and run the application the references subclass worked fine.The object libr
-
Something is filling up my laptop
Hi gang, My secretary uses a MacBook Pro. Literally, the only thing used on it is iCal, which syncs to Mobile Me. No pics, no music, no video. Despite this, there is only 1GB left as free space on the 250 GB hard drive. I tried searching for large fi