Descrição: | Ponto de Entrada na rotina de Orçamento por Fases, executado ao tentar selecionar o item relacionado, utilizado para permitir ou não a seleção do item relacionado. | |||||||||
Localização: | Atualizações \ Mov Oficina \ Orçamento por Fases | |||||||||
Eventos: | Function OX001SOBEREL(_naIteRel) Local cGrupoVal := aIteRel[_naIteRel,1] Local cCodIteVal := aIteRel[_naIteRel,2] Local nCntFor Local cCodSalva Local cGruSalva Local cDesSalva Local cTesSalva if Empty(cCodIteVal) return .f. endif If ExistBlock("OX001PIR") // Permite selecionar o Item Relacionado? If !ExecBlock("OX001PIR",.f.,.f.,{ cGrupoVal , cCodIteVal }) Return .f. EndIf EndIf | |||||||||
Programa Fonte: | OFIXX001 .PRW | |||||||||
Função: | OX001SOBEREL() | |||||||||
| Parâmetros: |
| |||||||||
| Retorno: |
|
Exemplo:
Include totvs.ch
/*
Ponto de Entrada na rotina de Orcamento por Fases, executado ao tentar selecionar
o item relacionado, utilizado para permitir ou não a seleção do item relacionado.
*/
User Function OX001PIR()
Local lRet := .t.
Local cGrupoVal := ParamIXB[01] // Grupo do Item relacionado
Local cCodIteVal := ParamIXB[02] // Codigo do Item relacionado
/*
lRet := .f. // Não permite selecionar o Item relacionado
*/
//
MsgInfo("Ponto de Entrada OX001PIR executado com sucesso!")
//
Return lRet
