In WD application making one WD-table field un-editable.

Hi,
I have changed one WD application and I have added one table(Layout data: Matrix head data),
in which I made one column as editable"Bind to property of the selected attribute-Enabled". My requirement
is to make for one particular row - make that column non-editable.
Please let me know if anyone come across this kind of requirement?
I wrote a code in method for the element(table): WDDOMODIFYVIEW
*    lo_el_nd_partner = lo_nd_nd_partner->get_element( index = sy-tabix ).
*    lo_el_nd_partner->set_attribute_property(
*    attribute_name = 'GPARN'
*    property = 3 "Property 3 for read-only
*    value    = 'X'). "Disable vendor number editing for VN row
But still it is editable.
Best regards,
Anilkumar.

Hi Anil,
As you are having a context attribute ZGPARN_READONLY to make the columne GPARN as read only based on the value inside the table.
You just need to bind the READONLY property of GPARN to context attribute ZGPARN_READONLY as below
Now, if you pass value X to attribute, then the particular cell will be made as read only
"Read table data from context node into lt_nd_parnter.
loop at lt_nd_partner assigning <ls_partner> where parvw = 'VN'.
<ls_partner>-ZGPARN_READONLY = abap_true.
endloop.
" bind the table to context node
lo_node->bind_table( new_items = lt_nd_partner ).
Hope this helps you.
Regards,
Rama

Similar Messages

Making the Business Area field as editable

Hi
We have business area field as compulsory field for document splitting. The same is picking up on the Business Area assignment in SD. However, the field for the same is seen as greyed out field in Sales Order at line item level. we would like to make the same field as editable. How can the same be done?
Regards
Rahul Sharma

Hi
The fields in a sales order can be made optional / mandatory by following this menu path - IMG - S&D-> Basic > Functions-> Log of incomplete Procedures => select the fields > from the tables and the system will check for them (OVA2/VUA2)
To make a filed entry enabled or grey (non-entry allowed):
User exits in the program MV45AFZZ-USEREXIT_FIELD_MODIFICATION
This user exit can be used to modify the attributes of the screen fields. To do this, the screen fields are allocated to so-called modification groups 1 - 4 and can be edited together during a modification in ABAP.
If a field has no field name, it cannot be allocated to a group. The usage of the field groups (modification group 1-4) is as follows:
Modification group 1: Automatic modification with transaction MFAW
Modification group 2: It contains LOO for step loop fields
Modification group 3: For modifications which depend on check tables or on other fixed information
Modification group 4: is not used
The FORM routine is called up for every field of a screen. If you require changes to be made, you must make them in this user exit. This FORM routine is called up by the module FELDAUSWAHL.
Actually suppressing fielding sales orders userwise is quite easy. We are doing it in our company. For this we use userexit FORM USEREXIT_FIELD_MODIFICATION in MV45AFZZ.
Below is the sample code
IF SCREEN-NAME = VBKD-ABSSC.
AUTHORITY-CHECK OBJECT ZMV45AFZZ ID SCRFNAME FIELD SCREEN-NAME.
IF sy-subrc = 0.
SCREEN-INPUT = 1.
else.
SCREEN-INPUT = 0.
ENDIF.
endif.
You place the authority check object in authorization profile in the role of the users, who should have access to the field (in this case it is VBKD-ABSSC), and there assign the corresponding fields that are to be accessed via this userexit.

Noftification or warning after change of one database table field

HI
i want to send a warning or notification , when one field in a table changed with a database after update trigger and show the message to user in application layer
in more detaile
when user insert or update table1 then a trigger changes table2. and i want after this change,if the value of one attribute of table2 was equal to a query result then it send a message to user in application layer
what can i send this message
jdeveloper 11.1.2.2.0
database 11

HI
i want to send a warning or notification , when one field in a table changed with a database after update trigger and show the message to user in application layer
in more detaile
when user insert or update table1 then a trigger changes table2. and i want after this change,if the value of one attribute of table2 was equal to a query result then it send a message to user in application layer
what can i send this message
jdeveloper 11.1.2.2.0
database 11

Regarding Internal Table Field Validation [Modification]

Hi All,
I have a small issue with formatting of a field.
The Field is POTX1 - it would get the value as 'New MT-EPPE0097-COMP02',
Means i have one internal table field as i_error-POTX1 in that some times we get value as 'New MT-EPPE0097-COMP02'.
Whenever i get 'New' literal in that internal table field i have to remove that literal from that internal table field. And Left Justify the remaining part of the field.
Ex: 'New MT-EPPE0097-COMP02'
     should become 'MT-EPPE0097-COMP02'.
For this first i have to find wether 'New' Literal exists in the Internal table field or not then i have to remove it.
Can anybody tell me how can i solve this issue.
Thanks in advance.
Thanks & Regards,
Rayeezuddin.

Hi,
Take a look :
loop at i_error.
if i_error-potx1(3) = 'New'
    w_potx1 = i_error-potx1.
    i_error-potx1 = w_potx1+3(37).
    MODIFY i_error.
endif.
ENDLOOP.
Regards,
Erwan.
Message was edited by: Erwan LE BRUN

Regarding passing blank characters to internal table field

Hi All,
I have small issue.
Actual issue is
I am having one internal table field as oper_table-arbid in the program i will actually pass first 4 characters of that field into another internal table i_download_operation-arbid.
Then if oper_table-arbid is blank i need to pass
4 blank characters into i_download_operation-arbid.
Can anybody tell me how can i do it.
Code is like this
IF oper_table-arbid NE space.
MOVE oper_table-arbid+0(4) TO i_download_operation-arbid.
ELSE.
I need to pass 4 blank char's to i_download_operation-arbid
ENDIF.
oper_table-arbid is of 8 char length & i_download_operation-arbid is of 4 char length.
Can any body tell me what i need to do here.
Thanks in advance.
Thanks & Regards,
Rayeez.

hi ,
shaik.
data: var(8) type c value 'abcdefgh'.
 write var.
data: bar(8) type c value 'ijkl',
 p1(8) .
 move bar to p1.
 write:/ p1 right-justified.
just execute the program and see the o/p.
if u r trying to pass character then default position is left-justfied .
so u need to explicitly say right-justified so it will take positions 5,6,7,8.
so here u need append blank spaces .
after seeing the o/p u will hav a clear picture .
vijay.

Checkbox as one of the field in the internal table in the list

Hi,
I have a requirement of processing the certain records of the internal table for which checkboxes are selected in the list.
The selected records need to be updated in the custom table and the unselected records need to be ignored.
I have created the PF status and the application tool bar and a button on the tool bar.
Then when the report is executed the list is displayed with the records with one of the field as a checkbox.
At user-command.
Then in the at user-command handling the button click event.
I want to know which records are been selected and which are not.
If some one knows please let me know.
Thanks
S Patel

This is exactly what you need to do:-
PBO
CREATE OBJECT g_custom_container
         EXPORTING container_name = g_container.
CREATE OBJECT g_grid
         EXPORTING i_parent = g_custom_container.
Select data from your table
PERFORM select_data CHANGING pt_outtab[].
Build fieldcat
PERFORM build_fieldcat CHANGING pt_fieldcat.
Exclude standard buttons from the Toolbar
PERFORM exclude_tb_functions CHANGING lt_exclude.
Display output in ALV grid
CALL METHOD g_grid->set_table_for_first_display
    EXPORTING
      it_toolbar_excluding = lt_exclude
    CHANGING
      it_fieldcatalog      = pt_fieldcat
      it_outtab            = pt_outtab[].
PAI
Get modified data
CALL METHOD gv_grid->check_changed_data.
LOOP AT gt_output INTO wa_output WHERE zzchkbox EQ c_x.
    MOVE-CORRESPONDING wa_output TO wa_selblk.
    APPEND wa_selblk TO lt_selblk.
ENDLOOP.
This method will give you all the records which are selected in the list output. Collect them and modify your custom table.
Edited by: Rudresh Chand on Feb 28, 2010 8:26 AM

Download the KTOPL field data and GLT0 table data into one Internal table

Hi,
I have downloaded GLT0 table fields data to PC file . But i need to download KTOPL(Chart Of Accounts) data also. in GLT0 table there is no KTOPL field.
But in SKA1 table have KTOPL field. Then what is the issue is GLT0 data & KTOPL field data needs to download into one Internal Table.
anybody could you please solve this problem. immediately need to solve this.
Below is the code.
REPORT ZFXXEABL_1 NO STANDARD PAGE HEADING
 LINE-SIZE 200.
Tables Declaration
TABLES : GLT0.
Data Declaration
DATA : FP(8) TYPE C,
 YEAR LIKE GLT0-RYEAR,
 PERIOD(3) TYPE C,
 DBALANCE LIKE VBAP-NETWR VALUE 0 ,
 CBALANCE LIKE VBAP-NETWR VALUE 0.
*Internal table for for final data..
DATA : BEGIN OF REC1 OCCURS 0,
 BAL LIKE GLT0-TSLVT value 0,
 COAREA LIKE GLT0-RBUSA,
 CA(4) TYPE C,
 KTOPL LIKE ska1-ktopl,
 CCODE LIKE GLT0-BUKRS,
 CREDIT LIKE VBAP-NETWR,
 CURRENCY LIKE GLT0-RTCUR,
 CURTYPE(2) TYPE N,
 DEBIT LIKE VBAP-NETWR,
 YEAR(8) TYPE C,
 FY(2) TYPE C,
 ACCOUNT LIKE GLT0-RACCT,
 VER LIKE GLT0-RVERS,
 VTYPE(2) TYPE N,
 CLNT LIKE SY-MANDT,
 S_SYS(3) TYPE C,
 INDICATOR LIKE GLT0-DRCRK,
 END OF REC1.
DATA : C(2) TYPE N,
 D(2) TYPE N.
DATA REC1_H LIKE REC1.
Variable declarations
DATA :
 W_FILES(4) TYPE N,
 W_DEBIT LIKE GLT0-TSLVT,
 W_CREDIT LIKE GLT0-TSLVT,
 W_PCFILE LIKE RLGRAP-FILENAME ,
 W_UNIXFILE LIKE RLGRAP-FILENAME,
 W_PCFILE1 LIKE RLGRAP-FILENAME,
 W_UNIXFIL1 LIKE RLGRAP-FILENAME,
 W_EXT(3) TYPE C,
 W_UEXT(3) TYPE C,
 W_PATH LIKE RLGRAP-FILENAME,
 W_UPATH LIKE RLGRAP-FILENAME,
 W_FIRST(1) TYPE C VALUE 'Y',
 W_CFIRST(1) TYPE C VALUE 'Y',
 W_PCFIL LIKE RLGRAP-FILENAME.
DATA: "REC LIKE GLT0 OCCURS 0 WITH HEADER LINE,
 T_TEMP LIKE GLT0 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF REC3 OCCURS 0.
 INCLUDE STRUCTURE GLT0.
DATA: KTOPL LIKE SKA1-KTOPL,
 END OF REC3.
DATA: BEGIN OF T_KTOPL OCCURS 0,
 KTOPL LIKE SKA1-KTOPL,
 SAKNR LIKE SKA1-SAKNR,
 END OF T_KTOPL.
Download data.
DATA: BEGIN OF I_REC2 OCCURS 0,
 BAL(17), " like GLT0-TSLVT value 0,
 COAREA(4), " like glt0-rbusa,
 CA(4), " chart of accounts
 CCODE(4), " like glt0-bukrs,
 CREDIT(17), " like vbap-netwr,
 CURRENCY(5), " like glt0-rtcur,
 CURTYPE(2), " type n,
 DEBIT(17), " like vbap-netwr,
 YEAR(8), " type c,
 FY(2), " type c, fiscal yr variant
 ACCOUNT(10), " like glt0-racct,
 VER(3), " like glt0-rvers,
 VTYPE(3), " type n,
 CLNT(3), "like sy-mandt,
 S_SYS(3), "like sy-sysid,
 INDICATOR(1), " like glt0-drcrk,
 END OF I_REC2.
Selection screen. *
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS : COMPCODE FOR GLT0-BUKRS,
 GLACC FOR GLT0-RACCT,
 FISYEAR FOR GLT0-RYEAR,
 no intervals no-extension, "- BG6661-070212
 FISCPER FOR GLT0-RPMAX,
 busarea for glt0-rbusa,
 CURRENCY FOR GLT0-RTCUR.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.
PARAMETERS:
P_UNIX AS CHECKBOX, "Check box for Unix Option
P_UNFIL LIKE RLGRAP-FILENAME, " Unix file Dnload file name
 default '/var/opt/arch/extract/GLT0.ASC', "- BG6661-070212
P_PCFILE AS CHECKBOX, "Check box for Local PC download.
P_PCFIL LIKE RLGRAP-FILENAME " PC file Dnload file name
 default 'C:\GLT0.ASC'. "- BG6661-070212
 DEFAULT 'C:\glt0_gl_balance_all.asc'. "+ BG6661-070212
SELECTION-SCREEN END OF BLOCK BL2.
*eject
Initialization. *
INITIALIZATION.
Try to default download filename
p_pcfil = c_pcfile.
p_unfil = c_unixfile.
if sy-sysid eq c_n01.
 p_unfil = c_unixfile.
endif.
if sy-sysid eq c_g21.
 p_unfil = c_g21_unixfile.
endif.
if sy-sysid eq c_g9d.
 p_unfil = c_g9d_unixfile.
endif.
Default for download filename
*{ Begin of BG6661-070212
CONCATENATE C_UNIXFILE
 SY-SYSID C_FSLASH C_CHRON C_FILENAME INTO P_UNFIL.
*} End of BG6661-070212
AT SELECTION-SCREEN OUTPUT.
loop at screen.
 if screen-name = 'P_PCFIL'. "PC FILE
 screen-input = '0'.
 modify screen.
 endif.
 if screen-name = 'P_UNFIL'. "UN FILE
 screen-input = '0'.
 modify screen.
 endif.
endloop.
if w_first = 'Y'.
 perform path_file.
 w_first = 'N'.
endif.
if w_cfirst = 'Y'.
 perform cpath_file.
 w_cfirst = 'N'.
endif.
Start-of-Selection. *
START-OF-SELECTION.
*COLLECT DATA
PERFORM COLLECT_DATA.
*BUILD FILENAMES
PERFORM BUILD_FILES.
*LOCAL
IF P_PCFILE = C_YES.
 PERFORM LOCAL_DOWNLOAD.
ENDIF.
*UNIX
IF P_UNIX = C_YES.
 PERFORM UNIX_DOWNLOAD.
ENDIF.
IF P_PCFILE IS INITIAL AND P_UNIX IS INITIAL.
 MESSAGE I000(ZL) WITH 'Down load flags both are unchecked'.
ENDIF.
END-OF-SELECTION.
IF P_PCFILE = C_YES.
WRITE :/ 'PC File' , C_UNDER, P_PCFIL.
ENDIF.
*& Form DOWNLOAD
 Download *
FORM DOWNLOAD.
P_PCFIL = W_PATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = P_PCFIL
 FILETYPE = C_ASC "c_dat "dat
 TABLES
 DATA_TAB = I_REC2 " t_str
 fieldnames = t_strhd
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 OTHERS = 8.
IF SY-SUBRC EQ 0.
ENDIF.
ENDFORM.
*& Form WRITE_TO_SERVER
 text *
--> p1 text
<-- p2 text
FORM WRITE_TO_SERVER.
DATA : L_MSG(100) TYPE C,
 L_LINE(5000) TYPE C.
P_UNFIL = W_UPATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
OPEN DATASET P_UNFIL FOR OUTPUT IN TEXT MODE. " message l_msg.
IF SY-SUBRC <> 0.
 WRITE: / L_MSG.
ENDIF.
perform header_text1.
LOOP AT I_REC2.
 TRANSFER I_REC2 TO P_UNFIL.
ENDLOOP.
CLOSE DATASET P_UNFIL.
WRITE : / C_TEXT , W_UPATH.
SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
CLEAR W_UPATH.
IF NOT W_UEXT IS INITIAL.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ELSE.
 W_UEXT = C_ASC. " c_csv.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ENDIF.
ENDFORM. " WRITE_TO_SERVER
*& Form BUILD_FILES
FORM BUILD_FILES.
IF P_PCFILE = C_YES.
 W_PCFILE = P_PCFIL.
***Split path at dot**
 SPLIT W_PCFILE AT C_DOT INTO W_PCFILE1 W_EXT.
 IF NOT W_EXT IS INITIAL.
 CONCATENATE W_PCFILE1 C_DOT W_EXT INTO W_PATH.
 ELSE.
 W_PATH = W_PCFILE1.
 ENDIF.
ENDIF.
IF P_UNIX = C_YES.
 W_UNIXFILE = P_UNFIL.
 SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
 IF NOT W_UEXT IS INITIAL.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
 ELSE.
 W_UPATH = W_UNIXFIL1.
 ENDIF.
ENDIF.
ENDFORM.
FORM CPATH_FILE.
CLEAR P_PCFIL.
 CONCATENATE C_PCFILE
 C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
 C_DOT C_ASC INTO P_PCFIL.
ENDFORM. " CPATH_FILE
FORM PATH_FILE.
CLEAR P_UNFIL.
if sy-sysid eq c_n01.
 CONCATENATE C_UNIXFILE
 C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
 C_DOT C_ASC INTO P_UNFIL.
endif.
if sy-sysid eq c_g21.
concatenate c_g21_unixfile
 c_comfile sy-sysid c_under sy-datum sy-uzeit
 c_dot c_asc into p_unfil.
endif.
if sy-sysid eq c_g9d.
concatenate c_g9d_unixfile
 c_comfile sy-sysid c_under sy-datum sy-uzeit
 c_dot c_asc into p_unfil.
endif.
ENDFORM. " PATH_FILE
Local_Download *
 Local *
FORM LOCAL_DOWNLOAD.
perform header_text.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
 REC1-COAREA TO I_REC2-COAREA,
 REC1-CA TO I_REC2-CA,
 REC1-KTOPL TO I_REC2-CA,
 REC1-CCODE TO I_REC2-CCODE,
 REC1-CREDIT TO I_REC2-CREDIT,
 REC1-CURRENCY TO I_REC2-CURRENCY,
 REC1-CURTYPE TO I_REC2-CURTYPE,
 REC1-DEBIT TO I_REC2-DEBIT,
 REC1-YEAR TO I_REC2-YEAR,
 REC1-FY TO I_REC2-FY,
 REC1-ACCOUNT TO I_REC2-ACCOUNT,
 REC1-VER TO I_REC2-VER,
 REC1-VTYPE TO I_REC2-VTYPE,
 REC1-CLNT TO I_REC2-CLNT,
 REC1-S_SYS TO I_REC2-S_SYS,
 REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
 PERFORM DOWNLOAD .
 CLEAR I_REC2.
 REFRESH I_REC2.
 ELSE.
 WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM. " LOCAL_DOWNLOAD
*& Form UNIX_DOWNLOAD
FORM UNIX_DOWNLOAD.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
 REC1-COAREA TO I_REC2-COAREA,
 REC1-CA TO I_REC2-CA,
 REC1-KTOPL TO I_REC2-CA,
 REC1-CCODE TO I_REC2-CCODE,
 REC1-CREDIT TO I_REC2-CREDIT,
 REC1-CURRENCY TO I_REC2-CURRENCY,
 REC1-CURTYPE TO I_REC2-CURTYPE,
 REC1-DEBIT TO I_REC2-DEBIT,
 REC1-YEAR TO I_REC2-YEAR,
 REC1-FY TO I_REC2-FY,
 REC1-ACCOUNT TO I_REC2-ACCOUNT,
 REC1-VER TO I_REC2-VER,
 REC1-VTYPE TO I_REC2-VTYPE,
 SY-MANDT TO I_REC2-CLNT,
 SY-SYSID TO I_REC2-S_SYS,
 REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
 PERFORM WRITE_TO_SERVER.
 CLEAR I_REC2.
 REFRESH I_REC2.
ELSE.
 WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM. " UNIX_DOWNLOAD
*& Form HEADER_TEXT
 text *
--> p1 text
<-- p2 text
*form header_text.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
 c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
 into t_strhd
 separated by c_comma.
append t_strhd.
*endform. " HEADER_TEXT
*& Form HEADER_TEXT1
 text *
*form header_text1.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
 c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
 into t_strhd1
 separated by c_comma.
append t_strhd1.
transfer t_strhd1 to p_unfil.
*endform. " HEADER_TEXT1
*& Form COLLECT_DATA
 Collect Data *
FORM COLLECT_DATA.
SELECT * FROM GLT0 INTO TABLE REC3
 WHERE BUKRS IN COMPCODE
 AND RYEAR IN FISYEAR
 AND RPMAX IN FISCPER
 AND RACCT IN GLACC
 AND RTCUR IN CURRENCY.
SELECT KTOPL FROM SKA1
 INTO TABLE T_KTOPL
 FOR ALL ENTRIES IN REC3
 WHERE SAKNR = REC3-RACCT.
LOOP AT REC3 .
 select *
 from glt0
 into table t_temp
 where rldnr = rec-rldnr
 and rrcty = rec-rrcty
 and rvers = rec-rvers
 and bukrs = rec-bukrs
 and ryear = rec-ryear
 and racct = rec-racct
 and rbusa = rec-rbusa
 and rtcur <> 'ZAR'
 and rpmax = rec-rpmax.
if sy-subrc = 0.
 rec1-bal = '0.00'.
else.
rec1-bal = rec-hslvt.
endif.
*READ TABLE T_KTOPL WITH KEY SAKNR = REC-RACCT BINARY SEARCH.
MOVE T_KTOPL-KTOPL TO REC3-KTOPL.
CLEAR: CBALANCE, DBALANCE.
REC1-BAL = REC3-HSLVT.
IF REC3-DRCRK = 'S'.
IF REC3-HSLVT NE C_ZERO.
 YEAR = REC-RYEAR.
 PERIOD = '000'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC-DRCRK.
 REC1-DEBIT = C_ZERO.
 REC1-CREDIT = C_ZERO.
 REC1-CCODE = REC-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC-RTCUR.
 REC1-ACCOUNT = REC-RACCT.
 rec1-bal = rec-hslvt.
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC-RBUSA.
 REC1-VER = REC-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART.
 APPEND REC1.
 C = 0.
 PERFORM D.
ENDIF.
IF REC3-HSL01 NE C_ZERO.
 YEAR = REC3-RYEAR.
 PERIOD = '001'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL01 .
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl01 + dbalance.
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART.
 REC1-KTOPL = REC3-KTOPL.
 APPEND REC1.
 C = 1.
 PERFORM D.
ENDIF.
IF REC3-HSL02 NE C_ZERO.
 REC1-DEBIT = REC3-HSL02.
 YEAR = REC3-RYEAR.
 PERIOD = '002'.
CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL02.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
rec1-bal = REC3-hsl02 + dbalance.
dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 C = 2.
PERFORM D.
ENDIF.
IF REC3-HSL03 NE C_ZERO.
 YEAR = REC3-RYEAR.
 PERIOD = '003'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL03.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl03 + dbalance .
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 C = 3.
PERFORM D.
ENDIF.
IF REC3-HSL04 NE C_ZERO.
 REC1-DEBIT = REC3-HSL04.
 YEAR = REC3-RYEAR.
 PERIOD = '004'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL04.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl04 + dbalance .
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 dbalance = rec1-bal.
 C = 4.
 PERFORM D.
ENDIF.
Thanks and Regards,
Ram

use logical database SDF, nodes ska1 and skc1c
A.

To replace values of one of the field in the database table

How to replace values of one of the field in the database table with a new values? Pls help to solve

Hi
You can use the UPDATE command to update one of the field value in a table
see the UPDATE syntax and use it
but in real time you should not do like this
Regards
Anji

How to populate one internal table from another using field symbols

Hi Gurus,
I have a problem. I have to populate one internal table (sructure t_otput) from another internal table (sructure t_from) using field symbol.
Structure for from table.
types: begin of t_from,
 year(4) type c,
 ww(2) type c,
 site type marc-werks,
 demand type i,
 end of t_from.
Structure for output table.
types: begin of t_display,
 title(30),
 WW1(10),
 WW2(10),
 WW3(10),
 end of t_display.
The from table looks like this:
Year | WW | Site | Demand
2005 | 1 | OR1 | 12.00
2005 | 2 | OR1 | 13.00
2005 | 3 | OR1 | 14.00
The display table which has to be populated should look like this:
Title | WW1 | WW2 | WW3
OR1 | | |
Demand | 12.00 | 13.00 | 14.00
How to populate display table using field symbol?
Please give code snippets
Thanks,
Gopal

Gopal,
Here is the code, however I am not vary clear about the ORG1 and Demand display that you have shown in the display. I am sure with this code it should not be a big deal to tweak in whatever manner you want.
TABLES : marc.
TYPES: BEGIN OF type_display,
title(30),
ww1(10),
ww2(10),
ww3(10),
END OF type_display.
TYPES: BEGIN OF type_from,
year(4) TYPE c,
ww(2) TYPE c,
site TYPE marc-werks,
demand TYPE i,
END OF type_from.
data : t_from type table of type_from,
 t_display type table of type_display.
field-symbols : <fs_from> type type_from,
 <fs_display> type type_display.
data : wa_from type type_From,
 wa_display type type_display.
wa_from-year = '2005'.
wa_from-ww = '1'.
wa_from-site = 'OR1'.
wa_from-demand = '12.00'.
insert wa_from into table t_from.
wa_from-year = '2005'.
wa_from-ww = '2'.
wa_from-site = 'OR1'.
wa_from-demand = '13.00'.
insert wa_from into table t_from.
wa_from-year = '2005'.
wa_from-ww = '3'.
wa_from-site = 'OR1'.
wa_from-demand = '14.00'.
insert wa_from into table t_from.
data : variable(3) type c.
field-symbols : <fs_any> type any.
break-point.
Loop at t_from assigning <fs_from>.
variable = 'WW'.
wa_display-title = <fs_from>-site.
concatenate variable <fs_from>-ww into variable.
assign component variable of structure wa_display to <fs_any>.
<fs_any> = <fs_from>-demand.
endloop.
append wa_display to t_display.
clear wa_display.
loop at t_display assigning <Fs_display>.
write :/ <fs_display>.
endloop.
Note : Please award points if this helps you.
Regards,
Ravi

Link B/W table field and Applications

hi
Is there any transaction for Link B/W table fields and Applications.
regards,
pavan.

Hi
If you starts from delivery you can find the sales order number and item in LIPS table: LIPS-VGBEL and LIPS-VGPOS, if you need to start from sales order it should be better to use the table VBFA (document flow) and search the next document of sales order VBFA-VBELN and VBFA-POSNN with VBFA-VBTYP_N = 'J'
Max

How to Create Field Catalogs (More than one Source Table)

Hi Data Archiving Experts,
Could you please help me how to create the Field Catalogs (More than one Source Table). If any one is having example that will help.
My scenario:
Currently we are archiving on CRM Data archiving project. We are facing one issue on creating field catalog with more than one source table.
Ex: ST -- BP1
BP2
BP3
ST info store in one table and BP1 -- BP 3 info sotre in another table. with current field catalog we are getting ST -- BP1. Our requirment is we need to show the ST -- BP3 How we can achive this.
Regards,
Srini

Hi,
I don't think its possible to create fieldcatalog for different tables,
but if you want to do so create a dummy table which has all the fields which you want in fieldcatalog.
populate the data from different table to that dummy table
then create fieldcatalog for that table and pass it in the function module...
Regards,
Siddarth

Checkbox that refers to one number(1) table field

Hi,
Did anyone experience this, like having an ASP check box that refers to one number type Oracle table field, in a Gridview. I now even have used one number(18) Oracle table field instead (since in ASP, it seems I have to choose one int16 as the type for the corr. updateparameter of that template field).
<asp:CheckBox runat="server" ID="chkitem" Checked='<%# Eval("Selected") %>'
Text='<%# Eval("Selected") %>' />
Now I've got one exception for the above line. Can anyone pls share your knowledge/experience with me?
Bst Rgds,
HuaMin

Have anyone on this planet successfully run this ever? I do have a problem with this.
<ItemTemplate>
<asp:CheckBox runat="server" ID="chkitem" Checked='<%# Eval("selected") %>'
Text='<%# Eval("selected") %>' />
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox runat="server" ID="chkupdate" Checked='<%# Eval("selected") %>'
Text='<%# Eval("selected") %>' />
</EditItemTemplate>

Table containing field names of all Business One system tables

Hi,
Is there a table like CUFD that contains all the field names in each Business One system table?
Thanks,
Mike

Hi Mike,
Unfortunately the answer is NO.
Thanks,
Gordon

Making field input editable after giving error msg from table event 01

Hi All,
I have a requirement of giving error msg and making that row or the particular field input editable by writing code in table event 01 i.e before saving any record in a z-table i have to chk some condition for a column value and if that condition fails then i have to give error msg and make that column input editable.
I have created a routine for event 01 and written the code to give error msg. But my problem is that column is not becoming input editable. Could you pls tell me how can i make that field editable?
Thanks in advance.

Hi Piyali,
Use SET PARAMETER & GET PARAMETER ID .
You will get it.
Best Regards,
Pravin

Declare the internal table with only one 10 character field and use

Hi,
I want to declare the internal table with only one 10 character field and use.
Jaya

Hi,
Go ahead. U can declare IT with only one field
Example:
data: begin of zcustlist occurs 1000,
custmer(10) type c,
end of zcustlist.
Narendra Reddy.
Edited by: Narendra Reddy C on Aug 8, 2008 11:39 AM

In WD application making one WD-table field un-editable.

Similar Messages

Maybe you are looking for