Histórico da Página

DEFINE VARIABLE h_cdapiitem AS HANDLE NO-UNDO.
RUN cdp/cdapiitem.p PERSISTENT SET h_cdapiitem.

//Busco o item que vai servir de base para a criação do novo item.
FOR FIRST ITEM WHERE it-codigo = 'MANUF-exemplo' NO-LOCK.

    CREATE ttItem.
    BUFFER-COPY ITEM TO ttItem NO-ERROR.
        
    ASSIGN ttItem.it-codigo      = "MANUF-Novo-Item"
           ttItem.cod-estabel = "1" 
              //Este estabelecimento, neste momento, serve somente para alimentar o estabelecimento padrão do item. 
              //Os relacionamentos de um item novo serão criados com base na família de material
           ttItem.quant-segur    = 412
           ttItem.cod-grp-compra = "GC883"
           ttItem.cod-comprado = "super"
           ttitem.deposito-pad = "FAB".      
   
END.

//Este método irá disparar a criação ou alteração do registro. Neste caso, o segundo parâmetro (NO), indica que é um novo registro.
//Por ser um novo registro, automaticamente, serão criados relacionamentos Item x Estabelecimento com base na família de Materiais

RUN validateSaveImplantacao IN h_cdapiitem (INPUT  TABLE ttItem,
                                            INPUT NO,
                                            OUTPUT TABLE RowErrors).



//Neste ponto, o programa faz a leitura dos registros Item x Estabelecimento criados.
//Vamos alterar alguns campos e disparar a execução do método para atualização deste relacionamento
FOR EACH item-uni-estab WHERE it-codigo = 'manuf-15725-a' NO-LOCK.

    EMPTY TEMP-TABLE ttItem.

    CREATE ttItem.
    BUFFER-COPY item-uni-estab TO ttItem NO-ERROR.
        
    ASSIGN ttItem.quant-segur    = 723
           ttitem.deposito-pad = "ALM". 
        
    RUN validateSaveItemEstab IN h_cdapiitem (INPUT  TABLE ttItem,
                                              OUTPUT TABLE RowErrors).
           
END.


DELETE OBJECT h_cdapiitem.