Histórico da Página
Aviso | ||
---|---|---|
| ||
Existe um novo modelo de desenvolvimento de ponto de entrada, por favor realizar a alteração, conforme o exemplo a seguir: Clique aqui. |
Inclui dados na tabela TTF - Check List
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
| ||||
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 executado ao confirmar uma Geração um Retorno de Check List, podendo assim incluir ou alterar dados da tabela TTF |
Localização: | Atualizações > Controle de Oficina > Check List > Geração Retorno Check List. |
Eventos: | Geração Retorno Check List (MNTA735.prw) |
Programa Fonte: | MNTA735.prw |
Função: | MNTA7351() |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch' User Function MNTA7351() Local oModel1 := PARAMIXB[1] //O Modelo de dados da rotina MNTA735 Local aAreaTTF := TTF->(GetArea()) //Salva área posicionada. dbSelectArea("TTF") dbSetOrder(1) //TTF_FILIAL+TTF_CHECK+TTF_CODFAM+TTF_TIPMOD+TTF_SEQFAM If dbSeek(xFilial("TTF")+oModel1:GetValue('TTFMASTER','TTF_CHECK')) //Posiciona no registro adicionado. RecLock("TTF",.F.) TTF->TTF_POSCON := 100 // Realiza alteração dode nomecontador. MsUnLock("TTF") EndIf RestArea(aAreaTTF) //Retorna área posicionada. Return |