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