HMGforum.com

Code: Select all

 
FUNCTION Lang_Descr (TCode, TLanguage)		&& MESSAGES AND TEXT
/************************************/ 
local n
TDescr  := ''
FOR n = 1 TO nNum_Of_Messages
   IF T_CODE [n] == TCode .AND. T_LANGUAGE [n] == TLanguage
      TDescr  :=  ALLTRIM(T_OMS [n] )
      EXIT
   ENDIF
NEXT n

RETURN(TDescr)

Code: Select all

@ nRow, nCOL GRID Grid_KL002		;
	WIDTH  550	* SCR_PWIDTH		;
	HEIGHT 300			;
	HEADERS {Lang_Descr( "252", cLang_Code ), Lang_Descr( "066", cLang_Code ), Lang_Descr( "067", cLang_Code), Lang_Descr( "253", cLang_Code),     Lang_Descr( "149", cLang_Code), Lang_Descr( "147", cLang_Code)  };
	WIDTHS  {   60* SCR_PWIDTH,               100* SCR_PWIDTH,                 100* SCR_PWIDTH,                100* SCR_PWIDTH,                    100* SCR_PWIDTH,                100* SCR_PWIDTH };
   JUSTIFY {  GRID_JTFY_RIGHT,               GRID_JTFY_RIGHT,                 GRID_JTFY_RIGHT,                GRID_JTFY_RIGHT,                    GRID_JTFY_RIGHT,                GRID_JTFY_RIGHT} ;
	FONT "Arial" SIZE wfont1		;
	BACKCOLOR WFocusColor	;
	FONTCOLOR WFontColor BOLD ;
	ON DBLCLICK Edit_KL003()