Ponto-de-Entrada: PL305ATM - Atendimento Médico
| Abrangências: | Microsiga Protheus 10 |
| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
Descrição:
Ponto de entrada na função PLSA305MOV, antes da criação dos folders de Atendimento Médico.
Programa Fonte
Sintaxe
PL305ATM - Atendimento Médico ( < ParamIxb[1]> , [ ParamIxb[2] ] ) --> aTit
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIxb[1] | Lógico | Informa se está sendo passada a matriz de títulos (True) ou se está sendo passada a matriz dos folders preenchidos (False). | .T. | X | |||||||||||||
| ParamIxb[2] | Array of Record | Matriz com os folders preenchidos. |
Retorno
-
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.
Observações
Objetivo: permite criar novos folders na tela de atendimento médico
Exemplos
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
Preview
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |