Histórico da Página

User Function FGX_GrupoVeicVXGRUVEI(cChaInt)

	Local aArea		:= GetArea()
	Local cGrupoVeic    
    Local cChaInt    := ParamIxb[1]
    Local cGrupoVeic := ""
	Default cChaInt	:= ""

	If
    // O grupo está sendo levantado em um momento em que estou posicionado na VV1
    If VV1->(FieldPos('VV1_GRUVEI')) .and. !Empty(cChaInt)//(FWIsInCallStack('VEIXA010') .and. ExistBlock("VXGRUVEI")
		cGrupoVeic := ExecBlock("VXGRUVEI",.F.,.F.,{cChaInt})
	or. FWIsInCallStack('VEIA070'))
        VV1->(DBSetOrder(1))
        If VV1->(DBSeek(xFilial("VV1") + cChaInt))
            If !Empty(VV1->VV1_GRUVEI)
                cGrupoVeic := VV1->VV1_GRUVEI
            Endif
        Endif
    Endif

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

	RestArea(aArea)

Return cGrupoVeic