Acrescentar validação na edição das colunas da grid de produtos e/ou acessórios da Proposta Comercial (FATA600)

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

O ponto de entrada FT600COL1 foi depreciado para a versão 12 devido à evolução da 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

Para utilizar o ponto de entrada na versão 11, acesse o link: 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 no 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: As informações aParam[4], aParam[5] e aParam[6] podem variar de acordo com os parâmetros aParam[1], aParam[2] e aParam[3]. As informações apresentadas aqui estão de acordo com o exemplo demonstrado.

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

FATA600.PRW