Ponto-de-Entrada: NG480CPU - Tela de Entrada de Dados
Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de entrada para inicializar campos específicos na tela de entrada de dados.
Eventos
Programa Fonte
MNTA480.PRX
Sintaxe
NG480CPU - Tela de Entrada de Dados ( ) --> aCposAlter
Retorno
-
aCposAlter(vetor)
- Vetor contendo os campos especificos do cliente para habilitar em tela
Observações
Exemplos
#include "rwmake.ch" User Function NG480CPU()Local aArea := GetArea(),nPOS_ := 0, cALIB := Space(3)Local aUserCpos := {}, nINCR := 0Local aCAMPOCPU := {"TPQ_TESTE"}For nINCR := 1 To Len(aCAMPOCPU) DbSelectArea("SX3") DbSetOrder(2) If DbSeek(aCAMPOCPU[nINCR]) nPOS_ := At("_",aCAMPOCPU[nINCR]) cALIB := If(nPOS_ = 3,"S"+Substr(aCAMPOCPU[nINCR],1,nPOS_-1),Substr(aCAMPOCPU[nINCR],1,nPOS_-1)) DbSelectArea(cALIB) If FieldPos(aCAMPOCPU[nINCR]) > 0 Aadd(aUserCpos,aCAMPOCPU[nINCR]) Endif EndifNextDbSelectArea("SX3")DbSetOrder(1)RestArea(aArea)Return(aUserCpos)
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas