home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DBFLOCA.IPS < prev    next >
Text File  |  1998-01-18  |  716b  |  21 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.       ConsoleClear;
  8.       DbfLocate("(CENA/100*(100+DPH))<1000");
  9.       WHILE not DbfEof                {dokud nenφ konec databßze}
  10.          WRITE(DbfReadNum("CENA"):8:2);   {vypφÜe p∙vodnφ cenu}
  11.          WRITE(" --->");
  12.          DbfWriteNum("CENA",DbfReadNum("CENA")*1.1);
  13.          {zv²Üenφ ceny o 10 %}
  14.          WRITELN(DbfReadNum("CENA"):8:2); {vypφÜe novou cenu}
  15.          DbfContinue;            {hledßnφ dalÜφho zßznamu}
  16.       ENDWHILE
  17.    ELSE
  18.       WRITELN('Nelze, databßze nebyla nalezena')
  19.    ENDIF
  20. ENDPROC
  21.