home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / CENIKS.WWW < prev    next >
Text File  |  2000-03-16  |  2KB  |  66 lines
  1. {$$3220259150 .                              }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_slevy(%wbegin%);
  14. EndProgram;
  15.  
  16. GetVariable: wcelkem:= wwcelkem
  17. GetVariable: wbegin:= wwbegin
  18. GetVariable: wvyber:= wwvyber
  19. GetVariable: W_nazev:=Ww_nazev
  20. GetVariable: wnext:= wwnext
  21. GetVariable: wskup:= wwskup
  22.  
  23.  
  24. SQLStatement: Polozky [%wbegin%+%wnext%]
  25. + SELECT cenik.id_cenik,cenik.nazev_zbozi,cenik.anotace,%wdcena% as cenam, cenik.min_cena, cenik.anotace, cenik.jednotka, Trunc(s_dph.procento) as proc,money2str(%wdcena%,1) AS cm,
  26. + ((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, 
  27. +       cenik.htwtxt, cenik.htwobr, cenik.skryto , cenik.slevaproc, cenik.skladem
  28. + FROM S_zbozi_sk,  Cenik, S_DPH  , SYS_PAR , S_TAB_ROUND
  29. + 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
  30. +       (s_zbozi_sk.ID_SKUPINY=cenik.SKUPINA_ZBOZI) AND ( cenik.sleva=TRUE) AND (NOT ( cenik.skryto=TRUE))
  31. + GROUP BY Cenik.id_cenik
  32. + ORDER BY  s_zbozi_sk.kod_skupiny, cenik.poradi, cenik.kod_zbozi
  33.  
  34.  
  35. SQLStatement: Koeficient
  36. #ifexists 
  37. + SELECT s_deal_sk.mn_rab 
  38. + FROM s_deal_sk, obchodni_partneri 
  39. + WHERE (s_deal_sk.deal_id=obchodni_partneri.deal_sk) AND
  40. +       (obchodni_partneri.intr_user="%jmeno%" AND obchodni_partneri.intr_pswd="%heslo%") 
  41. #then
  42. + SELECT s_deal_sk.cena_proc AS koef, s_deal_sk.mn_rab AS W_rabat, DEAL_SKUPINA 
  43. + FROM s_deal_sk, obchodni_partneri 
  44. + WHERE (s_deal_sk.deal_id=obchodni_partneri.deal_sk) AND
  45. +       (obchodni_partneri.intr_user="%jmeno%" AND obchodni_partneri.intr_pswd="%heslo%") 
  46. #else 
  47. + SELECT s_deal_sk.cena_proc AS koef, s_deal_sk.mn_rab AS W_rabat, DEAL_SKUPINA 
  48. + FROM s_deal_sk, default_hodnoty
  49. + WHERE s_deal_sk.deal_id=default_hodnoty.deal_sk
  50. #endif
  51.  
  52. SQLStatement: kody_skupiny
  53. +SELECT S_zbozi_sk.kod_skupiny 
  54. +FROM S_zbozi_sk
  55.  
  56. BeginProgram: W_Copy_vars
  57.     W_sleva_var:="TRUE";
  58.     W_novinka_var:="FALSE";
  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.