Ponto-de-Entrada: NG415CPU - Insumos
| 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 utilizado para inicializar campos específicos (de usuário) na tela de entrada de dados para retorno de insumos simplificado.
Eventos
Programa Fonte
MNTA415.PRX
Sintaxe
NG415CPU - Insumos ( ) --> aCposAlter
Retorno
-
aCposAlter(vetor)
- Vetor contendo os campos especificos do cliente para habilitar em tela
Observações
#include "rwmake.ch"
User Function NG415CPU()
Local aArea := GetArea(),nPOS_ := 0, cALIB := Space(3)
Local aUserCpos := {}, nINCR := 0
Local aCAMPOCPU := {"TL_CONTA","TL_CC","TL_ITEMCTA","TL_CLVL"}
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
Endif
Next
DbSelectArea("SX3")
DbSetOrder(1)
RestArea(aArea)
Return(aUserCpos)