Modifying document item values

This Formula Language code can be incorporated into a toolbar button for Lotus Notes client 6.5. When a database document is selected and the button is clicked, all item values will be displayed in a pop-up. You can then follow these steps provided by SearchDomino.com member Blessan Philip to change selected item values.

VIEW MEMBER FEEDACK TO THIS TIP

This Formula Language code can be incorporated into a toolbar button for Lotus Notes client 6.5. When a database document is selected and the button is clicked, all item values will be displayed in a pop-up.

Follow these steps to change selected item values:

REM {Get a listing of all the fields 
on the current document}; 
List := @DocFields;
REM {Possible data types to 
choose from.};
DataTypes := "Text" : "Date" : 
"Integer" : "Password" : 
"Name" : "Common Name" :
 "Remove Field" : 
"Text Multi Value" : "Date Multi Value" :
 "Integer    Multi Value" 
: "Name Multi Value" : "Common Name 
Multi Value";
REM {Prompt for which field 
needs to be updated.}; 
EditField := @Prompt( [OkCancelList] ; 
"Select a field to alter" ; 
"Select the field you wish to alter:" ; 
"CustomerReply" ; List );
REM {Prompt for which data 
type you would like the data to be}; 
REM {This needs to be done before 
value prompt to 
determine if the Picklist or any 
prompting needs to be used.};
DataType := @Prompt
( [OkCancelList] : [NoSort] ; 
"data type or action for field: " 
+ EditField ; 
"Please Select the correct data
 type or action for field: 
" + EditField ; "Text" ; DataTypes );
REM {Based on what type 
of data is being entered 
different prompts will happen 
if any at all.}; 
RawValue := @If( @Contains
( DataType ; "Name Multi Value" ); 
@PickList( [Name] ); @Contains
( DataType ; "Name" ) ; 
@PickList( [Name] : [Single] ); 
DataType = "Remove Field" ; "" ; 
@Contains( DataType ; "Multi Value" );
 @Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value for: 
" + EditField + " seperated with : 
for each value." ; @Abstract([TextOnly] ; 254 ; 
"" ; @Text( EditField ) ) ); 
@Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value for: " 
+ EditField + "." ; @Abstract([TextOnly] ; 
254 ; "" ; @Text( EditField) ) ) );
REM {If data conversion 
doesn't work then don't set field.}; 
@If( DataType = "Date" ; 
@If( @SetField( EditField ; 
@TextToTime( RawValue ) ) ); 
DataType = "Integer" ; 
@If( @IsError( @TextToNumber
( RawValue ) ) ; "" ; 
@SetField( EditField ; 
@TextToNumber( RawValue ) ) ) ; 
DataType = "Common Name" ; 
@SetField( EditField ; 
@Name( [CN]; RawValue ) ) ; 
DataType = "Password" ; 
@SetField( EditField ; 
@Password( RawValue ) ) ; 
DataType = "Remove Field" ; 
@SetField( EditField ; @DeleteField ) ; 
DataType = "Text Multi Value" ; 
@SetField( EditField ; 
@Explode( RawValue ; ":" ) ) ; 
DataType = "Date Multi Value" ; 
@SetField( EditField ; 
@TextToTime( @Explode( RawValue ; ":" ) ) ) ; 
DataType = "Integer Multi Value" ; 
@If( @IsError
( @TextToNumber( @Explode
( RawValue ; ":" ) ) ) ; "" ; 
@SetField( EditField ; @TextToNumber
(@Explode( RawValue ; ":" ) ) ) ) ;
DataType = "Name Multi Value" ; 
@SetField( EditField ; 
@Explode( RawValue ; ":" ) ) ; 
DataType = "Common Name Multi Value" ; 
@SetField( EditField ; @Name( [CN]; 
@Explode( RawValue ; ":" ) ) ); 
@SetField( EditField ; RawValue ) ); ""

Do you have comments on this tip? Let us know.

MEMBER FEEDBACK TO THIS TIP

This tip is very similar to one submitted by Christiaan Walker, 3M Healthcare in March 2003. I've used his tip many times. The one big difference I've noticed is that it lets you know what is currently stored in the field.
—Bil M.

******************************************

This is a great tip, however, it does have a few bugs with multi-value:

  1. It shows current values with no separators. It should parse current values and add the colon separators. If I wanted to add one more value to the current value below, I would have to manually add in colons between each one before adding the new one to the end.
    [System] [Editors] [Admin] [CORP-Edit] [CORP-SS-Edit]

  2. It only stores as multi-value if you use colon to separate entries. It should allow for commas and semi-colons also, or have instructional text explaining to use colons.

—Julie B.

******************************************

To view the current values while changing; replace the existing code between the two remarks with the following code.

REM {Based on what type of data is being entered different 
prompts will happen if any at all.};

RawValue := @If( @Contains
( DataType ; "Name Multi Value" );
@PickList( [Name];@GetField(EditField));
 @Contains( DataType ; "Name" ) ; 
@PickList( [Name] : [Single];@GetField
(EditField)); DataType = "Remove Field" ; "" ; 
@Contains( DataType ; "Multi Value" ); 
@Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value
for:  " + EditField + " seperated with : 
for each value." ; @Abstract([TextOnly] ; 254 ; "" ; 
@Implode(@Text( @GetField(EditField) );":") ) ); 
@Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value
for: "
+ EditField + "." ; @Abstract([TextOnly] ; 254 ;
 "" ; @Implode(@Text(
@GetField(EditField));":") ) ) );

REM {If data conversion doesn't 
work then don't set field.};

—Blessan Philip, tip author

Related information from SearchDomino.com:

  • Formula Language Learning Guide
  • Tip: Formula lookup for large domains
  • Reference Center: More Formula tips and resources

    This tip was submitted to the SearchDomino.com tip library by member Blessan Philip. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.

  • This was first published in March 2006

    Dig deeper on Lotus Notes Domino Formula Language

    0 comments

    Oldest 

    Forgot Password?

    No problem! Submit your e-mail address below. We'll send you an email containing your password.

    Your password has been sent to:

    -ADS BY GOOGLE

    SearchWindowsServer

    Search400

    • iSeries tutorials

      Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

    • V6R1 upgrade planning checklist

      When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

    • Connecting multiple iSeries systems through DDM

      Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

    SearchEnterpriseLinux

    SearchDataCenter

    SearchExchange

    SearchContentManagement

    Close