Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OI001RDE - Customização da margem de lucro e desconto.
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: 
Este ponto de entrada customiza a saída do cálculo da Margem de lucro e desconto padrão.
Eventos
 User Function VX021AGA()
 
MsgInfo(“Ponto de Entrada OX001RDE”,”Atencao”)
return nil
 
Programa Fonte 
OFIXI001
Sintaxe

OI001RDE - Customização da margem de lucro e desconto. ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
 //lRetDes := FG_PERDES(SBM->BM_CODMAR,VS1->VS1_CENCUS,"P",VS3->VS3_GRUITE,VS3->VS3_CODITE,VS3->VS3_QTDITE,VS3->VS3_PERDES,,)
if SF4->F4_OPEMOV != "05"
lRetDes := .t.
else
lRetDes := OX005PERDES(SBM->BM_CODMAR,VS1->VS1_CENCUS,VS3->VS3_GRUITE,VS3->VS3_CODITE,VS3->VS3_QTDITE,VS3->VS3_PERDES,.t.,VS1->VS1_CLIFAT,VS1->VS1_LOJA,VS1->VS1_TIPVEN,VS3->VS3_VALTOT/VS3->VS3_QTDITE,,VS1->VS1_FORPAG)
endif
aAdd(aIDescont,lRetDes)
if !lRetDes
lProbDes := .t.
endif
if ExistBlock("OI001RDE")
ExecBlock("OI001RDE",.f.,.f.)
endif
DBSelectArea("VS3")
DBSkip()
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não