31 lines
1.0 KiB
JavaScript
31 lines
1.0 KiB
JavaScript
// --------------------------------------------------------------------------------------
|
|
// T_SetSupplierText.js
|
|
// Copyright 2015 SG|facilitor. 053-4800 700, helpdesk@sgfacilitor.nl
|
|
// Written by MB (2015)
|
|
//
|
|
|
|
// v_company_id is hier dummy, puur uit orthogonaliteit met de AX functie.
|
|
// v_bonId is hier de bonid, uit het veld mld_opdr_ordernr.
|
|
function T_SetSupplierText(v_company_id, v_bonId, v_extraInfo)
|
|
{
|
|
var v_API = "SetBonInfo";
|
|
var v_req = "<tob:string>BonId=" + v_bonId + "</tob:string>"
|
|
+ "<tob:string>BonStatus=" + "Informatie" + "</tob:string>"
|
|
+ "<tob:string>BonInfo=" + v_extraInfo + "</tob:string>"
|
|
|
|
var v_type = 0;
|
|
|
|
var v_resp = apiAX(v_API, v_req, v_type);
|
|
|
|
|
|
if (v_type == 1 && v_resp != "")
|
|
{
|
|
oStream = new ActiveXObject("ADODB.Stream");
|
|
oStream.Open();
|
|
oStream.Type = 1; // adTypeBinary
|
|
oStream.Write(v_resp); // responseText geeft encoding problemen!
|
|
oStream.SaveToFile ("Log/test" + v_supplier_id + ".xml", 2);
|
|
oStream.Close();
|
|
}
|
|
return v_resp;
|
|
} |