Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Mônica Amélia Nunho Giandoni

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MT410TOK - Validar confirmação da operação
MT410TOK - Validar confirmação da operação

Ponto-de-Entrada: MT410TOK - Validar confirmação da operação
Abrangências: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Este ponto de entrada é executado ao clicar no botão OK e pode ser usado para validar a confirmação das operações: incluir,  alterar, copiar e excluir.Se o ponto de entrada retorna o conteúdo .T., o sistema continua a operação, caso contrário, volta para a tela do pedido.
Eventos

Programa Fonte 
MATA410.PRW
Sintaxe

MT410TOK - Validar confirmação da operação ( [ nOpc ], [ aRecnoSE1RA ] ) --> lRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcArray of RecordNúmero referente a opção de manutenção que está sendo utilizada. Ex: 2-Visualização, 3-Inclusão, 4-Alteração
aRecnoSE1RAArray of RecordArray com os titulos selecionados pelo Adiantamento
Retorno
    lRet(logico)
  • lRet
Observações


Exemplos 
User Function MT410TOK()Local lRet      := .T.				// Conteudo de retornoLocal cMsg      := ""				// Mensagem de alertaLocal nOpc      := PARAMIXB[1]		// Opcao de manutencaoLocal aRecTiAdt := PARAMIXB[2]		// Array com registros de adiantamentocMsg := "Entrou no PE(MT410TOK) após acionamento do botão de OK, passando os seguintes parâmetros:"+Chr(10)+Chr(10)+Chr(13)+"nOpc: "+AllTrim(Str(nOpc))+"    e   aRecTiAdt: "+AllTrim(Str(Len(aRecTiAdt)))+" elementos"Aviso("Teste PE - A410VldTOK",cMsg,{"OK"}) Return(lRet)