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ís(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Tabelas Utilizadas: | TT1 - Programação de Ordem de Serviço | ||||||||
Sistema(s) Operacional(is): | 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
Função:
MNTA990CAD(), fFilDataOS()
Exemplo:
| ||||||||||||||
Retorno: |
|
Aviso | ||
---|---|---|
| ||
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
Bloco de código | ||||||
| ||||||
User Function MNTA9906() //CarregaLocal variáveisaAreaST9 de Entrada e Saída c990TRB3:= ST9->( GetArea() ) Local aAreaST6 := ST6->( GetArea() ) Local cAlias := ParamIXB[1] c990TRB2 Local aStruct := ParamIXB[2] Local aRet := { { 'CODIFAM', },; { 'DESCFAM', } } //Carrega o campo de usuário criado pelo ponto de entrada MNTA9902 (c990TRB3)->TESTE := "Teste de ponto de entrada MNTA9906" (c990TRB2)->TESTE := "Teste de ponto de entrada MNTA9906" Return 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 |