home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / KOSIKWBC.WWW < prev    next >
Text File  |  2000-03-16  |  2KB  |  59 lines
  1. {$$3213355774 .                              }Template: kosikhtw.htw
  2. ErrorTemplate: err.htw
  3.  
  4.  
  5. BeginProgram: www_obj
  6.  W_kosik(%objednavka%, "%jmeno%","%heslo%", %id_cenik%, "%W_MNOZ%");
  7. EndProgram;
  8.  
  9. GetVariable:objednavka:=W_objednavka
  10. GetVariable:objnew:=W_objednavka
  11.  
  12. BeginProgram:
  13.  w_prepocet(%objnew%);
  14. EndProgram;
  15.  
  16. GetVariable:cena:=w_cena
  17. GetVariable:cenaDPH:=w_cenaDPH
  18. GetVariable: w_objnarok:=w_narok
  19.  
  20. SQLStatement: detail_obj_h
  21. + SELECT  Obj_header.id_dobj,Obj_header.id_org,Obj_header.cis_eob,Obj_header.datum,Obj_header.datum_d,Obj_header.doprav,Obj_header.potvrzena,Obj_header.zpracovana,Obj_header.sum_obj, Obj_header.pozn
  22. + FROM OBJ_HEADER
  23. + WHERE  OBJ_HEADER.id_dobj=%objnew%
  24.  
  25. SQLStatement: detail_obj_p
  26. + SELECT  Obj_polozky.id_dobj, Obj_polozky.id_pol, Obj_polozky.id_cnk, Obj_polozky.mnozstvi, Obj_polozky.cena_summn, Obj_polozky.nazev_vl, Obj_polozky.hodnota_dph, Obj_polozky.cena_sum, Obj_polozky.cena_summn, cenik.jednotka, ((round((cena_sum*mnozstvi)/koef)*koef)-cena_summn)/mnozstvi AS RABATMJ
  27. + FROM obj_polozky, cenik, S_TAB_ROUND,SYS_PAR                                                                                                                                                                                             
  28. + WHERE OBJ_POLOZKY.id_dobj=%objnew% AND OBJ_POLOZKY.id_cnk=cenik.id_cenik   AND SYS_PAR.ROUND_POL=S_TAB_ROUND.ID_ROUND 
  29. + ORDER BY OBJ_POLOZKY.id_pol
  30.  
  31. SQLStatement: celkem
  32. #ifexists
  33. + SELECT sum_cena
  34. + FROM obj_header
  35. + WHERE id_dobj=str2int("%objnew%") AND sum_cena>0
  36. #then
  37. + SELECT sum_cena, ob_sleva, sum_obj, SUMVAHA, K_UHRADE, POSTOVNE, 0.00 AS nula, (ob_sleva/sum_cena) AS w_sleva
  38. + FROM obj_header
  39. + WHERE id_dobj=str2int("%objnew%")
  40. #else
  41. + SELECT sum_cena, ob_sleva, sum_obj, SUMVAHA, K_UHRADE, POSTOVNE, 0.00 AS nula, (0.00) AS w_sleva
  42. + FROM obj_header
  43. + WHERE id_dobj=str2int("%objnew%")
  44. #endif
  45.  
  46. SQLStatement: slevy
  47. + SELECT nad_mnoz, proc FROM cen_slevy
  48.  
  49. SQLStatement: skupiny
  50. +SELECT S_zbozi_sk.kod_skupiny AS kod
  51. +FROM S_zbozi_sk
  52. #ifexists
  53. + SELECT OBR_EXT FROM Sys_par WHERE "%?W_check_kod%"<>""
  54. #then
  55. +WHERE (s_zbozi_sk.kod_skupiny="%check_kod%")
  56. #endif
  57.  
  58.  
  59.