Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagedelphi
themeMidnight
titleOX001ARS VXGRUVEI (ADVPL)
linenumberstrue
Function FGX_GrupoVeic(cChaInt)

	Local aArea		:= GetArea()
	Local cGrupoVeic:= ""
	Default cChaInt	:= ""

	If !Empty(cChaInt) .and. ExistBlock("VXGRUVEI")
		cGrupoVeic := ExecBlock("VXGRUVEI",.F.,.F.,{cChaInt})
	Endif

	If Empty(cGrupoVeic)
		cGrupoVeic := Left(GetMV("MV_GRUVEI")+Space(TamSX3("B1_GRUPO")[1]),TamSX3("B1_GRUPO")[1])
	Endif

	RestArea(aArea)

Return cGrupoVeic

...