import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: OI001RDE - Customização da margem de lucro e desconto.
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:
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
|