Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Guilherme Fre

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Guilherme Fre

Gravado em

Chave

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

Gravações de dados em outras tabelas. 

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

MNTA735 

Geração Check List

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

TTF - Check List

TTG - Detalhes do Check List

Sistema(s) Operacional(is):

Windows e Linux

Ponto de Entrada

Descrição:

Ponto de entrada para fazer gravações em outras tabelas.

Localização:

Atualizações > Controle de Oficina > Check List > Geração Check List.

Eventos:

Geração Check List (MNTA735.prw)

Programa Fonte:

MNTA735.prw

Função:

MNTA7358()

 


Bloco de código
languagejava
titleExemplo Ponto de Entrada
#Include 'Protheus.ch'


User Function MNTA7358()


    Local aAreaTTF := GetArea() //Salva area posicionada.
    Local oModel1  := PARAMIXB[1] //Retorna o modelo de dados utilizado.

    dbSelectArea("ST9")
    dbSetOrder(1)
    If dbSeek(xFilial("ST9")+oModel1:GetValue('TTFMASTER','TTF_CODBEM'))
        RecLock("ST9",.F.)
        ST9->T9_BLOQTMS := '1'
        MsUnlock("ST9")

    EndIF

    RestArea(aArea) //Retorna area

Return