Utilização do BC

// MODE: INSERT

Event 'Novo.Registro'

    &BC_Name = new BC_Name() // Gera uma nova instancia do BC

EndEvent

Event 'Confirma.Insercao.Registro'

    // Atribuição de valores aos identificadores.
    // &BC_Name.Att1 identity no sqlserver,  atributo não atribuído pois é autonumber
    &BC_Name.att2 = &variavel2
    &BC_Name.AttMantidoEm = servernow()
    &BC_Name.AttMantidoPor = val(&Session.Get(DVar_Sessao.IdUsuario))
    &BC_Name.AttModo           = Modo.Incluir

    // Confirma a UTL
    &BC_Name.Save()

    &Messages = &BC_Name.GetMessages()   // obtem a lista de erros ( de tipo coleção)    
    do "error handling"    // trata erros
   
    If &BC_Name.Success()
        Commit
    Else
        Rollback
    Endif
EndEvent

// MODE: DELETE

    &BC_Name.Load(Att) // Att -> informe a chave (simples ou composta) para carregar o registro.
    &BC_Name.Delete()
   
    &Messages = &BC_Name.GetMessages()   // obtaining the error list (collection)        
    do "error handling"
   
    If &BC_Name.Success()
        Commit
        &BC_Name = new BC_Name()
       
    Else
        Rollback
    Endif

// TRATAMENTO DE ERROS, VISUALIZAÇÃO DE MENSAGENS
Sub "error handling" // tratamento dos erros e visualização das mensagens
    /*
       Definição das váriaveis
       Messages - Type Messages                   - é uma coleção
       Message   - Type Messages.message - é um item da coleção
    */
   
    For &Message in &Messages                         // itera as mensagens da coleção
        msg(&Message.Description)                      // mostra a mensagem
    Endfor
EndSub