[RESOLVIDO] Alterar PRAZO-COMPRA(ccapi302????) - Urgente

Boa tarde Pessoal,

Alguém pode me ajudar?

Preciso fazer um programa para alterar a Data Entrega da Prazo-Compra de determinadas ordem, porem não posso fazer diretamente nas tabelas, preciso alterar através da API, alguem sabe como faz? pois a ccapi302, só faz a criação de novos registros correto? No meu caso quero alterar é outra API ou não existe API para isso?

Eu sempre altero direto a data sem api e nunca tive problemas.

Eu também sempre fiz isso, só que o cliente quer que utilize a API, dai queria saber se tem API para realizar essa alteração.

tenta a ccp/ccapi303.p

Depois na tabela pai tt-pedido-compr no campo ind-tipo-movto, informe se é Inclusão ou Alteração.
Agora não me lembro , mas acho o que 2 é alteração.

Boa tarde Pessoal,

Consegui fazer através da inbo/boin356.p.

Segue abaixo exemplo:

Código:

{include/i_fnctrad.i}

{METHOD/dbotterr.i}

DEFINE TEMP-TABLE tt-ordem-compra no-undo LIKE ordem-compra
    FIELDS r-rowid AS ROWID .

DEFINE TEMP-TABLE tt-prazo-compra no-undo LIKE prazo-compra
    FIELDS r-rowid AS ROWID.

DEFINE TEMP-TABLE vt-ordem-compra no-undo LIKE ordem-compra.
DEFINE TEMP-TABLE vt-prazo-compra no-undo LIKE prazo-compra.

DEFINE VARIABLE h-boin356        AS HANDLE                NO-UNDO.
                                                         
DEF NEW GLOBAL SHARED VAR c-seg-usuario AS CHAR NO-UNDO.

DEF BUFFER b-ordem-compra      FOR vt-ordem-compra.
DEF BUFFER b-it-requisicao     FOR it-requisicao.

def var i-cont  as inte  no-undo.

{utp/ut-glob.i}
{include/i-rpvar.i}

/* S¢ Atuliza se tiver marcado para nos Parametros */

run inbo/boin356.p persistent set h-boin356.
run openQueryStatic in h-boin356 (input "Main":U).

def temp-table tt-ordens no-undo
    FIELD numero-ordem LIKE ordem-compra.numero-ordem
    INDEX IndPrimario IS PRIMARY UNIQUE numero-ordem.

output to v:\temp\Entrega.txt.

for each pedido-compr no-lock where
         pedido-compr.num-pedido = 431995 /* 1930966 */ ,
    each ordem-compra no-lock where
         ordem-compra.num-pedido = pedido-compr.num-pedido.

   for each prazo-compra no-lock where
            prazo-compra.numero-ordem = ordem-compra.numero-ordem.
  
      empty temp-table tt-prazo-compra.
      empty temp-table RowErrors.
  
      create vt-prazo-compra.
      buffer-copy prazo-compra to vt-prazo-compra.

      create tt-prazo-compra.
      buffer-copy prazo-compra TO tt-prazo-compra.
      assign tt-prazo-compra.data-entrega = today.

      run gotokey        in h-boin356(input prazo-compra.numero-ordem,
                                      input prazo-compra.parcela).
      run setRecord      in h-boin356(input table tt-prazo-compra).
      run updateRecord   in h-boin356.
      run getRowErrors   in h-boin356(output table RowErrors).

      if can-find(first RowErrors) then do:
         for each RowErrors.
            disp RowErrors
                 with frame f-erro width 320 64 down stream-io.
         end.
      end.
      else
         disp ordem-compra.num-pedido
              ordem-compra.numero-ordem
              tt-prazo-compra.data-entrega
              "Alterado"
              with frame f-sucesso width 320 64 down stream-io.
   end.
end.
output close.

if valid-handle(h-boin356) then
    run destroy in h-boin356.

Obrigado a todos que de qualquer forma , ajudaram.