<%@language = "javascript" %>
<% /*
     $Revision$
     $Id$

    File:               kenmerkresult.asp
    Description:        XML converter for showing result of selected properties
    Parameters:
        srtdeel_key     bestelling group
        objectlength    length obj
        obj             kenmerk information
    Context:            Called from show_kenmerkresult.asp
    Note:
*/ %>

<!-- #include file="../Shared/common.inc"-->
<!-- #include file="../Shared/xml_converter.inc" -->

<%
  var srtdeel_key = getQParamInt("srtdeel_key", -1);
  var flex_length = getFParamInt("flex_length", 0);

  var objReturn = new Array();
  objReturn[0] = new Array();  // bes_kenmerk_key
  objReturn[1] = new Array();  // bes_kenmerkbestell_waarde
  objReturn[2] = new Array();  // flexkenmerk omschrijving (label)
  objReturn[3] = new Array();  // flexkenmerkwaarde omschrijving (=1 met vertaalde kenmerkdomeinwaarden)

  if (flex_length > 0) {
    for (var j=0; j<=3; j++) {
      for (var i = 0; i < flex_length; i++)
      {
        objReturn[j][i] = unescape(getFParam('flex' + j + "_" + i, 0));
      }
    }
  }

  xml_content = "";

  sql = "SELECT "
      + lcl.xsqla('bes_srtdeel_omschrijving','bes_srtdeel_key') +", "
      + "bes.getsrtdeelprijs(bes_srtdeel_key, NULL) bes_srtdeel_prijs, "
      + lcl.xsqla('bes_srtdeel_eenheid','bes_srtdeel_key') +", "
      + "bes_srtdeel_veelvoud, NULL bes_srtdeel_inkprijs"  // TODO
      + " FROM bes_srtdeel"
      + " WHERE bes_srtdeel_key = " + srtdeel_key
  oRs = Oracle.Execute(sql);
  if (!oRs.eof) {
    l_srtdeel_omschrijving = safe.htmlattr(oRs("bes_srtdeel_omschrijving").value);
    l_srtdeel_prijs = safe.htmlattr(oRs("bes_srtdeel_prijs").value);
    l_srtdeel_eenheid = safe.htmlattr(oRs("bes_srtdeel_eenheid").value);
    l_srtdeel_veelvoud = safe.htmlattr(oRs("bes_srtdeel_veelvoud").value);
    l_srtdeel_inkprijs = safe.htmlattr(oRs("bes_srtdeel_inkprijs").value);
  }
  sql = "SELECT p.prs_perslid_voornaam"
      + ", p.prs_perslid_naam"
      + ", p.prs_perslid_telefoonnr"
      + ", p.prs_perslid_email"
      + ", " + S("prs_dep_string") + " prs_afdeling_naam"
      + " FROM prs_perslid p"
      + ", prs_v_afdeling d"
      + " WHERE p.prs_afdeling_key = d.prs_afdeling_key"
      + " AND p.prs_perslid_key = " + user_key;
  oRs = Oracle.Execute(sql);
  // schrijf informatie in xml_content
  if (!oRs.eof) {
    xml_content = "<?xml version='1.0' encoding='UTF-8'?>"
                + "<facilitor>"
                + "<header>"
                + "<custId>" + customerId + "</custId>"
                + "</header>"
                + "<bestelling mode='preview'>"
                + "  <user> "
                + "    <voornaam>" + safe.htmlattr(oRs(0).value) + "</voornaam>"
                + "    <naam>" + safe.htmlattr(oRs(1).value) + "</naam>"
                + '    <telefoonnummer>' + safe.htmlattr(oRs(2).value) + '</telefoonnummer>'
                + '    <email>' + safe.htmlattr(oRs(3).value) + '</email>'
                + '    <afdeling>' + safe.htmlattr(oRs(4).value) + '</afdeling>'
                + '  </user> ';
		xml_content += "<ItemOut>"
								+  "<ItemID>"
                +  "<SupplierPartID>" + srtdeel_key + "</SupplierPartID>"
                +  "</ItemID>"
                +  "<ItemDetail>"
                +  "<UnitPrice>"
                +  "<Money>" + l_srtdeel_prijs + "</Money>"
                +  "<MoneyCommercial>" + l_srtdeel_inkprijs + "</MoneyCommercial>"
                +  "</UnitPrice>"
                +  "<Description>" + l_srtdeel_omschrijving + "</Description>"
                +  "<UnitOfMeasure>" + l_srtdeel_eenheid + "</UnitOfMeasure>"
                +  "<UnitOfFactor>" + l_srtdeel_veelvoud + "</UnitOfFactor>"
                +  "</ItemDetail>"
                +  "</ItemOut>";
    for (var i=0; i<objReturn[0].length; i++) {
      if (objReturn[1][i] != null) {
        xml_content += '<kenmerk naam="' + objReturn[2][i] + '">' + safe.htmlattr(objReturn[3][i]) + '</kenmerk>';
        //__Log('0=' + objReturn[0][i] + ' / 1=' + objReturn[1][i] +' / 2=' + objReturn[2][i] + ' / 3=' + objReturn[3][i] );
      }
   }

    xml_content += "</bestelling>"
                + "</facilitor>";
  }
  __Log("xml_content = " + xml_content);

  stylesheet = GetStylesheet();
  STR2Stream(xml_content, stylesheet, Response);
%>
