home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / ZRUS_OBJOK.WWW < prev    next >
Text File  |  2000-03-16  |  886b  |  29 lines
  1. {$$3220259227 .                              }Template: plocha_topdel.htw
  2. ErrorTemplate: err.htw
  3.  
  4.  
  5. BeginProgram: www_cenik
  6.  dealcena("%?jmeno%","%?heslo%");
  7. EndProgram;
  8.  
  9. GetVariable: wdcena:=dcena
  10. GetVariable: jmeno:=w_jmeno
  11. GetVariable: heslo:=w_heslo
  12.  
  13.  
  14. SQLStatement: top_zbozi [0+10] 
  15. + SELECT Cenik.id_cenik,Cenik.PORADITOP, Cenik.anotace, Cenik.kod_zbozi, Cenik.htwtxt, Cenik.htwobr,  Cenik.nazev_zbozi, cenik.jednotka, Cenik.pozn, cenik.novinka, cenik.sleva, cenik.skladem,
  16. + %wdcena% as cenam, ((Trunc((%wdcena%*(1.0+s_dph.procento/100.0))/S_TAB_ROUND.koef))*S_TAB_ROUND.koef)  as cenamp
  17. + FROM   CENIK, S_DPH , SYS_PAR , S_TAB_ROUND
  18. + WHERE  Cenik.top=TRUE  AND SYS_PAR.ROUND_IMP=S_TAB_ROUND.ID_ROUND 
  19. + AND (s_dph.id_dph=cenik.dph) AND (s_dph.uc_rok=year(today)) 
  20. + ORDER BY Cenik.PORADITOP
  21.  
  22.  
  23. BeginProgram: 
  24.  W_smaz_obj(%objednavka%);
  25. EndProgram;
  26.  
  27.  
  28.  
  29.