/* Solution to R3 C/C++ Competition
	Northwestern State University

*/
#include "stdafx.h"
#include <iostream.h>
#include <fstream.h>

#include <process.h>
//#include <math.h>

ifstream inData("arfile0.txt", ios::in);
ofstream outFile("report2.txt", ios::out);

const int recLength = 70,
	  MAX = 10000,
     MAXLINE = 57;		//lines per page of printout

int pageNo = 1,			//current page number
	 lineCt = 0;         //current count of lines processed this page

char t1, m1, m2, d1, d2, y1, y2;		//global 30 day run date
long Tpay=0, Tcredit=0, Tdebit=0, Tchg=0;	//global totals

// File access error checking.
// Exits the program if there is a file error.
void error_ck()
{
	if(!inData)
	{
		cerr << "File could not be opened.\n";
		exit(1);
	}

	if(!outFile)
	{
		cerr << "File could not be opened.\n";
		exit(1);
	}
}

void newPage()
{
 	//uses lineCt to count lines this page, pageNo for the page number
   //called every time there is an output line
   lineCt++;
   if(lineCt >= MAXLINE)
   {
    	pageNo++;
      outFile << "\f\nPage " << pageNo << "     Source Transactions for the Accounting Totals \n\n";
      lineCt = 0;
   }
}

// Returns the integer value of one character from the array.
int one_digit(char digit)
{
	int num = 0;

	if(digit=='1') num = 1;
	if(digit=='2') num = 2;
	if(digit=='3') num = 3;
	if(digit=='4') num = 4;
	if(digit=='5') num = 5;
	if(digit=='6') num = 6;
	if(digit=='7') num = 7;
	if(digit=='8') num = 8;
	if(digit=='9') num = 9;

	return(num);
}

// Converts the character age to its numerical value
long char_to_int(char recs[MAX][recLength], int record, int begin, int end)
{
	long i,
		digit = 0,
		num = 0;

	for(i = begin; i <= end; i++)  // steps through each character
	{
		digit = one_digit(recs[record][i]);
		num = (num * 10) + digit;
	}
	return(num);
}


// Initializes the array to spaces.
void init(char recs[MAX][recLength])
{
	int i, j;
	for(j = 0; j < MAX; j++)
	{
		for(i = 0; i < recLength; i++)
			recs[j][i] = ' ';
	}

}

// Reads the data file into one large character array
// omits the .'s in the data file
//adds a space after the account number - array position 6
int read_file(char recs[MAX][recLength])
{
	int i=0,
		j=0,
      addOne,
		count = 1;
	char ch;

	ifstream inDate("date.c", ios::in);
	m1 = inDate.get();
	m2 = inDate.get();
	d1 = inDate.get();
	d2 = inDate.get();
	y1 = inDate.get();
	y2 = inDate.get();
	inDate.close();

	while((ch = inData.get()) != EOF)
	{
		if(ch != '\n')
		{
			if( (j<recLength) && (i < MAX) && (ch != '.') )	//omit the decimal point
			{
				recs[i][j] = ch;
				j++;
			}
		}
		if(ch == '\n')
		{
			
			j=0;
		    addOne = 0;

			if( 	(recs[i][7]== '1') ||
         		(recs[i][7]== '2') ||
               (recs[i][7]== '3') ||
               (recs[i][7]== '4') )		//get the payments, debits, credits
				if( 	(recs[i][44] == m1) &&
   	      		(recs[i][45] == m2) &&
      	         (recs[i][48] == y1) &&
         	      (recs[i][49] == y2) )	//if it matches the run date
				{	
				
				i++;
				count +=1;		//increment only if valid date
      			addOne = 1;		//show that this record was OK and should be in the array
	         }
		}	//end of if(ch=='\n')
	}	//end of while loop

   if(addOne==0) count = count-1;	//the last one does not satisfy the criteria
	
   return(count);
}

// Prints out the complete array
void print_array(char recs[MAX][recLength], int count)
{
	int i=0, j;
	for(j = 0; j < count; j++)
	{

		if(recs[j][0] != ' ')	//don't print lines with a leading blank
		{
			for(i = 0; i < recLength; i++)
         	outFile << recs[j][i];

			outFile << "\n";
		    newPage();
		}
	}
}

// Swaps 2 array positions
void swap(char recs[MAX][recLength], int record)
{
	char hold[recLength]= {" "};
	int i;

	for(i=0; i < recLength; i++)  // Steps through and swaps each character
	{
		hold[i] = recs[record + 1][i];
		recs[record + 1][i] = recs[record][i];
		recs[record][i] = hold[i];
	}
}

// Sorts the array according to the given array positions.
void sort(char recs[MAX][recLength], int count, int begin, int end)
{
	int i, j, k;

	for(i = end; i >= begin; i--)        // steps through array positions
	{
		for(k = 0; k < count-1; k++)     // passes
		{
			for(j = 0; j < count-1; j++) // one pass
			{
				if(recs[j][i] > recs[j+1][i]) // compares character
				{
					swap(recs, j);	// Sends to swap function if necessary
				}
			}
		}
	}
}

// Mark duplicate records.
void mark_dups(char recs[MAX][recLength], int count, int begin, int end)
{
	int i, j, dup;

	for(j = 0; j < count; j++)        // steps through array rows
	{
		dup = 1;  //assume is a dup and prove it is not
		for(i = begin; i <= end; i++) // check the key
		{
       //	if( ( i< 8 )||( i> 15 ) )	//skip over the date created
			if(recs[j][i] != recs[j+1][i]) // compares character
				dup = 0;
		}
		if(dup==1)  recs[j+1][0] = '-';
	}
}

void printAmt(long bucks)
{
 	long thou, hundreds, dollars, cents;

   dollars = bucks/100;
   thou = dollars / 1000;
   hundreds = dollars % 1000;
   cents = bucks % 100;

   if(thou >= 100)
   	outFile << thou << ",";
   else if(thou >=10)
           outFile << " " <<thou << ",";
	     else if(thou > 0)
   				outFile << "  " << thou << "," ;
        		else outFile << "    ";


   if(hundreds >= 100)
   	outFile << hundreds;
   else
	   if( (hundreds >= 10) )
   		outFile << "0" <<hundreds;
      else
	   	if(hundreds < 10)
   			outFile << "00" <<hundreds;
         else
         	if((hundreds = 0) && (thou > 0) )
		   		outFile << "000";
            else
            	outFile << "   ";

   outFile << ".";
   if( (cents > 9) )
   	outFile << cents;
   else
   	if( (cents < 10) && (cents > 0) )
	   	outFile << "0" << cents;
      else outFile << "00";
}

int subTotal(char ag1, char ag2, char type, char coverage, char recs[MAX][recLength], int count, int begin, int end)
{	//ag1 and ag2 designate the agency, type is payment, credit, or debit, coverage is Medicare (etc)
	int i,
   	entries = 0,			//number posting entries per posting date
		age;
   long total = 0,    		//total for this agency
   	  postTotal = 0;		//total for this posting date
	double avg;
   char holdDate[6];

   for(i = 0; i < 6; i++)
   	holdDate[i] = '0';		//initialize the posting date for the control break

	for(i = 0; i < count; i++)
   {
   	if( (recs[i][0]==ag1) && (recs[i][1]==ag2)
      	&& (recs[i][7]==type) && (recs[i][8]==coverage) )
      {
         if( (holdDate[0] == recs[i][9]) && (holdDate[1] == recs[i][10]) &&
         	 (holdDate[2] == recs[i][11]) && (holdDate[3] == recs[i][12]) )
         {	//same posting date
         	postTotal += char_to_int(recs, i, begin, end);
            entries++;
         }
         else		//change of date
         {  //print the total, zero the postTotal, store the new date, add this total to the postTotal
            if(entries > 0)
            {	outFile << "       Posting Date " << holdDate[0]<<holdDate[1] <<holdDate[2]
	            	<<holdDate[3]<<holdDate[4]<<holdDate[5]<< " Total ";
               printAmt(postTotal);
               outFile << "      (entries = "<< entries << ")\n";
               newPage();
            }
   	         holdDate[0] = recs[i][9];
      	      holdDate[1] = recs[i][10];
         		holdDate[2] = recs[i][11];
            	holdDate[3] = recs[i][12];
               holdDate[4] = recs[i][13];
            	holdDate[5] = recs[i][14];
	            postTotal = char_to_int(recs, i, begin, end);
   	         entries = 1;
         }
		 	total += char_to_int(recs, i, begin, end); // Sends to conversion function
      }
   }

   if(entries > 0)		//do the last date
   {
   	  outFile << "       Posting Date " << holdDate[0]<<holdDate[1] <<holdDate[2]
	            	<<holdDate[3]<<holdDate[4]<<holdDate[5]<< " Total ";
      printAmt(postTotal);
      newPage();
   }
	return(total);
}

void doCoverage(char ag1, char ag2, char coverage, char recs[MAX][recLength], int recCount)
{

   char 	type;	//payment, credit, or debit
   long 	total, partTotal;

   outFile << "    PAYMENTS \n";
   newPage();
   partTotal = 0;
   total = 0;
   type = '1';
   partTotal = subTotal(ag1, ag2, type, coverage, recs, recCount, 53, 59);
   outFile << "                 Total Payments: " ;
   printAmt(partTotal);
   Tpay += partTotal;

   outFile << "\n\n";
   newPage();
   newPage();

   outFile << "    CREDITS \n";
   newPage();
   partTotal = 0;
   total = 0;
   type = '2';
   partTotal = subTotal(ag1, ag2, type, coverage, recs, recCount, 53, 59);
   outFile << "                  Total Credits: ";
   printAmt(partTotal);
   Tcredit += partTotal;
   outFile << "\n\n";
   newPage();  newPage();

   outFile << "    DEBITS \n";
   newPage();
   partTotal = 0;
   total = 0;
   type = '4';
   partTotal = subTotal(ag1, ag2, type, coverage, recs, recCount, 53, 59);
   outFile << "                   Total Debits: ";
   printAmt(partTotal);
   Tdebit += partTotal;
   outFile << "\n\n";
   newPage();  newPage();
}

void doAgency(char ag1, char ag2, char recs[MAX][recLength], int recCount)
{
	outFile << "\n   Service Type A   Agency " << ag1 << ag2;
	outFile << "         Run date of " << m1 << m2 << d1 << d2 << y1 << y2<<"\n";
	newPage();  newPage();
	doCoverage(ag1, ag2, 'A', recs, recCount);

  	outFile << "\n   Service Type B   Agency " << ag1 << ag2;
    outFile << "         Run date of " << m1 << m2 << d1 << d2 << y1 << y2<<"\n";
    newPage();  newPage();
 	doCoverage(ag1, ag2, 'B', recs, recCount);

	outFile << "\n   Service Type W   Agency " << ag1 << ag2;
    outFile << "         Run date of " << m1 << m2 << d1 << d2 << y1 << y2<<"\n";
    newPage();  newPage();
 	doCoverage(ag1, ag2, 'W', recs, recCount);

	outFile << "\n   Service Type P   Agency " << ag1 << ag2;
    outFile << "         Run date of " << m1 << m2 << d1 << d2 << y1 << y2<<"\n";
    newPage();  newPage();
 	doCoverage(ag1, ag2, 'P', recs, recCount);
}

int main()
{
	char recs[MAX][recLength];
    char 	ag1, ag2,
   		type,	//payment, credit, or debit
   		coverage;	//type of service
	int recCount;
	long total, partTotal,
   		dTotal, cTotal;	//in cents
    double fTotal;		//the total with a decimal point

    outFile << "\f\nPage " << pageNo << "  Source Transactions for the Accounting Totals \n";

	error_ck();
	init(recs);
	recCount = read_file(recs);  // Read the data into an array and return
									 // the record count.

//	outFile << "           Original arrayn\n";
//	print_array(recs, recCount);

	//these are array positions starting at 0, NOT column designations
	sort(recs, recCount, 9, 14); 	// Sort by posting date
  	sort(recs, recCount, 7, 8);   // Sort by transaction type (payment, credit or debit) and service
    sort(recs, recCount, 2, 5);   // Sort by account number
	sort(recs, recCount, 0, 1);   // Sort by agency

	mark_dups(recs, recCount, 1, 81);	//ignore the 0th position,
   													// it may be the '-' for a duplicate

	outFile << "\n\n Sorted array with " << recCount << " records\n\n";
//	print_array(recs, recCount);

    ag1 = '0';	//agency
    ag2 = '1';
    doAgency(ag1, ag2, recs, recCount);

    lineCt = MAXLINE;  newPage();		//force a new page for the agency
    ag1 = '0';	//agency
    ag2 = '2';
    doAgency(ag1, ag2, recs, recCount);
/*
   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '0';	//agency
   ag2 = '8';
   doAgency(ag1, ag2, recs, recCount);

	lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '1';	//agency
   ag2 = '9';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '3';	//agency
   ag2 = '2';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '3';	//agency
   ag2 = '3';
   doAgency(ag1, ag2, recs, recCount);

	lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '3';	//agency
   ag2 = '4';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '5';	//agency
   ag2 = '2';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '5';	//agency
   ag2 = '3';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '5';	//agency
   ag2 = '9';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '7';	//agency
   ag2 = '1';
   doAgency(ag1, ag2, recs, recCount);

   lineCt = MAXLINE;  newPage();		//force a new page for the agency
   ag1 = '7';	//agency
   ag2 = '5';
   doAgency(ag1, ag2, recs, recCount);
*/

	outFile << "\n  Company wide Total of Payments ";
	printAmt(Tpay);
	outFile << "\n  Company wide Total of Credits  ";
	printAmt(Tcredit);
	outFile << "\n  Company wide Total of Debits   ";
	printAmt(Tdebit);
	inData.close();
	outFile.close();

	return(0);
}