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