Histórico da Página
Ponto de entrada para carregar os campos de usuário criados pelo P.E. MNTA9902
Características do Requisito
Linha de Produto: | Microsiga Protheus | |||||||
Segmento: | Manufatura | |||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | |||||||
Rotina: |
|
Ponto de Entrada
Cadastros IniciaisDescrição: | Em Atualizações→Controle de Oficina→Manutenção→Funcionários, cadastrar um Funcionário. Em Atualizações→Controle de Oficina→Plano Manutenção→Programação de OS, incluir uma Programação de Ordem de Serviço. | Ponto de entrada para carregar os campo de usuário criados pelo ponto de entrada MNTA9902 ao alterar a programação. | |||||||||
Localização: | SIGAMNT: Atualizações > Controle de Oficina > Plano de Manutenção > Programação OS | ||||||||||
Programa Fonte: | MNTA990.prx | ||||||||||
Função: | MNTA990CAD e fFilDataOS | ||||||||||
Parâmetros | Parâmetro(s): |
| c990TRB3
| Programadas||||||||
c990TRB2 | Caracter | Tabela temporária com filtro da Programação | |||||||||
Países: | Todos | ||||||||||
Bancos de Dados: | Todos | ||||||||||
Sistemas Operacionais: | Todos |
Ponto de Entrada
Descrição:
Ponto de entrada para carregar os campo da Programação de O.S. criados pelo ponto de entrada MNTA9902 na alteração da programação de O.S.
Localização:
Atualizações→Controle de Oficina→Plano Manutenção→Programação de OS
Eventos:
Programação de O.S.
Programa Fonte:
MNTA990.prw
| ||||||||||||||
Retorno: |
|
Aviso | ||
---|---|---|
| ||
|
Função:
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA9906() Local c990TRB3aAreaST9 := ParamIXB[1]ST9->( GetArea() ) Local c990TRB2aAreaST6 := ParamIXB[2] ST6->( GetArea() ) Local lIsRetcAlias := ParamIXB[31] Local aRet Local aStruct := {} ParamIXB[2] IfLocal lIsRet aRet aRet := { { 'TESTE1CODIFAM', 'Teste do campo 1' },; { 'TESTE2DESCFAM', 'Teste do campo 2' } } Else dbSelectArea(c990TRB3)->TESTE1 := 'Teste do campo 1' (c990TRB2)->TESTE1 := 'Teste do campo 1' (c990TRB3)->TESTE2 := 'Teste do campo 2' (c990TRB2)->TESTE2 := 'Teste do campo 2' EndIf 'ST9' ) dbSetOrder( 1 ) If dbSeek( xFilial( 'ST9' ) + (cAlias)->CODBEM ) aRet[1,2] := ST9->T9_CODFAMI dbSelectArea( 'ST6' ) dbSetOrder( 1 ) If dbSeek( xFilial( 'ST6' ) + ST9->T9_CODFAMI ) aRet[2,2] := ST6->T6_NOME EndIf EndIf RestArea( aAreaST9 ) RestArea( aAreaST6 ) Return aRet |