Nesse vídeo demonstraremos a utilização da função FormatIn, que serve para formatar um texto (exemplo “01;02;03”) de uma forma em que uma query SQL entenda através do IN (exemplo ’01’,’02’,’03’).

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe190
Cria um texto com separações (como por ponto e virgula) deixando no formato para usar em queries SQL
@type Function
@author Atilio
@since 21/12/2022
@obs 
    Função FormatIn
    Parâmetros
        + String original com as separações (seja ponto virgula; pipe; virgula; etc)
        + Define qual será o caractere separador
        + Define se irá pular mais caracteres após o separador
        + Usado exclusivamente com queries do MV_CARTEIR
    Retorno
        + Retorna o texto formatado

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe190()
    Local aArea     := FWGetArea()
    Local cTipos    := ""
    Local cTextoIn  := ""
    Local cQryAux   := ""

    //Definindo os tipos que serão filtrados com ponto e vírgula
    cTipos   := "MP;PI;PA;MO"

    //Quebrando o texto, conforme o ponto e vírgula
    cTextoIn := FormatIn(cTipos, ";")

    //Montando a query, juntando com o texto já formatado
    cQryAux := " SELECT " + CRLF
    cQryAux += "     B1_COD, " + CRLF
    cQryAux += "     B1_DESC " + CRLF
    cQryAux += " FROM " + CRLF
    cQryAux += "     " + RetSQLName('SB1') + " SB1 " + CRLF
    cQryAux += " WHERE " + CRLF
    cQryAux += "     B1_FILIAL = '" + FWxFilial('SB1') + "' " + CRLF
    cQryAux += "     AND SB1.D_E_L_E_T_ = ' ' " + CRLF
    cQryAux += "     AND B1_TIPO IN " + cTextoIn + " " + CRLF
    FWAlertInfo(cQryAux, "Teste de FormatIn")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima

Tags: AdvPLMaratonaProtheusTL++