Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - FwExecStatement - SetIn

Tempo aproximado para leitura: 00:05:00 min

Dúvida
Como utilizar o método SetIn da classe FwExecStatement?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Todas as versões

Solução
O método SetIn disponível na classe FwExecStatement, é herdado da classe FwPreparedStatement e é utilizado para instruções 'IN' do SQL. Segue exemplo abaixo:

Exemplo:

#INCLUDE "Protheus.ch" 
#INCLUDE "RWMAKE.CH" 
#INCLUDE "TBICONN.CH" 


user Function myExec() 

    Local cQuery as character 
    Local cAlias as character 
    local oExec as object 

    PREPARE ENVIRONMENT EMPRESA '01' FILIAL '01' 

    cQuery := "SELECT A1_FILIAL, A1_COD, A1_LOJA, A1_NOME FROM SA1010 WHERE A1_FILIAL = ? AND A1_COD IN (?) " 
    cQuery := ChangeQuery(cQuery) 
    oExec := FwExecStatement():New(cQuery) 

    oExec:SetString(1,'01') 
    oExec:SetIn(2,{'000001','000003'}) 
    cAlias := oExec:OpenAlias() 
    Conout(cQuery) 
    cFinalQuery := oExec:GetFixQuery() 
    (cAlias)->(DbCloseArea()) 
    oExec:Destroy() 
    oExec := nil 

    RESET ENVIRONMENT 

Return 

Saiba mais
FWExecStatement
FWPreparedStatement