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: |
|
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