{"id":3741,"date":"2020-07-09T14:22:17","date_gmt":"2020-07-09T17:22:17","guid":{"rendered":"https:\/\/www.codevix.com.br\/?p=3741"},"modified":"2020-07-10T10:00:04","modified_gmt":"2020-07-10T13:00:04","slug":"fwtemporarytable-a-melhor-solucao-para-tabela-temporaria","status":"publish","type":"post","link":"https:\/\/www.codevix.com.br\/index.php\/2020\/07\/09\/fwtemporarytable-a-melhor-solucao-para-tabela-temporaria\/","title":{"rendered":"FwTemporaryTable – A melhor solu\u00e7\u00e3o para tabela tempor\u00e1ria"},"content":{"rendered":"\n

Introdu\u00e7\u00e3o<\/h2>\n\n\n\n

Uma classe relativamente recente e que vejo poucos programadores usarem \u00e9 a FwTemporaryTable<\/strong>. Ela serve para criar e manipular tabelas tempor\u00e1rias no banco de dados. Uma classe cheia de recursos e n\u00e3o \u00e9 muito dif\u00edcil de se utilizar.<\/p>\n\n\n\n

Fique ligado!<\/h3>\n\n\n\n

Uma observa\u00e7\u00e3o importante \u00e9 que seu uso \u00e9 obrigat\u00f3rio para cria\u00e7\u00e3o de tabelas tempor\u00e1rias caso queira migrar o dicion\u00e1rio do ERP para o banco de dados. Sabendo disso, o uso das fun\u00e7\u00f5es CriaTrab<\/strong>, DbCreate<\/strong>, MsCreate<\/strong>, Copy To<\/strong> e etc. para cria\u00e7\u00e3o de tabelas tempor\u00e1rias no banco de dados se tornou proibido. Caso haja alguma customiza\u00e7\u00e3o com essas fun\u00e7\u00f5es, elas ser\u00e3o detectadas como bug cr\u00edtico pela ferramenta TOTVS CodeAnalysis e impedir\u00e3o sua migra\u00e7\u00e3o de dicion\u00e1rio de dados, sendo necess\u00e1ria a substitui\u00e7\u00e3o pela classe FwTemporaryTable<\/strong>. <\/p>\n\n\n\n

A descri\u00e7\u00e3o do erro \u00e9: O uso de drive ISAM na linha Microsiga Protheus foi descontinuado.<\/em><\/strong><\/p>\n\n\n\n

Bora Codar !!<\/h2>\n\n\n\n

Bom, sem mais delongas, vamos analisar um exemplo de como criar uma tabela usando essa classe:<\/p>\n\n\n

\n\/\/ Instancio o objeto\noTable  := FwTemporaryTable():New('TRB')\n\naCpoData := {}\n\n\/\/ Crio com array com os campos da tabela\naAdd(aCpoData, {'TMP_FILIAL', TamSx3('E1_FILIAL')[3]    , TamSx3('E1_FILIAL')[1]    , 0})\naAdd(aCpoData, {'TMP_CLIENT', TamSx3('E1_CLIENTE')[3]   , TamSx3('E1_CLIENTE')[1]   , 0})\naAdd(aCpoData, {'TMP_LOJA'  , TamSx3('E1_LOJA')[3]      , TamSx3('E1_LOJA')[1]      , 0})\naAdd(aCpoData, {'TMP_PREFIX', TamSx3('E1_PREFIXO')[3]   , TamSx3('E1_PREFIXO')[1]   , 0})\naAdd(aCpoData, {'TMP_NUM'   , TamSx3('E1_NUM')[3]       , TamSx3('E1_NUM')[1]       , 0})\naAdd(aCpoData, {'TMP_PARCEL', TamSx3('E1_PARCELA')[3]   , TamSx3('E1_PARCELA')[1]   , 0})\naAdd(aCpoData, {'TMP_VALOR' , TamSx3('E1_VALOR')[3]     , TamSx3('E1_VALOR')[1]     , TamSx3('E1_VALOR')[2]})\naAdd(aCpoData, {'TMP_VALLIQ', TamSx3('E1_VALLIQ')[3]    , TamSx3('E1_VALLIQ')[1]    , TamSx3('E1_VALLIQ')[2]})\naAdd(aCpoData, {'TMP_SALDO' , TamSx3('E1_SALDO')[3]     , TamSx3('E1_SALDO')[1]     , TamSx3('E1_SALDO')[2]})\n\n\/\/ Adiciono os campos na tabela\noTable:SetFields(aCpoData)\n\n\/\/ Adiciono os \u00edndices da tabela\noTable:AddIndex('01', {'TMP_FILIAL','TMP_PREFIX','TMP_NUM','TMP_PARCEL'})\noTable:AddIndex('02', {'TMP_FILIAL','TMP_CLIENT','TMP_LOJA'})\n\n\/\/ Crio a tabela no banco de dados\noTable:Create()\n\n<\/pre><\/div>\n\n\n
Ao instanciar a classe, voc\u00ea pode ou n\u00e3o informar o Alias da tabela no m\u00e9todo New<\/strong>. No meu caso, informei o Alias TRB. Caso n\u00e3o seja informado, o sistema ir\u00e1 preencher com o pr\u00f3ximo Alias dispon\u00edvel. <\/p>\n\n\n\n
Caso queira posicionar em um registro dentro do programa, voc\u00ea pode utilizar os seguintes comandos:<\/p>\n\n\n
\n\/\/ Caso voc\u00ea saiba o Alias\nTRB->TMP_NUM\n\n\/\/ Caso voc\u00ea n\u00e3o saiba o Alias \u2013 primeira op\u00e7\u00e3o\ncTable := oTable:GetAlias()\n(cTable)->TMP_NUM\n\n\/\/ Caso voc\u00ea n\u00e3o saiba o Alias \u2013 segunda op\u00e7\u00e3o\n(oTable:GetAlias())->TMP_NUM\n\n<\/pre><\/div>\n\n\n
SetFields<\/strong><\/h4>\n\n\n\n
O m\u00e9todo SetFields<\/strong> recebe os campos para cria\u00e7\u00e3o da tabela, ele deve receber um array onde suas posi\u00e7\u00f5es devem ser preenchidas da seguinte maneira:<\/p>\n\n\n\n
  1. Nome do campo<\/li>
  2. Tipo do campo (Caractere, num\u00e9rico, etc.)<\/li>
  3. Tamanho do campo<\/li>
  4. Decimal do campo<\/li><\/ol>\n\n\n\n
    AddIndex<\/strong><\/h4>\n\n\n\n
    O m\u00e9todo AddIndex<\/strong> \u00e9 opcional, e voc\u00ea pode estar utilizando para criar \u00edndices em sua tabela tempor\u00e1ria. Informe o nome do \u00edndice no primeiro par\u00e2metro e um array com os campos daquele \u00edndice no segundo par\u00e2metro.<\/p>\n\n\n\n
    Create<\/strong><\/h4>\n\n\n\n
    Por fim, o m\u00e9todo Create<\/strong> efetiva a cria\u00e7\u00e3o da tabela no banco de dados.<\/p>\n\n\n\n
    \u00d3timo! Agora que a tabela est\u00e1 criada, como podemos fazer para popular? Existem duas maneiras bem simples. <\/p>\n\n\n\n
    A primeira e mais usada \u00e9 a seguinte:<\/p>\n\n\n
    \n\/\/ Fa\u00e7o uma consulta SQL dos dados que desejo popular\n    BeginSql Alias _cAlias\n    \n        %NoParser%\n        SELECT\n            SE1.E1_FILIAL,\n            SE1.E1_CLIENTE,\n            SE1.E1_LOJA,\n            SE1.E1_PREFIXO,\n            SE1.E1_NUM,\n            SE1.E1_PARCELA,\n            SE1.E1_VALOR,\n            SE1.E1_VALLIQ,\n            SE1.E1_SALDO\n        FROM %TABLE:SE1% (NOLOCK) SE1\n        WHERE\n            SE1.E1_SALDO > 0 AND\n            DATEDIFF(DAY,SE1.E1_VENCREA,CONVERT(DATE,GETDATE())) > 15 AND\n            SE1.%NOTDEL%\n            \n    EndSQL\n\n    (_cAlias)->(DbGoTop())\n    \n    DbSelectArea('TRB')\n\n    \/\/ Insiro todos os dados na minha tabela\n    While(!(_cAlias)->(EoF()))\n     \n        RecLock('TRB', .T.)\n\n            TRB->TMP_FILIAL := (_cAlias)->E1_FILIAL\n            TRB->TMP_CLIENT := (_cAlias)->E1_CLIENTE\n            TRB->TMP_LOJA   := (_cAlias)->E1_LOJA\n            TRB->TMP_PREFIX := (_cAlias)->E1_PREFIXO\n            TRB->TMP_NUM    := (_cAlias)->E1_NUM\n            TRB->TMP_PARCEL := (_cAlias)->E1_PARCELA\n            TRB->TMP_VALOR  := Round((_cAlias)->E1_VALOR,2)\n            TRB->TMP_VALLIQ := Round((_cAlias)->E1_VALLIQ,2)\n            TRB->TMP_SALDO  := Round((_cAlias)->E1_SALDO,2)\n\n        TRB->(MsUnlock())\n        \n        (_cAlias)->(DbSkip())\n        \n    EndDo\n    \n    TRB->(DbGoTop())\n    \n    (_cAlias)->(DbCloseArea())\n\n<\/pre><\/div>\n\n\n
    Importante!<\/u><\/strong> Caso utilize essa forma de preenchimento e n\u00e3o tenha informado um alias para a tabela, lembre-se de substituir o alias TRB<\/strong> pelo m\u00e9todo GetAlias.<\/strong><\/p>\n\n\n\n
    Existe uma outra forma de popular esses dados e que \u00e9 mais perform\u00e1tico que o anterior, inserindo diretamente via comando SQL:<\/p>\n\n\n
    \n    cFields := ''\n\n    \/\/ Busco todos os campos da tabela tempor\u00e1ria e preencho numa vari\u00e1vel\n    For nI := 1 To Len(aCpoData)\n    \n        cFields += aCpoData[nI,1] + ','\n    \n    Next nI\n    \n    cFields := Left(cFields, Len(cFields) -1)\n    \n    \/\/ Monto o comando SQL\n    cQuery := "INSERT INTO " + oTable:GetRealName()\n    cQuery += " (" + cFields + ") "\n    cQuery += " SELECT "\n    cQuery += "     SE1.E1_FILIAL, "\n    cQuery += "     SE1.E1_CLIENTE, "\n    cQuery += "     SE1.E1_LOJA, "\n    cQuery += "     SE1.E1_PREFIXO, "\n    cQuery += "     SE1.E1_NUM, "\n    cQuery += "     SE1.E1_PARCELA, "\n    cQuery += "     SE1.E1_VALOR, "\n    cQuery += "     SE1.E1_VALLIQ, "\n    cQuery += "     SE1.E1_SALDO "\n    cQuery += " FROM " + RetSqlName('SE1') + " (NOLOCK) SE1 "\n    cQuery += " WHERE "\n    cQuery += "     SE1.E1_SALDO > 0 AND "\n    cQuery += "     DATEDIFF(DAY,SE1.E1_VENCREA,CONVERT(DATE,GETDATE())) > 10 AND "\n    cQuery += "     SE1.D_E_L_E_T_ = '' "\n\n    \/\/ Executo o comando SQL\n    If(TcSqlExec(cQuery) < 0 .and. !Empty(TcSqlError()))\n    \n        MsgAlert('Ocorreu um erro ao executar o comando SQL!' + CRLF + CRLF + TcSqlError(), 'Erro ao popular tabela')\n        \n    Endif\n\n<\/pre><\/div>\n\n\n
    O conte\u00fado da tabela ser\u00e1 preenchido bem mais r\u00e1pido do que da forma anterior!<\/p>\n\n\n\n
    GetRealName<\/strong><\/h4>\n\n\n\n
    Aqui utilizamos o m\u00e9todo GetRealName<\/strong>, esse m\u00e9todo me retorna o nome f\u00edsico da tabela no banco de dados, que no meu caso foi ##TMPSC00_209<\/em><\/strong>.<\/p>\n\n\n\n
    Esse nome sempre vai variar de acordo com as tabelas tempor\u00e1rias j\u00e1 existentes no banco.<\/p>\n\n\n\n
    Uma observa\u00e7\u00e3o bacana \u00e9 que voc\u00ea pode executar um comando select nessa tabela via sua IDE SQL. Segue exemplo:<\/p>\n\n\n\n
    \"\"<\/figure><\/div>\n\n\n\n
    Agora que a tabela j\u00e1 est\u00e1 preenchida, \u00e9 s\u00f3 utilizar em suas customiza\u00e7\u00f5es! <\/p>\n\n\n\n
    Voc\u00ea ainda pode utiliz\u00e1-la dentro do Protheus para demais consultas SQL, incluindo JOINS, como no exemplo a seguir:<\/p>\n\n\n
    \n_cAlias     := GetNextAlias()\ncTblName    := '%' + oTable:GetRealName() + '%'\n\n\/\/ Executa a consulta SQL\nBeginSql Alias _cAlias\n\n    %NoParser%\n    SELECT * FROM %Exp:cTblName% TRB\n    INNER JOIN %TABLE:SA1% SA1 ON\n        SA1.A1_FILIAL = %xFilial:SA1% AND\n        SA1.A1_COD = TRB.TMP_CLIENT AND\n        SA1.A1_LOJA = TRB.TMP_LOJA AND\n        SA1.%NOTDEL%\n\nEndSql\n\n(_cAlias)->(DbGoTop())\n\n\/\/ Percorro a consulta SQL\nWhile(!(_cAlias)->(EoF()))\n\n    ConOut('T\u00edtulo: ' + (_cAlias)->TMP_NUM + ' - Raz\u00e3o Social: ' + (_cAlias)->A1_NOME)\n\n    (_cAlias)->(DbSkip())\n\nEndDo\n\n(_cAlias)->(DbCloseArea())\n\n<\/pre><\/div>\n\n\n
    Nesse exemplo, estou fazendo um join da minha tabela tempor\u00e1ria de t\u00edtulos com a minha tabela de clientes. Dessa forma posso buscar outros dados que n\u00e3o estejam em minha tabela tempor\u00e1ria. Aqui as possibilidades s\u00e3o v\u00e1rias!<\/p>\n\n\n\n
    Delete<\/h4>\n\n\n\n
    Por fim, ap\u00f3s realizar todos os processamentos desejados, basta chamar o m\u00e9todo Delete<\/strong> para efetuar a dele\u00e7\u00e3o da tabela tempor\u00e1ria do banco de dados. Esse m\u00e9todo chama de forma autom\u00e1tica a fun\u00e7\u00e3o DbCloseArea<\/strong> para fechar o seu alias.<\/p>\n\n\n
    \nIf(Type('oTable') <> 'U')\n\n    oTable:Delete()\n    \n    FreeObj(oTable)\n\nEndIf\n\n<\/pre><\/div>\n\n\n
    Espero que a dica tenha sido \u00fatil!<\/p>\n\n\n\n
    Refer\u00eancias<\/h2>\n\n\n\n