Árvore de páginas

Carregando...

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagevb
themeMidnight
titleF667ALCAPR
#Include 'Protheus.ch'

User Function F667ALCAPR()

	Local aParam    := PARAMIXB  //[1] = participante, [2] = cod. viagem
	Local cRet      := ""
	Local cAreaAnt  := GetArea()

	dbSelectArea("RD0")
	cRet := RD0->RD0_APSUBS

	If cAreaAnt <> Nil .and. !Empty(cAreaAnt)
    	dbSelectArea(cAreaAnt)
	EndIf

Return cRet
Parâmetros RecebidosTipoDescrição
PARAMIXB[1]CCódigo do participante
PARAMIXB[2]CCódigo da viagem
RetornoTipoDescrição
cRetCCódigo do participante ao qual a regra aplicada no ponto de entrada definiu que será o aprovador do adiantamento

04. DEMAIS INFORMAÇÕES

Não há.

...