topic Re: match code in Application Development and Automation Discussions

match code

Former Member — Thu, 06 Sep 2007 17:44:53 GMT

Hi experts,

I have a task. In cor3 tcode when we press f4 at the purchase order field in te search help we have different tabs. In that window I need to add one more tab and enable the user to select the purchse order by the batch numbers.

Batch numbers are present in the table AFPOD and the field is CHARG. I dont know how to add this tab. Plz help me in this regard,

thanks

Re: match code

rodrigo_paisante3 — Thu, 06 Sep 2007 17:52:45 GMT

Hi,

just you want to do is populate your own table (you define the fields) and call function module F4IF_INT_TABLE_VALUE_REQUEST for F4 values. You need to put your code in the AT SELECTION-SCREEN block.

A sample:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_cnpj.

REFRESH: ti_cnpj, ti_fieldtab, ti_returnval.

SELECT cgc_branch name

FROM j_1bbranch

INTO TABLE ti_cnpj

WHERE bukrs = 'CNBR'.

CLEAR ti_fieldtab.

ti_fieldtab-tabname = 'TI_CNPJ'.

ti_fieldtab-fieldname = 'CGC_BRANCH'.

ti_fieldtab-position = '1'.

ti_fieldtab-outputlen = '4'.

ti_fieldtab-inttype = 'C'.

ti_fieldtab-intlen = '4'.

ti_fieldtab-rollname = 'Cod CNPJ'.

ti_fieldtab-scrtext_s = 'Cód CNPJ'.

ti_fieldtab-scrtext_m = 'Cód CNPJ'.

ti_fieldtab-scrtext_l = 'Cód CNPJ'.

APPEND ti_fieldtab.

CLEAR ti_fieldtab.

ti_fieldtab-inttype = 'C'.

ti_fieldtab-tabname = 'TI_CNPJ'.

ti_fieldtab-position = '2'.

ti_fieldtab-offset = '4'.

ti_fieldtab-outputlen = '30'.

ti_fieldtab-intlen = '30'.

ti_fieldtab-rollname = 'NOME'.

ti_fieldtab-fieldname = 'NOME'.

ti_fieldtab-scrtext_s = 'Nome'.

ti_fieldtab-scrtext_m = 'Nome'.

ti_fieldtab-scrtext_l = 'Nome'.

APPEND ti_fieldtab.

Call the function module F4IF_INT_TABLE_VALUE_REQUEST for F4 values

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'CGC_BRANCH'

window_title = 'Cód CNPJ'

value_org = 'S'

multiple_choice = ' ' " (for muliple selection)

TABLES

value_tab = ti_cnpj

field_tab = ti_fieldtab

return_tab = ti_returnval

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

Star for For single values

READ TABLE ti_returnval INDEX 1.

p_cnpj = ti_returnval-fieldval.

End for the single values

ENDIF.

Reward if useful

Regards

Re: match code

Former Member — Thu, 06 Sep 2007 17:57:47 GMT

Hi RP,

But the transaction is a sap std transaction. So I cant modify the code as such.Plz tell me if there is any other way.

thanks.

Re: match code

rodrigo_paisante3 — Thu, 06 Sep 2007 18:10:31 GMT

Oh, its true, sorry.

I dont know if it is possible to create this.

Regards

Re: match code

Former Member — Thu, 06 Sep 2007 18:59:50 GMT

Hi RP,

I was able to fine the solution. Just created a database view and then I created a search help with this view. Then added this elementary search help to the std collective help. Thanks anyway for the quick responese