RepGenSubProc repLangs(rep, "##LANGBT","##LANGET");
	repLangs.RepGenSubProcBody = THISBACK(PrintResume_CalcLangBody);

void AnketaListDlg::PrintResume_CalcLangBody() {
#undef VAR
#define	VAR(x)		rep.SubstVar("##" #x,AsString(sql[ANL_##x]));
	Sql sql;
	sql * SqlSelect(SqlAll()).From(ANKETALANGUAGE).Where(ANL_ANKETAID == gANK_ID).OrderBy(ANL_LANGUAGE);
	while (sql.Fetch()) {
		rep.RepGenCalculateBodyBeforeSubst();
		VAR(LANGUAGE);
		VAR(FINDLEVEL);
		VAR(LEVEL);
		rep.RepGenCalculateBodyAfterSubst();
	}
}