Ponto-de-Entrada: OX001ADP - Tratamento de Deleção de Linha do Acols de Peças
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado antes da deleção de linha do acols de peças, com a finalidade de definir se deseja abortar ou continuar a operação.
Eventos
User Function OX001ADP()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001ADP - Tratamento de Deleção de Linha do Acols de Peças ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Continua ou aborta operação.
Observações
Function OX001DELP()
//
Local nCntFor := 1
Local nValSeq := 0
Local lVerInconv
Local lStatAnt
Local nLinDup
// Grava status atual, para voltar se nao executar o PE com sucesso
lStatAnt := oGetPecas:aCols[oGetPecas:nAt,Len(oGetPecas:aCols[oGetPecas:nAt])]
//P.E. para tratamento de delecao de linha do acols de pecas
If ExistBlock("OX001ADP")
If !(ExecBlock("OX001ADP",.F.,.F.))
Return .f.
Endif
EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |