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