Histórico da Página

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

O ponto de entrada FT600COL1 foi depreciada para versão p12, devido a evolução de tecnologia aplicada.

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'FWMVCDEF.CH'

User Function FATA600()
Local aParam := PARAMIXB
Local xRet := .T.
Local oObj := ''
Local cIdPonto := ''
Local cIdModel := ''
Local cIdMethod := ''
Local cMsg := ''
Local nOption := 0
 

If aParam <> NIL
oObj := aParam[1]
  cIdPonto := aParam[2]
  cIdModel := aParam[3]

  If cIdPonto == 'FORMLINEPRE'

   cIdMethod := aParam[5]

   If cIdMethod=="CANSETVALUE"

   cIdField := aParam[6]

  cMsg += "Coluna editada " + cIdField + " da "
 If cIdModel=="ADZPRODUTO"
  cMsg += " Grid de Produtos"
  ElseIf cIdModel=="ADZACESSOR"
   cMsg += " Grid de Acessórios"
  Else
   cMsg += " Model desconhecido " + cIdModel
  EndIf

cMsg += ", Confirma?"

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

xRet := nOption == 1
EndIf
EndIf
EndIf
Return xRet

Utilização na versão 11, vide o link http://tdn.totvs.com.br/pages/viewpage.action?pageId=167313657 FT600COL1 - Valida a edição das colunas da grid de produtos e/ou acessórios da Proposta Comercial

Saiba mais sobre os pontos de entrada, vide o link http://tdn.totvs.com/display/mp/Pontos+de+Entrada+para+fontes+Advpl+desenvolvidos+utilizando+o+conceito+MVC

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

aParam[1] => Objeto do formulário ou do modelo, conforme o caso

aParam[2] => ID do local de execução do ponto de entrada

aParam[3] => ID do formulário

aParam[4] => Numero da linha da grid em edição

aParam[5] => Método em execução

** Atenção: Os as As informações aParam[4], aParam[5] e aParam[6] desde que o ] podem variar de acordo com os parâmetros aParam[1], aParam[2] seja FORMLINEPRE] e aParam[3]. As informações apresentadas aqui é de acordo com o exemplo demonstrado.

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

FATA600.PRW