Histórico da Página

Este ponto de entrada permite acrescentar outras validações nas colunas da grid de produtos e/ou acessórios da proposta comercial.

#include "protheus.ch"

User Function FT600COL1()
Local cVar := PARAMIXB[1]
Local nGet := PARAMIXB[2]
Local cMsg := ""
Local nOption := 0
Local lReturn := .T.

cMsg += "Coluna editada " + cVar + " da "

Do case
case nGet == 1
cMsg += " Grid de Produtos"
case nGet == 2
cMsg += " Grid de Acessórios"
Otherwise
cMsg += " nGet invalido"
EndCase

cMsg += ", Confirma?"

nOption := Aviso( "PE FT600COL1",cMsg, {"Sim","Não"})

lReturn := nOption == 1

Return lReturn

Português (Brasil)

Microsiga_Protheus11

Todos

Todas

PARAMIXB[1], Caracter, contem o nome da coluna em edição
PARAMIXB[2], Numerico, 1 para a grid de produtos e 2 para a grid de acessórios

Verdadeiro - permite a edição da célula

FATA600.PRW