Ponto-de-Entrada: OX001AFP - Confirmação do Orçamento
| 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 no momento da confirmação do Orçamento, com a finalidade de questionar se deseja confirmar ou abortar a operação.
Eventos
User Function VX021AGA()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001AFP - Confirmação do Orçamento ( [ ] ) --> 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 OX001FPOK(lMensagem)
Local nCntFor, nCntFor2, nCntFor3
Local nAuxLinDup // Linha que esta duplicada na aCols
Local lGrAchou := .f.
Default lMensagem := .T.
// Verifica linha deletada
if oGetPecas:aCols[oGetPecas:nAt,Len(oGetPecas:aCols[oGetPecas:nAt])]
return .f.
endif
lMens := lMensagem
// ponto de entrada obsoleto. NAO USAR
// Ponto de entrada antes do FieldOk
if ExistBlock("OX001AFP")
if !ExecBlock("OX001AFP",.f.,.f.)
Return(.f.)
Endif
Endif
// Verifica se é obrigatorio usar o inconveniente
if lInconveniente .and. lInconvObr .and. (M->VS1_TIPORC == "2" ) .and. !OX001INCOBR()
Return(.f.)
endif
//
if Empty(M->VS3_CODITE) .and. !Empty(oGetPecas:aCols[oGetPecas:nAt,fg_posvar("VS3_CODITE","aHeaderP")])
M->VS3_CODITE := oGetPecas:aCols[oGetPecas:nAt,fg_posvar("VS3_CODITE","aHeaderP")]
endif
if Empty(M->VS3_GRUITE) .and. !Empty(oGetPecas:aCols[oGetPecas:nAt,fg_posvar("VS3_GRUITE","aHeaderP")])
M->VS3_GRUITE := oGetPecas:aCols[oGetPecas:nAt,fg_posvar("VS3_GRUITE","aHeaderP")]
endif
// nao deixa preencher nenhum valor enquanto o grupo e o código do item estiverem em branco
if ReadVar() != "M->VS3_GRUITE" .and. ReadVar() != "M->VS3_CODITE" .and. Empty(M->VS3_CODITE) .and. Empty(M->VS3_GRUITE)
if !lOX001Auto
MsgInfo(STR0035,STR0025)
endif
return .f.
endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |