home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / CENIKJ.WWW < prev    next >
Text File  |  2000-03-16  |  3KB  |  84 lines
  1. {$$3220259244 .                              }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_nazev(%wbegin%, "%W_nazev%", "%W_kod%", "%W_cena_od%", "%W_cena_do%", "%W_vyrobce%");
  14. EndProgram;
  15.  
  16. GetVariable: wcelkem:= wwcelkem
  17. GetVariable: wbegin:= wwbegin
  18. GetVariable: wvyber:= wwvyber
  19. GetVariable: Www_nazev:=Ww_nazev
  20. GetVariable: Www_vyrobce:=Ww_vyrobce
  21. ;GetVariable: W_check_kod:=Ww_check_kod
  22. GetVariable: wnext:= wwnext
  23. GetVariable: wskup:= wwskup
  24.  
  25. SQLStatement: Polozky [%wbegin%+%wnext%]
  26. + 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,
  27. + ((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, 
  28. +       cenik.htwtxt, cenik.htwobr, cenik.skryto, cenik.slevaproc, cenik.skladem
  29. + FROM S_zbozi_sk , Cenik,  S_DPH , SYS_PAR , S_TAB_ROUND
  30. + 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
  31. +       (s_zbozi_sk.ID_SKUPINY=cenik.SKUPINA_ZBOZI) AND (NOT ( cenik.skryto=TRUE))
  32. #if w_nazev<>""
  33. + AND (cenik.nazev_zbozi.=."%w_nazev%")
  34. #endif
  35. #if w_kod<>""
  36. + AND (cenik.kod_zbozi.="%w_kod%")
  37. #endif
  38. #if w_cena_od<>""
  39. + AND (cenik.%wdcena%>str2real("%w_cena_od%"))
  40. #endif
  41. #if w_cena_do<>""
  42. + AND (cenik.%wdcena%<str2real("%w_cena_do%"))
  43. #endif
  44. #if W_vyrobce<>"bez omezenφ"
  45. + AND (cenik.vyrobce=%www_vyrobce%)
  46. #endif
  47. + GROUP BY Cenik.id_cenik
  48. + ORDER BY  s_zbozi_sk.kod_skupiny, cenik.poradi, cenik.kod_zbozi
  49.  
  50.  
  51. SQLStatement: Koeficient
  52. #ifexists 
  53. + SELECT s_deal_sk.mn_rab
  54. + FROM s_deal_sk, obchodni_partneri 
  55. + WHERE (s_deal_sk.deal_id=obchodni_partneri.deal_sk) AND
  56. +       (obchodni_partneri.intr_user="%jmeno%" AND obchodni_partneri.intr_pswd="%heslo%") 
  57. #then
  58. + SELECT s_deal_sk.cena_proc AS koef, s_deal_sk.mn_rab AS W_rabat, DEAL_SKUPINA 
  59. + FROM s_deal_sk, obchodni_partneri 
  60. + WHERE (s_deal_sk.deal_id=obchodni_partneri.deal_sk) AND
  61. +       (obchodni_partneri.intr_user="%jmeno%" AND obchodni_partneri.intr_pswd="%heslo%") 
  62. #else 
  63. + SELECT s_deal_sk.cena_proc AS koef, s_deal_sk.mn_rab AS W_rabat, DEAL_SKUPINA 
  64. + FROM s_deal_sk, default_hodnoty
  65. + WHERE s_deal_sk.deal_id=default_hodnoty.deal_sk
  66. #endif
  67.  
  68. SQLStatement: kody_skupiny
  69. +SELECT S_zbozi_sk.kod_skupiny 
  70. +FROM S_zbozi_sk
  71.  
  72. BeginProgram: W_Copy_vars
  73.     W_sleva_var:="%?W_sleva%";
  74.     W_novinka_var:="%?W_novinka%";
  75. EndProgram;
  76.  
  77. GetVariable: W_sleva_htw:=W_sleva_var
  78. GetVariable: W_novinka_htw:=W_novinka_var
  79.  
  80. SQLStatement: platnost
  81. + SELECT PLATNOST_CEN_OD, PLATNOST_CEN_DO FROM Sys_par
  82.  
  83.  
  84.