Validação Documento de Entrada

/*
=============================================================================
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)