Histórico da Página
Os programas de consulta permitirão que o aprovador detalhe as pendências no momento da aprovação/rejeição.
Para que o programa consulta a ser executado detalhe o documento correto, é necessário que seja desenvolvida uma pré-chamada para este programa.
Nesta “pré-chamada” conterá uma lógica para primeiramente fazer com que seja posicionado no registro correto e, em seguida, execute a consulta selecionada pelo aprovador.
Bloco de código | ||||
---|---|---|---|---|
| ||||
/** Programa para consulta da cotação *** **/ def input parameter p-rowid-mla-doc-pend-aprov as rowid no-undo. def new global shared var gr-ordem-compra as rowid no-undo. def var i-chave as integer no-undo. def var c-chave as char no-undo. find first mla-doc-pend-aprov where rowid(mla-doc-pend-aprov) = p-rowid-mla-doc-pend-aprov no-lock no-error. if available mla-doc-pend-aprov then do: find first cotacao-item where cotacao-item.numero-ordem = integer(substring(mla-doc-pend-aprov.chave-doc,1,8)) and cotacao-item.cod-emitente = integer(substring(mla-doc-pend-aprov.chave-doc,9,9)) and cotacao-item.it-codigo = substring(mla-doc-pend-aprov.chave-doc,18,16) and cotacao-item.seq-cotac = integer(substring(mla-doc-pend-aprov.chave-doc,34,3)) no-lock no-error. if available cotacao-item then do: find first ordem-compra where ordem-compra.numero-ordem = cotacao-item.numero-ordem no-lock no-error. if available ordem-compra then do: assign gr-ordem-compra = rowid(ordem-compra). run ccp/cc0505.w. end. end. end. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas