<%
function GetCikkazon(cikkszam)
sql="select cikk_azonosito from gold_cikk where upper(cikkszam)='"+ucase(cikkszam)+"'"
set listaC=cnnsearch.execute(sql)
if not listaC.eof then
GetCikkazon=cstr(listaC("cikk_azonosito"))
else
GetCikkazon="0"
end if
end function
function GetEmblSzoveg(tech,szin,emblterm,emblid,emblmod)
if emblmod="E2" then '-------- később adja meg az emblémázási adatokat ----------
GetEmblSzoveg="Emblémázási adatok később lesznek megadva"
else
sql="select megnevezes from g_cikk_emblnev where embl_kod='"+tech+"'"
set lista=cnnsearch.execute(sql)
if not lista.eof then
GetEmblSzoveg=cstr(lista("megnevezes")) + " "+cstr(szin)+" színnel, "+cstr(emblterm)+" embléma/termék, logo: "
sql="select megnevezes from g_emblema where id="+emblid
set lista2=cnnsearch.execute(sql)
GetEmblSzoveg=GetEmblSzoveg+lista2("megnevezes")
else
GetEmblSzoveg="Emblémázatlanul"
end if
end if
end function
function GetHatido(keszlet,kertmenny,emblemazott)
if kertmenny>keszlet then
if cstr(emblemazott)="E" then
GetHatido=15
else
GetHatido=10
end if
else
if cstr(emblemazott)="E" then
GetHatido=10
else
GetHatido=3
end if
end if
end function
'embl1 -- ez az embl tech.
'embl2 -- ez a szin
'embl3 -- ez a db/termék
'embl4 -- ez a logo ID
'embl5 -- ez a status E, N, A
sub KosarIr(Ix,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5)
if Ix<>"0" then
ks = cikkazon & "|" & kosar_db & "|" & ar & "|"
if Session("EMBLEMAZASI_KAT")>"0" then
ks = ks & embl1 & "|" & embl2 & "|" & embl3 & "|" & embl4 & "|" & embl5 & "|"
end if
Session("KOSAR_"+cStr(Ix)) = ks
end if
' Response.write " kosar:"+ks
end sub
sub KosarOlvas(Ix,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5)
if Ix="0" then
db=""
megj=""
embl1=""
embl2=""
embl3=""
embl4=""
embl5=""
else
ks=Session("KOSAR_"+cstr(Ix))
'Response.Write "kosar"+cstr(Ix)+"="+ks+" "
pos=1
cikkazon=strToken2(ks,pos,"|")
kosar_db=strToken2(ks,pos,"|")
ar=strToken2(ks,pos,"|")
if Session("EMBLEMAZASI_KAT")>"0" then
embl1 =strToken2(ks,pos,"|")
embl2 =strToken2(ks,pos,"|")
embl3 =strToken2(ks,pos,"|")
embl4 =strToken2(ks,pos,"|")
embl5 =strToken2(ks,pos,"|")
end if
end if
end sub
function GetKosarIx(cikkazon)
GetKosarIx="0"
if Session("KOSAR_MAX")="" then
exit function
else
for i=1 to cInt(Session("KOSAR_MAX"))
ks=Session("KOSAR_"+cstr(i))
if ks<>"" then
pos=1 ' megváltoztatja
ki=strToken2(ks,pos,"|")
if ki = cikkazon then
GetKosarIx= cstr(i)
exit function
end if
end if
next
end if
end function
sub shsql(sql)
if session("DEBUG")="1" then
response.write " "+sql+" "
end if
end sub
function GetAjandekpont(tetelertek,tetel_tipus)
sql="select credit from g_credit_sav where tetel_tipus='"+tetel_tipus+"' " _
& " and " + cstr(tetelertek) + " between ertek_min and ertek_max and getdate() between datum_min and datum_max"
shsql(sql)
set lista=cnnsearch.execute(sql)
'response.write tetel_tipus
if not lista.eof then
GetAjandekpont=lista("credit")
else
GetAjandekpont=0
end if
end function
function isnull2(data,default)
if isnull(data) then
isnull2 = default
else
isnull2= data
end if
end function
Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = "1" ' filespec & " exists."
Else
msg = "0" ' filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function
function GetKepfile( konyvtar, filenev )
dim kep_filenev
Set fso = CreateObject("Scripting.FileSystemObject")
kep_filenev ="d:/web/PICS/" & konyvtar & "/" & filenev
if (fso.FileExists(kep_filenev)) Then
kep_filenev ="../PICS/" & konyvtar & "/" & filenev
else
kep_filenev ="../PICS/"+ sLang + "_nincskep.jpg" 'jpg
end if
GetKepfile = kep_filenev
end function
function GetCreditSzaz(netto,datum,tipus)
dim s
s= " SELECT CREDIT_SZAZ FROM G_CREDIT_SAV " _
& " WHERE ERTEK_MIN <= " & cstr(netto) & " AND " & cstr(netto) & " < ERTEK_MAX " _
& " AND '" & cstr(datum) & "' >= DATUM_MIN " _
& " AND '" & cstr(datum) & "'< DATUM_MAX+1 " _
& " AND TETEL_TIPUS = '" & tipus & "' " _
& " ORDER BY 1"
set lista=cnnsearch.execute(s)
if lista.eof then
GetCreditSzaz = -1
else
GetCreditSzaz = lista(0)
end if
end function
'startpos-tól kezdve kiemeli a következő vesszőig vagy szóközig tartó szót
'a startpos-ba visszaírja a vég-pozíciót!
function strToken( s1, startpos )
dim s2,s3, actpos, l
l= len(s1)
s2=""
actpos=startpos
do 'keressük meg az első nem space, nem vesszőt
s3= mid(s1,actpos,1)
if (s3<>" ") and s3<>"," then Exit do end if
actpos = actpos +1
loop while actpos <=l
do ' mostantól összefűzzük a rendes karaktereket
s3= mid(s1,actpos,1)
' Response.write " ?" & s3 & "? "
if (s3=" ") or s3="," then Exit do end if
s2= s2 & s3
actpos = actpos +1
loop while actpos <=l
' Response.write " ---" & s2 & "--- "
startpos = actpos+1
strToken = s2
end function
'startpos-tól kezdve kiemeli a következő elválasztókarakterig tartó szót
'a startpos-ba visszaírja a vég-pozíciót!
'a strToken-hez képest különbség, hogy ha a kapott pozíción elválasztójel van, akkor
' arról lelép, de ha a következő is az, akkor üres stringgel tér vissza
'
function strToken2( s1, startpos, elvalaszto )
dim s2,s3, actpos, l
l= len(s1)
s2=""
actpos=startpos
if s3= mid(s1,actpos,1) = elvalaszto then
actpos = actpos +1
end if ' csak egyet lép! ha a következő is az, üres string az eredmény!
do ' mostantól összefűzzük a rendes karaktereket
s3= mid(s1,actpos,1)
' Response.write " ?" & s3 & "? "
if (s3=elvalaszto) then Exit do end if
s2= s2 & s3
actpos = actpos +1
loop while actpos <=l
' Response.write " ---" & s2 & "--- "
startpos = actpos+1
strToken2 = s2
end function
'az s1-ben szereplő szavakat aposztrófok közé teszi és vesszővel elválasztja, hogy SQL IN()-be bele lehessen tenni
function ListaAposztrofoz( s1 )
dim s2,s3,s4,actpos,l
l= len(s1)
s4=""
actpos=1
do
s2=""
do 'keressük meg az első nem space, nem vesszőt
s3= mid(s1,actpos,1)
if (s3<>" ") and s3<>"," then Exit do end if
actpos = actpos +1
loop while actpos <=l
do ' mostantól összefűzzük a rendes karaktereket
s3= mid(s1,actpos,1)
if (s3=" ") or s3="," then Exit do end if
s2= s2 & s3
actpos = actpos +1
loop while actpos <=l
if (s2="") then Exit do end if ' nem volt több benne
if (s4<>"") then s4= s4 & "," end if
s4= s4 & "'" & s2 & "'"
loop while actpos <=l
ListaAposztrofoz = s4
end function
sub PageNavigation(act,max) ' lapozás
%>
<%
if max>1 then '-------1 oldalnyi találat esetén ne írjuk ki a számozást-------------
If act = 1 Then
PageFirst("disabled")
else
PageFirst("")
end if
If act >10 Then
PagePrev10 "",act-10
else
PagePrev10 "disabled",1
end if
If act >1 Then
PagePrev "",act-1
else
PagePrev "disabled",1
end if
%>
<%=act%> / <%=max%> lap
<%
If act < max Then
PageNext "",act+1
else
PageNext "disabled",1
end if
If max-act>=10 Then
PageNext10 "",act+10
else
PageNext10 "disabled",1
end if
If act <> max Then
PageLast "",max
else
PageLast "disabled",max
end if
else
'--------------- Ajánlat -------------
if ucase(Szuro_Mod)="DEFAULT" then
%>
<%
end sub
sub PageNext(btnstate,page)
%>
class="fa" style="width:93px">
<%
end sub
sub PageNext10(btnstate,page)
%>
class="fa" style="width:93px">
<%
end sub
sub PagePrev(btnstate,page)
%>
class="fa" style="width:93px">
<%
end sub
sub PagePrev10(btnstate,page)
%>
class="fa" style="width:93px">
<%
end sub
sub PageFirst(btnstate)
%>
class="fa" style="width:93px">
<%
end sub
sub PageLast(btnstate,max)
%>
class="fa" style="width:93px">
<%
end sub
sub GetCikkadat(cnn, rst, cikkazon, talalatszam )
Dim strSQL
strSQL = "SELECT " _
& "C.CIKK_AZONOSITO," _
& "C.CIKKSZAM," _
& "C.Y_BEERK_IDO," _
& "C.Y_RENDELHETO_RA, " _
& "C.Y_TOPS_RA," _
& "C.Y_TOPE_RA," _
& "C.Y_UJ_RA," _
& "C.Y_AKCIO_RA," _
& "ISNULL(C.Y_KEP_HELY,'00000') Y_KEP_HELY," _
& "ISNULL(AR.ARTIPUS_ERTEK,-1) ARTIPUS_ERTEK," _
& "ISNULL(AR.ARTIPUS_ERTEK_MAX,-1) ARTIPUS_ERTEK_MAX," _
& "C.Y_MEGJEGYZES, " _
& "ISNULL(C.KESZLET_MENNY_S,0) KESZLET_MENNY_S, " _
& "ISNULL(C.KESZLET_MENNY_M,0) KESZLET_MENNY_M, " _
& "ISNULL(C.EMBL_MIN,0) EMBL_MIN, " _
& "ISNULL(C.KIS_CSOMAG,1) KIS_CSOMAG, " _
& "ISNULL(C.NAGY_CSOMAG,1) NAGY_CSOMAG, " _
& "C.Y_REND_EGYS_RA," _
& "C.Y_MARKA," _
& "C.Y_JELLEMZO_1_ADAT," _
& "C.Y_MERET," _
& "C.Y_KAT, " _
& "GK.NEV KATNEV, " _
& "ISNULL(C.AFA,20) AFA," _
& "C.Y_RESZFUNKCIO, " _
& "ISNULL(C.Y_LATHATO_KAT_GIFTON,0) Y_LATHHATO_KAT_GIFTON, " _
& "C.FIKTIV_KOD_FLAG, " _
& "C.G_ELEM_STATUS, " _
& "C.G_ELEM_TIPUS, " _
& "C.G_ELEM_DB, " _
& "ISNULL(C.CSOMAG_K,0) CSOMAG_K, " _
& "ISNULL(C.CSOMAG_N,0) CSOMAG_N, " _
& "ISNULL(C.CSOMAG_V,0) CSOMAG_V, " _
& "ISNULL(C.CSOMAG_M,0) CSOMAG_M, " _
& "CSM.G_CSOMAGOLAS_NEV, " _
& "CSM.G_CSOMAGOLAS_NEV_EN, " _
& "CSM.G_CSOMAGOLAS_KOD, "
strSQL = strSQL + "ISNULL(C.KESZLET_MENNY_U,0) KESZLET_MENNY_U, " ' TELJES ÚTONLEVŐ
if sLangCikk="HUN" then
cikkmegnevezes= "C.CIKKMEGNEVEZES "
else
cikkmegnevezes= "A.CIKKMEGNEVEZES "
end if
strSQL = strSQL & cikkmegnevezes ' utolsó mező, nincs vessző
strSQL = strSQL & "FROM GOLD_CIKK C ,GOLD_KATALOGUS GK , GOLD_ARSOR AR, G_CSOMAGOLAS_MOD CSM "
if sLangCikk<>"HUN" then
strSQL = strSQL & ", GOLD_ALT_CIKKNEV A "
end if
strSQL = strSQL _
& " WHERE '1'='1' " _
& " AND C.CIKK_AZONOSITO=AR.CIKK_AZONOSITO" _
& " AND AR.ARTIPUS_KOD=" + Session("ARTIP1") + " "
' & " AND SUBSTRING(C.Y_KAT,1,4) = GK.KOD "
' & " AND SUBSTRING(C.Y_KAT,1,4) += GK.KOD " _
'C.Y_LATHATO_RA='1'
'COLLATE HUNGARIAN_CI_AS
' & " AND C.FIKTIV_KOD_FLAG='0' " _
strSQL = strSQL & " AND C.CIKK_AZONOSITO="+ cikkazon
strSQL = strSQL & " AND C.G_CSOMAGOLAS_KOD*=CSM.G_CSOMAGOLAS_KOD "
if sLangCikk<>"HUN" then
strSQL = strSQL & " AND C.CIKK_AZONOSITO=A.CIKK_AZONOSITO " _
& " AND A.NYELV_KOD='"+sLangCikk+"' "
end if
shsql(strSQL)
Set rst = Server.CreateObject("ADODB.Recordset") ' MEZŐNEVES HIVATKOZÁS KELL
'response.write strSQL
rst.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
talalatszam = rst.RecordCount ' megtalálta vagy sem? 0/1
end sub
fixktg=0
embltech=""
valtktg=0
termek_ar=0
cikknev=""
cikkszam=""
sub emblkalk(cikkazon, mennyiseg, emblszin, emblterm, embltechkod)
sql1="select megnevezes,fix_ktg,valt_ktg from g_cikk_emblnev e, g_cikk_emblktg k where e.embl_kod='"+embltechkod+"' and nyelv='HUN' and e.embl_kod=k.embl_kod and k.cikk_azonosito="+cikkazon
shsql(sql1)
set lista00=cnnsearch.execute(sql1)
embltech=lista00("megnevezes")
fixktg= lista00("fix_ktg")
valtktg=lista00("valt_ktg")
sql1="select cikkszam,cikkmegnevezes,artipus_ertek from gold_cikk c, gold_arsor a where c.cikk_azonosito=a.cikk_azonosito and c.cikk_azonosito="+cikkazon+" and a.artipus_kod="+session("ARTIP1")
set lista00=cnnsearch.execute(sql1)
cikknev=lista00("cikkmegnevezes")
termek_ar=lista00("artipus_ertek")
cikkszam=lista00("cikkszam")
session("embl_ar")=cstr(round((valtktg*emblterm*emblszin*mennyiseg+fixktg*emblszin+cdbl(termek_ar)*cint(mennyiseg))/mennyiseg))
end sub
sub emblkalkkiir(cikkazon, mennyiseg, emblszin, emblterm, embltechkod)
emblkalk cikkazon, mennyiseg, emblszin, emblterm, embltechkod
%>
<%
end sub
sub emblkalkkiir2(cikkazon, mennyiseg, emblszin, emblterm, embltechkod)
emblkalk cikkazon, mennyiseg, emblszin, emblterm, embltechkod
%>
<%= rstSearch.Fields("CIKKSZAM").Value %>
<%= rstSearch.Fields("CIKKMEGNEVEZES").Value %>
"A" then
devjel=Session("DEV1_JEL")
else
devjel="pont"
end if
if Session("DEV1")="HUF" then
response.write "'"+FormatNumber( Cdbl(termek_ar)*sEngszorzo,0) +"' > "
else
response.write "'"+FormatNumber( Cdbl(termek_ar)*sEngszorzo,2) +"' > "
end if
%>
<%=devjel%>
"
else
response.write "'"+FormatNumber( cDbl(kosar_db) * Cdbl(termek_ar)*sEngszorzo,2) +"' > "
end if
%>
<%
end sub
function get_husegpont_szaz(tetel_ertek,tetel_tipus)
sql="select credit from g_credit_sav where ertek_min<="+cstr(tetel_ertek)+" and ertek_max>"+cstr(tetel_ertek)+""
sql=sql+" and getdate()>=datum_min and getdate()"+cstr(tetel_ertek)+""
sql=sql+" and getdate()>=datum_min and getdate()=datum_min and getdate()"
do while not listaE.eof
if ujfejlec<>listaE("tetel_tipus") then
response.write "
"
if listaE("tetel_tipus")="E" then
response.write "Emblémázott termék esetén"
else
response.write "Emblémázatlan termék esetén"
end if
response.write "
"
ujfejlec=listaE("tetel_tipus")
end if
response.write "
"+cstr(listaE("ertek_min"))+" Ft tételértéktől
"+cstr(listaE("credit"))+"% hűségpont
"
listaE.movenext
loop
response.write ""
end sub
sub husegpont_ajanlo_szoveg(mennyiseg,egysegar,rend_egyseg)
sql="select max(ertek_min) maxlimit, tetel_tipus from g_credit_sav where tetel_tipus in ('T','E') "
sql=sql+" and getdate()>=datum_min and getdate()mennyiseg*egysegar then
limitdb=RoundUp(((listaE("maxlimit")-0*egysegar)/egysegar)/rend_egyseg)*rend_egyseg
if listaE("tetel_tipus")="E" then
response.write "Emblémázottan már " + cStr(limitdb) + " db esetén kap " + cstr(get_husegpont_ertek(cdbl(limitdb*egysegar),"E")) + " (" + cstr(get_husegpont_szaz(cdbl(listaE("maxlimit")),"E")) + "%) hűségpontot!
"
else
response.write "Emblémázatlanul már " + cStr(limitdb) + " db esetén kap " + cstr(get_husegpont_ertek(cdbl(limitdb*egysegar),"T")) + " (" + cstr(get_husegpont_szaz(cdbl(listaE("maxlimit")),"T")) + "%) hűségpontot!
"
end if
end if
listaE.movenext
loop
end sub
function RoundUp(ertek)
RoundUp=round(ertek+0.5,0)
end function
%>
<% Response.Write " ("+cStr(iRecordCount)+" "+talalat +")" %>
<%=Osszes_szuro_torlese%>