Document Adjuster

The following code can be added to a view action button or, for
developers/administrators, to a smarticon. The code allows the user to select
any field on a document (within a view) and change the value(s) for the field.
It then prompts for a datatype to ensure the appropriate field datatype is
applied. This is very useful for changing hidden field values for example.
List := @DocFields;
DataTypes := "Text" : "Date" : "Number" ;
EditField := @Prompt( [OKCANCELLIST] ; "Select a field to alter" ; "Select the
field you wish to alter:" ; "CustomerReply" ; List ) ;

Edit := @Prompt( [YESNO] ; "Confirm" ; "Are you sure you want to alter the
current contents of field \"" + EditField + "\"." );

RawValue := @If( Edit = 1 ; @Prompt( [OKCANCELEDIT] ; "New Value" ; "Please
enter the new desired value." ; NULL ) ; @Return(NULL) );

DataType := @Prompt( [OKCANCELLIST] ; "Data Type" ; "Please Select the correct
DataType" ; "Text" ; DataTypes );

@If( DataType = "Date" ; @SetField( EditField ; @TextToTime( RawValue )) ;
DataType = "Number" ; @SetField( EditField ; @TextToNumber( RawValue )) ;
@SetField( EditField ; RawValue ) );
""

This was first published in November 2000

Dig Deeper

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