Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA990

Programação OS

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:
NomeTipoDescrição
PARAMIXB[1]CaracterTabela temporária com as O.S. em programação.
PARAMIXB[2]ArrayEstrutura de campos contidos na tabela temporária recebida no parâmetro 1.
Retorno:
TipoDescrição
Array

Listagem com os campos de usuário e seu conteúdo.

PosiçãoTipoDescrição
1CaracterNome do campo para que seja atribuído.
2IndefinidoConteúdo a ser atribuído no campo.

Aviso

  • Este ponto de entrada somente tem sua funcionalidade disponível quando utilizado em conjunto com o P.E. MNTA9902.
Exemplo do P.E. MNTA9906
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