Home Conference 2005 Order Boxed Set Product Download VU Training FAQ Press and News Docs and Papers Partner Help Team     register/help User Name: Password: Login

ofin_rep.cpp Go to the documentation of this file. //Filename : OFINDISP.cpp //Description : Finance Class display method definition //Owner : Ho #include <OBUTTON.H> // for this's disp_main #include <OFONT.H> #include <OSYS.H> // sys.redraw_all_flag #include <OWORLDMT.H> // ZOOM_?? #include <KEY.H> // KEY_* #include <OGAMESTR.H> // report_str() #include <OFINANCE.H> #include <OVGA.H> // for this's disp_main #include <OIFACE.H> #include <OINFO.H> #include <OSTR.H> #include <OVBROW98.H> #include <OOPT.H> #if(GAME_VERSION>=200) #include <OVGALOCK.H> #include <OMATH.H> #endif //----- define constants for report -----// #define FIN_REP_SHEET_COLOR Vga::active_buf->color_down enum { REPORT_X1 = ZOOM_X1+2, REPORT_Y1 = ZOOM_Y1+15, REPORT_X2 = ZOOM_X2-2, REPORT_Y2 = ZOOM_Y2-50, }; enum { BG_PIC_ID = 12}; enum { BUTTON_Y1 = REPORT_Y2+10 }; enum { BUTTON_WIDTH = 105, BUTTON_HEIGHT = 21 }; enum { FINANCIAL_REC_HEIGHT = 18 }; enum { BS_TAB1 = 220, BS_TAB2 = 550,BS_TAB3 = 600 }; //----- define variables for report -----// static ButtonGroup button_type(REPORT_TYPE_COUNT); static ButtonGroup button_year(REPORT_YEAR_COUNT); static ButtonGroup button_opt(REPORT_OPT_COUNT); static Button button_expand; static Button button_prev, button_next; static VBrowse98 browse_financial; static int report_year = 1; //temp static void disp_fin_rep_row(int,int,int,int); static void fin_rep_case1(int,int,int); static void fin_rep_case2(int,int,int); static void fin_rep_case3(int,int,int); static void fin_rep_case4(int,int,int); static void fin_rep_case8(int,int,int); static void fin_rep_case9(int,int,int); #if(GAME_VERSION>=200) // constant, macro, and function to exporting text file for import to spreadsheet const RECORD_SEPARATOR_LEN = 2; static char *RECORD_SEPARATOR = "\r\n"; const FIELD_SEPARATOR_LEN = 1; static char *FIELD_SEPARATOR = "\t"; static char *export_num(int value) { static char num_str[20]; return itoa( value, num_str, 10 ); // 10 is radix } static char *export_num(double value) { static char num_str[20]; return gcvt( value, 7, num_str ); // a few more more than 7, for negative sign, decimal point and exponent } #define WRITE_FIELD_SEPARATOR(f) f->file_write(FIELD_SEPARATOR, FIELD_SEPARATOR_LEN) #define WRITE_STR_FIELD(f,s) { f->file_write(s, strlen(s)); } #define WRITE_NUM_FIELD(f,n) { char *s=export_num(n); f->file_write(s, strlen(s)); } #define WRITE_RECORD_SEPARATOR(f) f->file_write(RECORD_SEPARATOR, RECORD_SEPARATOR_LEN) // function to export finance report to text file static void export_fin_rep_case1(File *); static void export_fin_rep_case2(File *); static void export_fin_rep_case3(File *); static void export_fin_rep_case4(File *); static void export_fin_rep_case5(File *); static void export_fin_rep_case6(File *); static void export_fin_rep_case7(File *); static void export_fin_rep_case8(File *); static void export_fin_rep_case9(File *); static Button button_export; // button to export to (spread sheet) text file #endif //----- Begin of function Finance::report ------// void Finance::disp_report_main(int refreshFlag, int dispButton, char* reportTitle) { int x=REPORT_X1, y=REPORT_Y1; vga.use_back(); sys.is_institution_report=1; if (refreshFlag == INFO_REPAINT) { // ###### begin Gilbert 25/04/2001 ######// report_deinit(); // ###### end Gilbert 25/04/2001 ######// //------------- paint the background ----------------// user_interface.bg_img(BG_PIC_ID, &vga_back); if( dispButton ) report_paint_button(refreshFlag); int reportY1=REPORT_Y1, reportY2=REPORT_Y2; if( reportTitle ) { reportY1 += 15; font_charts.center_put( REPORT_X1, ZOOM_Y1, REPORT_X2, reportY1-1, reportTitle ); } if( !dispButton ) reportY2 += BUTTON_HEIGHT-8; // OPTIMIZATION if(report_type==REPORT_TYPE_OPTIMIZATION) { if(finance.report_opt==REPORT_OPT_REVENUE) optimization.report_stage_1(refreshFlag); if(finance.report_opt==REPORT_OPT_FUNCTION) optimization.report_stage_2(refreshFlag); if(finance.report_opt==REPORT_OPT_FACULTY) optimization.report_stage_3(refreshFlag); // opt_stage3.report(refreshFlag); } else { // user_interface.bar( REPORT_X1, reportY1, REPORT_X2, reportY2,FIN_REP_SHEET_COLOR); user_interface.brighten( REPORT_X1, reportY1, REPORT_X2, reportY2); user_interface.rect( REPORT_X1, reportY1, REPORT_X2, reportY2); //-------- set the number of rows for th browser --------// int browseRecCount; if(report_type==REPORT_TYPE_REVENUE||report_type==REPORT_TYPE_BUDGET_VS_ACTUAL) { if(report_year!=REPORT_YEAR_THREE_YEARS) { browseRecCount=REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+9; } else { if( report_is_expanded ) browseRecCount=REVENUE_ITEM_COUNT+4*EXPENSE_ITEM_COUNT+25; else browseRecCount=REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+9; } } if(report_type==REPORT_TYPE_DETAIL_REN) browseRecCount=REVENUE_ITEM_COUNT+4*EXPENSE_ITEM_COUNT+25; if(report_type==REPORT_TYPE_BALANCE) { if(report_year==REPORT_YEAR_THREE_YEARS) browseRecCount=ASSET_ITEM_COUNT+LIABILITY_ITEM_COUNT+8; else browseRecCount=ASSET_ITEM_COUNT+LIABILITY_ITEM_COUNT+7; } //-------------------------------------------// browse_financial.init( REPORT_X1, reportY1, REPORT_X2, reportY2, 0, FINANCIAL_REC_HEIGHT, browseRecCount, disp_fin_rep_row, NULL ,0); browse_financial.open(report_financial_recno); } } else { // refreshFlag == INFO_REFRESH if(report_type==REPORT_TYPE_OPTIMIZATION) { if(finance.report_opt==REPORT_OPT_REVENUE) optimization.report_stage_1(refreshFlag); if(finance.report_opt==REPORT_OPT_FUNCTION) optimization.report_stage_2(refreshFlag); if(finance.report_opt==REPORT_OPT_FACULTY) optimization.report_stage_3(refreshFlag); } else { // update only browse_financial.update(); if( dispButton ) report_paint_button(refreshFlag); } } //---------------------------------------------// if(report_type==REPORT_TYPE_OPTIMIZATION) { } else { report_financial_recno=browse_financial.recno(); } vga.blt_buf( ZOOM_X1, ZOOM_Y1, ZOOM_X2, ZOOM_Y2 ); } //----- End of function Finance::report ------// void Finance::report_deinit() { /* // OPTIMIZATION if(finance.report_type==REPORT_TYPE_OPTIMIZATION) { if(finance.report_opt==REPORT_OPT_REVENUE) optimization.deinit_stage_1(refreshFlag); if(finance.report_opt==REPORT_OPT_FUNCTION) optimization.deinit_stage_2(refreshFlag); if(finance.report_opt==REPORT_OPT_FACULTY) optimization.deinit_stage_3(refreshFlag); } */ // ### begin Gilbert 25/04/2001 ######// optimization.deinit(); // no need to check current stage, finance report didn't free memory properly button_type.deinit_buttons(); button_year.deinit_buttons(); button_opt.deinit_buttons(); button_expand.deinit(); button_prev.deinit(); button_next.deinit(); browse_financial.deinit(); // ### end Gilbert 25/04/2001 ######// #if(GAME_VERSION>=200) button_export.deinit(); #endif } //------- Begin of function Finance::report_detect -------// void Finance::report_detect(int detectButton) { if( detectButton ) { //------- detect type buttons --------// if( button_type.detect() >= 0 ) { report_type = button_type.button_pressed; sys.redraw_all_flag = 1; report_financial_recno=1; report_is_expanded = 0; } if(report_type==REPORT_TYPE_OPTIMIZATION) { if( button_opt.detect() >= 0 ) { report_opt = button_opt.button_pressed; sys.redraw_all_flag = 1; report_financial_recno=1; report_is_expanded = 0; } } else if((report_type==REPORT_TYPE_REVENUE)||(report_type==REPORT_TYPE_BALANCE)) { if( button_year.detect() >= 0 ) { report_year = button_year.button_pressed; sys.redraw_all_flag = 1; report_financial_recno=1; report_is_expanded = 0; } } #if(GAME_VERSION>=200) // detect export button if((report_type==REPORT_TYPE_REVENUE)||(report_type==REPORT_TYPE_BALANCE)||(report_type==REPORT_TYPE_DETAIL_REN)) { if( button_export.detect() ) { // ask file name now MouseDispCount mouseDispCount; // redisplay windows cursor char tempFilename[MAX_PATH]; tempFilename[0] = '\0'; // strcpy(tempFilename, "finance.txt"); // ask filename now OPENFILENAME openFileName; memset( &openFileName, 0, sizeof(openFileName) ); openFileName.lStructSize = sizeof(openFileName); openFileName.hwndOwner = sys.main_hwnd; openFileName.hInstance = sys.app_hinstance; // two '\0' at the end openFileName.lpstrFilter = "Text file(*.txt)\0*.txt\0All Files(*.*)\0*.*\0"; openFileName.lpstrCustomFilter = NULL; openFileName.nMaxCustFilter = 0; openFileName.nFilterIndex = 0; openFileName.lpstrFile = tempFilename; // first char is already NULL openFileName.nMaxFile = sizeof(tempFilename); openFileName.lpstrFileTitle = NULL; // result filename, without path openFileName.nMaxFileTitle = 0; openFileName.lpstrInitialDir = "."; // current directory openFileName.lpstrTitle = NULL; openFileName.Flags = OFN_OVERWRITEPROMPT | OFN_LONGNAMES | OFN_PATHMUSTEXIST | OFN_HIDEREADONLY; openFileName.nFileOffset = 0; openFileName.nFileExtension = 0; openFileName.lpstrDefExt = "txt"; openFileName.lCustData = NULL; openFileName.lpfnHook = NULL; openFileName.lpTemplateName = NULL; if( GetSaveFileName(&openFileName) ) { File exportFile; exportFile.file_create( tempFilename ); if( report_type==REPORT_TYPE_REVENUE) { switch(report_year) { case 1: export_fin_rep_case1( &exportFile ); break; case 2: export_fin_rep_case2( &exportFile ); break; case 3: export_fin_rep_case3( &exportFile ); break; case 0: // fall through default: export_fin_rep_case4( &exportFile ); } } else if(report_type==REPORT_TYPE_BALANCE) { // no matter which report_year, always print export_fin_rep_case8 export_fin_rep_case8( &exportFile ); } else if(report_type==REPORT_TYPE_DETAIL_REN) { export_fin_rep_case9( &exportFile ); } exportFile.file_close(); } } } #endif if( button_expand.detect() ) { report_type = REPORT_TYPE_DETAIL_REN; sys.redraw_all_flag = 1; report_financial_recno=1; // report_is_expanded = !report_is_expanded; // sys.redraw_all_flag = 1; // report_financial_recno=1; } } if(report_type==REPORT_TYPE_OPTIMIZATION) { if(finance.report_opt==REPORT_OPT_REVENUE) optimization.detect_stage_1(); if(finance.report_opt==REPORT_OPT_FUNCTION) optimization.detect_stage_2(); if(finance.report_opt==REPORT_OPT_FACULTY) optimization.detect_stage_3(); } else browse_financial.detect(); } //------- End of function Finance::report_detect -------// //------- Begin of function Finance::report_paint_button ------// void Finance::report_paint_button(int refreshFlag) { if( refreshFlag == INFO_REPAINT ) { //-------- paint type buttons ------------// int x=REPORT_X1+10, y=BUTTON_Y1-6; button_type[0].create_text( x, y, x+(int)(2.7*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Budget vs Actual" ); x+=(int)(2.7*BUTTON_WIDTH+15); button_type[1].create_text( x, y, x+(int)(1.2*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Balance sheet" ); x+=(int)(1.2*BUTTON_WIDTH+15); button_type[2].create_text( x, y, x+(int)(1.5*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Budget plan" ); x+=(int)(1.5*BUTTON_WIDTH+15); button_type[3].create_text( x, y, x+(int)(0.8*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Detail", 0 ); x=REPORT_X1+25, y=BUTTON_Y1+18; //---------show year buttons--------------------// if(report_type==REPORT_TYPE_OPTIMIZATION) { button_opt[0].create_text( x, y, x+(int)(2*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Revenue and expenditure" ); x+=(int)(2*BUTTON_WIDTH+20); button_opt[1].create_text( x, y, x+(int)(2*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Allocations"); x+=(int)(2*BUTTON_WIDTH+20); button_opt[2].create_text( x, y, x+(int)(2*BUTTON_WIDTH-1), y+BUTTON_HEIGHT-1, "Faculty hiring"); } if((report_type==REPORT_TYPE_REVENUE) ||(report_type==REPORT_TYPE_BALANCE)) { String s1; int tyear=(int)(info.game_year+(info.game_month-9.0)/12); s1="Standard"; button_year[0].create_text( x, y, x+BUTTON_WIDTH+40-1, y+BUTTON_HEIGHT-1, s1.str_buf ); #if(GAME_VERSION>=200) x+=BUTTON_WIDTH+65; #else x+=BUTTON_WIDTH+105; #endif s1="Year "; s1+=(m.format(tyear-1,4)); button_year[1].create_text( x, y, x+BUTTON_WIDTH-1, y+BUTTON_HEIGHT-1, s1.str_buf ); #if(GAME_VERSION>=200) x+=BUTTON_WIDTH+10; #else x+=BUTTON_WIDTH+70; #endif s1="Year "; s1+=(m.format(tyear,4)); button_year[2].create_text( x, y, x+BUTTON_WIDTH-1, y+BUTTON_HEIGHT-1, s1.str_buf ); #if(GAME_VERSION>=200) x+=BUTTON_WIDTH+10; #else x+=BUTTON_WIDTH+75; #endif s1="Year "; s1+=(m.format(tyear+1,4)); button_year[3].create_text( x, y, x+BUTTON_WIDTH-1, y+BUTTON_HEIGHT-1, s1.str_buf ); #if(GAME_VERSION>=200) x=REPORT_X2-BUTTON_WIDTH-25; button_export.create_text( x, y, x+BUTTON_WIDTH-1, y+BUTTON_HEIGHT-1, "Export" ); #endif } #if(GAME_VERSION>=200) if(report_type==REPORT_TYPE_DETAIL_REN) { x=REPORT_X2-BUTTON_WIDTH-25; button_export.create_text( x, y, x+BUTTON_WIDTH-1, y+BUTTON_HEIGHT-1, "Export" ); } #endif button_type.paint(report_type); if( report_type==REPORT_TYPE_BALANCE) { // for(int k=0;k<4;k++) // button_year[k].paint(); // button_year[report_year].disable(); button_year.paint(report_year); #if(GAME_VERSION>=200) button_export.paint(); #endif } else if(report_type==REPORT_TYPE_OPTIMIZATION) { if((report_opt<0)||(report_opt>3)) report_opt=REPORT_OPT_REVENUE; button_opt.paint(report_opt); } else if(report_type==REPORT_TYPE_REVENUE) { button_year.paint(report_year); #if(GAME_VERSION>=200) button_export.paint(); #endif } else if(report_type==REPORT_TYPE_DETAIL_REN) { #if(GAME_VERSION>=200) button_export.paint(); #endif } } } //------- End of function Finance::report_paint_button ------// //------ Begin of static function fin_rep_case1 --------// // Case 1: RENVENUE and PREVIOUS YEAR // recNo -- record no. (row no.) to be displayed // x,y -- left top position of the display region // static void fin_rep_case1(int recNo,int x, int y) { int i; // int xColumn1=x+305, xColumn2=440, xColumn3=510, xColumn4=590, xColumn5=680; int xColumn1=370, xColumn2=470, xColumn3=570, xColumn4=670, xColumn5=740; // Show title // if(recNo==1) { // change in verion 2 // int tyear=(int)(info.game_year+(info.game_month-9.0)/12); int tyear = info.financial_year(); if(sys.view_mode==MODE_YEAR_END_REPORT)tyear++; String str; str="Previous Year : Year "; str+=m.format(tyear-1,4); font_charts.put(xColumn1-70,y+2,str.str_buf); return; } recNo--; if(recNo==1) { font_chart_red_sm.disp( x, y, "Revenue", x+200 ); font_chart_red_sm.right_put( xColumn2, y+2, "Direct"); font_chart_red_sm.right_put( xColumn3, y+2, "Indirect"); font_chart_red_sm.right_put( xColumn4, y+2, "Total"); font_chart_red_sm.right_put( xColumn5, y+2, "% sources"); } else if((recNo>1) && (recNo<=REVENUE_ITEM_COUNT+1)) { i=recNo-2; if(recNo==5) { //font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); //font_chartsm.disp( xColumn2, y+2, finance.revenue_array[i].direct, 2, xColumn3); //font_chartsm.disp( xColumn3, y+2, finance.revenue_array[i].indirect, 2, xColumn4); //font_chartsm.disp( xColumn4, y+2, finance.revenue_array[i].total, 2, xColumn5 ); //font_chartsm.disp( xColumn5, y+2, finance.revenue_array[i].percent, 3, xColumn6 ); font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn2, y+2, m.format(finance.revenue_array[i].direct, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.revenue_array[i].indirect, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.revenue_array[i].total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.revenue_array[i].percent, 24)); } if((recNo==2)||(recNo==3)) { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); // font_chartsm.disp( xColumn4, y+2, finance.revenue_array[i].total, 2, xColumn5 ); font_chartsm.right_put( xColumn4, y+2, m.format(finance.revenue_array[i].total, 2)); } else { if( recNo==4 ) // use blue font for Net tuition income font_chart_blue_sm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); else font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn4, y+2, m.format(finance.revenue_array[i].total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.revenue_array[i].percent, 24)); } } else if(recNo==REVENUE_ITEM_COUNT+2) { font_chart_blue_sm.disp( x, y," Total sources of funds", xColumn1); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.total_revenue.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.total_revenue.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+3) { font_chart_red_sm.right_put( xColumn1, y+2, "AY faculty"); font_chart_red_sm.right_put( xColumn2, y+2, "Staff"); font_chart_red_sm.right_put( xColumn3, y+2, "Other"); } else if(recNo==REVENUE_ITEM_COUNT+4) { font_chart_red_sm.disp( x, y, "Expenditures", x+200 ); font_chart_red_sm.right_put( xColumn1, y+2, "compensation"); font_chart_red_sm.right_put( xColumn2, y+2, "compensation"); font_chart_red_sm.right_put( xColumn3, y+2, "expenditures"); font_chart_red_sm.right_put( xColumn4, y+2, "Total"); font_chart_red_sm.right_put( xColumn5, y+2, "% uses"); } else if((recNo>=REVENUE_ITEM_COUNT+5) && (recNo<REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3)) { i=recNo-5-REVENUE_ITEM_COUNT; if((recNo>=REVENUE_ITEM_COUNT+7) && (recNo<REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3)) { font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn2); font_chartsm.right_put( xColumn2, y+2, m.format(finance.expense_array[i].staff, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.expense_array[i].other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.expense_array[i].total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.expense_array[i].percent, 24)); } else { font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn1); font_chartsm.right_put( xColumn1, y+2, m.format(finance.expense_array[i].faculty, 2)); font_chartsm.right_put( xColumn2, y+2, m.format(finance.expense_array[i].staff, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.expense_array[i].other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.expense_array[i].total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.expense_array[i].percent, 24)); } } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3) { font_chart_blue_sm.disp( x, y," Total operating expenditures", xColumn1); font_chart_blue_sm.right_put( xColumn1, y+2, m.format(finance.total_operating_expense.faculty, 2)); font_chart_blue_sm.right_put( xColumn2, y+2, m.format(finance.total_operating_expense.staff, 2)); font_chart_blue_sm.right_put( xColumn3, y+2, m.format(finance.total_operating_expense.other, 2)); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.total_operating_expense.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.total_operating_expense.percent, 24)); } else if((recNo>REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3) && (recNo<=REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+5)) { i=recNo-6-REVENUE_ITEM_COUNT; font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn1); font_chartsm.right_put( xColumn3, y+2, m.format(finance.expense_array[i].other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.expense_array[i].total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.expense_array[i].percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+6) { font_chart_blue_sm.disp( x, y," Total uses of funds", xColumn1); font_chart_blue_sm.right_put( xColumn1, y+2, m.format(finance.total_expense.faculty, 2)); font_chart_blue_sm.right_put( xColumn2, y+2, m.format(finance.total_expense.staff, 2)); font_chart_blue_sm.right_put( xColumn3, y+2, m.format(finance.total_expense.other, 2)); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.total_expense.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.total_expense.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+7) { double percent1,percent2,percent3,percent4; percent1=100*finance.total_expense.faculty/finance.total_expense.total; percent2=100*finance.total_expense.staff/finance.total_expense.total; percent3=100*finance.total_expense.other/finance.total_expense.total; percent4=100; font_chartsm.disp( x, y, "\tPercent of total uses", xColumn1); font_chartsm.right_put( xColumn1, y+2, m.format(percent1, 24)); font_chartsm.right_put( xColumn2, y+2, m.format(percent2, 24)); font_chartsm.right_put( xColumn3, y+2, m.format(percent3, 24)); font_chartsm.right_put( xColumn4, y+2, m.format(percent4, 24)); // font_chartsm.disp( xColumn5, y+2, "% uses", xColumn6 ); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+8) { font_chartsm.disp( x, y," Surplus (deficit)", xColumn1); if(finance.last_year.surplus_deficit>=0) font_chart_green_sm.right_put( xColumn4, y+2, m.format(finance.last_year.surplus_deficit, 2) ); else font_chart_red_sm.right_put( xColumn4, y+2, m.format(finance.last_year.surplus_deficit, 2)); } } //------ End of static function fin_rep_case1 --------// #if(GAME_VERSION>=200) //------ Begin of static function export_fin_rep_case1 --------// // // write fin_rep_case1 to a text file // void export_fin_rep_case1( File *filePtr ) { // year no int tyear = info.financial_year(); WRITE_STR_FIELD(filePtr, "Previous Year : " ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, tyear-1); WRITE_RECORD_SEPARATOR(filePtr); // revenue label WRITE_STR_FIELD(filePtr, "Revenue"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field WRITE_STR_FIELD(filePtr, "Direct"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Indirect"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Total"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "% sources"); WRITE_RECORD_SEPARATOR(filePtr); // revenue for( int i = 0; i < REVENUE_ITEM_COUNT; ++i ) { WRITE_STR_FIELD(filePtr, game_str_res.financial_report_str(i)); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field // only AC_SPONSORED_RESEARCH_REVENUE display direct and indirect if( i == AC_SPONSORED_RESEARCH_REVENUE ) { WRITE_NUM_FIELD(filePtr, finance.revenue_array[i].direct); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.revenue_array[i].indirect); WRITE_FIELD_SEPARATOR(filePtr); } else { WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); } WRITE_NUM_FIELD(filePtr, finance.revenue_array[i].total); WRITE_FIELD_SEPARATOR(filePtr); // don't show % sources AC_GROSS_TUITION_INCOME,AC_FINANCIAL_AID if( i==AC_GROSS_TUITION_INCOME||i==AC_FINANCIAL_AID ) { // empty } else { WRITE_NUM_FIELD(filePtr, 0.01*finance.revenue_array[i].percent); } WRITE_RECORD_SEPARATOR(filePtr); } // total revenue WRITE_STR_FIELD(filePtr, " Total sources of funds"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field WRITE_FIELD_SEPARATOR(filePtr); // direct field WRITE_FIELD_SEPARATOR(filePtr); // indirect field WRITE_NUM_FIELD(filePtr, finance.total_revenue.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_revenue.percent); WRITE_RECORD_SEPARATOR(filePtr); // expenditure label WRITE_STR_FIELD(filePtr, "Expenditures"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "AY faculty compensation"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Staff compensation"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Other expenditures"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Total"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "% uses"); WRITE_RECORD_SEPARATOR(filePtr); // expenditure item for( i=0; i < EXPENSE_ITEM_COUNT; ++i ) { WRITE_STR_FIELD(filePtr, game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT)); WRITE_FIELD_SEPARATOR(filePtr); if( i==AC_ACADEMIC_DEPARTMENTS || i==AC_SPONSORED_RESEARCH_EXPENSE ) { WRITE_NUM_FIELD(filePtr, finance.expense_array[i].faculty); } WRITE_FIELD_SEPARATOR(filePtr); if( i < OPERATING_EXPENSE_ITEM_COUNT ) { WRITE_NUM_FIELD(filePtr, finance.expense_array[i].staff); } WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.expense_array[i].other); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.expense_array[i].total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.expense_array[i].percent); WRITE_RECORD_SEPARATOR(filePtr); // total operatring expenditure if( i==OPERATING_EXPENSE_ITEM_COUNT-1 ) { WRITE_STR_FIELD(filePtr, " Total operating expenditures"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_operating_expense.faculty); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_operating_expense.staff); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_operating_expense.other); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_operating_expense.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.total_operating_expense.percent); WRITE_RECORD_SEPARATOR(filePtr); } } // total use of fund WRITE_STR_FIELD(filePtr, " Total uses of funds" ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_expense.faculty ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_expense.staff); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_expense.other); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.total_expense.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.total_expense.percent); WRITE_RECORD_SEPARATOR(filePtr); // percentage of total uses double percent1,percent2,percent3,percent4; percent1=finance.total_expense.faculty/finance.total_expense.total; percent2=finance.total_expense.staff/finance.total_expense.total; percent3=finance.total_expense.other/finance.total_expense.total; percent4=1.0; WRITE_STR_FIELD(filePtr, " Percent of total uses" ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent1); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent2); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent3); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent4); WRITE_FIELD_SEPARATOR(filePtr); WRITE_RECORD_SEPARATOR(filePtr); // blank on % uses field // surplus WRITE_STR_FIELD(filePtr, " Surplus (deficit)"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // AY faculty compensation field WRITE_FIELD_SEPARATOR(filePtr); // staff compensation field WRITE_FIELD_SEPARATOR(filePtr); // other expenditure field WRITE_NUM_FIELD(filePtr, finance.last_year.surplus_deficit); WRITE_FIELD_SEPARATOR(filePtr); WRITE_RECORD_SEPARATOR(filePtr); // blank on % uses field } //------ End of static function export_fin_rep_case1 --------// #endif //------ Begin of static function fin_rep_case2 --------// // Case 2: RENVENUE and LAST YEAR // recNo -- record no. (row no.) to be displayed // x,y -- left top position of the display region // static void fin_rep_case2(int recNo,int x, int y) { int i; int xColumn1=370, xColumn2=470, xColumn3=570, xColumn4=670, xColumn5=740; // Show title // if(recNo==1) { // change in version 2 // int tyear=(int)(info.game_year+(info.game_month-9.0)/12); int tyear = info.financial_year(); String str; str="Present Year : Year "; // str+=m.format(tyear,16); //## chea 061199 2.5.1 str+=m.format(tyear,4); // str+="-"; // str+=m.format(tyear+1,16); //## chea 061199 2.5.1 font_charts.put(xColumn1-70,y+2,str.str_buf); return; } recNo--; if(recNo==1) { font_chart_red_sm.disp( x, y, "Revenue", x+200 ); font_chart_red_sm.right_put( xColumn2, y+2, "Direct"); font_chart_red_sm.right_put( xColumn3, y+2, "Indirect"); font_chart_red_sm.right_put( xColumn4, y+2, "Total"); font_chart_red_sm.right_put( xColumn5, y+2, "% sources"); } else if((recNo>1) && (recNo<=REVENUE_ITEM_COUNT+1)) { i=recNo-2; if(recNo==5) { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn2, y+2, m.format(finance.projected_revenue_array[i].this_year.direct, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_revenue_array[i].this_year.indirect, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_revenue_array[i].this_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_revenue_array[i].this_year.percent, 24)); } if((recNo==2)||(recNo==3)) { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_revenue_array[i].this_year.total, 2)); } else { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_revenue_array[i].this_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_revenue_array[i].this_year.percent, 24)); } } else if(recNo==REVENUE_ITEM_COUNT+2) { font_chart_blue_sm.disp( x, y," Total sources of funds", xColumn1); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.projected_total_revenue.this_year.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.projected_total_revenue.this_year.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+3) { font_chart_red_sm.right_put( xColumn1, y+2, "AY faculty"); font_chart_red_sm.right_put( xColumn2, y+2, "Staff"); font_chart_red_sm.right_put( xColumn3, y+2, "Other"); } else if(recNo==REVENUE_ITEM_COUNT+4) { font_chart_red_sm.disp( x, y, "Expenditures", x+200 ); font_chart_red_sm.right_put( xColumn1, y+2, "compensation"); font_chart_red_sm.right_put( xColumn2, y+2, "compensation"); font_chart_red_sm.right_put( xColumn3, y+2, "expenditures"); font_chart_red_sm.right_put( xColumn4, y+2, "Total"); font_chart_red_sm.right_put( xColumn5, y+2, "% uses"); } else if((recNo>=REVENUE_ITEM_COUNT+5) && (recNo<REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3)) { i=recNo-5-REVENUE_ITEM_COUNT; if((recNo>=REVENUE_ITEM_COUNT+7) && (recNo<REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3)) { font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn2); font_chartsm.right_put( xColumn2, y+2, m.format(finance.projected_expense_array[i].this_year.staff, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_expense_array[i].this_year.other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_expense_array[i].this_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_expense_array[i].this_year.percent, 24)); } else { font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn2); font_chartsm.right_put( xColumn1, y+2, m.format(finance.projected_expense_array[i].this_year.faculty, 2)); font_chartsm.right_put( xColumn2, y+2, m.format(finance.projected_expense_array[i].this_year.staff, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_expense_array[i].this_year.other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_expense_array[i].this_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_expense_array[i].this_year.percent, 24)); } } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3) { font_chart_blue_sm.disp( x, y," Total operating expenditures", xColumn1); font_chart_blue_sm.right_put( xColumn1, y+2, m.format(finance.projected_total_operating_expense.this_year.faculty, 2)); font_chart_blue_sm.right_put( xColumn2, y+2, m.format(finance.projected_total_operating_expense.this_year.staff, 2)); font_chart_blue_sm.right_put( xColumn3, y+2, m.format(finance.projected_total_operating_expense.this_year.other, 2)); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.projected_total_operating_expense.this_year.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.projected_total_operating_expense.this_year.percent, 24)); } else if((recNo>REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3) && (recNo<=REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+5)) { i=recNo-6-REVENUE_ITEM_COUNT; font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn2); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_expense_array[i].this_year.other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_expense_array[i].this_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_expense_array[i].this_year.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+6) { font_chart_blue_sm.disp( x, y," Total uses of funds", xColumn1); font_chart_blue_sm.right_put( xColumn1, y+2, m.format(finance.projected_total_expense.this_year.faculty, 2)); font_chart_blue_sm.right_put( xColumn2, y+2, m.format(finance.projected_total_expense.this_year.staff, 2)); font_chart_blue_sm.right_put( xColumn3, y+2, m.format(finance.projected_total_expense.this_year.other, 2)); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.projected_total_expense.this_year.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.projected_total_expense.this_year.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+7) { double percent1,percent2,percent3,percent4; // fix in version 2 //percent1=100*finance.total_expense.faculty/finance.total_expense.total; //percent2=100*finance.total_expense.staff/finance.total_expense.total; //percent3=100*finance.total_expense.other/finance.total_expense.total; percent1=100*finance.projected_total_expense.this_year.faculty/finance.projected_total_expense.this_year.total; percent2=100*finance.projected_total_expense.this_year.staff/finance.projected_total_expense.this_year.total; percent3=100*finance.projected_total_expense.this_year.other/finance.projected_total_expense.this_year.total; percent4=100; font_chartsm.disp( x, y, "\tPercent of total uses", xColumn1); font_chartsm.right_put( xColumn1, y+2, m.format(percent1, 24)); font_chartsm.right_put( xColumn2, y+2, m.format(percent2, 24)); font_chartsm.right_put( xColumn3, y+2, m.format(percent3, 24)); font_chartsm.right_put( xColumn4, y+2, m.format(percent4, 24)); // font_chartsm.disp( xColumn5, y+2, "% uses", xColumn6 ); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+8) { font_chartsm.disp( x, y," Surplus (deficit)", xColumn1); if(finance.this_year.surplus_deficit>0) font_chart_green_sm.right_put( xColumn4, y+2, m.format(finance.this_year.surplus_deficit, 2)); else font_chart_red_sm.right_put( xColumn4, y+2, m.format(finance.this_year.surplus_deficit, 2)); } } //------ End of static function fin_rep_case2 --------// #if(GAME_VERSION>=200) //------ Begin of static function export_fin_rep_case2 --------// // // write fin_rep_case2 to a text file // void export_fin_rep_case2( File *filePtr ) { // year no int tyear = info.financial_year(); WRITE_STR_FIELD(filePtr, "Present Year : " ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, tyear); WRITE_RECORD_SEPARATOR(filePtr); // revenue label WRITE_STR_FIELD(filePtr, "Revenue"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field WRITE_STR_FIELD(filePtr, "Direct"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Indirect"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Total"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "% sources"); WRITE_RECORD_SEPARATOR(filePtr); // revenue for( int i = 0; i < REVENUE_ITEM_COUNT; ++i ) { WRITE_STR_FIELD(filePtr, game_str_res.financial_report_str(i)); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field // only AC_SPONSORED_RESEARCH_REVENUE display direct and indirect if( i == AC_SPONSORED_RESEARCH_REVENUE ) { WRITE_NUM_FIELD(filePtr, finance.projected_revenue_array[i].this_year.direct); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_revenue_array[i].this_year.indirect); WRITE_FIELD_SEPARATOR(filePtr); } else { WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); } WRITE_NUM_FIELD(filePtr, finance.projected_revenue_array[i].this_year.total); WRITE_FIELD_SEPARATOR(filePtr); // don't show % sources AC_GROSS_TUITION_INCOME,AC_FINANCIAL_AID if( i==AC_GROSS_TUITION_INCOME||i==AC_FINANCIAL_AID ) { // empty } else { WRITE_NUM_FIELD(filePtr, 0.01*finance.projected_revenue_array[i].this_year.percent); } WRITE_RECORD_SEPARATOR(filePtr); } // total revenue WRITE_STR_FIELD(filePtr, " Total sources of funds"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field WRITE_FIELD_SEPARATOR(filePtr); // direct field WRITE_FIELD_SEPARATOR(filePtr); // indirect field WRITE_NUM_FIELD(filePtr, finance.projected_total_revenue.this_year.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.projected_total_revenue.this_year.percent); WRITE_RECORD_SEPARATOR(filePtr); // expenditure label WRITE_STR_FIELD(filePtr, "Expenditures"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "AY faculty compensation"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Staff compensation"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Other expenditures"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Total"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "% uses"); WRITE_RECORD_SEPARATOR(filePtr); // expenditure item for( i=0; i < EXPENSE_ITEM_COUNT; ++i ) { WRITE_STR_FIELD(filePtr, game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT)); WRITE_FIELD_SEPARATOR(filePtr); if( i==AC_ACADEMIC_DEPARTMENTS || i==AC_SPONSORED_RESEARCH_EXPENSE ) { WRITE_NUM_FIELD(filePtr, finance.projected_expense_array[i].this_year.faculty); } WRITE_FIELD_SEPARATOR(filePtr); if( i < OPERATING_EXPENSE_ITEM_COUNT ) { WRITE_NUM_FIELD(filePtr, finance.projected_expense_array[i].this_year.staff); } WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_expense_array[i].this_year.other); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_expense_array[i].this_year.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.projected_expense_array[i].this_year.percent); WRITE_RECORD_SEPARATOR(filePtr); if( i==OPERATING_EXPENSE_ITEM_COUNT-1 ) { // total operatring expenditure WRITE_STR_FIELD(filePtr, " Total operating expenditures"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_operating_expense.this_year.faculty); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_operating_expense.this_year.staff); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_operating_expense.this_year.other); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_operating_expense.this_year.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.projected_total_operating_expense.this_year.percent); WRITE_RECORD_SEPARATOR(filePtr); } } // total use of fund WRITE_STR_FIELD(filePtr, " Total uses of funds" ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_expense.this_year.faculty ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_expense.this_year.staff); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_expense.this_year.other); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_total_expense.this_year.total); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, 0.01*finance.projected_total_expense.this_year.percent); WRITE_RECORD_SEPARATOR(filePtr); // percentage of total uses double percent1,percent2,percent3,percent4; percent1=finance.projected_total_expense.this_year.faculty/finance.projected_total_expense.this_year.total; percent2=finance.projected_total_expense.this_year.staff/finance.projected_total_expense.this_year.total; percent3=finance.projected_total_expense.this_year.other/finance.projected_total_expense.this_year.total; percent4=1.0; WRITE_STR_FIELD(filePtr, " Percent of total uses" ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent1); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent2); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent3); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, percent4); WRITE_FIELD_SEPARATOR(filePtr); WRITE_RECORD_SEPARATOR(filePtr); // blank on % uses field // surplus WRITE_STR_FIELD(filePtr, " Surplus (deficit)"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // AY faculty compensation field WRITE_FIELD_SEPARATOR(filePtr); // staff compensation field WRITE_FIELD_SEPARATOR(filePtr); // other expenditure field WRITE_NUM_FIELD(filePtr, finance.this_year.surplus_deficit); WRITE_FIELD_SEPARATOR(filePtr); WRITE_RECORD_SEPARATOR(filePtr); // blank on % uses field } //------ End of static function export_fin_rep_case2 --------// #endif //------ Begin of static function fin_rep_case3 --------// // Case 3: RENVENUE and NEXT YEAR // recNo -- record no. (row no.) to be displayed // x,y -- left top position of the display region // static void fin_rep_case3(int recNo,int x, int y) { int i; // int xColumn1=x+305, xColumn2=440, xColumn3=510, xColumn4=590, xColumn5=680; int xColumn1=370, xColumn2=470, xColumn3=570, xColumn4=670, xColumn5=740; // Show title // if(recNo==1) { // fix in version 2 // int tyear=(int)(info.game_year+(info.game_month-9.0)/12); int tyear=info.financial_year(); String str; str="Next Year : Year "; // str+=m.format(tyear+1,16); //## chea 061199 2.5.1 str+=m.format(tyear+1,4); // str+="-"; // str+=m.format(tyear+2,16); //## chea 061199 2.5.1 font_charts.put(xColumn1-70,y+2,str.str_buf); return; } recNo--; if(recNo==1) { font_chart_red_sm.disp( x, y, "Revenue", x+200 ); font_chart_red_sm.right_put( xColumn2, y+2, "Direct"); font_chart_red_sm.right_put( xColumn3, y+2, "Indirect"); font_chart_red_sm.right_put( xColumn4, y+2, "Total"); font_chart_red_sm.right_put( xColumn5, y+2, "% sources"); } else if((recNo>1) && (recNo<=REVENUE_ITEM_COUNT+1)) { i=recNo-2; if(recNo==5) { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn1); font_chartsm.right_put( xColumn2, y+2, m.format(finance.projected_revenue_array[i].next_year.direct, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_revenue_array[i].next_year.indirect, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_revenue_array[i].next_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_revenue_array[i].next_year.percent, 24)); } if((recNo==2)||(recNo==3)) { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_revenue_array[i].next_year.total, 2)); } else { font_chartsm.disp( x, y, game_str_res.financial_report_str(i), xColumn2); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_revenue_array[i].next_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_revenue_array[i].next_year.percent, 24)); } } else if(recNo==REVENUE_ITEM_COUNT+2) { font_chart_blue_sm.disp( x, y," Total sources of funds", xColumn1); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.projected_total_revenue.next_year.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.projected_total_revenue.next_year.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+3) { font_chart_red_sm.right_put( xColumn1, y+2, "AY faculty"); font_chart_red_sm.right_put( xColumn2, y+2, "Staff"); font_chart_red_sm.right_put( xColumn3, y+2, "Other"); } else if(recNo==REVENUE_ITEM_COUNT+4) { font_chart_red_sm.disp( x, y, "Expenditures", x+200 ); font_chart_red_sm.right_put( xColumn1, y+2, "compensation"); font_chart_red_sm.right_put( xColumn2, y+2, "compensation"); font_chart_red_sm.right_put( xColumn3, y+2, "expenditures"); font_chart_red_sm.right_put( xColumn4, y+2, "Total"); font_chart_red_sm.right_put( xColumn5, y+2, "% uses"); } else if((recNo>=REVENUE_ITEM_COUNT+5) && (recNo<REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3)) { i=recNo-5-REVENUE_ITEM_COUNT; if((recNo>=REVENUE_ITEM_COUNT+7) && (recNo<REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3)) { font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn1); font_chartsm.right_put( xColumn2, y+2, m.format(finance.projected_expense_array[i].next_year.staff, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_expense_array[i].next_year.other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_expense_array[i].next_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_expense_array[i].next_year.percent, 24)); } else { font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn1); font_chartsm.right_put( xColumn1, y+2, m.format(finance.projected_expense_array[i].next_year.faculty, 2)); font_chartsm.right_put( xColumn2, y+2, m.format(finance.projected_expense_array[i].next_year.staff, 2)); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_expense_array[i].next_year.other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_expense_array[i].next_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_expense_array[i].next_year.percent, 24)); } } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3) { font_chart_blue_sm.disp( x, y," Total operating expenditures", xColumn1); font_chart_blue_sm.right_put( xColumn1, y+2, m.format(finance.projected_total_operating_expense.next_year.faculty, 2)); font_chart_blue_sm.right_put( xColumn2, y+2, m.format(finance.projected_total_operating_expense.next_year.staff, 2)); font_chart_blue_sm.right_put( xColumn3, y+2, m.format(finance.projected_total_operating_expense.next_year.other, 2)); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.projected_total_operating_expense.next_year.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.projected_total_operating_expense.next_year.percent, 24)); } else if((recNo>REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+3) && (recNo<=REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+5)) { i=recNo-6-REVENUE_ITEM_COUNT; font_chartsm.disp( x, y,game_str_res.financial_report_str(i+REVENUE_ITEM_COUNT),xColumn1); font_chartsm.right_put( xColumn3, y+2, m.format(finance.projected_expense_array[i].next_year.other, 2)); font_chartsm.right_put( xColumn4, y+2, m.format(finance.projected_expense_array[i].next_year.total, 2)); font_chartsm.right_put( xColumn5, y+2, m.format(finance.projected_expense_array[i].next_year.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+6) { font_chart_blue_sm.disp( x, y," Total uses of funds", xColumn1); font_chart_blue_sm.right_put( xColumn1, y+2, m.format(finance.projected_total_expense.next_year.faculty, 2)); font_chart_blue_sm.right_put( xColumn2, y+2, m.format(finance.projected_total_expense.next_year.staff, 2)); font_chart_blue_sm.right_put( xColumn3, y+2, m.format(finance.projected_total_expense.next_year.other, 2)); font_chart_blue_sm.right_put( xColumn4, y+2, m.format(finance.projected_total_expense.next_year.total, 2)); font_chart_blue_sm.right_put( xColumn5, y+2, m.format(finance.projected_total_expense.next_year.percent, 24)); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+7) { double percent1,percent2,percent3,percent4; // fix in version 2 //percent1=100*finance.total_expense.faculty/finance.total_expense.total; //percent2=100*finance.total_expense.staff/finance.total_expense.total; //percent3=100*finance.total_expense.other/finance.total_expense.total; percent1=100*finance.projected_total_expense.next_year.faculty/finance.projected_total_expense.next_year.total; percent2=100*finance.projected_total_expense.next_year.staff/finance.projected_total_expense.next_year.total; percent3=100*finance.projected_total_expense.next_year.other/finance.projected_total_expense.next_year.total; percent4=100; font_chartsm.disp( x, y, "\tPercent of total uses", xColumn1); font_chartsm.right_put( xColumn1, y+2, m.format(percent1, 24)); font_chartsm.right_put( xColumn2, y+2, m.format(percent2, 24)); font_chartsm.right_put( xColumn3, y+2, m.format(percent3, 24)); font_chartsm.right_put( xColumn4, y+2, m.format(percent4, 24)); // font_chartsm.disp( xColumn5, y+2, "% uses", xColumn6 ); } else if(recNo==REVENUE_ITEM_COUNT+EXPENSE_ITEM_COUNT+8) { font_chartsm.disp( x, y," Surplus (deficit)", xColumn1); if(finance.next_year.surplus_deficit>0) font_chart_green_sm.right_put( xColumn4, y+2, m.format(finance.next_year.surplus_deficit, 2)); else font_chart_red_sm.right_put( xColumn4, y+2, m.format(finance.next_year.surplus_deficit, 2) ); } } //------ End of static function fin_rep_case3 --------// #if(GAME_VERSION>=200) //------ Begin of static function export_fin_rep_case3 --------// // // write fin_rep_case3 to a text file // void export_fin_rep_case3( File *filePtr ) { // year no int tyear = info.financial_year(); WRITE_STR_FIELD(filePtr, "Next Year : " ); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, tyear+1); WRITE_RECORD_SEPARATOR(filePtr); // revenue label WRITE_STR_FIELD(filePtr, "Revenue"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field WRITE_STR_FIELD(filePtr, "Direct"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Indirect"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "Total"); WRITE_FIELD_SEPARATOR(filePtr); WRITE_STR_FIELD(filePtr, "% sources"); WRITE_RECORD_SEPARATOR(filePtr); // revenue for( int i = 0; i < REVENUE_ITEM_COUNT; ++i ) { WRITE_STR_FIELD(filePtr, game_str_res.financial_report_str(i)); WRITE_FIELD_SEPARATOR(filePtr); WRITE_FIELD_SEPARATOR(filePtr); // blank field // only AC_SPONSORED_RESEARCH_REVENUE display direct and indirect if( i == AC_SPONSORED_RESEARCH_REVENUE ) { WRITE_NUM_FIELD(filePtr, finance.projected_revenue_array[i].next_year.direct); WRITE_FIELD_SEPARATOR(filePtr); WRITE_NUM_FIELD(filePtr, finance.projected_revenue_array[i].next_year.indirect); WRITE_FIELD_SEPARATOR(filePtr); }