Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 9

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:
Tabela temporária com filtro da programação
NomeTipoDescrição
PARAMIXB[1]CaracterTabela temporária com as O.S. em programação.
PARAMIXB[2]CaracterArrayEstrutura 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
titleAviso
  • Este ponto de entrada somente tem sua funcionalidade disponível quando utilizado em conjunto com o P.E. MNTA9902.
Bloco de código
languagesql
titleExemplo do P.E. MNTA9906
linenumberstrue
User Function MNTA9906()
  
    Local c990TRB3aAreaST9 := ParamIXB[1]
  Local c990TRB2 := ParamIXB[2]
 ST9->( GetArea() )
    Local aAreaST6 := 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