Ponto-de-Entrada: OX004AFT - Validações no Faturamento
| 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:
Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado no faturamento para validar as informações do orçamento.
Eventos
User Function OX004AFT()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX004.PRW
Sintaxe
OX004AFT - Validações no Faturamento ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Continua ou Aborta Operaçao
Observações
f nSaldo != 0
MsgInfo(STR0021,STR0019)
return .f.
endif
//#############################################################################
//# Ponto de Entrada para verificacoes antes do faturamento #
//#############################################################################
if ExistBlock("OX004AFT")
if !ExecBlock("OX004AFT",.f.,.f.)
Return(.f.)
Endif
Endif
//#############################################################################
//# Verifica se houve alteracao dos titulos e muda a condicao de pagamento #
//#############################################################################
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcOrcT)
if VS1->(FieldPos("VS1_VALDUP")) > 0
aIteParc := Condicao(nValDup,SE4->E4_CODIGO,,DDATABASE)
else
aIteParc := Condicao(nValTot,SE4->E4_CODIGO,,DDATABASE)
endif
//
OX004REORD()
//
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |