Histórico da Página

...

//-------------------------------------------------------------------
/*/{Protheus.doc} MA960GREC
Ponto de Entrada para preenchimento dos campos F6_TIPOGNU, F6_DOCORIG, F6_DETRECE e F6_CODPROD de acordo com o código de receita e UF.

@author 
@since 
/*/
//-------------------------------------------------------------------
User Function MA960GREC()

    Local aParam   := {0, '', '', 0} //Parâmetros de retorno default
    Local cReceita := PARAMIXB[1]    //Código de Receita da guia atual
    Local cUF      := PARAMIXB[2]    //Sigla da UF da guia atual
    If cReceita $ 
    If Alltrim(cReceita) $ '100099' .And. cUF $ 'RJ' //Valida o Código de Receita e sigla da UF da guia atual
        aParam := {24, '2', '', 7}          //Retorna os campos F6_TIPOGNU, F6_DOCORIG, F6_DETRECE e F6_CODPROD de acordo com o código de receita e sigla da UF da guia atual.
    EndIf

Return aParam

...