| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Backoffice |
| Módulo: | Gestão de Contratos |
| Função: | CNTA300R - Revisões de Contrato |
| Ponto de Entrada: | CN300RCM |
| 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: |
| |||||||||
| Retorno: |
|
#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
#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:
