Versão atual:

Substituição do CriaTrab por FWTemporaryTable

Bom dia! Alguém já realizou a substituição de um código semelhante ao abaixo por outro utilizando a classe FWTemporaryTable ?

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})

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")

Se sim, poderia colocá-lo aqui por favor?

Versão (1):

Ver a versão formatada

Substituição do CriaTrab por FWTemporaryTable

Comentário

new question