List := @Sort( @DocFields );
PromptLimit := 254;

DataTypes := "Text" : "Date" : "Integer" : "Password" : "Name" : "Common Name" : "Abbreviate Name" : "Remove Field" : "Text Multi Value" : "Date Multi Value" : "Integer Multi Value" : "Name Multi Value" : "Common Name Multi Value" : "Abbreviate Name Multi Value" : "Upper Case Text" : "Lower Case Text"  : "Proper Case Text" : "Upper Case Text Multi Value" : "Lower Case Text Multi Value"  : "Proper Case Text Multi Value" ;

@DoWhile(
 EditField := @Prompt( [OkCancelEditCombo] ; @DbTitle + " - " + @ViewTitle ; "Vyberte pole, ktorého obsah meníte:" ; @Subset( List ; 1 ) ; List ) ;
 EditField = "" );

DefaultDataType := @If( @IsNumber( @GetField( EditField ) ) ; @If( @Count( @GetField( EditField) ) > 1 ; "Integer Multi Value"; "Integer" ) ; @IsTime( @GetField( EditField ) ) ; @If( @Count( @GetField( EditField) ) > 1 ; "Date Multi Value"; "Date" ) ; @If( @Count( @GetField( EditField) ) > 1 ; "Text Multi Value"; "Text" ) );
DefaultDataType := @IfError( DefaultDataType ; "Text" );

DataType := @Prompt( [OkCancelList] : [NoSort] ; EditField + " - " + @DbTitle + " - " + @ViewTitle; "Vyberte dátový typ poľa: " + EditField + "."; DefaultDataType ; DataTypes );

OriginalValue := @If( @Contains( DefaultDataType ; "Multi Value" ) ; @Implode( @Text( @GetField( EditField ) ) ; ";" ); @Text( @GetField( EditField ) ) );

RawValue := @If(
         @Contains( DataType ; "Name Multi Value" ); @PickList( [Name] );
         @Contains( DataType ; "Name" ) ; @PickList( [Name] : [Single] );
         DataType = "Remove Field" ; "" ;
         @Contains( DataType ; "Multi Value" ); @Prompt( [OkCancelEdit] ; EditField + " - " + @DbTitle + " - " + @ViewTitle; "Zadajte novú hodnotu poľa: " + EditField + "." + @Char(13) + @Char(13) + "Hodnoty oddeľte bodkočiarkou." ; OriginalValue ) ;
         @Prompt( [OkCancelEdit] ; EditField + " - " + @DbTitle + " - " + @ViewTitle ; "Zadajte novú hodnotu poľa: " + EditField + "." ; OriginalValue ) );

@If(
        DataType = "Date" ; @If( @SetField( EditField ; @ToTime( RawValue ) ) );
        DataType = "Integer" ; @If( @IsError( @TextToNumber( RawValue ) ) ; "" ; @SetField( EditField ; @TextToNumber( RawValue ) ) ) ;
        DataType = "Common Name" ; @SetField( EditField ; @Name( [CN]; RawValue ) ) ;
        DataType = "Abbreviate Name" ; @SetField( EditField ; @Name( [Abbreviate]; 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 ; ":" ) ) );
        DataType = "Abbreviate Name Multi Value" ; @SetField( EditField ; @Name( [Abbreviate]; @Explode( RawValue ; ":" ) ) );
        DataType = "Upper Case Text" ; @If( @SetField( EditField ; @UpperCase( RawValue ) ) );
        DataType = "Lower Case Text" ; @If( @SetField( EditField ; @LowerCase( RawValue ) ) );
        DataType = "Proper Case Text" ; @If( @SetField( EditField ; @ProperCase( RawValue ) ) );
        DataType = "Upper Case Text Multi Value" ; @If( @SetField( EditField ; @UpperCase( @Explode( RawValue ; ";" ) ) ) );
        DataType = "Lower Case Text Multi Value" ; @If( @SetField( EditField ; @LowerCase( @Explode( RawValue ; ";" ) ) ) );
        DataType = "Proper Case Text Multi Value" ; @If( @SetField( EditField ; @ProperCase( @Explode( RawValue ; ";" ) ) ) );
        @SetField( EditField ; RawValue )
);
""