home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / CENIKN.WWW < prev    next >
Text File  |  2000-03-16  |  2KB  |  69 lines
  1. {$$3220259209 .                              }Template: cenik_m.htw
  2. ErrorTemplate: cenik_er.htw
  3.  
  4. BeginProgram: www_cenik
  5.  dealcena("%?jmeno%","%?heslo%");
  6. EndProgram;
  7.  
  8. GetVariable: wdcena:=dcena
  9. GetVariable: jmeno:=w_jmeno
  10. GetVariable: heslo:=w_heslo
  11.  
  12. BeginProgram: www_find_10
  13.  find_novinky(%wbegin%);
  14. EndProgram;
  15.  
  16. GetVariable: wcelkem:= wwcelkem
  17. GetVariable: wbegin:= wwbegin
  18. GetVariable: wvyber:= wwvyber
  19. GetVariable: wnext:= wwnext
  20. GetVariable: wskup:= wwskup
  21.  
  22.  
  23. SQLStatement: Polozky [%wbegin%+%wnext%]
  24. + SELECT cenik.id_cenik,cenik.nazev_zbozi,cenik.anotace,%wdcena% as cenam, cenik.min_cena, cenik.jednotka, Trunc(s_dph.procento) as proc,money2str(%wdcena%,1) AS cm,
  25. + ((Round((%wdcena%*(1.0+s_dph.procento/100.0))/S_TAB_ROUND.koef))*S_TAB_ROUND.koef)  as cenamp,cenik.novinka, cenik.sleva,s_zbozi_sk.kod_skupiny,cenik.poradi, cenik.kod_zbozi, 
  26. +       cenik.htwtxt, cenik.htwobr, cenik.skryto, cenik.slevaproc, cenik.skladem
  27. + FROM S_zbozi_sk , Cenik, S_DPH , SYS_PAR , S_TAB_ROUND
  28. + WHERE  (s_dph.id_dph=cenik.dph) AND (s_dph.uc_rok=year(today)) AND SYS_PAR.ROUND_IMP=S_TAB_ROUND.ID_ROUND AND
  29. +       (s_zbozi_sk.ID_SKUPINY=cenik.SKUPINA_ZBOZI)  AND ( cenik.novinka=TRUE)  AND (NOT ( cenik.skryto=TRUE))
  30. + GROUP BY Cenik.id_cenik
  31. + ORDER BY  s_zbozi_sk.kod_skupiny, cenik.poradi, cenik.kod_zbozi
  32.  
  33.  
  34. SQLStatement: Koeficient
  35. #ifexists 
  36. + SELECT s_deal_sk.mn_rab
  37. + FROM s_deal_sk, obchodni_partneri 
  38. + WHERE (s_deal_sk.deal_id=obchodni_partneri.deal_sk) AND
  39. +       (obchodni_partneri.intr_user="%jmeno%" AND obchodni_partneri.intr_pswd="%heslo%") 
  40. #then
  41. + SELECT s_deal_sk.cena_proc AS koef, s_deal_sk.mn_rab AS W_rabat, DEAL_SKUPINA 
  42. + FROM s_deal_sk, obchodni_partneri 
  43. + WHERE (s_deal_sk.deal_id=obchodni_partneri.deal_sk) AND
  44. +       (obchodni_partneri.intr_user="%jmeno%" AND obchodni_partneri.intr_pswd="%heslo%") 
  45. #else 
  46. + SELECT s_deal_sk.cena_proc AS koef, s_deal_sk.mn_rab AS W_rabat, DEAL_SKUPINA 
  47. + FROM s_deal_sk, default_hodnoty
  48. + WHERE s_deal_sk.deal_id=default_hodnoty.deal_sk
  49. #endif
  50.  
  51. SQLStatement: kody_skupiny
  52. +SELECT S_zbozi_sk.kod_skupiny 
  53. +FROM S_zbozi_sk
  54.  
  55.  
  56. BeginProgram: W_Copy_vars
  57.     W_sleva_var:="%?W_sleva%";
  58.     W_novinka_var:="%?W_novinka%";
  59. EndProgram;
  60. GetVariable: W_sleva_htw:=W_sleva_var
  61. GetVariable: W_novinka_htw:=W_novinka_var
  62.  
  63. SQLStatement: platnost
  64. + SELECT PLATNOST_CEN_OD, PLATNOST_CEN_DO FROM Sys_par
  65.  
  66.  
  67.  
  68.  
  69.