Linha Microsiga Protheus

Árvore de páginas

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