Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
PERMITE INCLUSÃO DE CAMPOS STJ 

Geração de Ordem de Serviço 

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

MNTA295

Distribuição de S.S.

Rotina(s) envolvida(s)

Nome Técnico

MNTA295

Distribuição de S.S.

Issues Relacionadas

12.1.17 / MNG-6623

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que permite inserir campos STJ na tela de geração de O.S., através da rotina de Distribuição de S.S.(MNTA295).

Localização:

SIGAMNT: Atualizações/Controle de Oificina/Solicitação de Serviço/Distribuição S.S.

Eventos:

Distribuição S.S. (MNTA295)

Programa Fonte:

MNTA295.PRW

Função:

MNTA295GOS()

Parâmetros:
NomeTipoDescrição
oPnl1ObjetoObjeto da tela onde será apresentado os campos inseridos pelo usuário.

 

Exemplo:

Bloco de código
languagevb
themeEclipse
#Include 'Protheus.ch'


//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA295E
Adiçãoo de campos em tela na geração de O.S. via distribuição de S.S.

@author  NG Informática
@since   14/07/2018
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA295EMNTA2955()

    Local oPnl1   := ParamIXB[1] // Objeto onde será criado o campo.
    Local oSay1
    Local oSay2
    Local oGet1
    Local oGet2

    // Define Tamanho do array
    aMNTA295E       := Array(1,2)
    // Define campo a ser inserido em tela
    aMNTA295E[1][1] := "TJ_USUAFIM"
    // Define tamanho do campo
    aMNTA295E[1][2] := Space(TamSx3("TJ_USUAFIM")[1])oPnl1:nHeight := 110

    // Define nome do Campos
    oSay1 := TSay():New( 176001, 008, {|| GetSx3Cache(aMNTA295E[1][1]"TJ_USUAFIM", "X3_TITULO") }, oPnl1,,,,,,.T.,,,,)

    // Entrada de dados
    oGet1 := TGet():New( 176001, 048, { | u | If( PCount() == 0, aMNTA295E[1][2]cUsaFim, aMNTA295E[1][2]cUsaFim := u ) }, oPnl1, 040,;
                        007,,, 0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"aMNTA295E[1][2]cUsaFim",,,,.T. )

Return