Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada FT600LOK - Pós-validação da linha da Proposta Comercial (Versão 12)

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

CRM - SIGACRM
Faturamento - SIGAFAT

Rotina:

Rotina

Nome Técnico

Proposta comercialFATA600

Proposta comercial

FATV600

Proposta comercialFATV600A

Tickets relacionados

790786

Requisito/Story/Issue:

DSERFAT-2025

País(es):

Todos os países.

Banco(s) de Dados:

Todos os bancos de dados homologados.

Sistema(s) Operacional(is):

Todos os sistemas operacionais homologados.

Versão:A partir da versão 12.

Descrição

Permite realizar validações extras nas linhas (grid) da Proposta Comercial.

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada FT600LOK é possibilitar validações específicas no momento da pós-validação dos grids da Proposta Comercial.

Localização:

SIGACRM → Atualizações → Vendas → Vendas → Oportunidades → Ações Relacionadas → Proposta Comercial
SIGAFAT → Atualizações → CRM-Administração de vendas → Oportunidades → Ações Relacionadas → Proposta Comercial

Programa Fonte:

FATA600.PRW / FATV600.PRW / FATV600A.PRW

Parâmetros:

{ <oModel> }

Onde:

NomeTipoDescriçãoObrigatório
<oModel>ObjetoModelo ativoSim

Retorno:

NomeTipoDescriçãoObrigatório
lRet
Lógico

Indica se a validação específica foi bem sucedida ou não.

Onde:

RetornoExecução
.T.Validação bem sucedida.
.F.Validação não foi bem sucedida.
Sim

Exemplo:

#Include 'Protheus.ch'
#Include "FwMVCDef.ch"
*==========================
User Function FT600LOK()
*==========================
Local oModel := PARAMIXB[1]
Local nOperation := oModel:GetOperation()
Local lRet := .T.

If nOperation == MODEL_OPERATION_UPDATE
      If oModel:GetValue( "ADZ_QTDVEN" ) > 10 
            lRet := .F.
            Help( ,, "Help",,"Não é possível adicionar nem deletar linhas, pois, a quantidade de produto supera o limite permitido.", 1 ) 
            oModel:SetNoInsertLine(.T.)
            oModel:SetNoDeleteLine(.T.) 
      EndIf 
EndIf
Return lRet

Imagem da aplicação do ponto de entrada

Não disponível.