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, podendo adequar o calculo do resultado conforme uma necessidade especifica.
Localização: | OGX004DESC | ||||||||||||||||||||||||
Programa Fonte: | OGX004 | ||||||||||||||||||||||||
Função: | OGX00401()
| ||||||||||||||||||||||||
Parametros: |
| ||||||||||||||||||||||||
Retorno: |
|
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 )