List := @DocFields; DataTypes := "Text" : "Date" : "Integer" : "Password" : "Name" : "Common Name" : "Delete Field" : "Text - Multi Value" : "Date - Multi Value" : "Integer - Multi Value" : "Name - Multi Value" : "Common Name - Multi Value"; EditField := @Prompt( [OKCANCELLIST] ; "Výber poľa" ; "Vyberte pole:" ; "" ; List ) ; DataType := @Prompt( [OKCANCELLIST] : [NoSort] ; "Datový typ poľa " + EditField ; "Vyberte datovy typ: " + EditField ; "Text" ; DataTypes ); RawValue := @If( @Contains( DataType ; "Name - Multi Value" ); @PickList( [Name] ); @Contains( DataType ; "Name" ) ; @PickList( [Name] : [Single] ); DataType = "Delete Field" ; "" ; @Contains( DataType ; "Multi Value" ); @Prompt( [OKCANCELEDIT] ; "Nová hodnota poľa " + EditField ; "Zadajte novú hodnotu poľa " + EditField + ", hodnoty oddelte dvojbodkou : " ; @Abstract([TextOnly] ; 254 ; "" ; @Text( EditField ) ) ); @Prompt( [OKCANCELEDIT] ; "Nová hodnota poľa: " + EditField ; "Zadajte novú hodnotu poľa " + EditField + "." ; @Abstract([TextOnly] ; 254 ; "" ; @Text( EditField) ) ) ); @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 ) ); ""