You can adapt your code with this:

Thisform.strAliasLote = '_' + Sys(3)

Select * From tab_ctasxpag_002 Where tab_ctasxpag_002.statustran = ' ' Into Cursor (Thisform.strAliasLote)

With Thisform.grdTab_ctasxpag_002 as Grid
.Visible = .T.
.RecordSource = (Thisform.strAliasLote)
.RecordSourceType = 1
.DeleteMark = .F.
.ReadOnly = .T.
.ColumnCount = Fcount((Thisform.strAliasLote))

gnFieldcount = Afields(gaMyArray,(Thisform.strAliasLote)) && Create array.

For n = 1 To .ColumnCount
strCol = 'Column'+Alltrim(Str(n))
.&strCol..ControlSource = Field(n)
.&strCol..Header1.Caption = Alltrim(Proper(Field(n)))
.&strCol..Width = Fsize(Field(n))+75
If gaMyArray(n,2) = 'N' And (gaMyArray(n,4) > 0)
.&strCol..InputMask = tcmask_numeros
Endif
Endfor

Endwith

it's work fine to me.

I expect to work to you.