Validação de Item no Pedido de Venda

/*

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

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