|
FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile |
| | | | | |
| Iniciado por guest, 13,feb. 2018 13:03 - 2 respuestas |
| |
| | | |
|
| |
| Publicado el 13,febrero 2018 - 13:03 |
Hello,
Any working example to create a xml file from scratch in windev ? I need to create a xml file with 5 or more levels, couldn't find one.
Happiness always
BKR Sivaprakash |
| |
| |
| | | |
|
| | |
| |
| Publicado el 13,febrero 2018 - 13:48 |
There is a good example in the Wx Help under XML Management: Use example.
Has order number, date, product code, order line, description and quantity levels. |
| |
| |
| | | |
|
| | |
| |
| Publicado el 14,febrero 2018 - 18:00 |
Hi. Attached is an example that I use to issue a credit card charge. Not 5 levels but it works for me and created manually.
//XMLDelete(xmlFile1)
XMLClose("txnimport")
//XMLDelete("txnimport")
mycard is string = ""
//myxml =""
XMLSource is string =""
Res is boolean
// Create the XML document
Res = XMLDocument("txnimport", XMLSource)
// Was the document created?
IF Res = False THEN
Error("The document was not created.")
ELSE
//Info("The document was successfully created. It is ready to be used.")
END
HReadFirst(Merchant,MerchantID)
IF EDT_CC#1<>"" THEN
mycard = EDT_CC#1[[1 TO 4]] + EDT_CC#1[[6 TO 9]] + EDT_CC#1[[11 TO 14]] + EDT_CC#1[[16 TO 19]]
ELSE
mycard = EDT_CC#2[[1 TO 4]] + EDT_CC#2[[6 TO 11]] + EDT_CC#2[[13 TO 17]]
END
mytotal is currency = EDT_Total_Due + EDT_transport
EDT_TotalPaid = mytotal
myxml is string =""
IF international=0 THEN
//manually build xml file
myxml = myxml1
myxml = myxml +CR + "" + CR + ...
"" + Merchant.ssl_merchant_id + "" + CR + ...
"" + Merchant.ssl_pin + "" + CR + ...
"" + CR + ...
"" + EDT_contactnum + "-" + TimeSys() + "" + CR + ...
"" + CR + ...
"authCaptureTransaction" + CR + ...
"" + mytotal + "" + CR + ...
"" + CR + "" + CR + ...
"" + mycard + "" + CR + ...
"" + EDT_EXP1 + "" + CR + ...
"" + EDT_CVV + "" + CR + ...
"" + CR + "" + CR + "" + CR + "individual" + CR + "" + "" + CR + ...
"" + EDT_First_Name2 + "" + CR + "" + EDT_Last_name2 + "" + CR + ...
"" + EDT_Address7 + "" + CR + "" + EDT_Zip2 + "" + CR + "" + CR + "" + CR + ...
""
END
IF international = 1 THEN
myxml = myxml1
myxml = myxml +CR + "" + CR + ...
"" + Merchant.ssl_merchant_id + "" + CR + ...
"" + Merchant.ssl_pin + "" + CR + ...
"" + CR + ...
"" + EDT_contactnum + "-" + TimeSys() + "" + CR + ...
"" + CR + ...
"authCaptureTransaction" + CR + ...
"" + mytotal + "" + CR + ...
"" + CR + "" + CR + ...
"" + mycard + "" + CR + ...
"" + EDT_EXP1 + "" + CR + ...
"" + EDT_CVV + "" + CR + ...Win_Lookup
"" + CR + "" + CR + "" + CR + "individual" + CR + "" + "" + CR + ...
"" + EDT_First_Name2 + "" + CR + "" + EDT_Last_name2 + "" + CR + ...
"" + CR + "" + CR + ...
""
END
//info(myxml)
// Format the content of the XML document
XMLFile is string = ""
XMLFile = XMLBuildString("txnimport",XMLDocumentDefault,XMLEncodingUTF8)
mytext is string = XMLFile
mylength is int = Length(mytext)
// Save the XML file
fSaveText("C:\JimOrders\MyOrder.xml", myxml) |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|