| Produto: |
| ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||
| Segmento: |
| ||||||||
| 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: |
|
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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 | ||||
|---|---|---|---|---|
| ||||
#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 simplesmentea consulta ignorapadrão aé validaçãorealizada, mas permitindoprosseguir fica a inclusão.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:
