Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: NG405CPU - Opções da Etapa
Versões: 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 utilizado para inicializar campos específicos (de usuário) para o arquivo de opções da etapa, na tela de entrada de dados do programa.
Eventos


 

Programa Fonte 
MNTA400.PRX
Sintaxe

NG405CPU - Opções da Etapa ( ) --> aCposAlter

Retorno
    aCposAlter (vetor)
  • Vetor contendo os campos especificos do cliente para habilitar em tela
Observações


 

Exemplos 
#include "rwmake.ch"     User Function NG405CPU()Local aArea  := GetArea(),nPOS_ := 0, cALIB := Space(3)Local aUserCpos := {}, nINCR := 0Local aCAMPOCPU := {"TPQ_OBSERV"}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)