Como Llenar un campo de un datawindow

Espero poder ayudarte con este ejemplo:
Tengo una funcion f_new_code
$PBExportHeader$f_new_code.srf
global type f_new_code from function_object
end type
forward prototypes
global function string f_new_code (string as_id)
end prototypes
global function string f_new_code (string as_id);
Long   ll_Maximo
String ls_Codigo
CHOOSE CASE as_id
    // Seg_Aplicacion    
    CASE "cod_aplicacion"
        SELECT Max(cod_aplicacion)
          INTO :ll_Maximo
          FROM seg_aplicacion;
        IF ll_Maximo <= 0 OR IsNull(ll_Maximo) THEN
            ll_Maximo  = 1
        ELSE
            ll_Maximo  = ll_Maximo + 1
        END IF
        ls_Codigo = String(ll_Maximo, "00")
END CHOOSE
RETURN ls_Codigo
end function
Esta función me permite crear un código nuevo según la secuencia o el ultimo código guardado en mi tabla.
Luego quieres llenar un campo de un datawindow desde un commandbutton colocas
dw_1.Object.cod_aplicacion[1] = f_new_code('cod_aplicacion')