[RESOLVIDO] Inclusão de Pedido via API ou BO

Amigos, ja faz um tempo eu desenvolvi para a empresa onde trabalho uma rotina de para geração de orçamentos, pois a solução nativa do EMS206 não nos atendia.
Agora, eu gostaria de integrar este rotina ao cadastro de pedidos de vendas, mas não encontrei nada no site da TOTVS que mostrasse como incluir pedidos e itens nos pedidos através de API.
Sei que existe uma BO para manipular itens do pedido, mas não encontrei nada para gerar pedido.

Você conhecem, ou tem alguma rotina para compartilhar que inclua pedidos no EMS206.

Obrigado.

...

Bom dia,

Existem as BOs:
run dibo/bodi159.p persistent set h-bodi159.
run dibo/bodi159com.p persistent set h-bodi159com.
run dibo/bodi157.p persistent set h-bodi157.
run dibo/bodi154.p persistent set h-bodi154.
run dibo/bodi154sdf.p persistent set h-bodi154sdf.
run openQueryStatic in h-bodi159 ("main").
RUN openQueryStatic IN h-bodi157(INPUT "Defaultpd4000":U).

- Execucao da BO para atualizacao do EMS
run emptyRowErrors in h-bodi159.
run setRecord in h-bodi159 (input table tt-ped-venda).
run createRecord in h-bodi159.
run getRowErrors in h-bodi159 (output table Rowerrors).

- Cria a chave do item
CREATE tt-ped-item.
ASSIGN tt-ped-item.nome-abrev = tt-ped-venda.nome-abrev
tt-ped-item.nr-pedcli = tt-ped-venda.nr-pedcli
tt-ped-item.it-codigo = tt-it-pedido-web.it-codigo.

RUN inputTable IN h-bodi154sdf (INPUT TABLE tt-ped-item).
RUN setDefaultItem IN h-bodi154sdf.
RUN outputTable IN h-bodi154sdf (OUTPUT TABLE tt-ped-item).

completa itens:
RUN openQueryStatic IN h-bodi154 (INPUT "Default":U).
RUN emptyRowErrors IN h-bodi154.
RUN setrecord IN h-bodi154 (INPUT TABLE tt-ped-item).
RUN createRecord IN h-bodi154.

Comissao:
run emptyRowErrors in h-bodi157.
run setRecord in h-bodi157 (input table tt-ped-repre).
run createRecord in h-bodi157.
run getRowErrors in h-bodi157 (output table Rowerrors).

E completar o pedido:
run completeOrder in h-bodi159com (input rowid(ped-venda),
output table rowErrors).


Caso tenha erro deletar pedido:

run goToKey in h-bodi159 (input tt-ped-venda.nome-abrev,
input tt-ped-venda.nr-pedcli).
if return-value = "OK" then
run deleteRecord in h-bodi159.


Espero ter ajudado.

Att.