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