Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

O ponto de entrada OG262S1() esta disponível na rotina de calculo de Serviço Armazenagem (OGA262). Este ponto de entrada permite intervir no valor a ser calculado no serviço.


Localização:

OG262S1()

Programa Fonte:

OGA262 - Cálculo Serviço

Função:

Intervir no valor a ser calculado no serviço.

Exemplo Uso: Adicionar taxa administrativa no valor já calculado. 

Retorno:

Nome

Tipo

Descrição

Obrigatório

OG262S1

Numérico

Não envia parâmetros.

Deverá retornar um valor numérico que será o novo valor da tarifa.

não


02. EXEMPLO DE UTILIZAÇÃO

Abaixo segue exemplo onde inclui dois itens novos no menu.


User Function OG262S1()
    Local aAreaAtu  := GetArea()  
    Local lRetorno  := .F.
    Local cAliasNKQ := PARAMIXB[1]   //Alias da NKQ
    Local cAliasNJM := PARAMIXB[2]   //Alias da NJM
    Local nTarifa   := PARAMIXB[3]   //Tarifa Encontrada pelo Sistema.


    Local nPerc     :=0   //Percentual a cobrar pelo serviço
    Local nVrCpra   :=0   //Identifica o vr. de compra do produto que esta sendo retornado
    Local nTarifa   :=0
    Local cIndAdm   :='' //Indice de taxa administrativa

    IF (cAliasNKQ)->NKQ_XPERCE > 0    
            NK0->( dbSetOrder( 1 ) )
            If NK0->( dbSeek( xFilial( "NK0" ) + cIndAdm ) )
                // Busca valor do índice de acordo com o tipo de cotação (diária ou mais atual)
               nVlrInd := AgrGetInd( NK0->NK0_INDICE, NK0->NK0_TPCOTA, dDataBase, NJR->NJR_CODPRO, '', NJR->NJR_CODSAF )
               nTarifa    := Round(nVlrInd * (cAliasNKQ)->NKQ_XPERCE  / 100,    TamSx3('NKQ_VALTAR')[2] )
            EndIF
    EndIF

    RestArea( aAreaNK0  )
    RestArea( aAreaNJR  )
    RestArea( aAreaNJM  )
    RestArea( aAreaAtu  )
   
Return nTarifa