Histórico da Página
Aviso | ||
---|---|---|
| ||
|
TROCA DE LOCALIZAÇÃO NA ÁRVORE LÓGICA CONFORME ALTERAÇÃO DE CENTRO DE CUSTO DO BEM
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||||
Segmento: | Manufatura | ||||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||||
Rotina: |
| ||||||||||||
Issues Relacionados | 12.1.7: MNG-856 | ||||||||||||
País(es): | Todos | ||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita reposicionar um Bem relacionado à um Ativo cadastrado no RM conforme a alteração de seu Centro de Custo. |
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Árvore/Árvore |
Eventos: | Árvore Lógica (MNTA902) |
Programa Fonte: | MNTA902.PRX |
Função: | NGMNTCC1() |
Retorno: | (Nulo) |
Exemplo:
#Include 'Protheus.ch'
User Function NGMNTCC1()
Local aArea := GetArea()
cBEM := ST9->T9_CODBEM
cCUSTO := ST9->T9_CCUSTO
cTRAB := ST9->T9_CENTRAB
PARAMIXB[1] //Código do Bem
cCUSTO := PARAMIXB[2] //Centro de Custo
cCenTab := PARAMIXB[3] //Centro de Trabalho
cCodNiv := "" //Código Nível
cNivSup := "" //Nível SuperiorcNovCC := ""
//Verifica se existe o Novo Centro de Custo numa localização na Árvore Lógica
cNovCC cCodNiv := NGSEEK("TAF","001"+cCUSTO,11,"TAF_CCUSTOCODNIV")
cNivSup := NGSEEK("TAF",cCodNiv,8,"TAF_NIVSUP")
dbSelectArea("TAF")
dbSetOrder(10) //TAF_FILIAL+TAF_INDCON+TAF_CODCON+TAF_MODMNT+TAF_MODMDT+TAF_MODSGA
If !Empty(cNovCCcNivSup) .And. dbSeek(xFilial("TAF") + "1" + cBEM)
RecLock("TAF",.F.)
TAF->TAF_CCUSTO NIVSUP := cCUSTO
TAF->TAF_CENTRA := cTRAB
cNivSup
MsUnLock("TAF")
Else
MsgInfo("Não foi encontrada localização na Árvore Lógica com este Centro de Custo.")
EndIf
RestArea( aArea )
Return