Substituição do CriaTrab por FWTemporaryTable - sem utilizar um array de campos

Ronaldo fiz os ajustes no seu programa para converter para FWTemporaryTable().

Local aArea        AS Array
Local aFields    AS Array
Local aStruct    AS Array
Local aTamSX3    AS Array
Local cAlias    AS Character
Local cQuery    AS Character
Local cCpoQry    AS Character
Local lRet        AS Logical
Local oTable    AS Object
Local nX        AS Numeric

lRet := .F.
aArea := GetArea()

aFields := {'E2_FILIAL','E2_NUM','E2_PARCELA','E2_VENCREA'}    //Campos gerados na tabela temporária

//Monta estrutura dos campos
aStruct    := {}
cCpoQry    := ''
For nX := 1 to Len(aFields)
    aTamSX3    := TamSX3(aFields[nX])
    //            Nome_Cpo    Tipo       Tamanho     Decimal
    aAdd(aStruct,{aFields[nX],aTamSX3[3],aTamSX3[1],aTamSX3[2]})

    //Monta campos usados na query
    cCpoQry    += aFields[nX]
    If nX <> Len(aFields)
        cCpoQry    += ','
    EndIf
Next

//Cria tabela temporária
oTable := FWTemporaryTable():New()
oTable:setFields(aStruct)
oTable:addIndex("1", {"E2_VENCREA"})    //Indice 1 da tabela
oTable:create()

cAlias    := oTable:getAlias()    //Alias para uso no programa

//Faz o preenchimento da tabela via SQL
cQuery := "INSERT INTO " + oTable:getRealName()+CRLF
cQuery += "("+cCpoQry+") "+CRLF
cQuery += "SELECT "+cCpoQry+CRLF
cQuery += "FROM " + RetSqlName("SE2") + " SE2 "+CRLF
cQuery += "WHERE SE2.D_E_L_E_T_='' "+CRLF
cQuery += "    AND E2_FILIAL='" + xFilial( "SE2" ) + "' "+CRLF
cQuery += "    AND E2_FORNECE='" + cA100For + "' "+CRLF
cQuery += "    AND E2_LOJA='" + cLoja + "'"+CRLF

if TCSqlExec(cQuery) >= 0    //Conseguiu popular a tabela
    lRet    := .T.
    //...PROCESSAMENTO OU TELA...    
Else                        //ERRO na gravação da tabela
     lRet := .F.

     // Caso deseja gerar exceção...
     // UserException(TCSqlError())
EndIf

//Limpa tabela temporária
oTable:delete()
FreeObj(oTable)

RestArea(aArea)