<%=cStr(rstSearch.Fields("CIKKSZAM").Value)%>

<% session("HEAD")="CS" %> <% if session("ajandek")="1" then menu_top_act="A" else menu_top_act="T" end if kellszuro=0 skulon=1 'request.querystring("kulon") if skulon<>"1" then else %> <% end if if session("HEAD")="CS" then rspan="" else rspan=" rowspan=3 " end if sub subtobbkep vantobbkep=0 tobbkep="" for t=1 to 5 '-----------Először emblémázási képek tobbkep=GetKepfile( "I" , mid(rstSearch.Fields("Y_KEP_HELY").Value,1,len(rstSearch.Fields("Y_KEP_HELY").Value)-4)+"#"+cstr(t)+".jpg") if instr(tobbkep,"_nincskep")=0 then '-------van további kép vantobbkep=vantobbkep+1 if vantobbkep=1 then response.write "

További képek:
" end if %>

<% end if next for t=1 to 5 tobbkep=GetKepfile( "I" , mid(rstSearch.Fields("Y_KEP_HELY").Value,1,len(rstSearch.Fields("Y_KEP_HELY").Value)-4)+"@"+cstr(t)+".jpg") if instr(tobbkep,"_nincskep")=0 then '-------van további kép vantobbkep=vantobbkep+1 if vantobbkep=1 then response.write "

További képek:
" end if %>

<% end if next if vantobbkep>0 then %>

<% end if end sub sub export_kiir(szoveg, mezo, merte) if not isnull(mezo) then if szoveg<>"" then kettospont=": " else kettospont="" end if response.write "
" + szoveg + kettospont + cstr(mezo) + merte end if end sub ' lehet, hogy kívülről, csak cikk azonosítóval hívják. ' meg kéne nézni, adtak-e nyelv, ártípus paramétert. 'egyelőre ez fix lesz. Dim cikkazon Dim strSQL cikkazon = CStr(Request.QueryString("item")) if cikkazon="" then cikkazon="15240" end if 'response.write cikkazon 'response.end tobbmeret= CStr(Request.QueryString("t")) if tobbmeret="" then tobbmeret="0" end if Dim Artip1 Dim Dev Dim DevJel Dev = Session("DEV1") DevJel = Session("DEV1_JEL") if Session("ARTIP1")="" then Session("ARTIP1")="110" end if dim sLeir Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ' képfile kereséshez, server_func1 használja majd dim kep_filenev ' ez olvassa be a cikk összes adatát! 0: nincs, 1 :van talalatszam=1 'integer GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam ' típuseltéréssel lehal. if talalatszam = 0 Then %>

<%=nincs_ilyen_cikk%>

<% else ' VAN CIKK 'response.write cikkazon 'response.write rstSearch.Fields("CIKKSZAM").Value kep_filenev = GetKepfile( "I" , rstSearch.Fields("Y_KEP_HELY").Value ) ' if rstSearch.Fields("Y_LATHATO_KAT_GIFTON").Value="3" then ' session("ajandek")="1" ' else session("ajandek")="0" ' end if if session("ajandek")="1" then DevJel="pont" end if %> <%=cStr(rstSearch.Fields("CIKKSZAM").Value)%> <% %>

<% end if ' megvan a cikk if session("HEAD")<>"CS" then subtobbkep 'több kép kiiratása nem csomagküldőnél end if if skulon<>"1" then %> <%end if%>

align="left" valign="top" width="450" <% if skulon<>"1" then %> onclick="window.close();" <%end if%> >

<% if session("HEAD")="CS" then subtobbkep 'több kép kiiratása nem csomagküldőnél response.write "

" end if %>

<%=rstSearch.Fields("CIKKMEGNEVEZES").Value %> (<%=rstSearch.Fields("CIKKSZAM").Value %>)
<% '------------- Akciók lekérdezése ----------------------- akcio_eng_min=0 akcio_szoveg="" SESSION("LANG1")="HUN" sql3="select gka.artipus_kod, gka.eng_szaz, gka.g_kat_ev, gka.g_kat_jel, isnull(gka.web_szoveg_"+SESSION("LANG1")+",'') web_szoveg_"+SESSION("LANG1")+", gka.keszlet_erejeig " sql3=sql3+" from g_kat_akcio gka, g_cikk_kat gck where " sql3=sql3+" g_akcio_tipusok='W' and datum_min<=getdate() and datum_max>=getdate() and ervenyes='1' " ' sql3=sql3+" and partner_kod = 2" ' --------itt nem azonos a webes és IG-s partnerkod még---+cstr(Session("VISZONTELADOID"))"+cstr(Session("VISZONTELADOID")) sql3=sql3+" and charindex('" & Session("g_web_akcio_csoport") & "',gka.g_web_akcio_csoportok)>0 " sql3=sql3+" and gck.cikk_azonosito= "+cikkazon sql3=sql3+" and gck.g_kat_jel=gka.g_kat_jel " sql3=sql3+" and gck.g_kat_ev=gka.g_kat_ev " shsql(sql3) set lista3=cnnsearch.execute(sql3) Do while not lista3.eof if lista3("eng_szaz")mint eddig, S->ha van szabad keszlet, akkor ír ki, szöveg, hogy hány darabra vonatkozik ez, '---- L-> keszlet.g_leert_menny leértékelt mennyiségig, + szöveg, hogy hány darabra vonatkozik ez '---- transzferbe szétbontani, hogy mindháromra figyelje az akció beállítást--- if lista3("keszlet_erejeig") ="0" then akcio_szoveg=akcio_szoveg+"
"+lista3("web_szoveg_"+SESSION("LANG1"))+"
" end if if lista3("keszlet_erejeig") ="S" then sql4="select isnull(mennyiseg,0) mennyiseg from gold_keszlet where cikk_azonosito="+cikkazon shsql(sql4) set lista4=cnnsearch.execute(sql4) if not lista4.eof then if cint(lista4("mennyiseg"))>0 then akcio_szoveg=akcio_szoveg+"
"+lista3("web_szoveg_"+SESSION("LANG1"))+"
" end if end if end if if lista3("keszlet_erejeig") ="L" then sql4="select isnull(g_leert_menny,0) g_leert_menny from gold_keszlet where cikk_azonosito="+cikkazon shsql(sql4) set lista4=cnnsearch.execute(sql4) if not lista4.eof then if cint(lista4("g_leert_menny"))>0 then akcio_szoveg=akcio_szoveg+"
"+lista3("web_szoveg_"+SESSION("LANG1"))+"
" end if end if end if akcio_szoveg="
"+lista3("web_szoveg_"+SESSION("LANG1"))+"
" ' response.write akcio_szoveg lista3.movenext loop '------------- if rstSearch.Fields("Y_MEGJEGYZES").Value<>"none" and (rstSearch.Fields("Y_MEGJEGYZES").Value<>"") then response.write "
"+rstSearch.Fields("Y_MEGJEGYZES").Value & "

" end if if session("ARSZURO")="1" then if Session("engedmeny")<0 then if (rstSearch.Fields("FIKTIV_KOD_FLAG").Value="1" AND cstr(rstSearch.Fields("ARTIPUS_ERTEK").Value)<>cstr(rstSearch.Fields("ARTIPUS_ERTEK_MAX").Value)) then sEng=listaar+Session("engedmeny")+"= "+cstr(round(cint(rstSearch.Fields("ARTIPUS_ERTEK").Value)*(1+Session("engedmeny")/100))) & " - " & cstr(round(cint(rstSearch.Fields("ARTIPUS_ERTEK_MAX").Value)*(1+Session("engedmeny")/100))) & " " & DevJel else engar=round(cint(rstSearch.Fields("ARTIPUS_ERTEK").Value)*(1+Session("engedmeny")/100)) sEng=rstSearch.Fields("ARTIPUS_ERTEK").Value & "" & DevJel & " " & cstr(Session("engedmeny")) & "% = " & cstr(engar) & " " & DevJel end if else if (rstSearch.Fields("FIKTIV_KOD_FLAG").Value="1" AND cstr(rstSearch.Fields("ARTIPUS_ERTEK").Value)<>cstr(rstSearch.Fields("ARTIPUS_ERTEK_MAX").Value)) then sEng=rstSearch.Fields("ARTIPUS_ERTEK").Value & " - " & rstSearch.Fields("ARTIPUS_ERTEK_MAX").Value & " " & DevJel else engar=rstSearch.Fields("ARTIPUS_ERTEK").Value sEng=cstr(engar) & " " & DevJel end if end if engar=mid(sEng,1,len(sEng)-3) t_arertek = rstSearch.Fields("ARTIPUS_ERTEK").Value if (t_arertek = "1" and DevJel = "Ft") or (t_arertek = "0,01" and DevJel = "EUR") then sEng = mtxt_arajanlat_alapjan end if ' if Session("engedmeny")<0 then ' sEng=rstSearch.Fields("ARTIPUS_ERTEK").Value & "" & DevJel & " " & cstr(Session("engedmeny")) & "% = " & cstr(round(cint(rstSearch.Fields("ARTIPUS_ERTEK").Value)*(1+Session("engedmeny")/100))) & "" & DevJel ' else ' sEng=rstSearch.Fields("ARTIPUS_ERTEK").Value & " " & DevJel ' end if if akcio_eng_min<>0 then sEng=sEng + " "+ mtxt_akcio + ": " + cStr(akcio_eng_min) + "%" end if %> <%=sEng %> <%end if%> <% if session("HEAD")<>"CS" then if not Session("KATALOGUS") then if rstSearch.Fields("FIKTIV_KOD_FLAG").Value<>"1" then %> ')"> <% end if end if end if %>

<% 'RESPONSE.WRITE "CIKKAZON=" + cikkazon response.write akcio_szoveg 'készlet kiírás, minősítéssel, rendelhetőséggel s_s="" s_u="" s_r="" s_b="" if cDBL(rstSearch.Fields("KESZLET_MENNY_S").Value)>0 then if rstSearch.Fields("FIKTIV_KOD_FLAG").Value="1" then raktaron=""+osszesen_raktaron+"" end if s_s=raktaron & ": " & formatnumber(rstSearch.Fields("KESZLET_MENNY_S").Value,0,,,-1) & " " & db & "" response.write s_s end if if cstr(rstSearch.Fields("Y_RENDELHETO_RA").Value)="1" then s_r=rendelheto end if '----------------------------------------------- if cDBL(rstSearch.Fields("KESZLET_MENNY_U").Value)>0 then strSQL= "SELECT DATUM, KESZLET_MENNY_U,G_HATARIDO_STATUS FROM GOLD_UTIKLT " _ & "WHERE CIKK_AZONOSITO=" & cikkazon _ & " AND SUBSTRING(STATUS,1,1)='G' ORDER BY DATUM" Set Lista=cnnSearch.Execute(strSQL) if not lista.Eof then select case lista(2) case "1" sDatum=nemvig case "2" sDatum=mtxt_valaszravar case "3" sDatum=kesik case "4" sDatum=kifutott case else sdatum=lista(0) end select %>
<% Do While Not lista.Eof %><% Lista.Movenext Loop %>

<% =uton%>: <%=formatnumber(Lista(1),0,,,-1) & " " & db & " " & sDatum %>

<% end if strSQL= "SELECT ISNULL(DATUM,'3000.12.30'), mennyiseg,SZALL_NAP, G_HATARIDO_STATUS FROM GOLD_UTIKLT " _ & "WHERE CIKK_AZONOSITO=" & cikkazon _ & " AND SUBSTRING(STATUS,1,1) IN ('S','U') ORDER BY 1" Set Lista=cnnSearch.Execute(strSQL) if not lista.Eof then srendelheto_kiir="0" %> <% Do While Not lista.Eof select case lista(3) case "1" sDatum=nemvig case "2" sDatum=mtxt_valaszravar case "3" sDatum=kesik case "4" sDatum=kifutott case "2099. 01. 01." sDatum="" '------------Giving fiktív készlet dátum case else sdatum=Lista(0) & " +" & Lista(2) & " " & nap end select %><% Lista.Movenext Loop %>

<%=rendelesre%>: <%=Lista(1) & " " & db & " " & sDatum %>

<% end if end if ' van úton '------------------------------------------------- if (s_s="") and (s_u="") and (s_r="") then response.write "NEM RENDELHETŐ" nemrend=1 end if if cDBL(rstSearch.Fields("EMBL_MIN").Value) >0 then ' response.write "
Emblémázási minimum: " & rstSearch.Fields("EMBL_MIN").Value & "db" end if if cDBL(rstSearch.Fields("CSOMAG_K").Value) >0 then response.write "
Kis csomag: " & rstSearch.Fields("CSOMAG_K").Value & "db" end if if cDBL(rstSearch.Fields("CSOMAG_N").Value) >0 then response.write "
Nagy csomag: " & rstSearch.Fields("CSOMAG_N").Value & "db" end if if rstSearch.Fields("CSOMAG_V").Value>0 then response.write "
" & Rendelesi_egyseg & ": " & rstSearch.Fields("CSOMAG_V").Value & " " & db end if response.write "
" if cstr(rstSearch.Fields("Y_RENDELHETO_RA").Value)="0" then if (cDbl(rstSearch.Fields("KESZLET_MENNY_S").Value)>0) or (cDbl(rstSearch.Fields("KESZLET_MENNY_U").Value)>0) then response.write csak_a_keszlet_erejeig & "
" end if end if if rstSearch.Fields("Y_MERET").Value<>"" then response.write "
" & meret & ": " & rstSearch.Fields("Y_MERET").Value end if if (rstSearch.Fields("FIKTIV_KOD_FLAG").Value="1") then %>
<%=tobb_meretben%>! <% end if if (tobbmeret="1" or rstSearch.Fields("FIKTIV_KOD_FLAG").Value="1") then sql="select cikk_azonosito,cikkszam,y_meret from gold_cikk where y_kep_hely='"+rstSearch.Fields("Y_KEP_HELY").Value+"' order by van_szuloje" Set Lista=cnnSearch.Execute(sql) %>

<%=meret_valasztek%>
<% end if %> <%if session("HEAD")="CS" then session("embl_honnan")=request.querystring("h") '------- session -ok ürítése--------------------------- session("embl_megnevezes") ="" session("embl_szelesseg") ="" session("embl_magassag") ="" session("embl_kep_szoveg") ="" session("embl_kepfile") ="" session("embl_szoveg") ="" session("embl_megjegyzes") ="" session("embl_logofile") ="" session("embl_szinkod1") ="" session("embl_szinkod2") ="" session("embl_szinkod3") ="" session("embl_szinkod4") ="" session("embl_szinkod5") ="" session("EMBL_ID") ="" session("embl_betoltott") ="" session("embl_emblkod") ="" session("embl_emblterm") ="" session("embl_emblszin") ="" session("embl_kalk") ="" if Session("LANG1")="HUN" then if rstSearch.Fields("G_CSOMAGOLAS_KOD")="X" then Export_kiir "" , rstSearch.Fields("G_CSOMAGOLAS_NEV").Value , "" else Export_kiir mtxt_csomagolasi_mod , rstSearch.Fields("G_CSOMAGOLAS_NEV").Value , "" end if else Export_kiir mtxt_csomagolasi_mod , rstSearch.Fields("G_CSOMAGOLAS_NEV_EN").Value , "" end if if (rstSearch.Fields("G_ELEM_STATUS").Value="1" or rstSearch.Fields("G_ELEM_STATUS").Value="2") then Export_kiir mtxt_elem_db , rstSearch.Fields("G_ELEM_DB").Value , mtxt_db Export_kiir mtxt_elem_tipus , rstSearch.Fields("G_ELEM_TIPUS").Value , "" end if smenny=request.querystring("menny") if not smenny>0 then smenny=1 end if %> <%' ----------session("csakegyszerbetolt")="" if (rstSearch.Fields("CSOMAG_V").Value=0 or rstSearch.Fields("CSOMAG_V").Value="") then rendegyseg=1 else rendegyseg=rstSearch.Fields("CSOMAG_V").Value end if 'response.write "fgfgfgfgfg-" & smenny & "-"& engar &"-"& rendegyseg if (rstSearch.Fields("FIKTIV_KOD_FLAG").Value=0) then husegpont_ajanlo_szoveg cdbl(smenny),cdbl(engar),cdbl(rendegyseg) husegpont_tablazat end if %> <%end if%>

<% linkcsomag_tipus="L" %>