home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / orhmet / df1 / rlibc / sprzedaz.c < prev    next >
C/C++ Source or Header  |  1995-09-24  |  3KB  |  172 lines
  1. #include "rlibc.h"
  2. #include <string.h>
  3.  
  4. int DFStartTran ( void )
  5. {
  6.     int wynik;
  7.     char * bufor="  ";
  8.  
  9.     wynik=podaj_rozkaz("P1");
  10.     if (wynik!=I1)
  11.         return (wynik);
  12.     if (recvport(2, bufor)==-1)
  13.         return (R0);
  14.     return (mk_translate(bufor));
  15. }
  16.  
  17.  
  18.  
  19. int DFAdd ( char *nazwa, char *indeks, char *ilosc, char *cena, char *rabat )
  20. {
  21.     int wynik;
  22.     char * bufor="                                                             ";
  23.     char *bufor1="  ";
  24.  
  25.     if (strlen(nazwa)!=18 || strlen(indeks)!=1 ||
  26.             strlen(ilosc)!=9 || strlen(cena)!=9 || strlen(rabat)!=3)
  27.         return (R4);
  28.     memcpy( bufor, nazwa, 18 );
  29.     bufor[18] = indeks[0];
  30.     memcpy( &bufor[19], cena, 9 );
  31.     memcpy( &bufor[28], ilosc, 9 );
  32.     memcpy( &bufor[37], rabat, 3 );
  33.     bufor[40] = 0;
  34.     wynik=podaj_rozkaz("P2");
  35.     if (wynik!=I1)
  36.     {
  37.         return (wynik);
  38.     }
  39.     if (sendport(40, bufor)==-1)
  40.     {
  41.         return (R0);
  42.     }
  43.     if (recvport(2, bufor1)==-1)
  44.         return (R0);
  45.     return (mk_translate(bufor1));
  46. }
  47.  
  48.  
  49.  
  50. int DFCancel ( void )
  51. {
  52.     int wynik;
  53.     char * bufor="  ";
  54.  
  55.     wynik=podaj_rozkaz("P4");
  56.     if (wynik!=I1)
  57.         return (wynik);
  58.     if (recvport(2, bufor)==-1)
  59.         return (R0);
  60.     return (mk_translate(bufor));
  61. }
  62.  
  63.  
  64. int DFCancelTran ( void )
  65. {
  66.     int wynik;
  67.     char * bufor="  ";
  68.  
  69.     wynik=podaj_rozkaz("L4");
  70.     if (wynik!=I1)
  71.         return (wynik);
  72.     if (recvport(2, bufor)==-1)
  73.         return (R0);
  74.     return (mk_translate(bufor));
  75. }
  76.  
  77.  
  78.  
  79. int DFCross ( char *nazwa )
  80. {
  81.     int wynik;
  82.     char * bufor="  ";
  83.  
  84.     if (strlen(nazwa)!=18)
  85.         return (R4);
  86.     wynik=podaj_rozkaz("P6");
  87.     if (wynik!=I1)
  88.         return (wynik);
  89.     if (sendport(18, nazwa)==-1)
  90.         return (R0);
  91.     if (recvport(2, bufor)==-1)
  92.         return (R0);
  93.     return (mk_translate(bufor));
  94. }
  95.  
  96.  
  97.  
  98. int DFFinish ( char *suma )
  99. {
  100.     int wynik;
  101.     char * bufor="  ";
  102.  
  103.     wynik=podaj_rozkaz("PA");
  104.     if (wynik!=I1)
  105.         return (wynik);
  106.     if (recvport(2, bufor)==-1)
  107.         return (R0);
  108.     wynik=mk_translate(bufor);
  109.     if (wynik==D1)
  110.     {
  111.         if (recvport(10, suma)==-1)
  112.             wynik=R0;
  113.         suma[10]=0;
  114.         wynik=mk_translate(bufor);
  115.     }
  116.     return (wynik);
  117. }
  118.  
  119. int DFPrParf ( char *forma, char *kwotag, char *kwotar )
  120. {
  121.     int wynik;
  122.     char * bufor="                     ";
  123.     char * bufor1="  ";
  124.  
  125.     if ( strlen(forma)!=1 || strlen(kwotag)!=9 || strlen(kwotar)!=9 )
  126.         return (R4);
  127.     memcpy(bufor, forma, 1 );
  128.     memcpy(&bufor[1], kwotag, 9 );
  129.     memcpy(&bufor[10], kwotar, 9 );    
  130.     wynik=podaj_rozkaz("P3");
  131.     if (wynik!=I1)
  132.         return (wynik);
  133.     if (sendport(19, bufor)==-1)
  134.         return (R0);
  135.     while (1)
  136.         if (recvport(2,bufor1)==-1)
  137.         {
  138.             if (mk_kbhit())
  139.                 return (R1);
  140.         }
  141.         else
  142.             return (mk_translate(bufor1));
  143. }
  144.  
  145. int DFPrPokw ( char *forma, char *kwota )
  146. {
  147.     int wynik;
  148.     char * bufor="                     ";
  149.     char * bufor1="  ";
  150.  
  151.     if ( strlen(forma)!=1 || strlen(kwota)!=9 )
  152.         return (R4);
  153.     memcpy(bufor, forma, 1 );
  154.     memcpy(&bufor[1], kwota, 9 );
  155.     wynik=podaj_rozkaz("D1");
  156.     if (wynik!=I1)
  157.         return (wynik);
  158.     if (sendport(10, bufor)==-1)
  159.         return (R0);
  160.     while (1)
  161.         if (recvport(2,bufor1)==-1)
  162.         {
  163.             if (mk_kbhit())
  164.                 return (R1);
  165.         }
  166.         else
  167.             return (mk_translate(bufor1));
  168. }
  169.  
  170.  
  171.  
  172.