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.

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.

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

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.};

Related information from SearchDomino.com: