Histórico da Página
...
04. DEMAIS INFORMAÇÕES
Fonte Exemplo:
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
USER FUNCTION LC048VPV()
Local lRet := .T.
dbSelectArea("SA1")
dbSetOrder(1)
dbSeek(xFilial("SA1")+FPN->FPN_CLIENT+FPN->FPN_LOJA)
if SA1->A1_RISCO = 'E' //Cliente com Risco E
MsgAlert("O Cliente está com risco E, geração de pedido não permitida !")
lRet := .F.
endif
RETURN lRet |
05. ASSUNTOS RELACIONADOS
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas