Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Alexandre dos Santos

Gravado em

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 customizar o processo de gravação de uma distribuição de SS.

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

MNTA280

Solicitação

Issues Relacionadas

12.1.17 / DNG-2431

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de Entrada que 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

Função:

MNTA280GRV()

Observação:Este ponto de entrada substitui a chamada do PE MNTA2956 na rotina MNTA280.

 

Exemplo:


Bloco de código
languagesql
themeEclipse
#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"

        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 aRegistro 'TQB' )
    TQB->TQB_TESTE := 'TESTE PE MNTA280J'
    TQB->( MsUnLock() )
 
Return