Histórico da Página

listagemDocumentos

Requisito

Listagem de pendências do MLA (em várias situações) do documento de evento de contrato de compra

Sintaxe

{laphtml/mladados.i}

RUN listagemDocumentos in h-handle (input  iCodTipDoc,

                                                               input  tipoDoc,

                                                               input dtIni,

                                                               input dtFim,

                                                               output table ttDados).                                                                       

Descrição

Através dos parâmetros passados para a procedure, ela retorna os registros para listagem dos documentos (eventos de contrato de compra)

Parâmetros

Tipo

Descrição

iCodTipDoc

INTEGER

Código do tipo de documento (neste caso para evento de contrato de compra, informar 16)

tipoDoc

CHARACTER

Tipo de documento a ser apresentado. As opções que podem ser utilizadas são:

prin: Documentos pendentes de aprovação

saida: Documentos aprovados, rejeitados e reaprovados (histórico de aprovação)

alt: Documentos pendentes como usuário alternativo

mes: Documentos como usuário mestre

ambos: Documentos pendente de aprovação como usuário principal e como alternativo

aprov: Documentos aprovados e reaprovados

reprov: Documentos reprovados

dtIni

DATE

Data de início para consideração dos documentos já aprovados, rejeitados, reaprovados (histórico)

dtFim

DATE

Data de término para consideração dos documentos já aprovados, rejeitados, reaprovados (histórico)

As datas somente são utilizadas para o histórico e caso não sejam informadas serão considerados 30 dias.                                     

Retorno

A procedure retorna uma temp-table, do tipo ttDados, que está definida na include laphtml/mladados.i.

Nesta temp-table contém dados da temp-table  tt-evento-ped-lista, que é detalhada na tabela mais abaixo.

Exemplo de registro que poderiam existir na tt-evento-ped-lista:

ttDados.cTable = “tt-evento-ped-lista”

ttDados.iRow = 1

ttDados.cField = “nr-contrato”

ttDados.cValue = “3456”

ttDados.cTable = “tt-evento-ped-lista”

ttDados.iRow = 1

ttDados.cField = “numero-ordem”

ttDados.cValue = “88888”

ttDados.cTable = “tt-evento-ped-lista”

ttDados.iRow = 1

ttDados.cField = “valor”

ttDados.cValue = “9999999”