CaptionClass property

Comments

• Options

  Luc_VanDyck Member, Moderator, Administrator Posts: 3,633

  2002-09-09

  I don't know if the CaptionClass works for menubuttons. Here is an example for renaming a caption of a field in a table.
  
  In Codeunit 1, you'll find a function CaptionClassTranslate. Change this as follows:
  
  </font><blockquote><font size="1" face="Verdana, Arial">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">CaptionClassTranslate(Language : Integer;CaptionExpr : Text[80]) : Text[80]
  CommaPosition := STRPOS(CaptionExpr,',');
  IF (CommaPosition > 0) THEN BEGIN
  CaptionArea := COPYSTR(CaptionExpr,1,CommaPosition - 1);
  CaptionRef := COPYSTR(CaptionExpr,CommaPosition + 1);
  CASE CaptionArea OF
  '1' : EXIT(DimCaptionClassTranslate(Language,CaptionRef));
  '2' : EXIT(VATCaptionClassTranslate(Language,CaptionRef));
  END;
  END;
  
  ltxtCaption := '';
  IF UPPERCASE(CaptionExpr) = 'TESTCAPTION'
  THEN ltxtCaption := 'New caption';
  EXIT(ltxtCaption);
  //EXIT('');</pre><hr /></blockquote><font size="2" face="Verdana, Arial">Now insert a new field 'Testfield' in a table, and fill in the CaptionClass-property with 'TESTCAPTION' (including the ').
  When you run the table, or place the field on a form and run that form, you'll see the name 'New caption' instead of the name 'Testfield'.
  
  In codeunit 1 you'll have to add code for multi-language.
  
  With Attain 3.01, I tried to rename a menu that way, but it wasn't possible. Maybe they have changed this with Attain 3.60?

  No support using PM or e-mail - Please use this forum. BC TechDays 2024: 13 & 14 June 2024, Antwerp (Belgium)

  0
• Options

  BGI Member Posts: 176

  2002-09-09

  Thnx for the info.
  Now at last i know how it works, but it isn't realy the thing i'm looking for.
  Thnx anyway

  Rgds
  Benny Giebens

  0
• Options

  Robi Member Posts: 4

  2002-09-17

  Here are all secrets to Caption Class
  
  </font><blockquote><font size="1" face="Verdana, Arial">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">[Procedure]CaptionClassTranslate (<LANGUAGE>;<CAPTIONEXPR>)
  LANGUAGE
  <DataType> := [Integer]
  <DataValue> := // Automatically mentioned by the system
  CAPTIONEXPR
  <DataType> := [String]
  <Length> <= 80
  <DataValue> := <CAPTIONAREA>,<CAPTIONREF>
  CAPTIONAREA
  <DataType> := [SubString]
  <Length> <= 10
  <DataValue> := 1..9999999999
  // 1 for Dimension Area
  // 2 for VAT
  CAPTIONREF
  <DataType> := [SubString]
  <Length> <= 10
  <DataValue> := IF (<CAPTIONAREA> = 1) <DIMCAPTIONTYPE>,<DIMCAPTIONREF>
  <DataValue> := IF (<CAPTIONAREA> = 2) <VATCAPTIONTYPE>
  DIMCAPTIONTYPE
  <DataType> := [SubString]
  <Length> <= 10
  <DataValue> := 1..6
  // 1 to retrieve Code Caption of Global Dimension
  // 2 to retrieve Code Caption of Shortcut Dimension
  // 3 to retrieve Filter Caption of Global Dimension
  // 4 to retrieve Filter Caption of Shortcut Dimension
  // 5 to retrieve Code Caption of any kind of Dimensions
  // 6 to retrieve Filter Caption of any kind of Dimensions
  DIMCAPTIONREF
  <DataType> := [SubString]
  <Length> <= 10
  <DataValue> := IF (<DIMCAPTIONTYPE> = 1) 1..2,<DIMOPTIONALPARAM1>,<DIMOPTIONALPARAM2>
  IF (<DIMCAPTIONTYPE> = 2) 1..8,<DIMOPTIONALPARAM1>,<DIMOPTIONALPARAM2>
  IF (<DIMCAPTIONTYPE> = 3) 1..2,<DIMOPTIONALPARAM1>,<DIMOPTIONALPARAM2>
  IF (<DIMCAPTIONTYPE> = 4) 1..8,<DIMOPTIONALPARAM1>,<DIMOPTIONALPARAM2>
  IF (<DIMCAPTIONTYPE> = 5) Dimension.[Field]Code,<DIMOPTIONALPARAM1>,<DIMOPTIONALPARAM2>
  IF (<DIMCAPTIONTYPE> = 6) Dimension.[Field]Code,<DIMOPTIONALPARAM1>,<DIMOPTIONALPARAM2>
  DIMOPTIONALPARAM1
  <DataType> := [SubString]
  <Length> <= 30
  <DataValue> := [String]
  // a string added before the dimension name
  DIMOPTIONALPARAM2
  <DataType> := [SubString]
  <Length> <= 30
  <DataValue> := [String]
  // a string added after the dimension name
  VATCAPTIONTYPE
  <DataType> := [SubString]
  <Length> = 1
  <DataValue> := '0' -> <field caption + 'Excl. VAT'>
  '1' -> <field caption + 'Incl. VAT'></pre><hr /></blockquote><font size="2" face="Verdana, Arial">

  ®obi

  0