Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

aAsos[n,5] - Data do Cancelamento

04. DEMAIS INFORMAÇÕES

...

Função:MDTRetAso( cFil, cMat )
Parâmetros:cFil ( Filial do funcionário), cMat (Matrícula do funcionário )
Retorno:aAsos ( Array contendo a numeração e datas dos atestados do funcionário )
Chamada função:Chamar a função que exibe a mensagem dos Aso's dentro do fonte: MDTImpAso()
Exemplo função:

Function MDTImpAso()


    Local aAsos :=  MDTRetAso( 'D MG 01 ','000030' )
    Local cMsg := ''
    Local nA

    For nA := 1 To Len(aAsos)
        CHR(13)
        cMsg += '/====================================/'+CHR(13)
        cMsg += 'Código do Aso:          ' + cValToChar(aAsos[nA, 1])+CHR(13)
        cMsg += 'Data Programação Exame: ' + cValToChar(aAsos[nA, 2])+CHR(13)
        cMsg += 'Data de Geração do Aso: ' + cValToChar(aAsos[nA, 3])+CHR(13)
        cMsg += 'Data da Emissão do Aso: ' + cValToChar(aAsos[nA, 4])+CHR(13)
        cMsg += 'Data do Cancelamento:   ' + cValToChar(aAsos[nA, 5])+CHR(13)
        CHR(13)
    Next nA

    MsgInfo(cMsg, 'Retorno MDTRetAsos')

Return


05. ASSUNTOS RELACIONADOS

...