- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ajuda para criar um ponto de entrada
×
Linguagem de Programação ADVPL
Perguntas Ajuda para criar um ponto de entrada
- gilbertofurtado
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 135
- Obrigados Recebidos: 1
10 anos 2 meses atrás #25203
por gilbertofurtado
Ajuda para criar um ponto de entrada foi criado por gilbertofurtado
Bom dia a todos, não tenho muita habilidade com ADVPL então gostaria da ajuda de vocês para criar um ponto de entrada, sei que preciso usar esse:
OM200VLD - Valida Pedidos de Carga
Descrição:
Validação no While de Pedidos na Carga.
Validacão no While principal do SC9 na montagem de carga que permite ao usuário incluir suas próprias regras. Caso o retorno seja falso, o registro corrente do SC9 nao será incluso na montagem de carga.
Estou usando o seguinte:Preciso que o sistema não mostre os pedidos de clientes bloqueados.
OM200VLD - Valida Pedidos de Carga
Descrição:
Validação no While de Pedidos na Carga.
Validacão no While principal do SC9 na montagem de carga que permite ao usuário incluir suas próprias regras. Caso o retorno seja falso, o registro corrente do SC9 nao será incluso na montagem de carga.
Estou usando o seguinte:
User Function OM200VLD()
Local lRet := .T.
cForma := POSICIONE("SA1",1,XFILIAL("SA1")+SC9->C9_CLIENTE+SC9->C9_LOJA,"A1_MSBLQL")
cCodCli :=SC9->C9_CLIENTE
If cForma=="1"
lRet := .F.
EndIf
Return lRetPor favor Acessar ou Registrar para participar da conversa.
- henry.charriere
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 492
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26611
por henry.charriere
Respondido por henry.charriere no tópico Ajuda para criar um ponto de entrada
Gilberto, bom dia!
O sistema não permite inclusão no sistema quando o cliente está bloqueado. De qualquer forma seu advpl está correto, só faria um ajuste.
local cForma := POSICIONE("SA1",1,XFILIAL("SA1")+SC9->C9_CLIENTE+SC9->C9_LOJA,"A1_MSBLQL")
if alltrim(cForma) == "1"
lRet := .F.
É isso.
O sistema não permite inclusão no sistema quando o cliente está bloqueado. De qualquer forma seu advpl está correto, só faria um ajuste.
local cForma := POSICIONE("SA1",1,XFILIAL("SA1")+SC9->C9_CLIENTE+SC9->C9_LOJA,"A1_MSBLQL")
if alltrim(cForma) == "1"
lRet := .F.
É isso.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ajuda para criar um ponto de entrada
Tempo para a criação da página:0.098 segundos