<%@language="VBScript" %>
<% Response.Expires = -1500 %>
<% Set oLanguage = VCFSetDefaultLanguage(Session("Language")) %>
<% if session("username") = "" or session("level") = "" then %>
<% Response.Redirect "../sswcommon/unauth.asp"%>
<% end if %>
<% NrDispenser = Request("Server") %>
<% Session("Delay") = 30 %>
<% backpage=Session("backpage") %>
<% PageNumber = Request("PageNumber") %>
<%session("CurrPage")= "custinprogressdet.asp"%>
<%dbdsn=Session("dsn")%>
<% CustomerForced = Request("CustomerForced") %>
<% on error resume next %>
<% Back=Request("Back")%>
<%if Back="undefined" or Back="" then Back="NO"%>
<% set registry = Server.CreateObject("ssregistry.gpregistry")
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
NOfDigits = registry.ReadRegParamP ("BasketService", "LocalCurrencyScale")
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
%>
<%
if CustomerForced<> "" or CustomerForced<>"undefined" then
set RCCustomers = Server.CreateObject("SSRetailerCustom.RCCustomers" )
VBSForceCheck(CustomerForced)
end if
%>
<%
function GroupDecimal
GroupDecimal = mid(Formatnumber(10000,2),7,1)
end function
function GroupDigit
GroupDigit = mid(Formatnumber(10000,2),3,1)
end function
function What_Query()
Set RSRetailer_Specific = Server.CreateObject("ADODB.RecordSet")
RSRetailer_Specific.CursorType=1
RSRetailer_Specific.Open " select par_value from RetailerSpecific where par_name='PMSEnabled'", dbdsn
if not ((RSRetailer_Specific.EOF) and (RSRetailer_Specific.BOF)) then
RSRetailer_Specific.movefirst
What_Query = RSRetailer_Specific("par_value")
else
What_Query = "NO"
end if
end function
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
set ObjMonitor = Server.CreateObject("SSMoni.Monitor.1")
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
Session("Where")= oLanguage.FastTranslate("de_Shop_Run")
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
dim oggettoxml
dim SeekUrl
dim FormatNum
SeekUrl = "http://" + Request.ServerVariables("SERVER_NAME")+Left(Reques t.ServerVariables("PATH_INFO"),Len(Request.ServerV ariables("PATH_INFO"))-3)+"xsl"
loadXMLXSL oggettoxsl,SeekUrl
ReplaceVariable oggettoxsl,"Server","'"+NrDispenser+"'"
'DispenserName = "'"+cstr(ObjMonitor.BasketServerName(NrDispenser)) +"'"
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
'ReplaceVariable oggettoxsl,"DispenserName",DispenserName
ReplaceVariable oggettoxsl,"IsPushMarketingEnabled","'"+ucase(What _Query)+"'"
ReplaceVariable oggettoxsl,"Backpage","'"+backpage+"'"
ReplaceVariable oggettoxsl,"Target","'_self'"
FormatNum = RegNumberOfdigits
'ReplaceVariable oggettoxsl,"Formato","'" + FormatNum + "'"
'ReplaceCurrencyDecimalVariable,"formatcurrency"," '" + GroupDecimal + "'"
'ReplaceCurrencyGroupingVariable,"formatcurrency", "'" + GroupDigit + "'"
'Set ObjBasket = ObjMonitor.BasketInterface(NrDispenser)
'if ObjBasket is nothing then
' CountInterface = 0
'else
CountInterface = 1
' ObjBasket = nothing
'end if
'Response.Write(CountInterface)
ReplaceVariable oggettoxsl,"NumOfInterfaces","'" + cstr(CountInterface) + "'"
' Questa parte viene eseguita esclusivamente alla pressione di un pulsante
if cstr(PageNumber) = "" or cstr(PageNumber) = "undefined" then
ReplaceVariable oggettoxsl,"page_number","'1'"
else
ReplaceVariable oggettoxsl,"page_number","'" + cstr(PageNumber) + "'"
end if
if ucase(Back)="YES" then ' utilizzato nel caso di back da pagina dettagli per la paginazione
NRPage=Request("Page")
ReplaceVariable oggettoxsl,"page_number","'" + cstr(NRPage) + "'"
end if
Translate oggettoxsl
%>
<% CBack = Request("ComeBack") %>
<%if lcase(CBack) = "yes" then ' se catch un errore allora popup e torno al sicuro%>
<script language="Javascript">
alert("<%=oLanguage.FastTranslate("DE_Page_Not_Ava ilable")%>")
top.location.replace("../SSWMenu/custmanframe.asp")
</script>
<%else%>
<HTML>
<HEAD>
<title><% = oLanguage.FastTranslate("sswcustman") %></title>
<%
if err.number <> 0 then
Response.Redirect("custinprogressdet.asp?ComeBack= yes") ' torno al sicuro
end if
%>
<STYLE>
a:link { text-decoration: none; color:white }
a:active { text-decoration: none; color:white }
a:visited { text-decoration: none; color:white }
a:hover { text-decoration: none; color:white }
.catalog_genre_head {background-color:darkGreen;font-size:18pt;color:white}
.catalog_head {background-color:"#0000BD";font-size:14pt;color:white;}
.catalog_row0 {background-color:gainsboro;font-size:12pt;color:#2077ba;}
.catalog_row1 {background-color:white;font-size:12pt;color:#2077ba;}
</STYLE>
</HEAD>
<BODY>
<DIV id="baskets_table">
<xml id="Current_Baskets">
<%= cstr("<Baskets><BasketElement><ID_Transaction type='Text'>4395</ID_Transaction><ClientID type='Text'>1</ClientID><ClientName type='Text'>Nome1</ClientName><ClientSurname type='Text'>Cognome1</ClientSurname><TerminalID type='Text'>1</TerminalID><PersonalMessage type='Text'></PersonalMessage><Language type='Text'>ita</Language><TerminalSlot type='Text'>0</TerminalSlot><DispenserNr type='Text'>0</DispenserNr><BasketMode type='Text'>0</BasketMode><Card_Code type='Text'>0280349974006</Card_Code><Card_CodeAssociate/><CustomerCategory type='Text'>1</CustomerCategory><Status type='Text'>2</Status><TS_Trans_Time type='Text'>2004-09-29T12:13:25</TS_Trans_Time><TS_Trans_Time_End type='Text'>2004-09-29T12:13:55</TS_Trans_Time_End><FlagCheckScan type='Text'>0</FlagCheckScan><TP_Gros_Amount type='Text'>71.64</TP_Gros_Amount><TP_Gros_Amount2ndCur type='Text'>138714</TP_Gros_Amount2ndCur><TP_Net_Amount type='Text'>71.64</TP_Net_Amount><TP_Net_Amount2ndCur type='Text'>138714</TP_Net_Amount2ndCur><TP_Disc_Amount type='Text'>0</TP_Disc_Amount><TP_Disc_Amount2ndCur type='Text'>0</TP_Disc_Amount2ndCur><PointsByItem type='Text'>0</PointsByItem><PointsByTotal type='Text'>0</PointsByTotal><TP_Bonus_Amount type='Text'>0</TP_Bonus_Amount><SpecialPrice type='Text'>0</SpecialPrice><QU_Basket_Items type='Text'>20</QU_Basket_Items><QU_Basket_Items_NotFound type='Text'>0</QU_Basket_Items_NotFound><QU_Basket_Items_AntiShop lifting type='Text'>1</QU_Basket_Items_AntiShoplifting><PayEnabled type='Text'>1</PayEnabled><Customer><ID_Ct_Code_Uni>1</ID_Ct_Code_Uni><ID_Ct_Pin>0</ID_Ct_Pin><FN_Ct_Name>Nome1</FN_Ct_Name><LN_Ct_Surname>Cognome1</LN_Ct_Surname><ID_Category_Code>1</ID_Category_Code><TS_Birth_Date></TS_Birth_Date><A1_Ct_Ads></A1_Ct_Ads><PC_Ct_Cap></PC_Ct_Cap><CI_Ct_City></CI_Ct_City><PR_Ct_District></PR_Ct_District><ST_Ct_Country></ST_Ct_Country><PH_Ct_Tel></PH_Ct_Tel><FlagPayEnabled>1</FlagPayEnabled><UseMode>0</UseMode><PersonalMessage></PersonalMessage><Enabled>1</Enabled><Ct_Card_Code>0280349974006</Ct_Card_Code><Ct_Card_Date></Ct_Card_Date><Ct_Card_EndDate></Ct_Card_EndDate><Sex></Sex><last_update_date>2004-06-07T11:12:48</last_update_date><Notes></Notes><Ct_Shopping_Card_Code>0280349974006</Ct_Shopping_Card_Code><Language>ita</Language><Ct_Application_Number></Ct_Application_Number><Ct_Firm_Number>1</Ct_Firm_Number><ID_CheckClass>1</ID_CheckClass><AM_NumCheck>0</AM_NumCheck><AI_NumOfUse>0</AI_NumOfUse><AM_NumSinceLastCheck>0</AM_NumSinceLastCheck><LastDayUsed>2004-06-07T11:12:48</LastDayUsed><LastCheckDate>2004-06-07T11:12:48</LastCheckDate><State>2</State><TerminalIDAssigned>1</TerminalIDAssigned><Next_Forced_Checks>0</Next_Forced_Checks><ID_LastCheckClass></ID_LastCheckClass><money_difference_on_last_check> </money_difference_on_last_check><spotcheck_state></spotcheck_state><spotcheck>0</spotcheck></Baskets>")%>
</xml>
<xml id="Baskets_filter" >
<% =oggettoxsl.xml %>
</xml>
</DIV>
<SCRIPT language="JavaScript">
function showOrderType(doc,order_type,datatype)
{
sort(doc,order_type,datatype);
baskets_table.innerHTML=xmlDoc.transformNode(doc);
window.setTimeout("addImg()",1);
}
function sort(doc,key,datatype)
{
var s = doc.selectNodes("*/xsl:template/xsl:if/xsl:if/TABLE/TR/TD/TABLE/xsl:for-each/xsl:sort/@select");
for (var i = s.nextNode(); i != null; i = s.nextNode())
i.value = key;
var s = doc.selectNodes("*/xsl:template/xsl:if/xsl:if/TABLE/TR/TD/TABLE/xsl:for-each/xsl:sort/@data-type");
for (var i = s.nextNode(); i != null; i = s.nextNode())
i.value = datatype;
}
function showField(name,checked)
{
EnableField(xslDoc,name,checked);
baskets_table.innerHTML=xmlDoc.transformNode(xslDo c);
window.setTimeout("addImg()",1);
}
function showFiltered(filter_field,filter_value)
{
alert(filter_field+" "+filter_value);
FilterField(xslDoc,filter_field,filter_value);
baskets_table.innerHTML=xmlDoc.transformNode(xslDo c);
window.setTimeout("addImg()",1);
}
function FilterField(doc,filter_field,filter_value)
{
var str = new String();
str = "*/xsl:variable[@name=\"selected_field\"]/@select";
var s = doc.selectNodes(str);
for (var i = s.nextNode(); i != null; i = s.nextNode())
i.value = filter_field;
var str = new String();
str = "*/xsl:variable[@name=\"selected_filter\"]/@select";
var s = doc.selectNodes(str);
for (var i = s.nextNode(); i != null; i = s.nextNode())
i.value = filter_value;
}
function EnableField(doc,name,checked)
{
var str = new String();
str = "*/xsl:variable[@name=\"" + name + "\"]/@select";
var s = doc.selectNodes(str);
for (var i = s.nextNode(); i != null; i = s.nextNode())
i.value = checked;
}
function RedirectToPage(ServerIn,BasketIn)
{
var svr = new String(ServerIn)
var bkt = new String(BasketIn)
where = "ShopRedirect.asp?Server="+svr+"&Basket="+ bkt
window.open (where,null,"height=200,width=400,status=yes,toolb ar=no,menubar=no,location=no")
}
function GoToForceCheck(new_page_number,CustomerID)
{
var CustID = new String(CustomerID)
location.replace("custinprogressdet.asp?PageNumber ="+new_page_number+"&CustomerForced="+CustID)
}
function addImg()
{
var imgs;
imgs = document.body.all.tags("IMG");
var len=imgs.length;
for(i=0;i<len;i++)
imgs[i].src= imgs[i].src;
}
var xmlDoc = new ActiveXObject("Msxml2.FreeThreadedDOMDocument");
xmlDoc.async = false;
xmlDoc.load(Current_Baskets.XMLDocument);
var xslt = new ActiveXObject("Msxml2.XSLTemplate");
var xslProc;
var xslDoc = new ActiveXObject("Msxml2.FreeThreadedDOMDocument");
xslDoc.async = false;
xslDoc.load(Baskets_filter.XMLDocument);
showOrderType(xslDoc,"ID_Transaction","number");
</SCRIPT><SCRIPT Language="VBScript">
sub kill(SingleBasket,NrBasket,NrDispenser)
' SingleBasket = true -> uccide un solo basket
' SingleBasket = false -> uccide tutti i basket
' NrBasket = numero basket
' NrDispenser = id dispenser
RC = MsgBox("<%= oLanguage.FastTranslate("DE_Terminate_Shopping")%> ",vbExclamation+vbYesNo,"<%= oLanguage.FastTranslate("DE_Basket_Server_Warning" )%>")
if RC = vbYes then
RedirectOK = "location.replace(""../SSWCustomerSale/custinprogressdet.asp"")"
RedirectKO = "location.replace(""../SSWCustomerSale/custinprogressdet.asp?ComeBack=yes"")"
location.replace("../SSWCommon/kill.asp?SingleBasket="+cstr(SingleBasket)+"&NrBas ket="+cstr(NrBasket)+"&NrDispenser="+cstr(NrDispen ser)+"&RedirectOK="+cstr(RedirectOK)+"&RedirectKO= "+cstr(RedirectKO))
end if
end sub
</SCRIPT>
</BODY>
</HTML>
<% end if %>
<% Set oLanguage = Nothing %>
<script>
function GoToPage(doc,new_page_number,total_pages)
{
if (isNaN(new_page_number))
{
alert ("<%=oLanguage.fasttranslate("ssw_errnuminput")%>" )
// messaggio di errore perche la nuova pagina non è un numero
return false;
}
if ((new_page_number<1) || (new_page_number>total_pages))
{
alert ("<%=oLanguage.fasttranslate("ssw_erroutofrange")% >")
return false;
}
// location.replace("custinprogressdet.asp?PageNumber ="+new_page_number)
var str = new String();
str = "*/xsl:template/xsl:variable[@name=\"page_number\"]/@select";
var s = doc.selectNodes(str);
for (var i = s.nextNode(); i != null; i = s.nextNode())
i.value = "'"+ new_page_number + "'";
baskets_table.innerHTML=xmlDoc.transformNode(doc);
f.Close();
}
</script>
Rispondi quotando
