Manage
Learn to apply best practices and optimize your operations.
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.
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.
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:
- 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] - 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:
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.
