Linha em branco no MBrowse

Bom dia, prezados,

Estou desenvolvendo uma mBrowse com o resultado de uma query, porém quando a tela é exibida o primeiro registro sempre está em branco, não sei o que posso fazer para retirar esta linha . Se alguém puder me ajudar agradeço segue o meu código.

DEFINE MSDIALOG oDlg TITLE "Historico de aprovacoes " + Alltrim(TMP->CR_NUM) FROM 0,0 TO 600, 800 PIXEL

      cAliasTemp  := MpSysOpenQuery("SELECT CR_NUM AS Num, CONVERT(CHAR,CAST(CR_EMISSAO AS DATETIME),103) AS Emissao, CR_TOTAL AS Total,CR_VALLIB AS Liberado, CONVERT(CHAR,CAST(CR_DATALIB AS DATETIME),103) AS Liberacao FROM " + RetSQLName("SCR") + " WHERE CR_NUM = '" +  SCR->CR_NUM + "' AND CR_DATALIB <> '' AND CR_USERLIB <> '' AND CR_LIBAPRO <> '' AND CR_FILIAL = '" + SCR->CR_FILIAL + "' AND D_E_L_E_T_ = '*'")
      oBrowse := FWBrowse():New()
      oBrowse:SetDataTable( .T. )
      oBrowse:SetAlias(cAliasTemp)
      oBrowse:DisableDetails()
      oBrowse:disableReport()
      oBrowse:SetOwner( oDlg )
      oBrowse:SetDescription( "Fornecedor:" + cValtoChar(SC7->C7_FORNECE) + " Loja: " + cValtoChar(SC7->C7_LOJA) + " Emissao: " + Dtoc(SC7->C7_EMISSAO) ) 

      //-------------------------------------------------------------------
      // Adiciona as colunas do Browse
      //-------------------------------------------------------------------
      aColumns    := {}
      aFields     := {}

      aAdd( aFields, "Num" )
      aAdd( aFields, "Emissao" )
      aAdd( aFields, "Total" )
      aAdd( aFields, "Liberado" )
      aAdd( aFields, "Liberacao"  )

      For nContFlds := 1 To Len( aFields )

         AAdd( aColumns, FWBrwColumn():New() )

         aColumns[Len(aColumns)]:SetData( &("{ || " + aFields[nContFlds] + " }") )
         aColumns[Len(aColumns)]:SetTitle( aFields[nContFlds] )
         if nContFlds = 1
            aColumns[Len(aColumns)]:SetSize(8)
         ElseIf nContFlds = 2
            aColumns[Len(aColumns)]:SetSize(10)
         elseif nContFlds = 3 
            aColumns[Len(aColumns)]:SetSize( 10 )
         elseif nContFlds = 4
            aColumns[Len(aColumns)]:SetSize( 10 )
         Else
            aColumns[Len(aColumns)]:SetSize( 10)
         Endif
         aColumns[Len(aColumns)]:SetID( aFields[nContFlds] )
      Next nContFlds

      oBrowse:SetColumns(aColumns)
      oBrowse:Activate()

      ACTIVATE MSDIALOG oDlg
    EndIf

    If Select("TMP") > 0
        dbSelectArea("TMP")
        dbCloseArea()
    Endif