home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DBFFILTR.IPS < prev    next >
Encoding:
Text File  |  1998-01-18  |  890 b   |  23 lines
  1. PROCEDURE main
  2.    DbfForm(0,0,600,350);
  3.    DbfShow;
  4.    ConsoleForm(390,15,250,400);
  5.    ConsoleShow; ConsoleClear;
  6.    IF DbfUse("CENIK") then            {pokud se otev°ela databßze}
  7.       DbfSetFilter("(CENA/100*(100+DPH))<1000");
  8.       {nastavit filtr pokud cena s danφ menÜφ ne₧ 1000 KΦ}
  9.       DbfGoTop                        {skok na zaΦßtek databßze}
  10.       WHILE not DbfEof                {dokud nenφ konec databßze}
  11.          WRITE(DbfReadNum("CENA"):8:2);   {vypφÜe p∙vodnφ cenu}
  12.          WRITE(" --->");
  13.          DbfWriteNum("CENA",DbfReadNum("CENA")*1.1);
  14.          {zv²Üenφ ceny o 10 %}
  15.          WRITELN(DbfReadNum("CENA"):8:2); {vypφÜe novou cenu}
  16.          DbfSkip(1);                  {skok na dalÜφ zßznam}
  17.       ENDWHILE
  18.       DbfSetFilter("");               {zruÜit nastaven² filtr}
  19.    ELSE
  20.       WRITELN('Nelze, databßze nebyla nalezena')
  21.    ENDIF
  22. ENDPROC
  23.