Category : C Source Code
Archive   : CDBDEV.ZIP
Filename : POSTTIME.C

 
Output of file : POSTTIME.C contained in archive : CDBDEV.ZIP
/* ------------------- posttime.c ---------------------- */

#include
#include "keys.h"
#include "cdata.h"
#include "cbs.c1"

char *sc;
char *malloc();
int fl[] = {CLIENTS, CONSULTANTS, PROJECTS, ASSIGNMENTS, -1};
int els [] = {CONSULTANT_NO, CONSULTANT_NAME,
PROJECT_NO, PROJECT_NAME, HOURS, EXPENSE, 0};
struct clients cl;
struct consultants cs;
struct projects pr;
struct assignments as;

main()
{
int term = '\0';
int edcons(), edproj();
long atol();
long exp, rt, time_chg;
int hrs;

db_open("", fl);
sc = malloc(epos(0, els));
clrrcd(sc, els);
init_screen("Time & Expenses", els, sc);
edit(CONSULTANT_NO, edcons); /* consultant number */
protect(CONSULTANT_NAME, TRUE); /* consultant name */
edit(PROJECT_NO, edproj); /* project number */
protect(PROJECT_NAME, TRUE); /* project name */
while (term != ESC) {
term = data_entry();
switch (term) {
/* ----------- GO --------------- */
case F1:
hrs = atoi(sc + epos(HOURS, els));

exp = atol(sc + epos(EXPENSE, els));
rt = atol(as.rate);
time_chg = rt * hrs;
clrrcd(sc, els);
sprintf(cl.amt_due, "%8ld",
atol(cl.amt_due)+time_chg+exp);
rtn_rcd(CLIENTS, &cl);
sprintf(pr.amt_expended, "%9ld",
atol(pr.amt_expended)+time_chg+exp);
rtn_rcd(PROJECTS, &pr);
break;
case ESC:
if (spaces(sc))
break;
clrrcd(sc, els);
term = '\0';
break;
default:
break;
}
}
clear_screen();
free(sc);
db_cls();
}

/* -------- consultant number ---------- */
edcons(s)
char *s;
{
if (find_rcd(CONSULTANTS, 1, s, &cs) == ERROR) {
dberror();
return ERROR;
}
rcd_fill(&cs, sc, file_ele[CONSULTANTS], els);
put_field(CONSULTANT_NAME);
return OK;
}



/* -------- project number ---------- */
edproj(s)
char *s;
{
char consproj [11];

if (find_rcd(PROJECTS, 1, s, &pr) == ERROR) {
dberror();
return ERROR;
}
rcd_fill(&pr, sc, file_ele[PROJECTS], els);
put_field(PROJECT_NAME);
strcpy(consproj, cs.consultant_no);
strcat(consproj, pr.project_no);
if (find_rcd(ASSIGNMENTS, 1, consproj, &as) == ERROR) {
error_message("Consultant not assigned to project");
return ERROR;
}
find_rcd(CLIENTS, 1, pr.client_no, &cl);
return OK;
}



  3 Responses to “Category : C Source Code
Archive   : CDBDEV.ZIP
Filename : POSTTIME.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/