Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
  • Este ponto de entrada está disponível somente a partir da versão 12.1.17!
Permite

Ponto de entrada que permite customizar o processo de gravação de uma distribuição de

SS

S.S.

Características do Requisito

.12.1.17 2431País(es)..

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA280

Solicitação de Serviços

MNTSRClasse de Solicitação de Serviços

Issues Relacionadas

DNG-2431 / DNG-

10237

Países

:

Todos

Banco(s) Bancos de Dados:

Todos.Sistema(s) Operacional(is)

Sistemas Operacionais:

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que executado ao gravar uma distribuição de SS, permite realizar a customização do processo.

Localização:

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

Eventos:

Solicitação (MNTA280)

Programa:

MNTA280.prx / MNTSR.prw

Função:

MNTA280GRV() / Assign()

 

Parâmetros:MV_NG1FAC = 2
Aviso
titleAviso

Esse P.E. foi criado para substituir o P.E. MNTA2956 na rotina MNTA280.

Exemplo:

Bloco de código
languagesql
themeEclipse
titleExemplo do P.E. MNTA280J
linenumberstrue
#include "'Protheus.ch"'
User Function MNTA2956
    Local nX := 0
    Local aCampo := {}
    Local aRegistro := {}

    dbSelectArea("SX3"MNTA280J()
    dbSetOrder(1)
    dbSeekRecLock("TQB")
    
    Do While !EoF() .And. X3_ARQUIVO == "TQB"

      'TQB' )
   If X3USO(X3_USADO) .And. cNivel >= X3_NIVEL .And. AllTrim(x3_campo) == "TQB_TESTE"
            AAdd(aCampo, X3_CAMPO)
        EndIf

        dbSkip()
    
    End Do

    For nX:= 1 to Len(aCampo)
        AAdd(aRegistro, TQB->&(aCampo[nX]))
    Next nX


Return aRegistroTQB->TQB_TESTE := 'TESTE PE MNTA280J'
    TQB->( MsUnLock() )
 
Return