Histórico da Página
Ponto de entrada que possibilita a habilitação de campos específicos na rotina de Rodízio (MNTA098)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada executado na rotina de Rodízio (MNTA098) que habilita campos específicos da tabela STZ em tela, e permite que sejam gravados no arquivo após a confirmação do rodízio da estrutura |
Programa Fonte: | MNTA098.prx |
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Bens/Rodízio |
Função: | NG098CPU() |
Retorno: |
|
|
Retorno:
Nome
Tipo
Descrição
Obrigatório
|
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch'
User Function NG098CPU()
Local aArea := GetArea(), nPOS_ := 0, cALIB := Space(3)
Local aUserCpos := {}, nINCR := 0
Local aCAMPOCPU := {"TZ_HORENUS","TZ_TESTE"} //campos especificos do cliente
//Verifica se os campos declarados no vetor existe na base de dados
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) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas