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