method GetMfgLanguage

function returns character

Description

Converts the current language code that the financial application is running under into the language code that MFG/PRO uses. The MFG/PRO language is then returned to the caller.

Parameters

icQadfnLanguage

input

character

Internal usage

QadFinancials

method MfgDatabaseComponent.GetMfgLanguage

program code (program1/tintegrationutilities.p)

/*
*  If no language is passed in as a parameter then
* get the current language code that the Progress Client
* is executing under and from that convert it into the
* relevant MFG/PRO Language code.
*/    

if icQadfnLanguage <> "" then
    assign 
       vcMappingLanguage = icQadfnLanguage.
else
    assign 
           vcMappingLanguage = current-language.

case vcMappingLanguage:
    /* 
    * Other languages should be mapped here when available 
    * If the Language is not listed below then the same  value is returned
    */

    when "de":U then
        assign
            vcMfgLanguage = "ge":U.
    
    when "en":U then
        assign
            vcMfgLanguage = "us":U.
    otherwise
        assign 
            vcMfgLanguage = vcMappingLanguage.

end case.

return vcMfgLanguage.