No vídeo de hoje, vamos demonstrar em como pegar um campo no SQL e trazer o conteúdo dele como Date.

A dúvida de hoje, nos perguntaram, que ao executar uma query, o campo não vem formatado como Data (DD/MM/YYYY).

Pensando nisso, montamos um exemplo, onde vamos mostrar a utilização da função TCSetField para transformar de caractere para data.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "tlpp-core.th"
#Include "TopConn.ch"

//Declaração da namespace
Namespace custom.terminal.youtube

//Constantes
#Define CRLF Chr(13) + Chr(10) //Carriage Return Line Feed

/*/{Protheus.doc} User Function video0182
Exemplo de como transformar uma coluna no tipo Data
@type Function
@author Atilio
@since 21/06/2024
@example custom.terminal.youtube.u_video0182()
/*/

User Function video0182()
    Local aArea     := FWGetArea()      As Array
    Local cQuery    := ""               As Character
    Local cMessage  := ""               As Character

    //Monta uma query simples, buscando informações da SC5, pegando um campo de Data
    cQuery += " SELECT TOP 5 " + CRLF
    cQuery += "     C5_EMISSAO AS DTEMIS " + CRLF
    cQuery += " FROM " + CRLF
    cQuery += "     " + RetSQLName("SC5") + " SC5 " + CRLF
    cQuery += " WHERE " + CRLF
    cQuery += "     C5_FILIAL = '" + FWxFilial("SC5") + "' " + CRLF
    cQuery += "     AND SC5.D_E_L_E_T_ = ' ' " + CRLF
    TCQuery cQuery New Alias "QRY_SC5"

    //Vamos ver como que está o conteúdo
    cMessage += "Tipo: " + ValType(QRY_SC5->DTEMIS) + " | Conteúdo: " + QRY_SC5->DTEMIS + CRLF

    //Será transformado no tipo Data, e vamos incrementar a mensagem
    TCSetField("QRY_SC5", "DTEMIS", "D")
    cMessage += "Tipo: " + ValType(QRY_SC5->DTEMIS) + " | Conteúdo: " + dToC(QRY_SC5->DTEMIS) + CRLF

    //Exibe a mensagem
    ShowLog(cMessage)
    QRY_SC5->(DbCloseArea())
    
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP