Histórico da Página
...
O ponto de entrada CT5CPOS permite a execução de alguma regra especifica específica do usuário conforme informações recebidas pelo array retornada pelo PEbaseado no lançamentos Padronizados ( CTBA080 ) posicionado.
03. SOLUÇÃO
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.ch"
#INCLUDE "rwmake.ch"
User Function CT5CPOS( aCT5 )
Local aLP := PARAMIXB[1]
If aLP[1] == "801"
FuncaoDesejada() //Regra desejada realizando algum funcionamento com base no critérios estabelecidos com base no retorno do lançamento padrão
Endif
Return
|
| Informações | ||
|---|---|---|
| ||
O array conta com 2 posições sendo:
A posição aLP[1] é a posição que mostra o Código do lançamento padrão ( CT5_LANPAD ) posicionado( no exemplo 801 ). Observação: O array retorna apenas os lançamentos padrões que estão ativos. |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
// Ponto de entrada para tratamento do conteudo do CT5
If Existblock("CT5CPOS") .And. !lSimula
Execblock("CT5CPOS",.F.,.F.,{aCT5[nX]})
Endif
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas