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)

Anúncios

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão /  Alterar )

Google photo

Está a comentar usando a sua conta Google Terminar Sessão /  Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão /  Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão /  Alterar )

Connecting to %s