Histórico da Página

User Function STDescIt()
Local cCliente  := PARAMIXB[1]  //Codigo Cliente
Local cLojaCli  := PARAMIXB[2]  //Loja Cliente
Local cCodProd  := PARAMIXB[3]  //Codigo do Produto
Local nQuant    := PARAMIXB[4]  //Quantidade
Local nVlrUnit  := PARAMIXB[5]  //Valor Unitario
Local nVlrItem  := PARAMIXB[6]  //Valor do Item
Local nDesconto := PARAMIXB[7]  //Valor ou Percentual de Desconto
Local cTipoDesc := PARAMIXB[8]  //Tipo do desconto (V=Valor / P=Percentual)
Local lIsPBM    := PARAMIXB[9]  //Indica se é PBM

Local nVlrDescIT:= 0            //Valor desconto Item
Local nPerDescIT:= 0            //Percentual desconto Item
Local aRet      := {}
Local nDescPerc := 0            //Percentual de Desconto a ser considerado no Item
Local nDescVlr  := 0            //Valor de Desconto a ser considerado no Item

If cTipoDesc == "V" //Desconto por Percentual
    nVlrDescIT := nDesconto
    nDescVlr   := nVlrDescIT
ElseIf cTipoDesc == "P" //Desconto por Valor
    nPerDescIT := nDesconto
    nDescPerc  := nPerDescIT
EndIf

If cCodProd = "000001" //Se for o produto 000001, aplica o desconto
    nDescVlr    := 49910.9500   //Atribua aqui o Valor desejado de desconto no item
    nDescPerc   := 999.9950    //Atribua aqui o Percentual desejado de desconto no item
EndIf

/*
Retorna um array com 2 posições, sendo:
  aRet[1] = Valor de Desconto a ser aplicado no Item
  aRet[2] = Percentual de Desconto a ser aplicado no Item
*/
aAdd(aRet, nDescVlr)
aAdd(aRet, nDescPerc)

Return aRet