Ponto-de-Entrada: OFA290DD - Verifica se o registro deve ir para a demanda
| 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 na rotina de (Levantamento da Demanda Diária de Itens da Montadora Scania) (OFIIA290), executado para proporcionar ao usuário outras formas de filtro dos itens que faz ou não fazer parte da Demanda.
Eventos
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Programa | OFA290DD |Autor | | Data | 99/99/99 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descri‡„o | PE para fazer checagens antes da geração das NF’s |##
##+----------+--------------------------------------------------------------+##
##|Uso | Concessionarias |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User function OFA290DD()
cPar1 := ParamIxb[1]
If cPar1 == "SD2"
DbSelectArea("SF4")
DbSetOrder(1)
DbSeek(xFilial("SF4")+SD2->D2_TES)
If SF4->F4_ESTOQUE == "S"
lRet := .t.
Else
lRet := .f.
Endif
return lRet
Programa Fonte
OFIIA290.PRW
Sintaxe
OFA290DD - Verifica se o registro deve ir para a demanda ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
Observações
If lPE
If !ExecBlock("OFA290DD",.f.,.f.,{"SD2"})
(cSQLSD2)->(DbSkip())
Loop
Endif
Endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |