Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Rodrigo Nascimento Soledade

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Rodrigo Nascimento Soledade

Gravado em

Chave

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

Ponto de entrada para preencher marcação 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 (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 do aheader das Opções de Etapa da O.S. (TPC)

Informações da contidas nas Etapas da O.S.

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

Retorno:



Nome

Tipo

Descrição

Obrigatório

aCOLSArrayArray com o acols das etapas da O.S.Sim

 


Bloco de código
languagevbcpp
themeEclipse
titleExemplo
linenumberstrue
#include "Protheus.ch"
User Function MNTA435L()
     Local aArea := GetArea()
     Local aHeadTPC := PARAMIXB[1]
     Local aCOLSTPC := PARAMIXB[2]
     Local nLin := PARAMIXB[3]
     Local nOk := aScan(aHeadTPC, {|x| AllTrim(Upper(X[2])) == "TX_OK" })
     Local nX := 0
     If TPC->TPC_OPCAO == 'SIM'
          aCOLSTPC[nLin][nOK] := "X"
     EndIf
     RestArea(aArea)
Return aCOLSTPC