Nesse vídeo demonstraremos a utilização da classe FWPreparedStatement, que serve formatar uma query.

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

//Bibliotecas
#Include 'TOTVS.ch'
 
/*/{Protheus.doc} User Function zExe239
Classe que prepara uma query SQL
@type Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/display/public/framework/FWPreparedStatement
@obs 

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

User Function zExe239()
	Local aArea := FWGetArea()
    Local oStateQry
    Local cQueryOrig
    Local cQueryNova
    
    //Prepara a query original
    cQueryOrig := "SELECT * FROM " + RetSQLName("SB1") + " SB1 WHERE B1_TIPO = ? AND B1_LOCPAD = ? AND SB1.D_E_L_E_T_ = ' '"

    //Começa a montar a query
    oStateQry := FWPreparedStatement():New()
    
    //Define a query e define o conteúdo das interrogações
    oStateQry:SetQuery(cQueryOrig)
    oStateQry:SetString(1, "PA")
    oStateQry:SetString(2, "01")
    
    //Busca a query formatada
    cQueryNova := oStateQry:GetFixQuery()
    FWAlertInfo(cQueryNova, "Teste 1 FWPreparedStatement")

    RestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++