Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. CN300RCM - Modificar a validação de medições em aberto na inclusão da revisão


Produto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha de Produto:

Linhas_totvs
SegmentoDistribuição
RegionConstrução Projetos
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:Gestão de Contratos
Função:CNTA300R - Revisões de Contrato
Ponto de Entrada:CN300RCM

02. DETALHES


Descrição:

Possibilita que o desenvolvedor modifique a validação padrão de existência de medições em aberto ao incluir uma revisão. 

Eventos:

Executado antes da inclusão de uma nova revisão

Programa Fonte:

CNTA300R.PRW

Função:

A300CheckM

Parâmetros:
PosiçãoTipoDescrição
PARAMIXB[1]caracterenúmero do contrato
PARAMIXB[2]caractere consulta SQL utilizada pelo produto para validar a existência de medições
Retorno:
ValorTipoDescrição
lResultlógico

Valor lógico se deve prosseguir com a revisão ou não.



 

Bloco de código
titleExemplo
linenumberstrue
#INCLUDE "Protheus.ch"

/*{Protheus.doc} CN300RCM()
	Possibilita que o desenvolvedor modifique a validação padrão de existência de medições em aberto ao incluir uma revisão. 
Exemplo abaixo simplesmente ignora a validação, permitindo a inclusão.
*/
User Function CN300RCM()
	Local cContra	:= PARAMIXB[1] //Contrato
	Local cQuery	:= PARAMIXB[2] //Query padrão que seria utilizada p/ validacao
	Local lResult	:= .T. //Deve prosseguir ou não.

Return lResult

Bloco de código
titleExemplo
linenumberstrue
#INCLUDE "Protheus.ch"

/*{Protheus.doc} CN300RCM()
	Possibilita que o desenvolvedor modifique a validação padrão de existência de medições em aberto ao incluir uma revisão. 
Exemplo abaixo a consulta padrão é realizada, mas prosseguir fica a cargo do usuário
*/
User Function CN300RCM()
	Local cContra	:= PARAMIXB[1] //Contrato
	Local cQuery	:= PARAMIXB[2] //Query padrão que seria utilizada p/ validacao
	Local lResult	:= .T. //Deve prosseguir ou não.
	Local cMyAlias 	:= GetNextAlias()

	cQuery := ChangeQuery(cQuery)
	dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cMyAlias,.F.,.T.)

	If (cMyAlias)->QTD > 0
		lResult := MsgYesNo("CN300RCM : Há medições em aberto do contrato " + cContra +", deseja prosseguir?")		
	EndIf
	(cMyAlias)->(DbCloseArea())
Return lResult

Alerta exibido:

03. ASSUNTOS RELACIONADOS

  • Não há