home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / personal / gitarid.zip / SRC1 < prev    next >
Text File  |  1993-03-24  |  13KB  |  550 lines
  1.  
  2. #include "isam.h"
  3. #include "winboss.h"                    /* windows header file */
  4. #include "tools.cfg"
  5. #include <stdio.h>
  6. #include <stdlib.h>
  7. #include <conio.h>
  8.  
  9. char   *enlarge_buf (
  10.                      char    *buf,
  11.                      int    len);
  12. void   printrec (
  13.                      char    **fields,
  14.                      FILE    *output,char type );
  15. int    datecmp (
  16.         char *,
  17.         char *);
  18. void   cnvtdate (
  19.         char *,
  20.         struct dt *);
  21.  
  22.  
  23. struct dt {
  24.         int    mo;
  25.         int    dy;
  26.         int    yr;
  27.         };
  28.  
  29. static struct db {            /* record layout */
  30.   char    date[10];            /* date string */
  31.   int       month,day,year;         /* date numerics */
  32.   char    date1[10];            /* time string */
  33.   int       mnth1,day1,yr1;         /* time numerics */
  34.   char    invent[3];             /* inventory report */
  35.   char    purch[3];                /* purchases report */
  36.   char    sales[3];                /* sales report */
  37.   char    all[3];                /* all years */
  38.   char    current[3];            /* current year */
  39.   char    out_file[10];            /* file name if file */
  40.   char    age[6];             /* prior year for prior year report */
  41.   int    old;                /* age numeric */
  42. } rec;
  43.  
  44.  
  45.  
  46. WINDOWPTR wn;                /* window pointer */
  47. WIFORM    frm;                /* form pointer */
  48. char      lmonth[5];
  49. long      total;
  50. int       lines;
  51. char      type_sort;    /* sort types */
  52. int       patrib, uatrib;
  53.  
  54.  
  55. void  print_heading(FILE *,char);
  56. void  print_invent(void);
  57. void  print_db ( Db_Obj     *db,  Index_Obj  *index);
  58.  
  59.  
  60. void print_func (ch)
  61. int ch;
  62. {
  63. char   * emsg1,*emsg2,*emsg3;        /* error msg ptr */
  64. char     fchar;                /* fill character */
  65.  
  66.    switch (ch)
  67.       {
  68.       case 1:
  69.          rec.invent [0] = 'x';
  70.          break;
  71.  
  72.       case 2:
  73.          rec.purch [0] = 'x';
  74.          break;
  75.  
  76.       case 3:
  77.          rec.sales [0] = 'x';
  78.          break;
  79.  
  80.       case 4:
  81.          rec.current [0] = 'x';
  82.          break;
  83.  
  84.       case 5:
  85.          rec.all [0] = 'x';
  86.          break;
  87.  
  88.       case 99:
  89.          return;
  90.          break;
  91.  
  92.       }
  93.    
  94.    wn = wn_open(0,5,10,45,13, patrib, uatrib);
  95.    if(!(wn))
  96.       {                /* errors ?? */
  97.       printf("wn_open failed!!\n");       /* tell of woe... */
  98.       return;                /* and die */
  99.       }
  100.  
  101.  
  102.    wn_title(wn," Inventory Print Options ");
  103.  
  104.   frm = wn_frmopn (4);
  105.   if(!frm) {                /* errors ?? */
  106.     printf("wn_frmopn failed!!\n");     /* tell of woe... */
  107.     return;
  108.   }
  109.  
  110.  
  111.   emsg1 = "Invalid date, press any key to continue...";
  112.   emsg2 = "Invalid time, press any key to continue...";
  113.   emsg3 = "Prior year must be between 1900 and 2050...";
  114.  
  115.   fchar = '_';
  116.   wn_gdate (SET,frm,0, wn,4,1, "Period Beginning Date: ",patrib,fchar,&rec.month,&rec.day,&rec.year,rec.date,NSTR,emsg1);
  117.   wn_gdate (SET,frm,1, wn,5,1, "Period Ending Date:    ",patrib,fchar,&rec.mnth1,&rec.day1,&rec.yr1, rec.date1,NSTR,emsg1);
  118.   wn_gtext (SET,frm,2, wn,7,1, "Output file name: ",patrib,fchar,8,rec.out_file,NSTR,NSTR);
  119.  
  120.   if(!wn_frmget(frm)) {         /* get (read) form */
  121.     v_cls(7);                /* die if errors !! */
  122.     v_locate(0,0,0);
  123.     printf("Memory Corruption Error!\n");
  124.     return;
  125.   }
  126.  
  127.   wn_clr(wn);
  128.   wn_close(wn);             /* close window */
  129.   print_invent();
  130.  
  131.   wn_printf(wn,"\nPress any key to continue..");
  132.   v_getch();
  133.  
  134.   wn_frmcls(frm);            /* close for */
  135.   wn_close(wn);             /* close window */
  136.  
  137.   return;             
  138.  
  139. }
  140.  
  141. /*********************      print_invent      ********************/
  142.  
  143. void  print_invent(void)
  144.  
  145. {
  146.     int    c;
  147.     Db_Obj    *db;
  148.     Index_Obj *index;
  149.     FILE    *output;
  150.    WINDOWPTR wn;               /* window pointer */
  151.    int pagecnt = 1;
  152.    int linecnt = 0;
  153.  
  154.    wn = wn_open(0,5,10,45,13,patrib, uatrib);
  155.    wn_printf(wn,"Outfile is: %s\n", rec.out_file);
  156.     db = iopen_db ("\\gun\\db\\INVENT");
  157.     if (db == NULL)
  158.       {
  159.         iprterr ();
  160.       iclose_db (db);
  161.         return;
  162.       }
  163.  
  164.     index = ihandle (db, "PURCH");
  165.     if (index == NULL)
  166.       {
  167.         iprterr ();
  168.       iclose_db (db);
  169.         return;
  170.       }
  171.  
  172.     for (;;)
  173.       {
  174.       wn_printf (wn,"\r\nMake sure your Printer is online");
  175.        wn_printf (wn,"\r\nPress Return to print to Printer:");
  176.        wn_printf (wn,"\r\nSpace to print to stdout:");
  177.       wn_printf (wn,"\r\nEsc to exit:");
  178.       c = getch ();
  179.       if (c == 0x1b)
  180.          {
  181.          iclose_db (db);
  182. //       wn_close(wn);             /* close window */
  183.             return;
  184.          }
  185.       else if (c == '\r' || c == '\n')
  186.          {
  187.          if ((output = fopen ("prn", "a")) == NULL)
  188.             {
  189.             wn_printf (wn,"\r\nCan't open printer device\n");
  190.             iclose_db (db);
  191.                 return;
  192.             }
  193.  
  194.          wn_printf (wn,"\r\n\r\nPrinting");
  195.             break;
  196.          }
  197.       else if ((c == ' ') && (rec.out_file [0] != ' '))
  198.          {
  199.          if ((output = fopen(rec.out_file, "w+")) == NULL)
  200.             {
  201.             wn_printf(wn,"\r\nCan't open %s.prn",rec.out_file);
  202.             iclose_db (db);
  203.             return;
  204.             }
  205.  
  206.          wn_printf (wn,"\r\nPRINTING to file %s",rec.out_file);
  207.          break;
  208.          }
  209.       }
  210.  
  211.    print_db(db, output);
  212.  
  213.    iclose_db (db);
  214.  
  215.    fprintf (output, "\f");
  216.    fclose (output);
  217.     return;
  218. } 
  219.  
  220. /******************************************************************************
  221.    print_db - print database in index order
  222.  
  223.    Returns no value, but prints to output file
  224. ******************************************************************************/
  225.  
  226.  
  227.  
  228.  
  229. void   print_db (db, output)
  230. Db_Obj   *db;      /* print this database */
  231. FILE   *output;   /* to this output file */
  232. {
  233.    int   status;    /* status from isam functions */
  234.    char   **fields;   /* points to fields in record */
  235.    int   nfields;   /* number of fields per record */
  236.    int   buflen;    /* length of record buffer */
  237.    char   *buf;      /* record buffer */
  238.    char   *newbuf;   /* points to larger record buffer */
  239.    Rec_Len reclen;    /* length of record */
  240.    Index_Obj *index;   /* in order of this index */
  241.    int   use_sd, use_ed, pastend, datesub;        /* counter */
  242.    char    sdate[10];
  243.    char    edate[10];
  244.    char *key[2];
  245.    int linecnt = 0;
  246.    char    rdate[9];
  247.  
  248.    lmonth[0] = '\0';
  249.    nfields = igetfldcount (db);
  250.    fields = (char **) malloc (
  251.       (nfields + 1 /* for NULL */) * sizeof (char *));
  252.    if (fields == NULL) {
  253.       cprintf ("Can't allocate memory\n");
  254.       return;
  255.    }
  256.  
  257.    buflen = 0;
  258.    buf = NULL;
  259.  
  260.  
  261.    type_sort = ' ';
  262.  
  263.    if(rec.invent[0] > ' ')
  264.       {
  265.       index = ihandle (db, "dateIDX");
  266.       if (index == NULL)
  267.          {
  268.          iprterr ();
  269.          return;
  270.          }
  271.  
  272.       datesub = 7;
  273.       type_sort = 'I';
  274.       }
  275.  
  276.    if (rec.purch[0] > ' ')
  277.       {
  278.       index = ihandle (db, "dateIDX");
  279.       if (index == NULL)
  280.          {
  281.          iprterr ();
  282.          return;
  283.          }
  284.  
  285.       datesub = 7;
  286.       type_sort = 'P';
  287.       }
  288.  
  289.    if(rec.sales[0] > ' ')
  290.       {
  291.       index = ihandle (db, "sdateIDX");
  292.       if (index == NULL)
  293.          {
  294.          iprterr ();
  295.          return;
  296.          }
  297.  
  298.       datesub = 11;
  299.       type_sort = 'S';
  300.       }
  301.  
  302.    if(rec.current[0] > ' ')
  303.       {
  304.       index = ihandle (db, "dateIDX");
  305.       if (index == NULL)
  306.          {
  307.          iprterr ();
  308.          return;
  309.          }
  310.  
  311.       datesub = 7;
  312.       type_sort = 'C';
  313.       }
  314.  
  315.    if (rec.all[0] > ' ')
  316.       {
  317.       index = ihandle (db, "makrIDX");
  318.       if (index == NULL)
  319.          {
  320.          iprterr ();
  321.          return;
  322.          }
  323.  
  324.       datesub = 7;
  325.       type_sort = 'M';
  326.       }
  327.  
  328.    if (type_sort == ' ')
  329.       return;
  330.    else
  331.       print_heading(output,type_sort);
  332.  
  333.    if (type_sort != 'M' && rec.month && rec.day && rec.year)
  334.       {
  335.       sprintf(sdate, "%.02d/%.02d/%.02d", rec.year, rec.month, rec.day);
  336.       wn_printf(wn,"\r\n\r\nBegin date: %s", sdate);
  337.       key[0] = sdate;
  338.       key[1] = "";
  339.       ifindkey(db, index, key);
  340.       }
  341.    else
  342.       ifindhead(db, index);
  343.  
  344.    if (type_sort == 'M' && rec.month && rec.day && rec.year)
  345.       {
  346.       sprintf(sdate, "%.02d/%.02d/%.02d", rec.year, rec.month, rec.day);
  347.       use_sd = TRUE;
  348.       }
  349.    else
  350.       use_sd = FALSE;
  351.  
  352.    if (rec.mnth1 && rec.day1 && rec.yr1)
  353.       {
  354.       use_ed = TRUE;
  355.       sprintf(edate, "%.02d/%.02d/%.02d", rec.yr1, rec.mnth1, rec.day1);
  356.       wn_printf(wn,"\r\nEnd date:   %s\n", edate);
  357.       }
  358.  
  359.    else use_ed = FALSE;
  360.  
  361.  
  362.    buflen = 0;
  363.    buf = NULL;
  364.  
  365.    for (status = OK,pastend = FALSE; status == OK && !pastend; status = ifindnext (db, index))
  366.       {
  367.       if (igetreclen (db, index, &reclen) == OK)
  368.          {
  369.          if (reclen > buflen)
  370.             {
  371.             newbuf = enlarge_buf (buf, reclen);
  372.             if (newbuf == NULL)
  373.                continue;
  374.  
  375.             buf = newbuf;
  376.             buflen = reclen;
  377.             }
  378.          }
  379.       else
  380.          {
  381.          iprterr ();
  382.          return;
  383.          }
  384.  
  385.       if (igetrec(db,index,fields,buf,buflen) == OK)   /* exists */
  386.          {
  387.          if (use_sd)
  388.             if (strcmp(sdate, fields[datesub]) > 0)
  389.                continue;
  390.             
  391.          if (use_ed)
  392.             if (strcmp(edate, fields[datesub]) < 0)
  393.                {
  394.                if (type_sort != 'M')
  395.                   pastend = TRUE;
  396.                continue;
  397.                }
  398.  
  399.          // reverse the date from the database
  400.          if (fields[11][0] == '\0')
  401.             rdate [0] = '\0';
  402.          else
  403.             {
  404.             rdate[0] = fields[11][6];
  405.             rdate[1] = fields[11][7];
  406.             rdate[2] = fields[11][2];
  407.             rdate[3] = fields[11][3];
  408.             rdate[4] = fields[11][4];
  409.             rdate[5] = fields[11][5];
  410.             rdate[6] = fields[11][0];
  411.             rdate[7] = fields[11][1];
  412.             rdate[8] = 0;
  413.             }
  414.  
  415.          // print inventory only if sales date does not exist or is after 
  416.          // the ending date
  417.          if (rec.invent[0] != 'x')
  418.             printrec (fields, output, type_sort);
  419.          else if ((rdate[0] == 0) || (strcmp (edate, rdate) < 0))
  420.             printrec (fields, output, type_sort);
  421.  
  422.          } /* if get */
  423.       else
  424.          {
  425.          iprterr();
  426.          return;
  427.          }
  428.       }  /* end for each record in db -- for(status... */
  429.    
  430.    return;
  431.    
  432. } /* print_db */
  433.  
  434.  
  435. /*
  436.    enlarge_buf - realloc buffer to new size len
  437.  
  438.    Returns pointer to bigger buffer, or NULL if out of memory
  439. */
  440.  
  441. char   *enlarge_buf (buf, len)
  442. char   *buf;      /* enlarge this buffer */
  443. int   len;      /* to this size */
  444. {
  445.    if (buf == NULL)
  446.       buf = malloc (len);
  447.    else
  448.       buf = realloc (buf, len);
  449.  
  450.    if (buf == NULL) {
  451.       cprintf ("Can't allocate record buffer\n");
  452.       return (NULL);
  453.    }
  454.    return (buf);
  455. } /* enlarge_buf */
  456. /*
  457.    printrec - print record to output file
  458.  
  459.    Returns no value, but prints to output file
  460. */
  461.  
  462. void   printrec (fields, output,type)
  463. char   **fields;      /* record to print */
  464. FILE   *output;      /* to this output file */
  465. char type;
  466. {
  467.  
  468.    lines++;
  469.    if (lines > 50)
  470.       {
  471.       fprintf (output, "\f");
  472.       print_heading(output,type_sort);
  473.       lines = 1;
  474.       }
  475.       
  476.  
  477. if(lmonth[0] == '\0'&& type == 'C'){
  478.     memcpy(lmonth,fields[7],5);
  479.     total = 0l;
  480.    }
  481.  
  482.  if(lmonth[0] &&  type == 'C'){
  483.   if(memcmp(fields[7],lmonth,5))
  484.     {
  485.     fprintf(output,"       ----------------------------------------------------------------------------------------------------\n");
  486.     fprintf(output,"       TOTAL FOR %.5s %*c %8ld\n\n",lmonth,58,' ',total);
  487.     memcpy(lmonth,fields[7],5);
  488.     total =atol(fields[9]);
  489.      }
  490.    else
  491.     total +=atol(fields[9]);
  492.    }
  493.  fprintf(output,"  %*c%-5.5s    %-10.10s    %-20.20s    %-4.4s    %-8.8s    %-8.8s    %-7.7s    %-15.15s\n",
  494.      5,' ',
  495.       fields[0], 
  496.       fields[1], 
  497.       fields[2], 
  498.       fields[3], 
  499.       fields[4], 
  500.       fields[7], 
  501.       fields[9], 
  502.       fields[11]);
  503.    return;
  504. } /* printrec */
  505.  
  506. /* end prlabels.c */
  507.  
  508.  
  509.  
  510. void print_heading(outfile,h_type)
  511.  FILE        *outfile;
  512.  char        h_type;
  513.  {
  514.   char report_title[25];
  515.   switch(h_type){
  516.    case 'I':
  517.      strcpy(report_title,"    INVENTORY  ");
  518.      break;
  519.    case 'P':
  520.      strcpy(report_title,"    PURCHASES  ");
  521.      break;
  522.    case 'S':
  523.      strcpy(report_title,"    SALES  ");
  524.      break;
  525.     case 'C':
  526.      strcpy(report_title,"   MONTHLY SUMMARY ");
  527.      break;
  528.     case 'M':
  529.      strcpy(report_title,"    MANUFACTURER  ");
  530.      break;
  531.    default:
  532.      strcpy(report_title,"      ");
  533.      break;
  534.     }
  535. fprintf(outfile,"%c",0x0f);           /* compressed print*/
  536. fprintf(outfile,"\n%*c Period Beginning Date: %02d/%02d/%02d %*c\n",
  537.           5,' ',rec.month,rec.day,rec.year,100,' ');
  538. fprintf(outfile,"%*c Period Ending Date   : %02d/%02d/%02d \n",
  539.           5,' ',rec.mnth1,rec.day1,rec.yr1);
  540.  
  541.  
  542. // fprintf(outfile,"$FORM SPSLND;\n");   /*    landscape     */
  543.  fprintf(outfile,"%c",0x0f);           /* compressed print*/
  544.  fprintf(outfile,"\n%*c%c%c%c%s%c%c%c\n\n\n",
  545.           40,' ', 0x0e,0x1b,0x45,report_title,0x1b,0x46,0x14);
  546.  fprintf(outfile,"  %*c%-5.5s    %-10.10s    %-20.20s    %-4.4s    %-8.8s    %-8.8s    %-7.7s    %-15.15s\n",
  547.           5,' ',  "STK #", "MAKER","MODEL", "YEAR", "SERIAL #", "PUR DATE", "COST", "DATE","SALES PR");
  548.  fprintf(outfile,"\n\n");
  549.  }
  550.