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 |