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 aHeader:= PARAMIXB[3]
Local aCols := PARAMIXB[4]
Local nAt nAT := PARAMIXB[5]

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
PARAMIXB[3], array, aHeader da grid de produto ou acessorios, conforme PARAMIXB[2]
PARAMIXB[4], array, aCols da grid de produto ou acessorios, conforme PARAMIXB[2]
PARAMIXB[5], numerico, linha posicionada no aCols da grid de produto ou acessorios, conforme PARAMIXB[2]

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

FATA600.PRW