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: |
| |||||||||||||
Retorno: |
|
Aviso | ||
---|---|---|
| ||
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA9906() Local aAreaST9 := ST9->( GetArea() ) Local aAreaST6 := ST6->( GetArea() ) Local cAlias := ParamIXB[1] Local aStruct := ParamIXB[2] Local aRet := { { 'CODIFAM', },; { 'DESCFAM', } } dbSelectArea( '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