project QadFinancials > class TIntegrationUtilities > method GetFinancialLanguage

function returns character


Parameters


icMfgLanguageinputcharacter


Internal usage


QadFinancials
method MfgDatabaseComponent.GetFinancialLanguage


program code (program1/tintegrationutilities.p)

if icMfgLanguage <> "" then
    assign 
       vcMappingLanguage = icMfgLanguage.
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 "ge":U then
        assign
            vcFnLanguage = "de":U.
    when "cz":U or 
    when "cs":U then
        assign
            vcFnLanguage = "cs":U.
    when "us":U then
        assign
            vcFnLanguage = "en":U.
    otherwise
        assign 
            vcFnLanguage = vcMappingLanguage.

end case.

return vcFnLanguage.