Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
NG098CPU - Habilitação de Campo da Tabela STZ
NG098CPU - Habilitação de Campo da Tabela STZ

Ponto-de-Entrada: NG098CPU - Habilitação de Campo da Tabela STZ
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:
Possibilita que o cliente habilite campos específicos da tabela STZ em tela, e que estes sejam gravados no arquivo após a confirmação do rodízio da estrutura.
Programa Fonte
MNTA098.PRX
Sintaxe

NG098CPU - Habilitação de Campo da Tabela STZ ( ) --> aUserCpos

Retorno
    aUserCpos(vetor)
  • Vetor contendo os campos especificos do cliente para habilitar em tela
Exemplos
User Function NG098CPU()Local aArea  := GetArea(),nPOS_ := 0, cALIB := Space(3)Local aUserCpos := {}, nINCR := 0Local aCAMPOCPU := {"TZ_HORENUS","TZ_TESTE"} //campos especificos do cliente//Verifica se os campos declarados no vetor existe na base de dadosFor 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)