Salve salve....
Ponto de entrada F087ASE1- ( Financeiro - Recebimento diversos )
FINA087-F087ASE1 - Filtragem dados SE1. Terceiro Panel Rec Diversos
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F087ASE1
Filtragem dados SE1. Terceiro Panel Rec Diversos
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F087ASE1()
Local aRet := {}
cQuery := "SELECT D_E_L_E_T_, R_E_C_N_O_ "
cQuery += " FROM "+RetSQLName("SE1")
cQuery += " WHERE (" + cFilSQLCli + ") "
cQuery += " AND E1_EMISSAO <= '"+Dtos(dDataRef)+"' "
aAdd( aRet, 1 ) //indice 1 da tabela SE1 nIndice
aAdd( aRet, "" )//Parametro inicial para realização de busca
aAdd( aRet, ".T." )
aAdd( aRet, "!EOF()" )//condição do While para efetuar a montagem da tela
aAdd( aRet, cQuery )
Return( aRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima