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
Descriçã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: |
Caracter | Tabela temporária com filtro da programação | PARAMIXB[3] | Lógico | Indica de os campos de usuário deve ser retornado pelo ponto de entrada
| |||||||||||||||
Retorno: |
Nulo | Não há retorno.
|
Aviso | ||
---|---|---|
| ||
|
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas