Exemplo de Autofill via script – On Base

1

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")

End If
'Endrow, irá informar que o registro está completo
Call results.endrow
End Sub

1