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.147: MNG-1385856 | ||||||||||||||
País(es): | Todos | ||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita filtrar os dados que serão apresentados na Consulta Gerencial de Custosreposicionar um Bem relacionado à um Ativo cadastrado no RM conforme a alteração de seu Centro de Custo. | ||
Localização: | SIGAMNT: Consultas/Gerencial/CustosAtualizações/Controle de Oficina/Árvore/Árvore | ||
Eventos: | Consulta Gerencial de Custos (MNTC935Árvore Lógica(MNTA902) | ||
Programa Fonte: | MNTC935MNTA902.PRX | ||
Função: | MNTC9351NGMNTCC1() | ||
Retorno: | |||
Nome | Tipo | Descrição | Obrigatório | aFiltro | Array | Envia o array com o conteúdo após aplicação do filtro. | Sim
Exemplo:
#Include 'Protheus.ch'
User Function MNTC9351NGMNTCC1()
Local aFiltro cBEM := ""
Local aFiltroOld := aColsRod
Local nX := 0
// Parâmetros
// Array contendo contendo os dados que serão filtrados.
// Cada posição do Array possui 7 campos: 1 - Código, 2 - Descrição, 3 - Valor Previsto, 4 - Percentual Previsto, 5 - Valor Realizado, 6 - Percentual Realizado, 7 - Quantidade de Registros
//Cria um clone para manter o aCols original
aFiltro := aClone(aFiltroOld)
For nX := 1 to Len(aFiltro)
If Len(aFiltro) > 1 .And. !(Alltrim(aFiltro[nX][1]) == "1.001.999")
aDel(aFiltro,nX)
aSize(aFiltro,Len(aFiltro)-1)
nX--
Else
If Len(aFiltro) == nX .And. !(Alltrim(aFiltro[nX][1]) == "1.001.999") .And. !(Alltrim(aFiltro[nX][1]) $ "SIN/MUL/ABA/DOC/MUL/DOC/OFI/PNE")
aDel(aFiltro,nX)
aSize(aFiltro,Len(aFiltro)-1)
nX--
EndIf
EndIf
Next nX
ST9->T9_CODBEM
cCUSTO := ST9->T9_CCUSTO
cTRAB := ST9->T9_CENTRAB
cNovCC := ""
//Verifica se existe o Novo Centro de Custo numa localização na Árvore Lógica
cNovCC := NGSEEK("TAF","001"+cCUSTO,11,"TAF_CCUSTO")
dbSelectArea("TAF")
dbSetOrder(10) //TAF_FILIAL+TAF_INDCON+TAF_CODCON+TAF_MODMNT+TAF_MODMDT+TAF_MODSGA
If !Empty(cNovCC) .And. dbSeek(xFilial("TAF") + "1" + cBEM)
RecLock("TAF",.F.)
TAF->TAF_CCUSTO := cCUSTO
TAF->TAF_CENTRA := cTRAB
MsUnLock("TAF")
Else
MsgInfo("Não foi encontrada localização na Árvore Lógica com este Centro de Custo.")
EndIf
ReturnReturn aFiltro