home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / POKLADNAWBC.WWW < prev    next >
Text File  |  2000-03-16  |  4KB  |  107 lines
  1. {$$3220255771 .                              }Template: pokladna.htw
  2. ErrorTemplate: err.htw
  3.  
  4. RequiredValues: heslo jmeno objednavka
  5.  
  6. SQLStatement: Ulozenip
  7. #ifexists 
  8. + SELECT  Obj_header.id_dobj
  9. + FROM OBJ_HEADER
  10. + WHERE  OBJ_HEADER.id_dobj=%objednavka%
  11. #then 
  12. + UPDATE obj_header
  13. + SET  obj_header.POZN="%w_pozn%" 
  14. + WHERE  OBJ_HEADER.id_dobj=%objednavka%
  15. #endif
  16.  
  17. BeginProgram: www_obj
  18.  w_doprava("%w_zpusob%",%objednavka%);
  19. EndProgram;
  20.  
  21. BeginProgram: 
  22.  w_testdatum(str2date("%w_datum_d%"),%objednavka%);
  23. EndProgram;
  24.  
  25. BeginProgram: 
  26.  zjisti_postovne(%objednavka%);
  27. EndProgram;
  28.  
  29. SQLStatement: detail_obj
  30. #ifexists 
  31. + SELECT a.ID_DOBJ
  32. + FROM obj_header a, obj_polozky b, cenik, S_doprava
  33. + WHERE a.id_dobj=b.id_dobj AND 
  34. +      a.id_dobj=str2int("%objednavka%") AND b.id_cnk=cenik.id_cenik  AND a.doprav=S_doprava.KOD
  35. #then 
  36. + SELECT a.ID_DOBJ, a.ID_ORG,  a.CIS_EOB, a.DATUM, a.DATUM_D, a.POTVRZENA, a.STORNO_DAT, a.STORNO, a.ZPRACOVANA, a.SUM_CENA, a.DOPRAV, a.pozn, a.DPH_SUM, a.Z_ROZDIL,
  37. + b.ID_POL, b.ID_CNK, b.MNOZSTVI, b.CENA_SUM, b.NAZEV_VL, b.CENA_SUMMN, cenik.jednotka, S_doprava.ZPUSOB AS zpdopr
  38. + FROM obj_header a, obj_polozky b, cenik, S_doprava
  39. + WHERE a.id_dobj=b.id_dobj AND 
  40. +      a.id_dobj=str2int("%objednavka%") AND b.id_cnk=cenik.id_cenik  AND a.doprav=S_doprava.KOD
  41. + ORDER BY  b.ID_POL
  42. #else
  43. + SELECT a.ID_DOBJ, a.ID_ORG,  a.CIS_EOB, a.DATUM, a.DATUM_D, a.POTVRZENA, a.STORNO_DAT, a.STORNO, a.ZPRACOVANA, a.SUM_CENA, a.DOPRAV AS zpdopr, a.pozn,, a.DPH_SUM, a.Z_ROZDIL,
  44. + b.ID_POL, b.ID_CNK, b.MNOZSTVI, b.CENA_SUM, b.NAZEV_VL, b.CENA_SUMMN, cenik.jednotka
  45. + FROM obj_header a, obj_polozky b, cenik
  46. + WHERE a.id_dobj=b.id_dobj AND 
  47. +      a.id_dobj=str2int("%objednavka%") AND b.id_cnk=cenik.id_cenik  
  48. + ORDER BY b.ID_POL
  49. #endif
  50.  
  51.  
  52. SQLStatement: odberatel
  53. #ifexists 
  54. + SELECT  Obj_header.id_dobj
  55. + FROM OBJ_HEADER
  56. + WHERE  OBJ_HEADER.id_dobj=%objednavka%
  57. #then 
  58. + SELECT id, int2str(id) AS sid,intr_pswd, NAZEV1, KONT_OSOBA, ULICE, PSC, MESTO, TELEF, FAX, ICO, DIC, DEAL_SK, MAIL_ADRES, CISLO_UCTU, PENEZNI_USTAV, POZNAMKA 
  59. + FROM OBCHODNI_PARTNERI,obj_header
  60. + WHERE  ((OBCHODNI_PARTNERI.id=obj_header.id_org) AND (obj_header.id_dobj=str2int("%objednavka%")))
  61. #endif
  62.  
  63. SQLStatement: prodejce
  64. + SELECT nazev1, KONT_OSOBA, ULICE, PSC, MESTO, TELEF, FAX, ICO, DIC, MAIL_ADRES, CISLO_UCTU, PENEZNI_USTAV, KONST_SYMB, today+14 AS kdy 
  65. + FROM info_provozovatel
  66.  
  67. SQLStatement: celkem
  68. #ifexists
  69. + SELECT sum_cena
  70. + FROM obj_header
  71. + WHERE id_dobj=str2int("%objednavka%") AND sum_cena>0
  72. #then
  73. + SELECT sum_cena, ob_sleva, sum_obj, SUMVAHA, K_UHRADE, POSTOVNE, 0.00 AS nula, (ob_sleva/sum_cena) AS w_sleva
  74. + FROM obj_header
  75. + WHERE id_dobj=str2int("%objednavka%")
  76. #else
  77. + SELECT sum_cena, ob_sleva, sum_obj, SUMVAHA, K_UHRADE, POSTOVNE, 0.00 AS nula, (0.00) AS w_sleva
  78. + FROM obj_header
  79. + WHERE id_dobj=str2int("%objednavka%")
  80. #endif
  81.  
  82.  
  83. SQLStatement: novy
  84. #ifexists 
  85. + SELECT S_typ_uziv.id_typ
  86. + FROM Obj_header, Obchodni_partneri, S_typ_uziv
  87. + WHERE (Obchodni_partneri.id=Obj_header.id_org) AND (id_dobj=%objednavka%)
  88. + AND (Obchodni_partneri.intr_user<>"") AND (S_typ_uziv.id_typ=Obchodni_partneri.typ)
  89. #then 
  90. + SELECT S_typ_uziv.id_typ,S_typ_uziv.nazev_typ, Obchodni_partneri.intr_user
  91. + FROM Obj_header, Obchodni_partneri, S_typ_uziv
  92. + WHERE (Obchodni_partneri.id=Obj_header.id_org) AND (id_dobj=%objednavka%)
  93. + AND (Obchodni_partneri.intr_user<>"") AND (S_typ_uziv.id_typ=Obchodni_partneri.typ)
  94. #else 
  95. + SELECT DEFAULT_HODNOTY.TYP_UZIV, "" AS intr_user
  96. + FROM  DEFAULT_HODNOTY
  97. #endif
  98.  
  99. SQLStatement: formul
  100. + SELECT S_platba.id,  S_platba.nazev AS CO
  101. + FROM obj_header, S_doprava, S_platba
  102. + WHERE  (OBJ_HEADER.id_dobj=%objednavka%)  AND (obj_header.doprav=S_doprava.kod) AND (S_doprava.platba=S_platba.id)
  103.  
  104. SQLStatement: sys_par
  105. + SELECT round_sum FROM Sys_par
  106.  
  107.