Histórico da Página

PL305ATM - Atendimento Médico ( < ParamIxb[1]> , [ ParamIxb[2] ] ) --> aTit

aTit(array_of_record)
• Se ParamIxb[1] for True, deverá ser retornada a matriz contendo os títulos dos folders a serem criados. Se ParamIxb[1] for False, não haverá valor de retorno, pois, o usuário deverá ter alterado a matriz de folders passada como referência.

Objetivo: permite criar novos folders na tela de atendimento médico

User Function PL305ATM()Local aTit := {"Folder1","Folder2"} // Matriz dos cabeçalhos dos foldersLocal nFld := 0Local bFld := paramixb[1]Local aUsersFolders := {} //Matriz a ser inicializada com os folders a serem criadosIf bFld	aUsersFolders := paramixb[2]	For nFld := 1 To Len(aUsersFolders)                //Implementação dos novos folders		@ 05,05 SAY "Folder " PIXEL OF aUsersFolders[nFld]	Next nFld	ReturnElse	Return aTitEndIfReturn