/*

=============================================================
Rotina : M410LIOK
————————————————————————————————-
Autor : Thiago Coimbra
————————————————————————————————-
Descricao : Ponto de entrada para validação da linha (item) da rotina de
pedido de venda. Executado no momento em que sai da linha e
antes da confirmação do pedido.
————————————————————————————————-
Partida : MATA410 (Pedidos de Venda)
=============================================================
*/
#include “Protheus.ch”

//—————————————————————————
User Function M410LIOK()
//—————————————————————————

Local lOk := .T.
Local aArea := GetArea()
Local nPosProd := AScan(aHeader,{|x| AllTrim(x[2]) == “C6_PRODUTO” })

If AllTrim(aCols[N][nPosProd]) == “CODTESTE”

MsgAlert(“Alerta de produto teste.”)

EndIf

Return (lOk)