/<%=easy5css%>" type="TEXT/CSS" rel="STYLESHEET"> <% if Session("BELEP")<>"1" then response.redirect "../easy5/fooldal.asp?p=./login1.asp" response.end end if ' Főmenü, Termékek, Kosár menü kiírása Dim menu_top_act menu_top_act="F" 'response.write session("partnerkod") %>
<% Dim oISPartner,RsISPartner Dim bLogin Dim sDelayed Session("SessionID") = CStr((10000 * Rnd) + 1) '------------------------------most csak magyar verzió van--------------------- 'sLAng=Session("LANG1") sLang="HUN" '----------------------------------------------------------------------------- select case sLang case "HUN" sDelayed="Késik" sNoconf="Nem Vig." sNotAvailable="Kifutott" snextyear="Jövőre" case "ENG" sDelayed="Delayed" sNoconf="No Conf." sNotAvailable="Not Available" snextyear="Next Year" end select if 1 = 1 then 'Betöltés Dim cnnSearch Dim strDBPath set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=SQLOLEDB;Data Source=(local);" _ & "Initial Catalog=Yukon2;User Id=sa;Password=websa;" _ & "Connect Timeout=60;" Dim strSQL ' strSQL = "SELECT " _ ' & "V.PARTNER_KOD,P.PARTNER_NEV,P.IRANYITOSZAM,P.CIM,P.TELEFON,P.TELEFAX, " _ ' & "V.CIKKSZAM, S.CIKKMEGNEVEZES, V.RAKTAR_KOD, V.AZONOSITO,V.ARENG_SZAZ," _ ' & "V.LISTAAR,V.DEVIZA_KOD,V.ENG_AR,V.ERTEK,V.MENNY_RU,V.MENNY_FPS,SS.ANGOL_STATUS,V.HATARIDO,P.VAROS " _ ' & "FROM GOLD_MEGR_VISSZAIG V, GOLD_MEGR_PARTNER P, GOLD_ALT_CIKKNEV_SHOP S, GOLD_ALT_STATUS_SHOP SS " _ ' & "WHERE " _ ' & "V.SOR_STAT*=SS.MAGYAR_STATUS AND V.CIKK_AZONOSITO=S.CIKK_AZONOSITO AND " _ ' & "V.PARTNER_KOD=P.PARTNER_KOD AND V.PARTNER_KOD=" & CStr(Session("PartnerKod")) '------------ cSAK MAGYAR NYELVŰ VISSZAIGAZOLÁS VAN LAKOSSÁGINÁL!----------------------------------- ' select case sLang ' case "HUN" strSQL = "SELECT " _ & "V.PARTNER_KOD,P.PARTNER_NEV,P.IRANYITOSZAM,P.CIM,P.TELEFON,P.TELEFAX, " _ & "V.CIKKSZAM, C.CIKKMEGNEVEZES, V.RAKTAR_KOD, V.AZONOSITO,V.ARENG_SZAZ," _ & "V.LISTAAR,V.DEVIZA_KOD,V.ENG_AR,V.ERTEK,V.MENNY_RU,V.MENNY_FPS,V.SOR_STAT " _ & ",V.HATARIDO,P.VAROS " _ & "FROM GOLD_MEGR_VISSZAIG V, GOLD_MEGR_PARTNER P, GOLD_CIKK C " _ & "WHERE " _ & " V.CIKK_AZONOSITO=C.CIKK_AZONOSITO AND " _ & "V.PARTNER_KOD=P.PARTNER_KOD AND V.PARTNER_KOD=" & CStr(Session("PartnerKod")) & " ORDER BY V.CIKKSZAM" ' case "ENG" ' strSQL = "SELECT " _ ' & "V.PARTNER_KOD,P.PARTNER_NEV,P.IRANYITOSZAM,P.CIM,P.TELEFON,P.TELEFAX, " _ ' & "V.CIKKSZAM, S.CIKKMEGNEVEZES, V.RAKTAR_KOD, V.AZONOSITO,V.ARENG_SZAZ," _ ' & "V.LISTAAR,V.DEVIZA_KOD,V.ENG_AR,V.ERTEK,V.MENNY_RU,V.MENNY_FPS,SS.ANGOL_STATUS " _ ' & ",V.HATARIDO,P.VAROS " _ ' & "FROM GOLD_MEGR_VISSZAIG V, GOLD_MEGR_PARTNER P, GOLD_ALT_CIKKNEV S, GOLD_ALT_STATUS SS " _ ' & "WHERE " _ ' & "V.SOR_STAT*=SS.MAGYAR_STATUS COLLATE Latin1_General_CI_AS AND V.CIKK_AZONOSITO=S.CIKK_AZONOSITO AND " _ ' & "V.PARTNER_KOD=P.PARTNER_KOD AND V.PARTNER_KOD=" & CStr(Session("PartnerKod")) & " AND S.NYELV_KOD='" & sLang & "' " ' ' end select set lista=cnnSearch.execute(strSQL) 'response.write strSQL if lista.eof then%>





<% select case sLang case "HUN" %>Önnek nincs nyitott megrendelése!<% case "ENG" %>You have not any on-going orders!<% end select %>

<% else Dim VendorSQL1 Dim VendorSQL2 VendorSQL1= " SELECT P.VALLALAT_NEV, P.IRANYITOSZAM,P.CIM,P.VAROS,P.TELEFON,P.TELEFAX,P.PENZFORG_JELZOSZAM " _ & " FROM GOLD_FELHASZNALO_PARAM P" VendorSQL2= " SELECT " _ & "SZ.SZEMELY_NEV,SZ.KERESZT_NEV, SZ.G_EMAIL " _ & " FROM GOLD_DOLGOZO D, GOLD_SZEMELY SZ, GOLD_MEGR_PARTNER MP " _ & "WHERE MP.G_DOLGOZO_KOD=D.DOLGOZO_KOD AND D.SZEMELY_AZONOSITO=SZ.SZEMELY_AZONOSITO AND " _ & "MP.PARTNER_KOD=" & CStr(Session("PartnerKod")) 'response.write VendorSQL2 set ListaVendor1=cnnSearch.execute(VendorSQL1) set ListaVendor2=cnnSearch.execute(VendorSQL2) %>
<%=szallito %> <% =vevo %>
<%=ListaVendor1(0)%> <%=lista(1)%>
<%=ListaVendor1(1)%> <%=ListaVendor1(3)%>, <%=ListaVendor1(2)%> <%=lista(2)%> <%=lista(19)%>, <%=lista(3)%>
<% =telefon %>: <%=ListaVendor1(4)%> <%=telefax %>: <%=ListaVendor1(5)%> <% =telefon %>: <%=lista(4)%>
<%=bankszamlaszam%>: <%=ListaVendor1(6)%> <%=telefax%>: <%=lista(5)%>


<% if not lista.eof then%> <% do while not lista.EOF%> <% sCikkszam = lista(6) lista.MoveNext() if not(lista.EOF) then %> <% do while not lista.EOF if lista(6) = sCikkszam then %> <% else exit do end if lista.MoveNext() loop%> <% else%> <% end if loop Parancs= " SELECT SUM(ERTEK_RU) Netto_uton,SUM(ERTEK_RU)*1.20 Brutto_uton , " _ & " SUM(ERTEK_FPS) Netto_rakt, SUM(ERTEK_FPS)*1.20 Brutto_rakt " _ & " FROM GOLD_Megr_Visszaig WHERE PARTNER_KOD = " & CStr(Session("PartnerKod")) set listaSum=cnnSearch.execute(Parancs) %>
<%=cikkszam %> <% =cikknev %> <% =ar %> <% =ertek %> <% =menniyseg %> <% =status %> <%=hatarido %>
<%=megrendeles_szama %> <% =engar %> <% =nincsraktaron %> <% =vanraktaron %> (YYYY.MM.DD)
<%=lista(6)%> <%=lista(7)%> <%=SetFrmt(lista(11),2)%> <%=lista(12)%>
<%=lista(8)%> <%=lista(9)%> <%if not isnull(lista(10)) then if CDbl(lista(10))< 0 then Response.Write(Cstr(SetFrmt(lista(10),0)) + " %") end if end if%> <%=SetFrmt(lista(13),2)%> <%=SetFrmt(lista(14),0)%> <%if CDbl(lista(15)) > 0 then Response.Write(Cstr(SetFrmt(lista(15),0))) end if%> <%if CDbl(lista(16)) > 0 then Response.Write(Cstr(SetFrmt(lista(16),0))) end if%> <%=Trim(lista(17))%> <%if not(Cstr(Year(lista(18))) = "2001" and Cstr(Month(lista(18))) = "1" and Cstr(Day(lista(18))) = "1") and not(Cstr(Month(lista(18))) = "12" and Cint(Day(lista(18))) > 27) then Response.Write(GetTheDate(lista(18))) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="28") then Response.Write(sDelayed) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="29") then Response.Write(sNextYear) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="30") then Response.Write(sNoConf) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="31") then Response.Write(sNotAvailable) end if %>
<%=lista(8)%> <%=lista(9)%> <%if not isnull(lista(10)) then if CDbl(lista(10))< 0 then Response.Write(Cstr(SetFrmt(lista(10),0)) + " %") end if end if%> <%=SetFrmt(lista(13),2)%> <%=SetFrmt(lista(14),0)%> <%if CDbl(lista(15)) > 0 then Response.Write(Cstr(SetFrmt(lista(15),0))) end if%> <%if CDbl(lista(16)) > 0 then Response.Write(Cstr(SetFrmt(lista(16),0))) end if%> <%=Trim(lista(17))%> <%if not(Cstr(Year(lista(18))) = "2001" and Cstr(Month(lista(18))) = "1" and Cstr(Day(lista(18))) = "1") and not(Cstr(Month(lista(18))) = "12" and Cint(Day(lista(18))) > 27) then Response.Write(GetTheDate(lista(18))) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="28") then Response.Write(sDelayed) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="29") then Response.Write(sNextYear) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="30") then Response.Write(sNoConf) end if if (Cstr(Month(lista(18))) = "12" and Cstr(Day(lista(18)))="31") then Response.Write(sNotAvailable) end if %>
<%=vegosszeg %> <%=SetFrmt(ListaSum(0),0)%> <%=SetFrmt(ListaSum(2),0)%>

<% =a_feltuntettet_arak %>


<%else%>

<% =onnek_nincs_nyitott %>


<%end if 'kifizetetlen számlák SzlaSQL= " SELECT SZLAKONYV_AZON,SZAMLASZAM,TARGYEV,TELJESITES_IDOPONT, FIZETESI_HATARIDO," _ & " FIZETESI_MOD_KOD, DATEDIFF(day, fizetesi_hatarido ,getdate()),BRUTTO,KI_SZLA_KINTLEV,DEVIZA_KOD " _ & " FROM GOLD_KISZAMLA WHERE PARTNER_KOD = " & CStr(Session("PartnerKod")) & " ORDER BY FIZETESI_HATARIDO" set listaSzla=cnnSearch.execute(szlaSQL) if not listaSzla.eof then%>
<% select case sLang case "HUN" %>Kifizetetlen számlák<% case "ENG" %>Unpaid invoices<% end select %> (<%=cstr(year(date)) & "." & cstr(month(date)) & "." &cstr(day(date))%>)
<%do while not listaSzla.EOF%> <%ListaSzla.MoveNext() loop%>
<% =szamla %> <% =teljesites %> <% =fizetesi_hatarido %> <% =fizetesi_mod %> <% =kesedelem %> <% =brutto_ertek %> <% =tartozas %>
<%=listaSzla(0)%> <%=listaSzla(1)%>/<%=Year(listaSzla(3))%> <%Response.Write(GetTheDate(listaSzla(3)))%> <%Response.Write(GetTheDate(listaSzla(4)))%> <%=listaSzla(5)%> <%=listaSzla(6)%>  <% =nap %> <% if isnull(listaSzla(7)) then Response.Write(SetFrmt(0,0)) else Response.Write(Setfrmt(listaSzla(7),0)) end if %> <%=listaSzla(9)%> <%=SetFrmt(listaSzla(8),0)%> <%=listaSzla(9)%>

<% =az_atutalas_es %>

<%else%>

<% =nincs_tartozasa %>

<% end if end if end if%>