![]() |
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
(DataFlex) 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/
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoHttp Variant vSbXmlDoc Handle hoSbXmlDoc String sSha256 Variant vSbEncoded Handle hoSbEncoded Variant vJson Handle hoJson Variant vResp Handle hoResp String sTemp1 Integer iTemp1 Move False To iSuccess // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // 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. Get Create (RefClass(cComChilkatStringBuilder)) To hoSbXmlDoc If (Not(IsComObjectCreated(hoSbXmlDoc))) Begin Send CreateComObject of hoSbXmlDoc End Get ComLoadFile Of hoSbXmlDoc "c:/invoices/invoice1.xml" "utf-8" To iSuccess // 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. Get ComGetHash Of hoSbXmlDoc "sha256" "hex" "utf-8" To sSha256 Get Create (RefClass(cComChilkatStringBuilder)) To hoSbEncoded If (Not(IsComObjectCreated(hoSbEncoded))) Begin Send CreateComObject of hoSbEncoded End Get pvComObject of hoSbXmlDoc to vSbXmlDoc Get ComAppendSb Of hoSbEncoded vSbXmlDoc To iSuccess Get ComEncode Of hoSbEncoded "base64" "utf-8" To iSuccess Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComUpdateString Of hoJson "documents[0].format" "XML" To iSuccess Get ComUpdateString Of hoJson "documents[0].documentHash" sSha256 To iSuccess Get ComUpdateString Of hoJson "documents[0].codeNumber" "INV12345" To iSuccess Get pvComObject of hoSbEncoded to vSbEncoded Get ComUpdateSb Of hoJson "documents[0].document" vSbEncoded To iSuccess // Adds the "Authorization: Bearer <access_token>" header. Set ComAuthToken Of hoHttp To "<access_token>" Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoJson to vJson Get pvComObject of hoResp to vResp Get ComHttpJson Of hoHttp "POST" "https://preprod-api.myinvois.hasil.gov.my/api/v1.0/documentsubmissions" vJson "application/json" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComStatusCode Of hoResp To iTemp1 Showln "response status code = " iTemp1 Get ComBodyStr Of hoResp To sTemp1 Showln sTemp1 End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.