Exemplo de Autofill via script – On Base

O código a seguir é um exemplo de como utilizar o autofill via script no On Base

'****************************************************************************************************** ' Script : Script para geração de autofill dinâmico '******************************************************************************************************


Sub GetKeyWordSetRecords(primaryvalue, keysetdef, results)
'O método GetKeyWordSetRecords necessita manter os três parametros acima

'Ele será executado sempre que um campo de uma keyword configurada com este autofill

'Perder o foco.
'primaryvalue - Refere-se ao valor digitado pelo na keyword de autofill.

'keySetDef - Refere-se ao ID do autofill construído no configurador do On Base.

'results - Trata-se de uma coleção de valores a serem retornados para que o On Base

'realize o autopreenchimento.
'On Error Resume Next

'Aqui provavelmente você irá construir o acesso a uma base de dados,

'sistema legado, ERP etc.
        'beginrow irá informar que está começando um novo registro
        Call results.beginrow
        If keysetdef.keysetid = 123 Then 'Auto fill ID 123

'O primeiro parâmetro do adddata refere-se ao nome da keyword

'O segundo parâmetro refere-se ao valor da keyword

Call results.adddata("Nome", "Marco Antonio Silva Jardim Santos Dias")

Call results.adddata("CPF", "123.123.123-88")

Call results.adddata("Endereço", "RUA JOAQUIM FLORIANO 341")

Call results.adddata("Tipo pessoa", "Física")
        ElseIf keysetdef.keysetid = 132 Then 'Auto fill ID 132

Call results.adddata("Empresa", "SISAD - Sistemas sociais de análise demográfica")

Call results.adddata("CNPJ", "02.123.000/1-88")

Call results.adddata("Endereço", "Rua Florista de genova, 45")

Call results.adddata("Telefone", "11 4822-3342")