rodar cdapi344

[Marcos Giufrida]

Bom Dia Pessoal !

 

Não estou conseguindo alterar o valor do campo preco-ul-ent da tabela item através da api cdapi344.

Alguem saberia me explicar o "pq" ?

 

Não gera nenhum erro.

Outro campo ("narrativa", por exemplo) eu consigo alterar normalmente...

 

 

/* {cdp/cdapi300.i1} */
def temp-table tt-versao-integr no-undo
       field cod-versao-integracao as integer format "999"
       field ind-origem-msg        as integer format "99".

 

def temp-table tt-erros-geral no-undo
       field identif-msg           as char    format "x(60)"
       field num-sequencia-erro    as integer format "999"
       field cod-erro              as integer format "99999"  
       field des-erro              as char    format "x(60)"
       field cod-maq-origem        as integer format "999"
       field num-processo          as integer format "999999999".

 

/* {cdp/cdapi244.i} */
def temp-table tt-item no-undo like item
    field cod-maq-origem   as   integer format "9999"
    field num-processo     as   integer format ">>>>>>>>9" initial 0
    field num-sequencia    as   integer format ">>>>>9"    initial 0
    field ind-tipo-movto   as   integer format "99"        initial 1
    field cod-erro         as   integer format "99999"
    field des-erro         as   char    format "x(60)"
    INDEX ch-codigo IS PRIMARY  cod-maq-origem
                                num-processo
                                num-sequencia.

 

FIND FIRST ITEM WHERE ITEM.it-codigo = '000003' EXCLUSIVE-LOCK NO-ERROR.
IF AVAIL ITEM THEN
DO:

 

  EMPTY TEMP-TABLE tt-item.
      CREATE tt-item.
      BUFFER-COPY ITEM EXCEPT item.preco-ul-ent TO tt-item .
      ASSIGN tt-item.preco-ul-ent       = 3.00
             tt-item.ind-tipo-movto     = 2. /*1 inclusao / 2 altera?Æo*/
  

     
END.
       
CREATE tt-versao-integr.
ASSIGN tt-versao-integr.cod-versao-integracao   =   001
       tt-versao-integr.ind-origem-msg      =   01.

 

RUN cdp/cdapi344.p ( INPUT TABLE tt-versao-integr,
                     OUTPUT TABLE tt-erros-geral,
                     INPUT-OUTPUT TABLE tt-item).       
           
OUTPUT TO C:\temp\Item\erros_item.txt APPEND.

 

FOR EACH tt-erros-geral NO-LOCK:
  DISP tt-erros-geral WITH 1 COL WIDTH 300.
END.

 

OUTPUT CLOSE. 

Marcos Giufrida