Set edit box in system form

hi expert all
I want to set up combo box in sales order FORM   bottom document date(edit box).     combo box..is
showing   bottom document date(edit box) . but when i enlarge this FORM   combobox not setup on this position..
please help me.............
my code is
oItem = oOrderForm.Items.Add("combo", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
        oItem.Left = 450
        oItem.Width = 145
        oItem.Top = 90
        oItem.Height = 15
        ocombo = oItem.Specific
        ocombo.ValidValues.Add("", "")
         ocombo.DataBind.SetBound(True, "ORDR", "U_Ttype")

Hi John,
What Yatsea meant was, you set your item position relative to another item.
her example shows you to set your item's Left Coordinate to the Left coordninate of Item 16.
And the your items top coordinate to Top coordinate of Item 17.
Both this item 16 & 17 are some items on the form.
Now in your case,
Dim DocDateItem as SAPBouiCom.Item
DocdateItem = oOrderForm.Items.Item("46")
oItem = oOrderForm.Items.Add("combo", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
        oItem.Left = DocDateItem.Left
        oItem.Width = 145
        oItem.Top = DocDateItem.Top + DocDateItem.Height + 2
        oItem.Height = 15
        ocombo = oItem.Specific
        ocombo.ValidValues.Add("", "")
         ocombo.DataBind.SetBound(True, "ORDR", "U_Ttype")
Hope it helps.
Regards
Edy

Similar Messages

I have just created my first form and saved it as a PDF. The editable boxes have a background colour of Blue and I would like to change this. Can it be done?

Hi guys i have just created my new form and it was very easy. however once i convert it to a PDF the editable boxes in the form are blue and i would like to change the colour. does any know if this can be done?

The blue background is the field highlighting that you have the option of turning off. If you don't see the purple bar on top with Highlight Fields toggle button, it should displayed by clicking the top icon (purplish) in the navigation pane on the left

Capture grid row value and set it in edit box

hello expert
i want to select the perticular colum of grid and capture the three colum value of grid in three edit box on the form pls help me sir
thanx a lot

Hi vmaskey,
Use the Grid's DataTable GetValue method to get the values you need.
Do this on the ItemPressed Item event, when the user selects a row
Dim Value1 As String = oGrid.DataTable.GetValue(0, oGrid.GetDataTableRowIndex(oGrid.Rows.SelectedRows.Item(i, BoOrderType.ot_RowOrder)))
Regards,
Vítor Vieira

Formated serch value in edit box

hello expert
i have two edit box on actvity form ie ID and Name.i take formated serch of employee liwst in ID edit text box .i am also make code for this but when i open the formated serch it put only id in ID edit text box but i want name also in Name edit box .how can i do it pls give me sample for it.pls help for it

Hello,
On Name Edit Box: you can select the value code from ID when id changes. Use refresh always, and bind the FMS into when the id field is changing
Regards
J

Xserve as a desktop video editing box

I have a chance to get an almost new quad core xserve as payment for some consulting. Currently I have a dual core g5.
My question is, would this be good to use as a video editing box / desktop system? I know it is way underpowered for video and I currently drive 4 monitors. Is there a video card I can get that will drive three monitors and then use the internal video for my small "email / IM" monitor? Anyone else have any good ideas? I like the idea of being on a new intel box and this otherwise has tons of ram (4gb) and processing horse-power.
I'd love any feedback or thoughts on this.

marglar,
This has been asked many times in the forum - you should review those threads for the long answers but here's the short version:
Generally this is a less-than-good idea. Points to consider:
-The Xserve is loud, sometimes very loud.
-It is an awkward size and shape to be anywhere but in a rack.
-You're paying extra money to get all that computer in a 1U size and shape and geared towards 24/7 use as well as bunch of other features. If you don't need those features you are effectively wasting money.
-The Xserve is not geared towards desktop use and is less expandable than a tower.
Essentially it boils down what a machine is designed to do. Towers are designed as desktop machines and Xserves are designed to be server machines. If you get one for free then you might over-look its shortcomings if you want to use for something other than its desigend purpose - but if you're going to spend money on a machine then buy the one that is designed to do the job you're doing.
My $.02,
=Tod
G5/2.0x2, Dual XServes x2, XRAID, beige G3 501Mhz

Combo box in the system form

HI
We r assuming " freezing = Absent"
When we select " freezing" in the combo box in the system form, "Absent" should be displayed in the matrix for the particular row in the user form.
Freezing should be displayed as Absent
Working should be displayed as Present
what is the coding for this process . can anyone help me...
Regards
Bhuvana
Edited by: bhuvana eshwari on Jul 30, 2008 6:45 AM

Hi Bhuvana,
In the combo Select Event, get the user form and then get the matrix then set the value. The code sample is as follows.
Case SAPbouiCOM.BoEventTypes.et_COMBO_SELECT
                            If oCmbBox.Selected.Value = Freezing Then
                                 oForm = getForm("UserFormID")
                                 objMatrix = oForm.Items.Item("UID").Specific
                                   objedit = objMatrix.Columns.Item("V_14").Cells.Item(pVal.Row).Specific
ObjEdit.String = Absent
ElseIF oCmbBox.Selected.Value = Working
           'Use same logic
EndIF
Reward with points if helpful.
Regards,
Vasu Natari.

Extended Edit box loses the typed value when form is resized

Extended Edit box loses the typed value when form is resized:
Hi,
I have added an extended edit box in a system form (SO form). When form is resized, I'm programmatically repositioning the edit box for proper alignment. When I do that, whatever has been typed in the edit box is lost (which is not yet saved).
If I don't do repositioning of the edit box, then it is working fine - whatever the user typed remains there.
Why is this happening, and how can I work-around this?
Thanks for your help.
Regards,
Geetha
Edited by: Rui Pereira on Dec 23, 2008 4:24 PM

Hi Geeta,
Try to disable the scroll of Extended Edit text.
its in the property list of the Extended Edit Textbox's object.
Actually its also with SBO's own extendedBoxes but whenever we mouse over on the box. it again appears but ita after saving the data.

When i set page as template, set editable regions and try to view in browser IE 9 a download box com

When I set page as template, set editable regions and try to view in browser IE 9 a download box comes up and when i click open it just opens the file again in DW.

Use the Template to spawn a child page. File > New > Page from Template...
Save the child page as some_file.html and then preview that in your browsers.
Nancy O.
Alt-Web Design & Publishing
Web | Graphics | Print | Media Specialists
http://alt-web.com/
http://twitter.com/altweb
http://alt-web.blogspot.com/

Maximum characters allowed in Edit Box, how to set?

I have an Edit Box in a screen designed using screen painter.
I want to restrict the user not to type more than 20 characters.
Is there any properties available in the Edit Box, like set max length = 20 ?
BTW i am using 2004.2B

Hi Sankar,
 I am assuming ur scenario .it might be right or wrong.
 U have designed the screen using screen painter and kept one editbox right?
 are u bounded that editbox to databound property to true. and given the table name and alias name (column name) .
 I think ur database bounded column size is 20 . Please check with the size of column , which is bounded with ur editbox.
 Hope it helps
Regards
V.Rangarajan

Forms Setting on System Form

I have added a new tab with a grid to the activity system form and I'm trying to activate the forms setting for the new grid but it's throwing the following error.
Form - Operation is not supported on system form. [66000-30]
I'm just trying to figure out is this can be done.
Thank You
Steve

I don't think you can get Forms Settings when they are not available per se on a system form.
I suggest that you try to mimick the behavior, but I suspect that you can't just activate the menu / toolbar item - i.e. you have to choose a less nice workaround...
HTH,
Frank

How to register add-on of edited system form in sap b1 9.0?.

Hi all,
I have a problem in SAP b1 9.0.
Actually I added one field of BPCode to Employee master data, so I want to register an add-on of that system form in SAP b1 9.0.
When I create file of .ard as we watch it in video of
Bryan Gomez
Creating and Registering SAP Add-on - YouTube it will be created correctly, But the problem is when I register that the file of .ard it gives error (Cannot create a file when that file already exists). Again when I create a file of .ard of any other User form it gives the same error (Cannot create a file when that file already exists).
But when I create and register the add-on of Hello World in Sample folder of SDK it will be registered correctly.
How can I solve that problem.
Anyone can help me please.

Hi pallavi p,
That's good but as I said above when I add the reference of UI API Version 9.0 in the project which has the system form or user form of sap b1 it exactly gives errors in menu.vb of the project.
So let me give you the way you can try.
1. Open new project/ visual basic/ sap business one/ sap business one add-on project. and save it any where
2. Right click on your project
3. Add new item
4. Sap Business One
5. System form (Employee master data) or user form
6. Add
And then if your form is opened
7. Go to add the reference of UI API Version 9.0
8. Check errors found in menu.vb (or in OutPut)
So if it's possible try to solve that problem.
Please anyone can help me.

How to add new fields to the system form (Ex.expenses to a/r invoice form)

hi
can any one tell me how to add new fields to the system form (Ex.expenses to a/r invoice form)
i want to add expenses field to system a/r invoice form and connect data base also.
i used the code of samples\11.system form manipulation(vb.net) but i'm not able to get it....so can any one help with code or concepts.
reply soon plz..
thankQ

If I understood you correctly, you are just trying to add new fields to the invoice form and then use them in your form. you should first go and add the field to your tables, which you would do by going to Tool --> User Defined Fields --> Manage User Fields. There are different documents or categories given. For ex. for invoices, Sales Orders you would add your field under the Marketing Documents. If you want the field to be just one per invoice, add it to the Title, otherwise if you want a field per invoice or Sales Order line, add it to the Rows section. Once you have done that then you can just create a edit box or drop down to represent the field and set the datasource for that to your field. If you want example code to do that, let me know.

How to open a system form

Hi,
I am urgently in need of help on opening a system from a user form. I want to use a link arrow on a matrix and go to a particular record on the system form.
For example I'd like to go to the record with deposit number 16 on the deposit screen.
Thanks.
Tayo

Hello Tayo,
you just need to create an arrow, define it taget (Form type) and link it to a cell or a texte box that contains the id (16 in your case)
Dim oItem As SAPbouiCOM.Item
Dim oLink As SAPbouiCOM.LinkedButton
Set oItem = oForm.Add("A", it_LINKED_BUTTON)
oItem.Linkto = "YourTexteBox"
Set oLink = oItem .ExtendedObject
oLink.LinkedObject = lf_lf_Deposit
In a matrix, you need to change oitem to Column object.
I think there is a sample in the UI sample called 06.MatrixAndDataSources that have a sample of linked button in a Matrix
Message was edited by: Sébastien Danober

System forms

hi kings
i m trying to change the system opportunity forms. i just add one folder the folder contain matrix... i take the example programs(system manipulation)..the folder added.. the matrix also added.. but unfortunately the matrix not allow to enter the data and how to save the data .... here i pasted full codings....please any one help me...
Code....
Public Class SystemForm
 Private WithEvents SBO_Application As SAPbouiCOM.Application
 Private oOrderForm As SAPbouiCOM.Form
 Private oNewItem As SAPbouiCOM.Item
 Private oItem As SAPbouiCOM.Item
 Private oFolderItem As SAPbouiCOM.Folder
 Private oOptionBtn As SAPbouiCOM.OptionBtn
 Private oCheckBox As SAPbouiCOM.CheckBox
 Private oMatrix As SAPbouiCOM.Matrix
 Private oColumns As SAPbouiCOM.Columns
 Private oColumn As SAPbouiCOM.Column
 Private i As Integer '// to be used as a counter
 Private Sub SetApplication()
 Dim SboGuiApi As SAPbouiCOM.SboGuiApi
 Dim sConnectionString As String
 SboGuiApi = New SAPbouiCOM.SboGuiApi()
 sConnectionString = Command
 SboGuiApi.Connect(sConnectionString)
 '// get an initialized application object
 SBO_Application = SboGuiApi.GetApplication()
 End Sub
 Private Sub AddItemsToOrderForm()
 oOrderForm.DataSources.UserDataSources.Add("OpBtnDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
 oOrderForm.DataSources.UserDataSources.Add("CheckDS1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
 oOrderForm.DataSources.UserDataSources.Add("CheckDS2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
 oOrderForm.DataSources.UserDataSources.Add("CheckDS3", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
 oItem = oOrderForm.Items.Item("7")
 For i = 1 To 3
 oNewItem = oOrderForm.Items.Add("CheckBox" & i, SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)
 oNewItem.Left = oItem.Left
 oNewItem.Width = 100
 oNewItem.Top = oItem.Top + (i - 1) * 19
 oNewItem.Height = 19
 oNewItem.Visible = False
 oNewItem.FromPane = 5
 oNewItem.ToPane = 5
 oCheckBox = oNewItem.Specific
 '// set the caption
 oCheckBox.Caption = "Check Box" & i
 '// binding the Check box with a data source
 oCheckBox.DataBind.SetBound(True, "", "CheckDS" & i)
 Next i
 '// Adding Option button items
 '// use an existing item to place youe item on the form
 'oItem = oOrderForm.Items.Item("44")
 For i = 1 To 3
 oNewItem = oOrderForm.Items.Add("OpBtn" & i, SAPbouiCOM.BoFormItemTypes.it_OPTION_BUTTON)
 oNewItem.Left = oItem.Left
 oNewItem.Width = 100
 oNewItem.Top = oItem.Top + (i - 1) * 25
 oNewItem.Height = 19
 oNewItem.Visible = False
 '// set the Item's Pane Level.
 '// this value will determine the Items visibility
 '// according to the Form's pane level
 oNewItem.FromPane = 9
 oNewItem.ToPane = 9
 oOptionBtn = oNewItem.Specific
 '// set the caption
 oOptionBtn.Caption = "Option Button" & i
 If i > 1 Then
 oOptionBtn.GroupWith("OpBtn" & i - 1)
 End If
 oOptionBtn.DataBind.SetBound(True, "", "OpBtnDS")
 Next i
 End Sub
 Private Sub AddMatrixToForm()
 '// we will use the following object to add items to our form
 Dim oItem As SAPbouiCOM.Item
 '// we will use the following object to set a linked button
 Dim oLink As SAPbouiCOM.LinkedButton
 '// Adding a Matrix item
 oItem = oOrderForm.Items.Item("7")
 oItem = oOrderForm.Items.Add("Matrix1", SAPbouiCOM.BoFormItemTypes.it_MATRIX)
 oItem.Left = 35
 oItem.Width = 400
 oItem.Top = oItem.Top + (i - 1) * 60
 oItem.Height = 125
 oMatrix = oItem.Specific
 oColumns = oMatrix.Columns
 oItem.FromPane = 9
 oItem.ToPane = 9
 '// Adding Culomn items to the matrix
 oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT)
 oColumn.TitleObject.Caption = "#"
 oColumn.Width = 30
 oColumn.Editable = False
 '// Add a column for BP Card Code
 oColumn = oColumns.Add("DSCardCode", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON)
 oColumn.TitleObject.Caption = "Item Code"
 oColumn.Width = 150
 oColumn.Editable = True
 '// Link the column to the BP master data system form
 oLink = oColumn.ExtendedObject
 oLink.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_BusinessPartner
 '// Add a column for BP Card Name
 oColumn = oColumns.Add("DSCardName", SAPbouiCOM.BoFormItemTypes.it_EDIT)
 oColumn.TitleObject.Caption = "Description"
 oColumn.Width = 150
 oColumn.Editable = True
 'oColumn.DataBind.SetBound(true, "TableName", "U_ItemNo")
 '// Add a column for BP Card Phone
 oColumn = oColumns.Add("DSPhone", SAPbouiCOM.BoFormItemTypes.it_EDIT)
 oColumn.TitleObject.Caption = "Quantity"
 oColumn.Width = 70
 oColumn.Editable = True
 End Sub
 Public Sub New()
 MyBase.New()
 SetApplication()
 End Sub
 Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
 If ((pVal.FormType = 320 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
 '// get the event sending form
 oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
 If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
 '// add a new folder item to the form
 oNewItem = oOrderForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
 oItem = oOrderForm.Items.Item("7")
 oNewItem.Top = oItem.Top
 oNewItem.Height = oItem.Height
 oNewItem.Width = oItem.Width
 oNewItem.Left = oItem.Left + oItem.Width
 oFolderItem = oNewItem.Specific
 oFolderItem.Caption = "User Folder"
 '// group the folder with the desired folder item
 oFolderItem.GroupWith("7")
 '// add your own items to the form
 AddItemsToOrderForm()
 AddMatrixToForm()
 oOrderForm.PaneLevel = 1
 End If
 If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
 oOrderForm.PaneLevel = 9
 End If
 End If
 End Sub
 Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes)
 Select Case EventType
 Case SAPbouiCOM.BoAppEventTypes.aet_ShutDown
 '// Take care of terminating your AddOn application
 SBO_Application.MessageBox("A Shut Down Event has been caught" & _
 vbNewLine & "Terminating 'Order Form Manipulation' Add On...")
 End
 End Select
 End Sub
End Class
Thanks & Best Regards
B.Lakshmi Narayanan

Events Part
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
 If ((pVal.FormType = 320 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
 '// get the event sending form
 oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
 If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
 '// add a new folder item to the form
 oNewItem = oOrderForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
 '// use an existing folder item for grouping and setting the
 '// items properties (such as location properties)
 '// use the 'Display Debug Information' option (under 'Tools')
 '// in the application to acquire the UID of the desired folder
 oItem = oOrderForm.Items.Item("7")
 oNewItem.Top = oItem.Top
 oNewItem.Height = oItem.Height
 oNewItem.Width = oItem.Width
 oNewItem.Left = oItem.Left + oItem.Width
 oFolderItem = oNewItem.Specific
 oFolderItem.Caption = "User Folder"
 '// group the folder with the desired folder item
 oFolderItem.GroupWith("7")
 '// add your own items to the form
 AddItemsToOrderForm()
 AddMatrixToForm()
 oOrderForm.PaneLevel = 1
 End If
 'If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK And pVal.Before_Action = True Then
 'oOrderForm.PaneLevel = 5
 'End If
 If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
 '// when the new folder is clicked change the form's pane level
 '// by doing so your items will apear on the new folder
 '// assuming they were placed correctly and their pane level
 '// was also set accordingly
 oOrderForm.PaneLevel = 9
 End If
 End If
 End Sub
Thanks & Best Regards
B.Lakshmi Narayanan

How to set check box in alv

Hello Sir,
I am Developing One Report In ALV, But I want One Column Of ALV Should Be In Checkboxes .How Can I set Check Box In Field Catalog.
Plz Help Me.

hi,
Try like this.
*& Report ZTEST_ALV
REPORT ztest_alv.
TYPE-POOLS
TYPE-POOLS: slis. " Type pool for ALV
Tables
TABLES: vbak, vbap.
INTERNAL TABLES
DATA: BEGIN OF g_t_itab OCCURS 0,
sel TYPE c,
vbeln LIKE vbak-vbeln,
erdat LIKE vbak-erdat,
vbtyp LIKE vbak-vbtyp,
vkorg LIKE vbak-vkorg,
vtweg LIKE vbak-vtweg,
spart LIKE vbak-spart,
netwr LIKE vbak-netwr,
kunnr LIKE vbak-kunnr,
END OF g_t_itab.
DATA: BEGIN OF g_t_item OCCURS 0,
vbeln LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
matnr LIKE vbap-matnr,
arktx LIKE vbap-arktx,
END OF g_t_item.
Data fields used for ALV call - simple list
DATA : g_f_repid LIKE sy-repid.
DATA : g_t_fieldcat TYPE slis_t_fieldcat_alv.
DATA : g_r_fieldcat TYPE slis_fieldcat_alv.
DATA : g_t_events TYPE slis_t_event.
DATA : g_r_events TYPE slis_alv_event.
DATA : g_r_layout TYPE slis_layout_alv.
DATA : g_r_x_variant LIKE disvariant.
DATA : g_r_variant LIKE disvariant.
DATA : g_f_exit(1) TYPE c.
DATA : g_f_save(1) TYPE c.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN END OF BLOCK b1.
START OF SELECTION
START-OF-SELECTION.
PERFORM get_data.
END OF SELECTION
END-OF-SELECTION.
PERFORM set_alv_parameters.
PERFORM display_list.
*& Form get_data
Get data from DB tables
FORM get_data.
CLEAR: g_t_itab.
REFRESH: g_t_itab.
SELECT vbeln erdat vbtyp vkorg vtweg spart netwr kunnr
FROM vbak
INTO CORRESPONDING FIELDS OF TABLE g_t_itab
WHERE
vbeln IN s_vbeln.
ENDFORM. " get_data
*& Form set_alv_parameters
Set alv parameters , layout, events, fieldcatlog
FORM set_alv_parameters.
PERFORM set_filedcatlog.
ENDFORM. " set_alv_parameters
*& Form display_list
text
FORM display_list.
g_f_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = g_f_repid
 is_layout = g_r_layout
 it_fieldcat = g_t_fieldcat[]
 it_events = g_t_events[]
 TABLES
 t_outtab = g_t_itab
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " display_list
*& Form set_filedcatlog
text
FORM set_filedcatlog.
DATA: l_r_fieldcat TYPE slis_fieldcat_alv. " For column heading
CLEAR : g_t_fieldcat,
g_t_fieldcat[].
 l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'SEL'.
l_r_fieldcat-checkbox = 'X'.
l_r_fieldcat-outputlen = 2.
l_r_fieldcat-col_pos = 1.
l_r_fieldcat-edit = 'X'.
l_r_fieldcat-input = 'X'.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Sales Order
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VBELN'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VBELN'.
l_r_fieldcat-col_pos = 2.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Creation date
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'ERDAT'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'ERDAT'.
l_r_fieldcat-col_pos = 3.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
document category
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VBTYP'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VBTYP'.
l_r_fieldcat-col_pos = 4.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Sales organization
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VKORG'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VKORG'.
l_r_fieldcat-col_pos = 5.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Distribution channel
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VTWEG'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VTWEG'.
l_r_fieldcat-col_pos = 6.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Division
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'SPART'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'SPART'.
l_r_fieldcat-col_pos = 7.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Net Value
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'NETWR'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'NETWR'.
l_r_fieldcat-col_pos = 8.
l_r_fieldcat-do_sum = 'X'.
l_r_fieldcat-emphasize = 'C500'.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Distribution channel
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'KUNNR'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'KUNNR'.
l_r_fieldcat-col_pos = 9.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
ENDFORM. " set_filedcatlog

Set edit box in system form

Similar Messages

Maybe you are looking for