User Function UPDSXG()
Local aSXG   := {}
Local aEstrut:= {}
Local i      := 0
Local j      := 0
Local cTexto := ''
Local cAlias := ''
Local lSXG   := .F.

aEstrut:= { "XG_GRUPO","XG_DESCRI","XG_DESSPA","XG_DESENG","XG_SIZEMAX","XG_SIZEMIN","XG_SIZE","XG_PICTURE"}

AADD(aSXG,{"040","Entidade Contabil 05","Ente Contable 05","Accounting Entity 05",20,6,6,"@!"})
AADD(aSXG,{"042","Entidade Contabil 06","Ente Contable 06","Accounting Entity 06",20,6,6,"@!"})
AADD(aSXG,{"043","Entidade Contabil 07","Ente Contable 07","Accounting Entity 07",20,6,6,"@!"})
AADD(aSXG,{"044","Entidade Contabil 08","Ente Contable 08","Accounting Entity 08",20,6,6,"@!"})
AADD(aSXG,{"045","Entidade Contabil 09","Ente Contable 09","Accounting Entity 09",20,6,6,"@!"})


ProcRegua(Len(aSXG))

dbSelectArea("SXG")
dbSetOrder(1) // FUNCAO
For i:= 1 To Len(aSXG)
	If !Empty(aSXG[i][1])
		If !MsSeek(Padr(aSXG[i,1],Len(SXG->XG_GRUPO)))
			lSXG := .T.
			If !(aSXG[i,1]$cAlias)
				cAlias += aSXG[i,1]+"/"
			EndIf

			RecLock("SXG",.T.)

			For j:=1 To Len(aSXG[i])
				If !Empty(FieldName(FieldPos(aEstrut[j])))
					FieldPut(FieldPos(aEstrut[j]),aSXG[i,j])
				EndIf
			Next j

			dbCommit()
			MsUnLock()
			IncProc(STR0078)//"Atualizando grupo de campos"##"Atualizando grupo de campos"
		EndIf
	EndIf
Next i

If lSXG
	cTexto := STR0079+cAlias+CRLF //"Grupo de campos atualizados: "
EndIf

Return cTexto