primaverabss – How to change the horizontal alignment of a column in PriGrate

I use the PriGrid component to display a set of records.
The column alignment is left default for text columns and right for numeric columns.
I need to center some columns of text to improve the reading on the grid.
How do you change the horizontal alignment of the column to center it?

Below, I leave the code of the configuration of the grid.


Private Sub InicializaGrelha01()

    With grdGrelha01

        .BandaMenuContexto = "PopupGrelhasStd" 'PriGlobal: IGNORE

        .IniciaDadosConfig

        .AddColKey "Documento", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00059"), 10, False, True, , , , , "", , , "TipoDoc + ' ' + Serie + '/' + Convert(varchar, NumDoc) As Documento ", , , True
        .AddColKey "Ano", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00089"), 10, False, True, , , , , "", , , "Year(Data) As Ano"
        .AddColKey "DataDoc", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00012"), 10, False, True, , , , , "", , , "Data As DataDoc"
        .AddColKey "TecProcur", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00088"), 10, False, True, , , , , "", , , "CDU_ProcTec As TecProcur"
        .AddColKey "Requester", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00075"), 10, False, True, , , , , "", , , "CDU_Requester As Requester"
        .AddColKey "DataRecebida", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00090"), 10, False, True, , , , , "", , , "CDU_DataRececao As DataRecebida"
        .AddColKey "Departamento", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00091"), 10, False, True, , , , , "", , , "CDU_DescDepartamento As Departamento"
        .AddColKey "FechadoSN", SS_CELL_TYPE_STATIC_TEXT, DaMensagemCultura(BSO.Contexto.CulturaUtilizadorActual, "ITF00078"), 10, False, True, , , , , "", , , "IIF(Estado = 'F', 'Sim/Yes', Null) As FechadoSN"

        'Colunas Invisiveis
        .AddColKey "idDoc", SS_CELL_TYPE_STATIC_TEXT, "idDoc", 10, True, False, , , , , , , , "Id As idDoc", False
        .AddColKey "TipoDoc", SS_CELL_TYPE_STATIC_TEXT, "TipoDoc", 10, True, False, , , , , , , , "TipoDoc As TipoDoc", False
        .AddColKey "NumDoc", SS_CELL_TYPE_INTEGER, "NumDoc", 10, True, False, , , , , , , , "NumDoc As NumDoc", False
        .AddColKey "Serie", SS_CELL_TYPE_STATIC_TEXT, "Serie", 10, True, False, , , , , , , , "Serie As Serie", False
        .AddColKey "Filial", SS_CELL_TYPE_STATIC_TEXT, "Filial", 5, True, False, , , , , , , , "Filial As Filial", False
        .AddColKey "QUOSelec", SS_CELL_TYPE_STATIC_TEXT, "QUOSelec", 5, True, False, , , , , , , , "CDU_QUOSeleccionada As QUOSelec", False

        '.PermiteActiveBar = True
        '.PermiteEdicao = True
        .PermiteAgrupamentosUser = True
        .PermiteOrdenacao = True
        .PermiteActualizar = True
        .PermiteFiltros = True
        .PermiteDetalhes = True
        .PermiteStatusBar = True
        .PermiteDataFill = True
        .PermiteVistas = True
        .PermiteDetalhes = True
        .PermiteActualizar = False

        .FormataGrelha
        .LimpaGrelha

    End With

End Sub