Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Rodrigo Nascimento Soledade

Gravado em

comparado com

Nova versão 3

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

 

Exemplo:


Bloco de código
languagevb
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 TPC->TPC_OPCAO == 'SIM'

          aCOLSTPC

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

     EndIf     RestArea

     EndIf
     RestArea(aArea)


Return aCOLSTPC