Edit profile

Page History

Versions Compared

Old Version 5

changes.mady.by.user user-eb51a

Saved on Jun 01, 2023

compared with

New Version Current

changes.mady.by.user user-eb51a

Saved on Jun 01, 2023

Key

This line was added.
This line was removed.
Formatting was changed.

...

Execute the application in French

Panel
^{Specification du Numero de Produit} ^{Tapez le Numero de Produit puis faites Enter} ^{Numero de Produit . . . . . 64786}

Panel

^{Specification du Numero de Produit}

^{Tapez le Numero de Produit puis faites Enter}

^{Numero de Produit . . . . . 64786}

Panel
^{Details du Produit} ^{Numero de Produit . . . : 64786}^{Description . . . . . . : 1 kg plastic bag of cane sugar}^{Description Abregee . . : SUGAR 1KG}^{Prix . . . . . . . . . . : 2.45}^{Stock Disponible . . . . : 7685}

Panel

^{Details du Produit}

^{Numero de Produit . . . : 64786}^{Description . . . . . . : 1 kg plastic bag of cane sugar}^{Description Abregee . . : SUGAR 1KG}^{Prix . . . . . . . . . . : 2.45}^{Stock Disponible . . . . : 7685}

Execute the application in German

Panel
^{Produkt Nummer Angeben} ^{Geben Sie die Produkt Nummer ein und drucken Sie Eingabe} ^{Produkt Nummer . . . . . . . . . . . . . 64786}

Panel

^{Produkt Nummer Angeben}

^{Geben Sie die Produkt Nummer ein und drucken Sie Eingabe}

^{Produkt Nummer . . . . . . . . . . . . . 64786}

Panel
^{Produkt Detail} ^{Produkt Nummer . . . . . . : 64786}^{Seschreibung . . . . . . . . . . : 1 kg plastic bag of cane sugar}^{Kurzbeschreibung . . . . . . : SUGAR 1KG}^{Preis . . . . . . . . . . . . . . . . . : 2.45}^{Verfugbare Menge . . . . . . : 7685}

Panel

^{Produkt Detail}

^{Produkt Nummer . . . . . . : 64786}^{Seschreibung . . . . . . . . . . : 1 kg plastic bag of cane sugar}^{Kurzbeschreibung . . . . . . : SUGAR 1KG}^{Preis . . . . . . . . . . . . . . . . . : 2.45}^{Verfugbare Menge . . . . . . : 7685}

Notice what's wrong?

The product description and short description shown are still in English.

...

If the program was coded like this (making use of the system variable *LANGUAGE to determine the language):

     GROUP_BY NAME(#PANEL001) FIELDS(#PRODNO #PRODES #PROSDES #PRICE #STOCK)
 
     BEGIN_LOOP

...

     REQUEST FIELD((

...

#PBINST01 *

...

OUTPUT *NOID)

...

 #PRODNO)

...

     FETCH FIELDS(#PANEL001)

...

 FROM_FILE(PRODMST)

...

 WITH_KEY(#PRODNO)

...

     FETCH FIELDS(#PANEL001)

...

 FROM_FILE(PRODLNG)

...

 WITH_KEY(*

...

LANGUAGE #PRODNO)
              IF_

...

STATUS IS_NOT(*OK)

...

              MESSAGE MSGTXT(*MTXT12347)
              ELSE

...

              DISPLAY FIELDS(#PANEL001)
              ENDIF
     END_LOOP

...

The result would be a true multilingual system where side by side users could be running the same program in completely different languages.
Execute the application in French
...
 Panel
^{Specification du Numero de Produit}
...
^{Tapez le Numero de Produit puis faites Enter}
...
^{Numero de Produit  . . . . .}
...
⁶⁴⁷⁸⁶
 Panel
^{Details du Produit}
  
...
^{Numero de Produit  . . . :  64786}^{Description  . . . . . . :  1 kg sac plastique de sucre}^{Description Abregee  . . :  SUCRE 1KG}^{Prix . . . . . . . . . . :  2.45}^{Stock Disponible . . . . :}
...
⁷⁶⁸⁵

Execute the application in German 
 Panel
...
^{Produkt Nummer Angeben}
^{Geben Sie die Produkt Nummer ein und drucken Sie Eingabe}
^{Produkt Nummer . . . . . . .}
...
⁶⁴⁷⁸⁶
...
 Panel
^{Produkt Detail}
^{Produkt Nummer . . . . . :  64786}
...
^{Seschreibung . . .}
...
^.
...
^.
...
^.
...
^.
...
^{.  :}
...
^{1 kg Plastiksack mit Rohzucker}
^{Kurzbeschreibung . . . .  :}
...
^{ZUCKER 1KG}
^Preis  .
...
^{. . . . . . . . . . . . . . . :  2.45}
^{Verfugbare Menge . . . . :}
...
⁷⁶⁸⁵

Content

Space Tools

Versions Compared

Old Version 5

New Version Current

Key

Execute the application in French

Execute the application in German

Execute the application in French

Execute the application in German