[RESOLVIDO] Como usar BODI159?

Ola a todos... eu estou com um exemplo de uso da BODI159 que encontrei, só que não consigo faze ela criar um pedido de forma alguma.

Alguem ja fez dessa forma?
Estaria faltando oq exatamente?

~ To perdido pra criar um pedido ~

segue parte do código:

Código:

{dibo/bodi159.i  RowPedVenda}
ind estabelec where
   estabelec.cod-estabel = "101" no-lock no-error.

find emitente where
   emitente.nome-abrev = "Tubiano"
   no-lock no-error.

create RowPedVenda.
assign RowPedVenda.nome-abrev = "Tubiano"
       RowPedVenda.nr-pedcli  = "teste1".

run inputTable in h-bodi159sdf (input table RowPedVenda).
run setDefaultDelivery  in h-bodi159sdf.

run outputTable in h-bodi159sdf (output table RowPedVenda).
delete procedure h-bodi159sdf.

find first RowPedVenda no-error.

find repres where
   repres.cod-rep = emitente.cod-rep
   no-lock no-error.

assign RowPedVenda.origem                  = 6
       RowPedVenda.cod-des-merc            = 1
       RowPedVenda.ind-fat-par             = YES
       RowPedVenda.ind-lib-nota            = NO
       RowPedVenda.ind-antecip             = NO
       RowPedVenda.esp-ped                 = 1
       RowPedVenda.cd-origem               = 5
       RowPedVenda.log-usa-tabela-desconto = YES
       RowPedVenda.log-ped-bonif-pendente  = NO
       RowPedVenda.log-cotacao             = NO
       RowPedVenda.completo                = no
       RowPedVenda.dt-implant              = today
       RowPedVenda.dt-emissao              = today
       RowPedVenda.cod-estabel             = estabelec.cod-estabel
       RowPedVenda.e-mail                  = emitente.e-mail
       RowPedVenda.nat-operacao            = emitente.nat-oper
       RowPedVenda.cod-cond-pag            = 809
       RowPedVenda.nr-tab-finan            = 80
       RowPedVenda.cod-emitente            = emitente.cod-emitente
       RowPedVenda.nome-transp             = ""
       RowPedVenda.nr-ind-finan            = 11
       RowPedVenda.nr-tabpre               = "10009"
       RowPedVenda.cidade-cif              = "Patopolis"
       RowPedVenda.cod-portador            = 152
       RowPedVenda.modalidade              = 1
       RowPedVenda.no-ab-reppri            = if avail repres then repres.nome-abrev else ""
       RowPedVenda.cod-priori              = 1
       RowPedVenda.tp-preco                = 80
       RowPedVenda.observacoes             = "Teste de trigger"
       RowPedVenda.tp-pedido               = "NO"
       rowPedVenda.nr-pedido               = 453098.

run openQueryStatic in h-bodi159(input "Main":U).
      run emptyRowErrors  in h-bodi159.
      run emptyRowObject  in h-bodi159.
      run inputRowParam   in h-bodi159(input table RowParam).
      run setRecord       in h-bodi159(input table RowPedVenda).
      run createRecord    in h-bodi159.
      run getRowid        in h-bodi159(output RowPedVenda.r-rowid).
      run getIntField     in h-bodi159(input "nr-pedido":U,
                                       output RowPedVenda.nr-pedido).
      run getRowErrors    in h-bodi159(output table RowErrorsAux).

Esse post eh do dia 14 de SET.. Já resolveu amigo???

TY

Opa...
fui olhando os tópico daqui e de otro forum e troquei umas ideia com um cara, certamente parecia que eu estava fazendo errado, e ele me ensinou como deveria fazer, assim sendo estou sem problema nenhum por algum tempo com a BODI

Amigo,
Você poderia me fornecer o fonte que você conseguiu gerar o pedido utilizando a BO?

Se puder enviar, ficarei muito grato.

Grato pelo retorno!
Você pode enviar para lucianosoares@ig.com.br.

Olhei a parte que você colocou no fórum e não tenho ou encontrei os includes onde são criadas as row.

Agradeço antecipadamente pelo envio.

Estou usando a BODI159 junto com a BODI159can para cancelar pedidos e está ocorrendo a mensagem:

(btb/btb910zv.p) Foi detectada uma violação no controle de acesso ! Foi detectada uma violação no controle de acesso dos usuários no sistema. Favor entrar em contato com o suporte Datasul.

está dando erro em alguns pedidos, alguem saberia dizer o que poderia ser, estamos recebendo mensagem para renovar a licença, mais foi ligado na totvs e informaram que não teria nada a ve, mais acredito que tenha sim devido que começou juntamente com a mensagem para renovar.