/*
=============================================================================
Rotina : MT100TOK
—————————————————————————–
Autor : Thiago Coimbra
—————————————————————————–
Descricao : Ponto de entrada para validação de uma nota fiscal de entrada.
Executado no momento em que clica OK.
—————————————————————————–
Partida : MATA103 (Documento de Entrada)
Funcão “Retornar” em MATA410 (Pedidos de Venda)
=============================================================================
*/
#include “Protheus.ch”
#include “Rwmake.ch”
#include “TopConn.ch”
//—————————————————————————
User Function MT100TOK()
//—————————————————————————
Local nPosTES := aScan(aHeader,{|x| AllTrim(x[2]) == “D1_TES” })
Local aArea := GetArea()
Local nX
Local lOK := .T.
For nX := 1 To Len(aCols)
// Nao processa para os itens deletados
If !aCols[nX][Len(aHeader)+1]
//aCols[nX][nPosNOri]
Endif
Next nX
//CTIPO, DDEMISSAO, etc.
RestArea(aArea)
Return(lOK)