Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... 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. For more information, see https://sdk.myinvois.hasil.gov.my/einvoicingapi/02-submit-documents/
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoHttp Boolean iSuccess Variant vSbXmlDoc Handle hoSbXmlDoc String sSha256 Variant vSbEncoded Handle hoSbEncoded Variant vJson Handle hoJson Variant vResp Handle hoResp String sTemp1 Integer iTemp1 Boolean bTemp1 // 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 pvComObject of hoJson to vJson Get ComPostJson3 Of hoHttp "https://preprod-api.myinvois.hasil.gov.my/api/v1.0/documentsubmissions" "application/json" vJson To vResp If (IsComObject(vResp)) Begin Get Create (RefClass(cComChilkatHttpResponse)) To hoResp Set pvComObject Of hoResp To vResp End Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 = 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 Send Destroy of hoResp End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.