01. VISÃO GERAL

O ponto de entrada OGX00401() esta disponível nas chamadas da função OGX004DESC() executada nas rotinas do Romaneio(OGA250/OGA251/AGRA500) e Amostras Avulsas(OGA180).

O ponto de entrada OGX00401() permite realizar ajustes nos itens de classificação do romaneio.


Localização:

OGX004DESC

Programa Fonte:

OGX004 

Função:

OGX00401()

Chamada
aRetPe := ExecBlock("OGX00401",.F.,.F.,{aRetorno, NJJ_TABELA, NJJ_PSSUBT, aItens, lRecursivo })

Parametros:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Itens de classificação do romaneio(NJK)

aRetorno[1][1] := NJK_CODDES

aRetorno[1][2] := NJK_BASDES

aRetorno[1][3] := NJK_PERDES

aRetorno[1][4] := NJK_READES

aRetorno[1][5] := NJK_QTDDES

aRetorno[1][6] := ""

aRetorno[1][7] := NNK_TABALT

aRetorno[1][8] := NNJ_GRUPO

aRetorno[1][9] := NNJ_DESREL

aRetorno[1][10] := NNJ_FORMUL

Sim

cTabelaCaracterTabela de classificação/descontosSim
nPsSubtNuméricoPeso bruto do romaneioSim
aItensArray

Itens de classificação/descontos

aItens[1][1] := NJK_CODDES

aItens[1][2] := NJK_BASDES

Sim
lRecursivoLogicalSe repete(NNJ_GRUPO=1), para avaliação desconto agrupadorSim
Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetPe

Array


Não


02. EXEMPLO DE UTILIZAÇÃO

Abaixo segue um exemplo do ponto de entrada.

User Function OGX00401() 
	Local  aRet 		:= PARAMIXB[1]
	Local  cTabDsc		:= PARAMIXB[2]
	Local  nPesoSubt 	:= PARAMIXB[3]
	Local  aItens 		:= PARAMIXB[4]
	Local  lRecursivo 	:= PARAMIXB[5]
	Local  cCodDesc   	:= ""
	Local  nI           := 1


    For nI:=1 to len( aRet)
	    cCodDesc   	:= aRet[nI,1]
		
		NNJ->( dbSetOrder( 1 ) ) //NNJ_FILIAL+NNJ_CODTAB+NNJ_CODDES   
		NNJ->( dbSeek( FWxFilial( "NNJ" ) + cTabDsc + cCodDesc ) )
		
		IF Alltrim( NNJ->NNJ_CODDES ) == Alltrim( cCodDesc ) .AND. NNJ->NNJ_XDSCNO == '1' //Exemplo: NNJ_XDSCNO=Campo customizado, indica que é um desconto nominal
		    
   			aRet[nI,5] := aRet[nI,3]   // Entendo que o vr. lançado no desconto(tem q ser desc. de faixa) é o desconto nominal que se deseja efetuar.
		
		EndIF 
	nExt nI

  Return( aRet )