Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Rodrigo Nascimento Soledade

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Hamilton Pereira Soldati

Gravado em

Chave

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

Ponto de entrada para

preencher marcação da Etapa

marcar automaticamente as opções da etapa (TCP)

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

MNTA435

Retorno O.S. Mod 2

Chamados Relacionados

                                                                 

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada para preencher marcação da Etapa marcar automaticamente as opções da etapa (TCP)

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno O.S./Retorno O.S. Mod 2

Eventos:

Retorno O.S. Mod 2 (MNTA435)

Programa Fonte:

MNTA435.PRW

Função:

MNTA435L()

Parâmetros:

Nome

Tipo

Descrição

aHEADER

aCOLS

nCnt

Array

Array

Numero

Campos da griddo aheader das Opções de Etapa da O.S. (TPC)

Informações da contidas na gridnas Etapas da O.S.

Linha que esta percorrendoestá percorrendo na tabela de Opções de Etapa (TPC)

Retorno:

Nome

Tipo

Descrição

Obrigatório

aBtnaCOLSArrayArray com todos os botões que deveram ser exibidos na rotina e seus respectivos conteúdosSim

 

Exemplo:

#include
o acols das etapas da O.S.Sim
Bloco de código
languagecpp
themeEclipse
titleExemplo
linenumberstrue
#include "Protheus.ch"

User Function MNTA435L()
     Local aArea 

     Local aArea  := GetArea()

     Local aHeadTPC 

     Local aHeadTPC := PARAMIXB[1]

     Local aCOLSTPC 

     Local aCOLSTPC := PARAMIXB[2]

     Local nLin 

     Local nLin := PARAMIXB[3]

     Local nOk 

     Local nOk  := aScan(aHeadTPC, {|x| AllTrim(Upper(X[2])) == "TX_OK" })

     Local nX 

     Local nX :=
0     If 
 0
     If AllTrim(TPC->TPC_OPCAO) == 'SIM'

          aCOLSTPC

          aCOLSTPC[nLin][nOK] := "X"

     EndIf     RestArea

     EndIf
     RestArea(aArea)


Return aCOLSTPC