Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Cristiano Dalfovo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Maykon Rodrigues Ferreira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

...

Procedure Interna

Objetivo

salvaItemCustosUnitariosEstab

Valida e salva as informações da tela de Item Custos Unitários x Estabelecimento do Workflow de Itens (WFI).

Parâmetro

Descrição

RowErrors [output]

Erros ocorridos durante a execução do método.

Se estiver tudo OK, ela estará vazia.

Procedure Interna

Objetivo

salvaItemComprasRecebimento

Valida e salva as informações da tela Manutenção Itens Compras X Manutenção Grupo Compras e

Parâmetro

Descrição

RowErrors [output]

Erros ocorridos durante a execução do método.

Se estiver tudo OK, ela estará vazia



Exemplos de USO:


Neste exemplo de uso abaixo, o programa irá criar um novo item com base em um registro que já existe na base, alterando apenas algumas informações.

Após a criação do registros, usamos o método de alteração de Item x Estabelecimento para atualizar algumas informações deste relacionamento.

Bloco de código
languageactionscript3
titleExmplo
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.