![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) MyInvois Malaysia Submit DocumentSee more Malaysia MyInvois ExamplesDemonstrates how to submit a document to MyInvois.Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://sdk.myinvois.hasil.gov.my/einvoicingapi/02-submit-documents/
LOCAL lnSuccess LOCAL loHttp LOCAL loSbXmlDoc LOCAL lcSha256 LOCAL loSbEncoded LOCAL loJson LOCAL loResp lnSuccess = 0 * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loHttp = CreateObject('Chilkat.Http') * The following JSON is sent in the request body. * { * "documents": [ * { * "format": "XML", * "documentHash": "<SHA256_hash_of_document>", * "codeNumber": "INV12345", * "document": "<Document_encoded_in_Base64>" * } * ] * } * Load the document to be sent. loSbXmlDoc = CreateObject('Chilkat.StringBuilder') lnSuccess = loSbXmlDoc.LoadFile("c:/invoices/invoice1.xml","utf-8") * The MyInvois online documentation neglects to tell us the encoding of the documentHash. * Should it be base64? Or hex? We can only guess. MyInvois provides no samples, * and omits these crucial details which are needed for actual implementation. * * *** Note: It was confirmed that "hex" is the encoding that is needed. lcSha256 = loSbXmlDoc.GetHash("sha256","hex","utf-8") loSbEncoded = CreateObject('Chilkat.StringBuilder') loSbEncoded.AppendSb(loSbXmlDoc) loSbEncoded.Encode("base64","utf-8") loJson = CreateObject('Chilkat.JsonObject') loJson.UpdateString("documents[0].format","XML") loJson.UpdateString("documents[0].documentHash",lcSha256) loJson.UpdateString("documents[0].codeNumber","INV12345") loJson.UpdateSb("documents[0].document",loSbEncoded) * Adds the "Authorization: Bearer <access_token>" header. loHttp.AuthToken = "<access_token>" loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpJson("POST","https://preprod-api.myinvois.hasil.gov.my/api/v1.0/documentsubmissions",loJson,"application/json",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loSbXmlDoc RELEASE loSbEncoded RELEASE loJson RELEASE loResp CANCEL ENDIF ? "response status code = " + STR(loResp.StatusCode) ? loResp.BodyStr RELEASE loHttp RELEASE loSbXmlDoc RELEASE loSbEncoded RELEASE loJson RELEASE loResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.