Sales Employee VRTNR is missing in Field Catalog
Hi,
I can identify the field Sales employee - VRTNR in Field Catalog(Pricing Sales/Distribution) but it is not availble to select when creating the condition table.
I can see other fields appearing but not the sales employee which I can find in Conditions: Allowe Fields.
Please let me know what I am missing here?
Thanks,
Rahim
Edited by: ARahim on Feb 13, 2010 11:38 AM
http://www.sap-basis-abap.com/sd/how-to-add-new-fields-to-field-catalog.htm
Try the above link which may provide additional insight as to recognizing the field once it is added to the field catalog.
Similar Messages
-
Hi All,
how to calculate the sales employee comsission based ont he sales done hy him.
regards
SunilHi
First of all you need to capture the sales employee name in the sales order.
You can do this through creating the Sales Person with transaction PA30/20/40
add the same sales employee in sales order.
You can extract the report based on the sales employee and sales and pay them.
If your company does have HR module impletemed , you can capture the sales employee name in the additional fields provided in the sales order.
regards -
How to put Sales employee (Splcode) Mandatory Field, when adding A/R invoice
Hi,
Kindly solve, How to put Sales employee (Splcode) Mandatory Field, when adding A/R invoice.
Regards,
Rajeev.Follow this step..
1. In SQL Server, go to the SAP B1 Database you're using.
2. then on the Object Explorer , go to Database Folder, explode the SAP DB->Programmability->Stored Procedures->SBO_SP_TransactionNotification * the only Stored Procedure that is allowed to be edited. Just right click and modify
3. Try to paste this -> and click F5
If
@object_type ='13' and @transaction_type in ('A','U')
Begin
If EXISTS
select DocEntry from ONIV
Where DocEntry = @list_of_cols_val_tab_del
and SlpCode<>'-1'
Begin
set @error_message = 'Please select the Sales Employee'
set @error = 1
END
END
Regards
Kennedy -
Sales employee field in VA01 blocked & which fields are must to see in COPA
Hi,
I am able to see all the transactions from SD and FI direct postings coming into COPA.
But the management wants to see the profitability in Sales employee level also.
I am able to give the sales employee wise details in FI but in SD vao1 while I create a sales order the sales employee field in account assignments is blocked.
I gave the same information in the other tab Partner function, but still I am not able to see the transaction in COPA at sales employee level.
Also please let me know if I have make all the characteristics I am seeing in COPA S mandatory like(WBS element, sales order, sales employee, ) mandatory or is it sufficient that I keep only profit center as a mandatory field.
I feel profit center should be kept as mandatory field in SD and FI posting while remaining are all optional.
Please explin me how I should unblock the sales employee in Va01 and also let me know the logic why we have to keep the fields optional or mandatory.
Please assist me.
Thanks,
Shilpa.Hi Shilpa
Leave the fields as they are.. NO need to make any thing as optional or mandatory
Include the sales employee as partner fucntion in your sales order... You also need to write derivation rules in KEDR for the same
You will need to write 2 derivation rules for each partner function
1. In one Der Rule, make the sale order item KDPOS as constant value 0000
2. In the other one, dont make it a constant....Leave it as it is
DERIVATION RULE 1
SOURCE FIELDS
VBPA-VBELN = COPA-KAUFN
VBPA-POSNR = COPA-KDPOS
VBPA-PARVW = GLOBAL-USERTEMP1 (Click on Magnifying lens.. Specify Constant = Your SD Part Function)
TARGET FIELDS
VBPA-KUNNR/PERNR = COPA-WW100 / KMVTNR
DERIVATION RULE 2
SOURCE FIELDS
VBPA-VBELN = COPA-KAUFN
VBPA-POSNR = COPA-KDPOS (Click on Magnifying lens.. Specify Constant = 0000)
VBPA-PARVW = GLOBAL-USERTEMP1 (Click on Magnifying lens.. Specify Constant = Your SD Part Function)
TARGET FIELDS
VBPA-KUNNR/PERNR = COPA-WW100 / KMVTNR
Regards
Ajay M -
Newly-added field missing in the field catalog for NR00
I am about to creat condition record for condition type NR00 free goods . I need to make some customizing to meet our requirement .So I changed the field catalog for the condition table by adding a new field BWAST (purchasing document type) . After that I am going to creat a new condition table 501 with this newly-added field ,but I can't find the field in the right part for field catalog .
Can you give me some advice ? Thank you in advance.I 've got the answers ,
Note 21040 - Allowed Fields not appearing for condition table
thaks -
Sales Employee mandatory field in sales order item level
Hi all
I want to do SALES Employee mandatory on sales doc. item level, once i have gone through customization i did it check BOX on but once i save there where no effect, that check BOX still blank
please provide me how i should do it
Regards,
Abhijeethi Cong,
i earlier i unable to save due to VE and PE confusing partner function but now i have to save the setting means check BOX marked but still there where not effect.
Again i want to tell you the requirement i have to do Mandatory Partner function (Sales Employee) on sales order item level,may be that will be PE or VE i m not sure....
Management want to track like who is the owner of this business at the per item level for incentives purpose and after that marketing team can analyze the incentive or commission by the end of the every months from early this practice is going on but every sales order or every line item every time user not used to fill sales employee so that i have to do Mandatory, If any user creating sales order and if in sales order there end of line item means 2-3- 5-10-50...so on....may be every item has different sales employee and all has to be complete or els sales order should be pending or sales order not going to save...
I hope u understand the requirement and pls provide me solution
Regards,
Abhijeet -
New field in Pricing field catalog for Item category
Dear SD colleagues,
We have scenario of maintaining pricing for Lower level BOM component.
Like:
Base price - 100/-
When BOM explodes - 95/-.
For this, I have taken ABAPer help and inseted a Z field for Item category in Pricing field catalog.
Then, a new condition table is been generated using ZPSTYV and included in Access sequence. For Base price condition type, we have maintained record in combination with ZBOM-Item category for lower level BOM item.
A new pricing routine is created in VOFM for Condition value and same is been assigned to Condition type as Alternative calculation type in pricin gprocedure contro data.
Whe I create Sales order, value based on ZBOM is being pciked up by system.
request you to please help in this regard.
Thanks & regards,
Praveen.Hi Marino,
I have a requirement to determine the pricing based on "Discount Code", which is not a standard SAP field and i would like to have this as a custom field and linked to customer in custom table.
Question: When i add a new custom field and custom table for pricing, what are all the things i need to do in terms of ABAP.
As per my knowledge, below are the steps...Please check and confirm my understanding is correct and let me know if i miss anything.
1. Create a new field
2. Create Custome Table
3. Add field to Field Catlogue KOMG
4. Add Field to KOMP (as this is item field)
5. Add code in userexit USEREXIT_PRICING_PREPARE_TKOMP to make the data avaialable - Sales Order
5. Add code in userexit USEREXIT_PRICING_PREPARE_TKOMP to make the data avaialable - Billing
Thanks. -
Fields in Field Catalog not available when creating condition table
I see that field HIEBO01 to HIEBO12 are available in Field Catalog, but I don't see these fields when creating condition table
Please let me know what I am missing here.
Any insight on this would be really helpful. Thanks guys!you need to get them added to the pricing structure KOMKAZ or KOMPAZ based on whether you need @ header level or @ item level respectively.
and then add the logic in the sales order user exit for these added field in the pricing_prepare_TKOMK or pricing_prepare_TKOMP...again based on header level or item level.....
Then go back to the field catalog and select from the respective structure and add them, Then you can see them when creating cond tables.
Hope this helps. Hope i havent misunderstood your query.,
Regards
Sai -
hi friends,
i am using factory method to display my alv. now some of the fields in my internal table i have declared them as char fields, i want certain type of headings for these fields,so where can i give heading to these fields.
where exactly do we create a field catalog for factory method.
pls advice me on thishi
good
go throgh this code
*& Report Z_ALV_OOPS
REPORT Z_ALV_OOPS.
*Event class Definition "Event handler class
class event_handle definition.
public section.
methods: handle_user
for event user_command of cl_gui_alv_grid
importing e_ucomm.
endclass.
*Event class Implementation
class event_handle implementation.
method handle_user.
write:/ ''.
endmethod.
endclass.
Data: t_alv type ref to cl_gui_alv_grid, "ALV control
t_cont type ref to cl_gui_custom_container, "Cust Container
t_alv2 type ref to cl_gui_alv_grid, "ALV control
t_cont2 type ref to cl_gui_custom_container, "Cust Container
t_fieldcat type lvc_t_fcat with header line, "Field Cat
t_fieldcat2 type lvc_t_fcat with header line, "Field Cat
t_layout type lvc_s_layo, "Layout
t_event type ref to event_handle, "Event handler
t_sort type LVC_T_SORT with header line, "Sort
t_toolbar type ui_functions with header line. "Toolbar xclude
Types: begin of g_vbak, "Header Table
vbeln like vbak-vbeln,
auart like vbak-auart,
vkorg like vbak-vkorg,
vtweg like vbak-vtweg,
spart like vbak-spart,
kunnr like vbak-kunnr,
bstnk like vbak-bstnk,
seltab,
end of g_vbak.
Types: begin of g_vbap, "Item Table
vbeln like vbap-vbeln,
posnr(6) type c,
posrn like vbap-posnr,
matnr like vbap-matnr,
netwr like vbap-netwr,
waerk like vbap-waerk,
end of g_vbap.
Data: t_vbak type g_vbak occurs 0,
t_vbap type g_vbap occurs 0.
Start-Of-Selection.
*Fetch data from DB Table
select vbeln auart vkorg vtweg spart kunnr bstnk
from vbak into table t_vbak up to 20 rows.
End-Of-Selection.
*Call ALV screen
call screen 100.
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ALV'.
SET TITLEBAR 'VBAK'.
if t_cont is initial.
create object t_cont
exporting
container_name = 'ALV'.
create object t_alv
exporting
i_parent = t_cont.
*Create event handlers
create object t_event.
set handler t_event->handle_user for t_alv.
perform build_fieldcatlog.
perform build_layout.
perform xclude_toolbar.
CALL METHOD t_alv->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
IS_LAYOUT = t_layout
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING = t_toolbar[]
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
CHANGING
IT_OUTTAB = t_vbak[]
IT_FIELDCATALOG = t_fieldcat[]
IT_SORT =
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 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.
endif.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE USER_COMMAND_0100 INPUT.
Data: lt_rows type lvc_t_row,
wa_rows type line of lvc_t_row,
wa_vbak type g_vbak,
l_lines type i.
refresh: t_vbap.
case sy-ucomm.
when 'DET'. "Item details
Get selected rows from ALV
call method t_alv->get_selected_rows
importing
et_index_rows = lt_rows.
Fetch corresponding Item details from VBAP
loop at lt_rows into wa_rows.
read table t_vbak into wa_vbak index wa_rows-index transporting
vbeln.
select vbeln posnr matnr netwr waerk from vbap
appending corresponding fields of table t_vbap
where vbeln = wa_vbak-vbeln.
endloop.
Prepare fieldcatlog
Display Item details in ALV
call screen 200 starting at 8 5.
when 'SHOW'. "Display order
call method t_alv->get_selected_rows
importing
et_index_rows = lt_rows.
Describe table lt_rows lines l_lines.
if l_lines > 1.
message e999(z_error).
else.
read table lt_rows into wa_rows index 1.
read table t_vbak into wa_vbak index wa_rows-index transporting
vbeln.
set parameter id 'AUN' field wa_vbak-vbeln.
call transaction 'VA03' and skip first screen.
endif.
endcase.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form build_fieldcatlog
text
form build_fieldcatlog .
clear t_fieldcat.
t_fieldcat-col_pos = '1'.
t_fieldcat-fieldname = 'VBELN'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'VBELN'.
append t_fieldcat.
t_fieldcat-col_pos = '2'.
t_fieldcat-fieldname = 'AUART'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'AUART'.
append t_fieldcat.
t_fieldcat-col_pos = '3'.
t_fieldcat-fieldname = 'VKORG'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'VKORG'.
append t_fieldcat.
t_fieldcat-col_pos = '4'.
t_fieldcat-fieldname = 'VTWEG'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'VTWEG'.
append t_fieldcat.
t_fieldcat-col_pos = '5'.
t_fieldcat-fieldname = 'SPART'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'SPART'.
append t_fieldcat.
t_fieldcat-col_pos = '6'.
t_fieldcat-fieldname = 'KUNNR'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'KUNNR'.
append t_fieldcat.
t_fieldcat-col_pos = '7'.
t_fieldcat-fieldname = 'BSTNK'.
t_fieldcat-ref_table = 'VBAK'.
t_fieldcat-ref_field = 'BSTNK'.
append t_fieldcat.
endform. " build_fieldcatlog
*& Module LEAVE INPUT
text
module LEAVE input.
case sy-ucomm.
when 'BACK' or 'EXIT' or 'CANCEL'.
leave program.
endcase.
endmodule. " LEAVE INPUT
*& Form build_layout
text
--> p1 text
<-- p2 text
form build_layout .
t_layout-zebra = 'X'.
t_layout-sel_mode = 'A'.
t_layout-grid_title = 'Header Details'.
endform. " build_layout
*& Form build_fcat_vbap
text
form build_fcat_vbap .
clear t_fieldcat2.
t_fieldcat2-scrtext_m = 'Sales Doc'.
t_fieldcat2-col_pos = 1.
t_fieldcat2-fieldname = 'VBELN'.
t_fieldcat2-tabname = 'T_VBAP'.
t_fieldcat2-no_zero = 'X'.
t_fieldcat2-ref_table = 'VBAP'.
t_fieldcat2-ref_field = 'VBELN'.
append t_fieldcat2.
clear t_fieldcat2.
t_fieldcat2-col_pos = 2.
t_fieldcat2-scrtext_m = 'Item'.
t_fieldcat2-fieldname = 'POSNR'.
t_fieldcat2-tabname = 'T_VBAP'.
t_fieldcat2-intlen = '6'.
t_fieldcat2-inttype = 'C'.
t_fieldcat2-no_zero = 'X'.
t_fieldcat2-ref_table = 'VBAP'.
t_fieldcat2-ref_field = 'POSNR'.
append t_fieldcat2.
clear t_fieldcat2.
t_fieldcat2-col_pos = 3.
t_fieldcat2-fieldname = 'MATNR'.
t_fieldcat2-ref_table = 'VBAP'.
t_fieldcat2-ref_field = 'MATNR'.
append t_fieldcat2.
clear t_fieldcat2.
t_fieldcat2-col_pos = 4.
t_fieldcat2-fieldname = 'NETWR'.
t_fieldcat2-ref_table = 'VBAP'.
t_fieldcat2-ref_field = 'NETWR'.
t_fieldcat2-do_sum = 'X'.
append t_fieldcat2.
clear t_fieldcat2.
t_fieldcat2-col_pos = 5.
t_fieldcat2-fieldname = 'WAERK'.
t_fieldcat2-ref_table = 'VBAP'.
t_fieldcat2-ref_field = 'WAERK'.
append t_fieldcat2.
endform. " build_fcat_vbap
*& Module STATUS_0200 OUTPUT
text
module STATUS_0200 output.
SET PF-STATUS 'ITEM1'.
SET TITLEBAR 'VBAP'.
perform build_fcat_vbap.
perform sort_alv2.
if t_cont2 is initial.
create object t_cont2
exporting
container_name = 'ITEM'.
create object t_alv2
exporting
i_parent = t_cont2.
t_layout-grid_title = 'Item Details'.
CALL METHOD t_alv2->set_table_for_first_display
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
IS_LAYOUT = t_layout
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING = t_toolbar[]
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
IR_SALV_ADAPTER =
CHANGING
it_outtab = t_vbap[]
IT_FIELDCATALOG = t_fieldcat2[]
IT_SORT = t_sort[]
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 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.
else.
CALL METHOD t_alv2->refresh_table_display
EXPORTING
IS_STABLE =
I_SOFT_REFRESH =
EXCEPTIONS
FINISHED = 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.
endmodule. " STATUS_0200 OUTPUT
*& Module USER_COMMAND_0200 INPUT
text
module USER_COMMAND_0200 input.
case sy-ucomm.
when 'GOBACK'.
leave to screen 0.
endcase.
endmodule. " USER_COMMAND_0200 INPUT
*& Form sort_alv2
text
--> p1 text
<-- p2 text
form sort_alv2 .
clear t_sort.
t_sort-spos = '1'.
t_sort-fieldname = 'VBELN'.
t_sort-up = 'X'.
t_sort-subtot = 'X'.
append t_sort.
endform. " sort_alv2
*& Form xclude_toolbar
text
--> p1 text
<-- p2 text
form xclude_toolbar .
t_toolbar = '&DETAIL'.
append t_toolbar.
t_toolbar = '&&SEP00'.
append t_toolbar.
t_toolbar = '&&SEP01'.
append t_toolbar.
t_toolbar = '&&SEP02'.
append t_toolbar.
t_toolbar = '&SORT_ASC'.
append t_toolbar.
t_toolbar = '&SORT_DSC'.
append t_toolbar.
t_toolbar = '&FIND'.
append t_toolbar.
t_toolbar = '&MB_FILTER'.
append t_toolbar.
t_toolbar = '&&SEP04'.
append t_toolbar.
t_toolbar = '&MB_SUM'.
append t_toolbar.
t_toolbar = '&MB_SUB_TOTAL'.
append t_toolbar.
t_toolbar = '&PRINT_BACK'.
append t_toolbar.
t_toolbar = '&MB_VIEW'.
append t_toolbar.
t_toolbar = '&MB_EXPORT'.
append t_toolbar.
t_toolbar = '&GRAPH'.
append t_toolbar.
t_toolbar = '&COLO'.
append t_toolbar.
t_toolbar = '&&SEP06'.
append t_toolbar.
t_toolbar = '&&SEP07'.
append t_toolbar.
t_toolbar = '&INFO'.
append t_toolbar.
t_toolbar = '&&SEP03'.
append t_toolbar.
endform. " xclude_toolbar
reward point if helpful.
thanks
mrutyun^ -
ALV Display - Error in field catalog
Hi ,
I am facing a problem in ALV... Field catalot is not getting populated... I am getting a message field catalog not found...
Can anyone please help me....... <URGENT DOES NOT EXIST HERE>...
I am enclosing my code also.. please go thourh it and help it....
REPORT ZINVENTORY
LINE-SIZE 120
LINE-COUNT 64.
MESSAGE-ID Z2
NO STANDARD PAGE HEADING..
type-pools : slis.
Tables *
tables: zasset,
anla,
itob,
equi.
data: v_repid LIKE sy-repid.
Selection Screen *
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001 .
SELECT-OPTIONS : S_bukrs FOR anla-bukrs OBLIGATORY ,
S_kostl FOR itob-kostl .
SELECTION-SCREEN : END OF BLOCK B1 .
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETERS: p_screen RADIOBUTTON GROUP gr1,
p_list RADIOBUTTON GROUP gr1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b2.
Internal Tables *
types: BEGIN OF ty_zasset, " occurs 0,
equnr like zasset-equnr,
ANLN1 LIKE zasset-ANLN1, " Asset number
ANLN2 LIKE zasset-ANLN2, " Sub Asset number
BUKRS LIKE zasset-BUKRS, " Company Code
KOSTL like zasset-kostl,
SCANNEDBY type zasset-scannedby,
SCANNINGDATE type zasset-SCANNINGDATE,
SCANNINGTIME type zasset-scanningtime,
UPDATEDATE type zasset-updatedate,
UPDATETIME type zasset-updatetime,
END OF ty_zasset.
DATA: wa_zasset TYPE ty_zasset.
DATA: it_zasset TYPE TABLE OF ty_zasset with header line..
types: BEGIN OF ty_zasset1, " occurs 0,
equnr TYPE equi-equnr,
ANLN1 LIKE anla-ANLN1, " Asset number
ANLN2 LIKE anla-ANLN2, " Sub Asset number
BUKRS LIKE anla-BUKRS, " Company Code
ernam like anla-ernam,
erdat like anla-erdat,
KOSTL like anlz-kostl,
SCANNEDBY type zasset-scannedby,
SCANNINGDATE type zasset-SCANNINGDATE,
SCANNINGTIME type zasset-scanningtime,
UPDATEDATE type zasset-updatedate,
UPDATETIME type zasset-updatetime,
END OF ty_zasset1.
DATA: wa_zasset1 TYPE ty_zasset1.
DATA: it_zasset1 TYPE TABLE OF ty_zasset1 with header line..
types: BEGIN OF ty_zasset2, " occurs 0,
equnr like itob-equnr,
ANLNr LIKE itob-ANLNr, " Asset number
ANLuN LIKE itob-ANLuN, " Sub Asset number
BUKRS LIKE itob-BUKRS, " Company Code
timbi like itob-timbi,
kostl like itob-kostl,
KOSTL like anlz-kostl,
SCANNEDBY type zasset-scannedby,
SCANNINGDATE type zasset-SCANNINGDATE,
SCANNINGTIME type zasset-scanningtime,
UPDATEDATE type zasset-updatedate,
UPDATETIME type zasset-updatetime,
END OF ty_zasset2.
DATA: wa_zasset2 TYPE ty_zasset2.
DATA: it_zasset2 TYPE TABLE OF ty_zasset2 with header line..
types: begin of ty_final , "occurs 0,
equnr like itob-equnr,
anln1 like anla-anln1,
anln2 like anla-anln2,
bukrs like anla-bukrs,
ernam
erdat
kostl like itob-kostl,
end of ty_final.
DATA: wa_final TYPE ty_final.
DATA: it_final TYPE TABLE OF ty_final with header line..
*DATA: it_zasset TYPE TABLE OF ty_zasset.
*data: it_zasset1 type table of ty_zasset1.
*data:wa_zasset type ty_zasset.
*data:wa_zasset1 type ty_zasset1.
Flags and Variables *
DATA : F_ERROR. " Flag for No Data
*pop field cat for f7
data: V_SYREPID LIKE SY-REPID,
IT_FLDCAT type slis_t_fieldcat_alv , "with header line,
wa_fldcat type slis_fieldcat_alv.
*DATA : IT_FLDCATS TYPE SLIS_T_FIELDCAT_ALV.
data: itab_events type slis_t_event,
wa_events type slis_alv_event.
*data: wa_layout type slis_layout_alv.
DATA : IT_COMMENTS TYPE SLIS_T_LISTHEADER,
WA_COMMENTS TYPE SLIS_LISTHEADER.
DATA : IT_SORTINFO TYPE SLIS_T_SORTINFO_ALV,
WA_SORTINFO TYPE SLIS_SORTINFO_ALV.
Initialization *
initialization.
SY-REPID = V_REPID.
At Selection Screen *
AT SELECTION-SCREEN.
PERFORM validation.
Start Of Selection *
start-of-selection.
perform select_data.
IF P_LIST = 'X'.
perform get_field_catalog.
PERFORM MODIFYFIELDCAT.
perform get_events.
perform write_comments.
perform grid_display.
*perform list_display.
ENDIF.
IF sy-subrc = 0.
IF p_list = 'X'.
loop at it_final.
perform get_events.
endloop.
endif.
endloop.
else.
*endif.
End Of Selection *
END-OF-SELECTION.
*perform display_Recorsds.
*loop at zasset.
*& Form validation
text
--> p1 text
<-- p2 text
FORM validation.
*Local variables.
DATA:
lv_bukrs type anla-bukrs,
lv_kostl type itob-kostl,
lv_anln1 TYPE anla-anln1, "MAterial Number
lv_anln2 TYPE anla-anln2.
*Validation for company code
if not s_bukrs is initial.
select single bukrs from anla
into lv_bukrs
where bukrs in s_bukrs.
if sy-subrc <> 0.
*Message used : Invalid company code.
endif.
endif .
Validation for cost center
if not s_kostl is initial.
select single kostl from itob
into lv_kostl
where kostl in s_kostl.
if sy-subrc <> 0.
*Message used : Invalid company code.
endif.
endif .
ENDFORM. " validation
*& Form display
text
--> p1 text
<-- p2 text
FORM display.
write :/15 it_final-anln1,
it_final-anln2,
sy-vline.
*-bukrs,
it_zasset-anln1.
ENDFORM. " display
*& Form get_field_catalog
text
--> p1 text
<-- p2 text
FORM get_field_catalog.
*REFRESH IT_FLDCAT.
*CLEAR IT_FLDCAT.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = V_REPID
I_INTERNAL_TABNAME = 'IT_FINAL'
I_INCLNAME = V_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
CT_FIELDCAT = IT_FLDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 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.
ENDIF.
ENDFORM. " get_field_catalog
*& Form get_events
text
--> p1 text
<-- p2 text
FORM get_events.
WA_COMMENTS-TYP = 'H'.
WA_COMMENTS-KEY = 'THIS IS THE HEADING.'.
WA_COMMENTS-INFO = 'LIST OF SALES ORDERS'.
APPEND WA_COMMENTS TO IT_COMMENTS.
ENDFORM. " get_events
*& Form grid_display
text
--> p1 text
<-- p2 text
FORM grid_display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = v_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'FIRST PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'LIST OF FLIGHT DETAILS'
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = it_fldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = itab_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
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = it_final
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. " grid_display
*& Form write_comments
text
--> p1 text
<-- p2 text
FORM write_comments.
WA_COMMENTS-TYP = 'H'.
WA_COMMENTS-KEY = 'THIS IS THE HEADING.'.
WA_COMMENTS-INFO = 'LIST OF SALES ORDERS'.
APPEND WA_COMMENTS TO IT_COMMENTS.
ENDFORM. " write_comments
*& Form select_data
text
--> p1 text
<-- p2 text
FORM select_data.
clear: it_zasset, it_zasset[].
select equnr "bukrs
anln1
anln2
bukrs
KOSTL
SCANNEDBY
SCANNINGDATE
SCANNINGTIME
UPDATEDATE
UPDATETIME
into table it_zasset "(g_anln1,g_anln2)
from zasset
where bukrs = zasset-bukrs..
and kostl = zasset-kostl.
if sy-subrc = 0.
sort it_zasset by anln1 anln2.
endif.
append it_zasset.
clear it_zasset1.
select
equnr
anln1
anln2
bukrs
ernam
erdat
bukrs
KOSTL
SCANNEDBY
SCANNINGDATE
SCANNINGTIME
UPDATEDATE
UPDATETIME
into table it_zasset1 "(g_anln1,g_anln2)
from anla
where bukrs = it_zasset-bukrs.
WHERE BUKRS IN S_BUKRS.
and kostl = anla-kostl.
if sy-subrc = 0.
select equnr
anlnr
anlun
bukrs
timbi
kostl
into table it_zasset2
from itob
for all entries in it_zasset1
where bukrs = it_zasset1-bukrs
WHERE anlnr = it_zasset1-anln1.
endif.
APPEND IT_ZASSET1.
IF SY-SUBRC = 0.
*loop at it_zasset1 into wa_zasset1.
loop at it_ZASSET1 into wa_zasset1.
move wa_zasset1-bukrs to wa_final-bukrs.
move wa_zasset1-anln1 to wa_final-anln1.
move wa_zasset1-anln2 to wa_final-anln2.
append wa_final to it_final.
endloop.
ENDIF.
sort it_final.
*LOOP AT IT_FINAL.
*ENDLOOP.
*ENDIF.
*if sy-subrc = 0.
*loop at it_zasset into wa_asset.
*read table it_zasset into wa_asset with key anln2 = wa_asset-anln2
*binary search.
*read table it_final into wa_final with key anln2 = wa_final-anln2
*binary search.
*if wa_asset-anln2 = wa_final-anln2.
*write : / 'error'.
*endif.
If sy-subrc <> 0.
f_error = 'X'.
write : 'No data Exists for the given selection in FA table'.
else.
loop at it_final.
perform display.
endloop.
records exits in anla table also.
endif.
ENDFORM. " select_data
*& Form MODIFYFIELDCAT
text
--> p1 text
<-- p2 text
FORM MODIFYFIELDCAT.
LOOP AT IT_FLDCAT INTO WA_FLDCAT.
CASE WA_FLDCAT-FIELDNAME.
WHEN 'EQUNR'.
WA_FLDCAT-COL_POS = 1.
WA_FLDCAT-SELTEXT_L = 'aSSET'.
WHEN 'ANLN1'.
wa_FLDCAT-KEY = 'X'.
WA_FLDCAT-COL_POS = 5.
WA_FLDCAT-SELTEXT_L = 'aSSET'.
WHEN 'ANLN2'.
WA_FLDCAT-KEY = 'X'.
WA_FLDCAT-COL_POS = 6.
wa_FLDCAT-HOTSPOT = 'X'.
WHEN 'BUKRS'.
WA_FLDCAT-CURRENCY = 'INR'.
WA_FLDCAT-SYMBOL = 'X'.
ENDCASE.
MODIFY IT_FLDCAT FROM WA_FLDCAT.
*IT_FLDCAT-fieldname = 'EQUNR'.
IT_FLDCAT-seltext_m = 'DOCUM_TYPE'.
IT_FLDCAT-col_pos = 1.
IT_FLDCAT-outputlen = 10.
IT_FLDCAT-emphasize = 'X'.
IT_FLDCAT-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.
append IT_FLDCAT TO IT_FLDCAT.
IT_FLDCAT-fieldname = 'ANLN1'.
IT_FLDCAT-seltext_m = 'DOCUM_TYPE'.
IT_FLDCAT-col_pos = 1.
IT_FLDCAT-outputlen = 10.
IT_FLDCAT-emphasize = 'X'.
IT_FLDCAT-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.
append IT_FLDCAT TO IT_FLDCAT.
ENDLOOP.
ENDFORM. " MODIFYFIELDCAT
*& Form list_display
text
--> p1 text
<-- p2 text
*FORM list_display.
*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = V_SYREPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'FRM_USER_COMMAND'
I_STRUCTURE_NAME =
IS_LAYOUT = wa_layout
IT_FIELDCAT = IT_FLDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'A'
IS_VARIANT =
IT_EVENTS = ITAB_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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_FINAL
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. " list_display
Edited by: Craig Cmehil on Jul 18, 2008 10:01 AMThe problem is with this...
types: begin of ty_final , "occurs 0,
equnr like itob-equnr,
anln1 like anla-anln1,
anln2 like anla-anln2,
bukrs like anla-bukrs,
ernam
erdat
kostl like itob-kostl,
end of ty_final.
DATA: wa_final TYPE ty_final.
DATA: it_final TYPE TABLE OF ty_final with header line.
when you are using Fieldcatalog merge you have to avoid using the TYPES Declaration of the internal table.
Instead of that you can do this
data: begin of it_final occurs 0,
equnr like itob-equnr,
anln1 like anla-anln1,
anln2 like anla-anln2,
bukrs like anla-bukrs,
ernam
erdat
kostl like itob-kostl,
end of it_final. -
Employee user not able to access catalogs from EBP
Hello Seniors,
We are implementing SRM 4.0 with scenario SSP and CCM 2.0.
Please note the landscape highlights:
EBP and CCM component are mounted in the same client and same server.
CAT and CES are also on same client.
No XI in picture.
Catalog upload has been done through CSV format only.
Please note the activities I have completed:
Cat_Manager assigned to /CCM/CATALOG_MANAGER role and profile generated.
Did the customizing for CAT
Did the customizing for CSE
Activated the required services
For the service srm_cse set the log on procedure as "log on data required".
Maintained a service user "ccm_user" in anonymous log on data.
Maintained "define external web serices" in SRM img->SRM ->SRM server ->Master data (Here i have a doubt which is explained later)
Intialized CCM with report.
Uploaded schema in the master catalog.
Created supplier ID and catalog.
Uploaded CSV file for Supplier catalog.
Mapped Supplier catalog with master catalog
Published Master cataog.
maintained entry of master catalog in PPOMA_BBP.
Now I logged on EBP home page with employee user.
Went to application shop.
My master catalog published in CCM component was present there with exact name.
But when the employee user clicks on the particular catalog link to choose the items from , He is getting an error "" BSP exception: Access to URL /sap/bc/bsp/ccm/srm_cse is forbidden "".
With this error message immediately the attention goes to the service srm_cse.But there I have maintained a SERVICE user by user ID ccm_user which is existing in SRM SU01.
In the whole customizing explained above I have two weak points which I want to state now:
1. The integrated call structure for my particular master catalog was copied from other catalog.
There i am missing one sr. no. of 70 (ie after 60 , 80 is there).
But all the values for url, ccm-user, password, sap-client, sap language, locale, catalogID are filled correctly with type as per config guide.
Do the parameter names should come exactly as per sequence given in guide(In my case it's not so.)
(If anybody wants to see screenshot for this point pl. give me personal ID.)
2. I had deleted the entry of my particular master catalog from the external web services to correct the error stated in pt. no 1 .
But when i tried to create an entry again with the same ID system gave me an error saying that the said catalog is marked for deletion.
now entry of this particular master catalog is present in table /CCM/D_CTLG_REQ with no x mark in active column.
But my catalog ID is present in external web services.
Can point no. 1 and 2 are reasons of the failure to access the catalogs from EBP?
If it is so then please tell me the procedure to recreate the integrated call structure with same catalog ID.
Please excuse me for the length of the matter , but i have tried to give every relavant detail so that clarity should be max.
Best Regards,
dinesh
[email protected]Hi Dinesh,
Please see cooments below...
1. The integrated call structure for my particular master catalog was copied from other catalog.
There i am missing one sr. no. of 70 (ie after 60 , 80 is there).
But all the values for url<b>[Adeoye]where did you get your url from? Go to SE80 --> BSP application --> /CCM/SRM_CSE --> Controller -->main.do and check the url</b>, ccm-user, password, sap-client, sap language, locale, catalogID are filled correctly with type as per config guide.
Do the parameter names should come exactly as per sequence given in guide(In my case it's not so<b>.)[Adeoye] Yes i believe this should be in the satated sequence.</b>
(If anybody wants to see screenshot for this point pl. give me personal ID.)
2. I had deleted the entry of my particular master catalog from the external web services to correct the error stated in pt. no 1 .
But when i tried to create an entry again with the same ID system gave me an error saying that the said catalog is marked for deletion. <b>[Adeoye] Save your deletion first, before trying to create it again.</b>
now entry of this particular master catalog is present in table /CCM/D_CTLG_REQ with no x mark in active column.
But my catalog ID is present in external web services.
I also sent you a cookbook to help with this, hope this helps...
BR,
Adeoye -
Error in saving sales employee
Hi Experts,
I am trying to save sales employees in sap business one through DI API. However, after calling the Add method, it gives me this error: "Data is not available; modify selection criteria and re-enter:.
What does this mean?
Thanks.
Melvin BalingitSorry Guys,
I have tested the following code, and working perfect. So no problem with the usersfields.
Dim oSP As SAPbobsCOM.SalesPersons = oCompany.GetBusinessObject(BoObjectTypes.oSalesPersons)
oSP.SalesEmployeeName = "DEMO Sales Person2"
oSP.UserFields.Fields.Item("U_TEST").Value = "TEST"
If oSP.Add <> 0 Then
sbo_application.MessageBox(oCompany.GetLastErrorDescription)
End If
I have version 2007 SP 01 PL 09.
You may check what Vasu suggested....
regards
János -
Changing of Sales Employee in Sales order
Dear Experts,
We wish to disable the changing of Sales employee in a sales order in VA02 mode. However, in VA01 we need to keep it open for editing.
We have also tried through the customising in partner determination procedure but could not achieve the desired scenario as it disables ALL changes to the partner, both in VA01 & VA02.
Moreover, we have tried through the Function module MV45AFZZ, as one of the messages in the forum suggested, for a similar case, but unfortunately could not call up the particular field in there for the sales employee. At best it responds to KUAGV-KUNNR, where as the sales employee is much below that.
The soonest help is pleaded for.
Thanks and Regards,
TariqHi Smile,
Thanks for the prompt response, but we did try as sugested for the user exitbut unfortunately we are unable to call up the screen field : GVS_TC_DATA-REC-PARTNER for the purpose.
You would recall that the said field is identified by the partner function VE (Sales employee) and we intend to identify and attack THIS field for our purpose.
Any further pointers please?
Thanks once again.
Regards,
Tariq -
New Field Addition in Allowed Field Catalogs -Pricing.
*Hi,
We have requirement of having Material Description field in the Allowed Field Catalogs in SPRO --> SD --> Basic Functions --> Pricing --> Pricing Controls --> Define Condition tables --> Allowed Field Catalogs in order to fetch the same for Pricing Condition Table creation with Mtrl Description as Key Combination.
Hence, as a first step, have added the MAKTX field inside the "ZStructure" (which was created before) inside Main Structure KOMP and activated the same. Then i have added the same field MAKTX in Allowed Field Catologs of Pricing using New Entries.
Now i have tried to create a new Pricing Condition Table with field catalog of Material Description (the added field), but there is no such field is available for selection.
Is there anything i missed to do, so that the newly added field is available during New Condition Table Creation with key combination of the added field.
Appreciate your promot response.*
Rgds,Hi,
Thanks for your response.
Have added the required field in Structure KOMG now and it is available for selection in Condition Table Field Catalogs. However, am allowed to select this field only when creating a New Condition Table and if i want to add this field in the already created condition table in change mode, it thows an error message - "Function Code cannot be selected".
How to proceed further.
Rgds, -
Field catalog not appearing in the condition table for output determination
Hello,
I wanted to include WBSTK as a condition table entry in the output determination for outbound deliveries, WBSTK is available as field catalog , but not available during condition table creation.
Can you pls help me out?
Regards
VaideeCheck OSS Notes
379619 - Preference process in SD order: Prefrnc ID missing
595984 - Preference indicator in SD order
379269 - Preference in SD doc: User exit: Set pref. indicator PREFE
Regards
Maybe you are looking for
-
Using UNIX command to copy desktop files/folders
Hello All. I need help using UNIX command(s) to copy text documents and or folders from my lab computers to my desktop at home. Since I have such a slow connection, I think this will work best. I need help with the cp command and the path mostly. Sin
-
I was having problems with a "flash plug in errors" on safari and followed instructions to uninstall the adobe flash. This worked well and I stopped getting the error messages on safari, but now when I attempt to open other applications (pages, numb
-
Hidden tokens are replaced by a whitespace
Hi, The attached folder contains 3 projects generated with Xtext that allows to have a reproducible example. I have a short grammar that allows to write paragraphs delimited by begin and end. Comments should be accepted everywhere, that's why they ar
-
I want to turn my 1 Year old 2.66 MP into a media centre serving the rest of the portable macs in the house as well as being hooked up to the main HDTV in my living room. The TV is also hooked up to my cable providers box. In a nutshell I want it to
-
Does anyone own a PhotoVu digital photo frame?
Sorry if this is not the appropriate discussion group for this topic, but I would really like to get in contact with someone who owns and uses a PhotoVu digital photo frame. I'd like to know how Mac friendly it is, as well as some how-to's in regard