Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001VSP - Verificação de saldo em estoque
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
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 ao informar a quantidade de peças no orçamento, com a finalidade de verificar se a quantidade informada possui saldo em estoque.
Eventos
 User Function OX001VPP ()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001VSP - Verificação de saldo em estoque ( [ ] ) --> 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
 dbSelectArea("VV1")
dbSetOrder(1)
dbSeek(xFilial("VV1")+cChassiInt)
 
if VO1->VO1_CHAINT <> cChassiInt
if !lOX001Auto
MsgStop(STR0111)
endif
sRestArea(aArea)
Return(.f.)
endif
//
// Validação do proprietario. Caso a concessionaria possua regras proprias de validação, executa o PE,
// caso contrário realiza a verificação padrão
//
if ExistBlock("OX001VPP")
if !ExecBlock("OX001VPP",.f.,.f.)
Return(.f.)
Endif
else
if VO1->VO1_PROVEI <> VV1->VV1_PROATU .or. ;
VO1->VO1_LOJPRO <> VV1->VV1_LJPATU
if !lOX001Auto
MsgStop(STR0112)
endif
sRestArea(aArea)
Return(.f.)
endif
endif
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não