Substituição do CriaTrab por FWTemporaryTable

Olá,

Seguindo o seu exemplo, o código quase não teria alteração, fora é claro, a utilização da classe FWTemporaryTable.

Abaixo um exemplo de como poderia ser implementado:

AADD(aCampos,{"OK" ,"C",002,0})

AADD(aCampos,{"Prefixo" ,"C",TamSX3("E2_PREFIXO")[1],0})

AADD(aCampos,{"Numero" ,"C",TamSX3("E2_NUM")[1],0})

AADD(aCampos,{"Parcela" ,"C",TamSX3("E2_PARCELA")[1],0})

AADD(aCampos,{"Tipo" ,"C",TamSX3("E2_TIPO")[1],0})

AADD(aCampos,{"Valor" ,"N",TamSX3("E2_VALOR")[1],TamSX3("E2_VALOR")[2]})

AADD(aCampos,{"Saldo" ,"N",TamSX3("E2_SALDO")[1],TamSX3("E2_SALDO")[2]})

AADD(aCampos,{"Vencimento","D",8,0})

AADD(aCampos,{"Fornecedor","C",TamSX3("E2_FORNECE")[1],0})

AADD(aCampos,{"Loja" ,"C",TamSX3("E2_LOJA")[1],0})

AADD(aCampos,{"Natureza" ,"C",TamSX3("E2_NATUREZ")[1],0})

If Select("TMPTIT") > 0
    TMPTIT->(dbCloseArea())
EndIf

oTable := FWTemporaryTable():New("TMPTIT", aCampos)
oTable:addIndex("01", {"Prefixo", "Numero", "Parcela", "Tipo"})
oTable:create()

cArq := oTable:GetRealName()

Documentação: https://tdn.totvs.com.br/display/public/framework/FWTemporaryTable

Segue documentação oficial:

https://tdn.totvs.com/display/public/framework/FWTemporaryTable

No lugar disso:

cArq := CriaTrab(aCampos)

If Select("TMPTIT") > 0

TMPTIT->(dbCloseArea())

EndIf

dbUseArea( .T.,, cArq, "TMPTIT", .T., .F. )

IndRegua("TMPTIT",cArq,"Prefixo+Numero+Parcela+Tipo",,,"Criando Controles")

Faria isso:

oTable := FWTemporaryTable():New("TMPTIT", aCampos)

oTable:addIndex("01", {"Prefixo","Numero","Parcela","Tipo"})

oTable:create()

TMPTIT:= oTable:GetRealName()