home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / INFONUVD.WWW < prev    next >
Text File  |  2000-03-16  |  5KB  |  109 lines
  1. {$$3220260101 .                              }Template: pokladna.htw
  2. ErrorTemplate: err.htw
  3.  
  4.  
  5. RequiredValues: heslo jmeno objednavka iduv
  6.  
  7. SQLStatement: Oprava
  8. #ifexists 
  9. + SELECT obchodni_partneri.id 
  10. + FROM obchodni_partneri
  11. + WHERE obchodni_partneri.id=%iduv%
  12. #then 
  13. + UPDATE   obchodni_partneri 
  14. + SET  obchodni_partneri.nazev1="%w_nazev1%", obchodni_partneri.dic="%w_dic%",obchodni_partneri.kont_osoba= "%w_kont_osoba%", obchodni_partneri.fax="%w_fax%", obchodni_partneri.ico="%w_ico%", obchodni_partneri.cislo_uctu="%w_cislo_uctu%",obchodni_partneri.POZNAMKA="%w_prip%",
  15. + obchodni_partneri.ulice="%w_ulice%", obchodni_partneri.penezni_ustav="%w_penezni_ustav%", obchodni_partneri.psc="%w_psc%", obchodni_partneri.mesto="%w_mesto%", obchodni_partneri.mail_adres="%w_mail_adres%", obchodni_partneri.telef="%w_telef%"
  16. + WHERE obchodni_partneri.id=%iduv%
  17. #endif
  18.  
  19. SQLStatement: Oprava_psw
  20. #if w_intr_pswd<>""
  21. + UPDATE   obchodni_partneri 
  22. + SET  obchodni_partneri.intr_pswd= "%w_intr_pswd%"
  23. + WHERE obchodni_partneri.id=%iduv%
  24. #endif
  25.  
  26. BeginProgram: www_login
  27.  w_cis_uziv(%objednavka%,"%w_nazev1%","%w_intr_pswd%", %iduv%);
  28. EndProgram;
  29.  
  30. SQLStatement: detail_obj
  31. #ifexists 
  32. + 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,
  33. + b.ID_POL, b.ID_CNK, b.MNOZSTVI, b.CENA_SUM, b.NAZEV_VL, b.CENA_SUMMN, cenik.jednotka, S_doprava.ZPUSOB
  34. + FROM obj_header a, obj_polozky b, cenik, S_doprava
  35. + WHERE a.id_dobj=b.id_dobj AND 
  36. +      a.id_dobj=str2int("%objednavka%") AND b.id_cnk=cenik.id_cenik  AND a.doprav=S_doprava.KOD
  37. + ORDER BY b.ID_POL
  38. #then 
  39. + 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,
  40. + b.ID_POL, b.ID_CNK, b.MNOZSTVI, b.CENA_SUM, b.NAZEV_VL, b.CENA_SUMMN, cenik.jednotka, S_doprava.ZPUSOB AS zpdopr
  41. + FROM obj_header a, obj_polozky b, cenik, S_doprava
  42. + WHERE a.id_dobj=b.id_dobj AND 
  43. +      a.id_dobj=str2int("%objednavka%") AND b.id_cnk=cenik.id_cenik  AND a.doprav=S_doprava.KOD
  44. + ORDER BY b.ID_POL
  45. #else
  46. + 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,
  47. + b.ID_POL, b.ID_CNK, b.MNOZSTVI, b.CENA_SUM, b.NAZEV_VL, b.CENA_SUMMN, cenik.jednotka
  48. + FROM obj_header a, obj_polozky b, cenik
  49. + WHERE a.id_dobj=b.id_dobj AND 
  50. +      a.id_dobj=str2int("%objednavka%") AND b.id_cnk=cenik.id_cenik  
  51. + ORDER BY b.ID_POL
  52. #endif
  53.  
  54. SQLStatement: odberatel
  55. #ifexists 
  56. + SELECT  Obj_header.id_dobj
  57. + FROM OBJ_HEADER
  58. + WHERE  OBJ_HEADER.id_dobj=%objednavka%
  59. #then 
  60. + 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
  61. + FROM OBCHODNI_PARTNERI,obj_header
  62. + WHERE  ((OBCHODNI_PARTNERI.id=obj_header.id_org) AND (obj_header.id_dobj=str2int("%objednavka%")))
  63. #endif
  64.  
  65. SQLStatement: prodejce
  66. + SELECT  nazev1, KONT_OSOBA, ULICE, PSC, MESTO, TELEF, FAX, ICO, DIC, MAIL_ADRES, CISLO_UCTU, PENEZNI_USTAV, KONST_SYMB, today+14 AS kdy  
  67. + FROM info_provozovatel
  68.  
  69.  
  70. SQLStatement: celkem
  71. #ifexists
  72. + SELECT sum_cena
  73. + FROM obj_header
  74. + WHERE id_dobj=str2int("%objednavka%") AND sum_cena>0
  75. #then
  76. + SELECT sum_cena, ob_sleva, sum_obj, SUMVAHA, K_UHRADE, POSTOVNE, 0.00 AS nula, (ob_sleva/sum_cena) AS w_sleva
  77. + FROM obj_header
  78. + WHERE id_dobj=str2int("%objednavka%")
  79. #else
  80. + SELECT sum_cena, ob_sleva, sum_obj, SUMVAHA, K_UHRADE, POSTOVNE, 0.00 AS nula, (0.00) AS w_sleva
  81. + FROM obj_header
  82. + WHERE id_dobj=str2int("%objednavka%")
  83. #endif
  84.  
  85. SQLStatement: novy
  86. #ifexists 
  87. + SELECT S_typ_uziv.id_typ,S_typ_uziv.nazev_typ, Obchodni_partneri.intr_user
  88. + FROM Obj_header, Obchodni_partneri, S_typ_uziv
  89. + WHERE (Obchodni_partneri.id=Obj_header.id_org) AND (id_dobj=%objednavka%)
  90. + AND (Obchodni_partneri.intr_user<>"") AND (S_typ_uziv.id_typ=Obchodni_partneri.typ)
  91. #then 
  92. + SELECT S_typ_uziv.id_typ,S_typ_uziv.nazev_typ, Obchodni_partneri.intr_user
  93. + FROM Obj_header, Obchodni_partneri, S_typ_uziv
  94. + WHERE (Obchodni_partneri.id=Obj_header.id_org) AND (id_dobj=%objednavka%)
  95. + AND (Obchodni_partneri.intr_user<>"") AND (S_typ_uziv.id_typ=Obchodni_partneri.typ)
  96. #else 
  97. + SELECT DEFAULT_HODNOTY.TYP_UZIV, "" AS intr_user
  98. + FROM  DEFAULT_HODNOTY
  99. #endif
  100.  
  101. SQLStatement: formul
  102. + SELECT S_platba.id,  S_platba.nazev AS CO
  103. + FROM obj_header, S_doprava, S_platba
  104. + WHERE  (OBJ_HEADER.id_dobj=%objednavka%)  AND (obj_header.doprav=S_doprava.kod) AND (S_doprava.platba=S_platba.id)
  105.  
  106. SQLStatement: sys_par
  107. + SELECT round_sum FROM Sys_par
  108.  
  109.