Exemplo de integracao com a INTELIPOST

Intel01tst.prw

#include 'totvs.ch'
#include "TBICONN.CH"

// EXEMPLO DE CHAMADA DA FUNCAO
User Function Intel01tst()
    Local oPedidoEnvio, cPed, oVolume
    Local aItens    := {}
    
    PREPARE ENVIRONMENT EMPRESA "01" FILIAL "0103" USER "ADMIN" PASSWORD "589@corp" MODULO "FAT"
        cPed         := "000131"
        oPedidoEnvio := Intelipost():new(cPed, '20180901')// numero pedido, data envio

        // Montagem do volume que sera enviado
        oVolume                      := JsonObject():new()
        oVolume['tracking_code']     := "12345678BR" // codigo de rastreio
        oVolume['products_quantity'] := 1            // quantidades de itens dentro do volume
        oVolume['width']             := 10           // largura
        oVolume['height']            := 10           // altura
        oVolume['length']            := 10           // comprimento

        // pode adicionar mais de 1 volume
        oPedidoEnvio:addVolume( oVolume ):save()
        // validacao do retorno da api
        if !oPedidoEnvio:lTudoOk
            alert(oPedidoEnvio:cMsgError)
            Return .F.
        EndIf

        alert("Enviado com sucesso")
    RESET ENVIRONMENT
Return