Histórico da Página
...
02. SITUAÇÃO/REQUISITO
O ponto de entrada CT5CPOS é utilizado para tratamento do conteúdo da tabela de Lançamentos Padronizados ( CT5 ) e assim permitindo a manipulação/utilização dos campos do LP permite a execução de alguma regra específica do usuário, conforme informações recebidas pelo array, baseado no Lançamento Padronizado ( 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 ( CT5_STATUS igual à 1). |
| 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
|
...
